632020195a
Former-commit-id:fda897d2d0[formerly253e8bc948] [formerlyfda897d2d0[formerly253e8bc948] [formerly295cbf95e5[formerly 0816cd253c86acc699cb90866131619c4679f631]]] Former-commit-id:295cbf95e5Former-commit-id:2a3bf4ec32[formerlyae3d17c698] Former-commit-id:a610dcde73
27 lines
1.1 KiB
Text
Executable file
27 lines
1.1 KiB
Text
Executable file
C************************************************************************
|
|
C* CURVE.CMN *
|
|
C* *
|
|
C* This common area holds space to store points in the CURVE *
|
|
C* subroutines. *
|
|
C** *
|
|
C* Log: *
|
|
C* M. desJardins/GSFC 12/85 *
|
|
C************************************************************************
|
|
PARAMETER ( MAXPTS = 500 )
|
|
C*
|
|
COMMON /CURVE/
|
|
+ x ( MAXPTS ),
|
|
C! x coordinates of input
|
|
+ y ( MAXPTS ),
|
|
C! y coordinates of input
|
|
+ coeffs ( 4, MAXPTS ),
|
|
C! coefficients for curve
|
|
+ xout ( MAXPTS ),
|
|
C! x coordinates for output
|
|
+ yout ( MAXPTS ),
|
|
C! y coordinates for output
|
|
+ s ( MAXPTS ),
|
|
C! second derivative for spline
|
|
+ a ( 4, MAXPTS )
|
|
C! matrix for splines
|
|
C------------------------------------------------------------------------
|