SUBROUTINE DIFF ( I )
Argument Definitions (+ indicates altered content)
INTEGER            I
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The diff routine calculates d^2/dr^2 + 2z/r - l(l+1)/r^2|p(i)>
Source file:diff.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
    OUC                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
GENERIC*8          ABS
External Functions and Subroutines Called
REAL*8             ZVAR
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +K,         +KM,        +KP,        +MM
REAL*8            +C,         +DLEXP,     +FL,        +HH
REAL*8            +TZ,        +Y1,        +Y2,        +Y3
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8             TWO
INOUT              INTEGER            OUC
MCOMMBLOCK         INTEGER            L(MAXORB)
MCOMMBLOCK         INTEGER            MAXV(MAXORB)
MCOMMBLOCK         REAL*8             P(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8             R(MAXNO),  R2(MAXNO)
MCOMMBLOCK         REAL*8            +YK(MAXNO)
PARAM              INTEGER            NO
PARAM              REAL*8             H
PARAM1             REAL*8             D0,        D1
PARAM1             REAL*8             D12,       D16
PARAM1             REAL*8             D2,        D30
PARAM1             REAL*8             D5
REL                REAL*8             DLR(MAXORB)