a02aeb236c
Former-commit-id:06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f] Former-commit-id:9f19e3f712
11 lines
392 B
Text
11 lines
392 B
Text
C *--> FROM SCOMMON.DIMPCPN
|
|
C ARRAYS FOR STATION PCPN PARAMETERS
|
|
DIMENSION PCPNCF(2)
|
|
DIMENSION IPD5PT(5,4),STA5WT(5,4)
|
|
DIMENSION IPD3PT(3,4),STA3WT(3,4)
|
|
CHARACTER*8 STASID
|
|
PARAMETER (MSTASID=10)
|
|
DIMENSION STASID(MSTASID),IPDSPT(MSTASID),STASWT(MSTASID)
|
|
PARAMETER (MPXCHR=12)
|
|
DIMENSION PXCHR(MPXCHR)
|
|
C
|