a02aeb236c
Former-commit-id:06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f] Former-commit-id:9f19e3f712
22 lines
705 B
Text
22 lines
705 B
Text
C *--> FROM SCOMMON.SNTWKX
|
|
C NETWORK COMPUTATIONS COMMON BLOCK
|
|
COMMON /SNTWKX/ INWFIL,INWTYP,MAXSNW,INAUTO,FLATMX,FLATMN,
|
|
* PP24NW(5000),PPVRNW(5000),
|
|
* TA24NW(5000),
|
|
* EA24NW(5000),
|
|
* STATNW(5000),STIDNW(2,5000),
|
|
* CORDNW(2,5000),WORKNW(5000),
|
|
* SFLGNW(5000),
|
|
* PCHRNW(5000),
|
|
* TAINNW(5000),TF24NW(5000),ELEVNW(5000),
|
|
* NPP24,NPPVR,NTA24,NTAIN,NTF24,NEA24,
|
|
* INWSRT,INWDUM(4),
|
|
* GENLNW(5000),GPANW(5000)
|
|
INTEGER*2 STATNW,CORDNW,
|
|
* SFLGNW,
|
|
* PPVRNW,PCHRNW,
|
|
* TA24NW,TAINNW,TF24NW,ELEVNW,
|
|
* EA24NW,
|
|
* GENLNW,GPANW
|
|
INTEGER*4 PP24NW
|
|
C
|