C
C Common blocks /NODE/ and /SRCC/ for program NET: C C----------------------------------------------------------------------- C INTEGER IPOS1,IPOS2,IPOS3,IPOS,IADR,ICBI,IFS REAL PI,TTI COMMON /NODE/ IPOS1,IPOS2,IPOS3,IPOS,IADR,PI,TTI,ICBI,IFS C C IADR... Index of the network node (loop or temporary variable). C C....................................................................... C INTEGER ISRCI REAL DPOS1,DPOS2,DPOS3 COMMON /SRCC/ ISRCI,DPOS1,DPOS2,DPOS3 C C======================================================================= C