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