INTEGER FUNCTION NODEC ( M )
Argument Definitions (+ indicates altered content)
INTEGER            M
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
nodec counts the number of nodes of the function pde
Source file:nodec.f
Intrinsic Functions Called
GENERIC*8          ABS
External Functions and Subroutines Called
REAL*8             EMAX
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +J,         +MM,        +NCC
REAL*8            +DM,        +PRECIST,   +X1
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8             PRECIS
MCOMMBLOCK         REAL*8             R2(MAXNO)
WAVE               REAL*8             PDE(MAXNO)