40aa780b3d
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]] Former-commit-id:8485b90ff8Former-commit-id: 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5] Former-commit-id:33a67cdd82
27 lines
1.1 KiB
Text
27 lines
1.1 KiB
Text
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------------------------------------------------------------------------
|