Argument Definitions (+ indicates altered content)

INTEGER IO REAL*8 +V(MAXNO), VIN(MAXNO)

Description

Copyright (C) 1978 Charlotte Froese Fisher Copyright (C) 2012 Jacek Kobus diffs calculates the first (second) derivative of the function stored in the array vin if io=1 (io=2) and returns the result in the array v

Source file:	diffs.f

Parameter Variables Used

INTEGER MAXNO (MAXNO = 29999) INTEGER MAXORB (MAXORB = 20)

Local Variables (+ indicates altered content)

INTEGER +I, +J, +K, +KK INTEGER +KL, +KR REAL*8 +A1, +A2, +A3, +A4 REAL*8 +A5, +A6, +A7, +A8 REAL*8 +A9, +AM1, +AM2, +AM3 REAL*8 +DV1, +DV2, +DV3, +DV4

Referenced Common Block Variables (+ indicates altered content)

PARAM INTEGER NO PARAM REAL*8 H PARAM1 REAL*8 D12, D2 PARAM1 REAL*8 D3, D4 PARAM1 REAL*8 D6