C
I01=IE7+IH
JE2=JE1+NP
JD1=JE2+NP
B.6. Source Pro grams
325
C HOB, COB, OBWX, OBWY, LEOB, OBT
C
C
I02=I01+NOBW*NOBT
I03=I02+NOBW*NOBT
I04=I03+NOBW
I05=I04+NOBW
I06=I05+NOBW
ID1=I06+NOBT
C Calculating the required total storage space
C
C
C
NTOTAL=ID1+JD1
IF (IPR .LT. 1) THEN
WRITE
(6,20) NTOTAL
20 FORMAT (11,lX, 'THE REQUIRED TOTAL STORAGE SPACE IS:' ,115,1/)
ENDIF
IF(ID1 .GT. MA .OR. JD1 .GT. MN) THEN
WRITE (*, 30)
30 FORMAT (/,5X, 'The decleared dimensions of arrays A and N are exc
&eeded' )
STOP
END IF
WRITE (*, 40)
40 FORMAT (/,5X, 'The program is running')
WRITE (6, 50)
50 FORMAT (/,15X, '***** Principal control integers *******')
WRITE (6, 60) IHC, IST, IPR
60 FORMAT (/,10X, 'IHC=',I2,10X, 'IST=',I2,10X, 'IPR=',I2)
C Solving the forward problem
C
C
C
C
CALL
1
MCB2D (A(IG1),A(IG2) ,A(IG3) ,A(IG4) ,A(IG5) ,A(IG6) ,N(JG1),
N(JG2),N(JG3),N(JG4),N(JG5),
2
3
4
5
6
7
8
1
2
3
4
5
6
CLOSE(l)
CLOSE(2)
CLOSE(3)
CLOSE(4)
CLOSE(5)
CLOSE(6)
CLOSE(7)
A(IB1) ,A(IB2) ,A(IB3) ,A(IB4) ,A(IB5),
N(JB1) ,N(JB2),
A(IS1) ,A(IS2) ,A(IS3) ,A(IS4) ,A(IS5) ,A(IS6) ,A(IS7),
A(IS8) ,A(IS9),A(IS10) ,A(IS11) ,A(IS12) ,A(IS13),
A(IP1),A(IP2) ,A(IP3),A(IP4) ,A(IP5) ,A(IP6) ,A(IP7),
A(IP8) ,A(IP9) ,A(IP10) ,A(IP11) ,A(IP12) ,A(IP13) ,A(IP14) ,
A(IP15) ,A(IH1) ,A(IH2) ,A(IH3) ,A(IH4) ,A(IH5),
A(IH6) ,A(IH7) ,A(IH8) ,A(IH9) ,A(IH10),
A(IE1) ,A(IE2) ,A(IE3) ,A(IE4) ,A(IE5) ,A(IE6),
A(IE7) ,N(JE1),N(JE2),
A(I01) ,A(I02) ,A(I03) ,A(I04) ,A(I05) ,A(I06),
NP,NP1,NE,NB,NZON,IH,IHC,IST,ISO,IPR,
NW,NTW,NHB,NCB,NTB,NS,NTS,NOBW,NOBT)