e2ecdcfe33
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerlya02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]] Former-commit-id:06a8b51d6dFormer-commit-id:8e80217e59[formerly3360eb6c5f] Former-commit-id:377dcd10b9
11 lines
447 B
Text
11 lines
447 B
Text
C *--> FROM CLBCOMMON.STRCMX
|
|
C COMMON BLOCK TO STORE RECORDS READ FROM USGS STREAMFLOW TAPE
|
|
LOGICAL*1 DUMMY1,DUMMY2,DUMMY3,DUMMY4,DUMMY5
|
|
INTEGER*2 IYEAR,SCODE
|
|
INTEGER PCODE
|
|
CHARACTER*2 STATE
|
|
CHARACTER*8 STATON
|
|
DIMENSION Q(31,12)
|
|
COMMON /STRCMX/ DUMMY1(2),STATE,DUMMY2(6),STATON,DUMMY3(14),
|
|
$ PCODE,IYEAR,SCODE,XMX,Q,DUMMY4(56),AREA,DUMMY5(64)
|
|
C
|