336
Appendix B
C
C
SUBROUTINE DATAP (ZTK,ZSE,ZPR,ZAL,ZAT,ZAD,DTK,DSE,DPR,DAL,DAT,
DAD,NPZON,RDC,DFU,NE,NZON,IHC)
IMPLICIT REAL*8 (A-H, O-Z)
DIMENSION ZTK(NZON),ZSE(NZON) ,ZPR(NZON),ZAL(NZON),ZAT(NZON),
ZAD(NZON) ,DTK(NE) ,DSE(NE) ,DPR(NE) ,DAL(NE) ,DAT(NE),
DAD(NE) ,NPZON(NE)
C Reading parameters associated with each zone
C
C
C
CALL JUMP (5, 3)
DO I=l,NZON
READ (5, 20) ZTK(I) ,ZSE(I) ,ZPR(I) ,ZAL(I) ,ZAT(I) ,ZAD(I)
20 FORMAT (5x, F15.5, 5FlO.5)
END DO
C Reading radioactive decay coefficient
C
C
IF (IHC .EQ. 2) THEN
CALL JUMP (5, 3)
READ (5, 30) RDC, DFU
30 FORMAT (2F15.6)
END IF
C Generating distributed parameters
C
C
C
DO N=l, NE
DTK(N)=ZTK(NPZON(N))
DSE(N)=ZSE(NPZON(N))
DPR(N)=ZPR(NPZON(N))
DAL(N)=ZAL(NPZON(N))
DAT(N)=ZAT(NPZON(N))
DAD(N)=ZAD(NPZON(N))
END DO
RETURN
END
C********************************************************************
C
C
C
Subroutine DATAW reads extraction and injection data
C********************************************************************
C
C
SUBROUTINE DATAW (WRAT,WCON,WLX,WLY,LEW,STEPW,NW,NTW,IHC)
IMPLICIT REAL*8 (A-H, O-Z)
DIMENSION WRAT(NW,NTW) ,WCON(NW,NTW) ,WLX(NW) ,WLY(NW) ,
LEW(NW) ,STEPW(NTW)
C Reading extraction and injection data
C
C
C
C
IF (NW .GT. 0) THEN
CALL JUMP (7, 3)
DO K=l, NTW
READ (7, 4) STEPW(K)
END DO
4 FORMAT (lOX, F15.2)