9 lines
333 B
Text
9 lines
333 B
Text
C *--> FROM SCOMMON.DIMTEMP
|
|
C ARRAYS FOR TEMP PARAMETERS
|
|
PARAMETER (MAXTMP=12)
|
|
DIMENSION TMPMAX(MAXTMP),TMPMIN(MAXTMP)
|
|
PARAMETER (MAXCF=2)
|
|
DIMENSION TEMPCF(MAXCF)
|
|
DIMENSION IPDMMT(3,4),WTMMT(3,4),IPDINS(3,4)
|
|
DIMENSION WTINS(3,4),IPDFMM(2,4),WTFMM(2,4)
|
|
C
|