C
C
C
C
B.6. Source Programs
323
2 FORMAT (70A1)
READ (1, 4) NP, NE, NB, NZON, IHC, IST, IPR
4 FORMAT (7I10)
IF ( IPR .LT. 1) THEN
WRITE (6, 2) CHA
WRITE (6, 4) NP, NE, NB, NZON, IHC, IST, IPR
ENDIF
IF (IHC .EQ. 2
ISO=O
CALL JUMP(1, 2)
READ (1, 2) CHA
READ (1, 4)
NW, NTW, NHB, NCB, NTB, NS, NTS
IF ( IPR .LT. 1) THEN
WRITE (6, 2) CHA
WRITE (6, 4) NW, NTW, NHB, NCB, NTB, NS, NTS
ENDIF
CALL JUMP(1, 2)
READ (1, 2) CHA
READ (1, 6) NOBW, NOBT, ISO
6 FORMAT (3I10)
IF ( IPR .LT. 1) THEN
WRITE (6, 2) CHA
WRITE (6, 6) NOBW, NOBT, ISO
ENDIF
C Alloeating storage spaees
C
C
NP1=NP+1
IG1=1
JG1=1
C X, Y, TR, BR, TH, PS, IJM, MA, MCPN, NPZON, NSZON
C
C
IG2=IG1+NP
IG3=IG2+NP
IG4=IG3+NP
IG5=IG4+NP
IG6=IG5+NP
IB1=IG6+NP
JG2=JG1+3*NE
JG3=JG2+NP1
JG4=JG3+NB*NP
JG5=JG4+NE
JB1=JG5+NE
C Reading and proeessing geometrie and geologie information
C
CALL DATAG (A(IG1) ,A(IG2) ,A(IG3) ,A(IG4) ,A(IG5) ,A(IG6) ,N(JG1) ,
*
N(JG2) ,N(JG3) ,N(JG4) ,N(JG5) ,NP,NP1,NE,NB,IH,IPR)
C
C Continuously alloeating storage spaees
C
C
C HOO, COO, HB1, CB1, STEPB, NHBP, NCBP
C
IB2=IB1+NP
IB3=IB2+NP
IB4=IB3+NHB*NTB
IB5=IB4+NCB*NTB