10 lines
332 B
Text
10 lines
332 B
Text
|
C *--> FROM URCOMMON.URHSHC
|
||
|
|
C REORDER PROGRAM PREPROCESSOR DATA BASE POINTERS TO SIF RECORDS
|
||
|
|
C STATION IDENTIFIERS
|
||
|
|
C MAT for DR18608 Increase array size by 2
|
||
|
|
C COMMON /URHSHC/ IURHSC(10000),MURHSC
|
||
|
|
COMMON /URHSHC/ IURHSC(20000),MURHSC
|
||
|
|
INTEGER*2 IURHSC
|
||
|
|
C MAT for DR18608
|
||
|
|
C
|