- An i  -  V~ A      -^~M                 Ii -  -A
-ia        Wax -m -                w    - 1  __ _ __

- ~ ~ - -
I       ..,..~.
0

SU IRO0UTINE INPUT

74/175  OPT=0

FTN 5.0+508

81/12/07. 12.15.58

PAGE

4    .~&64~iS~1d*..1' .~,'

C
C
C

H 7
at
2-8
290
29 7
292
253
294
291
00 1
10 3
3 0 7
30 3
313'1
315
3 1 4
50 1
2 08
3 2 7
'09
310
311
5132
$15.
315
515
316
37
3 I3 9
321
12
322
3?5
32'.
525
326
528
529
34 T
331
372
335
33',
335
336
5371
.039
541'
541
542

wA ITE(6.2000) J9(mAIL II ,J   I -l1,NX)
2080   FORMAT(4xtl2,14X,212)
J=J-1
GOTO 210
220 CONTINUE
GOTO 30

READ LEAKAGE HISTORIrS
250 CONTINUE
RITE(6.2085)
2085 FORMAT(//5Xo"--- LEAKAGE HISTCRIES ---"/1
NLEAK   1
START LEAKAGE HISTORY LOOP
255 CONTINUE
REA(5,l090) NUM,NL'T(NLEAK),NNOUES(4LEAK)
IF(EOF(5)  .NF.  0)  SOTO  -00
In00  FORMAT(3116)
IF(NUM  .LE.  0.)  GOTO  270
NN = NNOES(NLEAK)
WRITE(6,2090)  NU-,NLPT(NLEAK)*NtlAUES(NLEAK)
2990 FORIAT(//,t'HISTORY NO.",I'95Xt"NO. OF LEAKAGE CURVE POINTS ="
I       I,5X,"NO.  OF  NODES  =" tbt/)

MLP:NLPT INLE AK )
EA (5, 1692) ( TILEAK IR)RkA TE INLEAK, 1R) IR=1NLP)
1792  FORMATI2F10.0)
IF(EOF(5).NE.0)GO TO 900
C
WRITE(6,2092)TUNITLUNII.IUNIT(fTM(NLLAKIR).RATEINLEAK*IR)*
I=zINLP)
2092 FORMATx I',x "LAKAE UPVE"/x,34 r-*)/I0K."TIME".16X,"RATE"/
1       Ox,*', 'A4.,*)*0)ox(CU.*,A9, /',A4, ')t/
2       (t)XFIt.2.1Ix DF0.2))
C
READbl,0o94  (NODES(NLEAKIl),NODES(NLLAK12)1,l=1,NN)
1095 FORAAT(2014)
IFIE'IF(5)  .NE.  0)  G00 0  900
jA  ITr t6 .2 0954,) NUM ,(N 0:E S(INL EAK  lelsI)e9NOU E StW14LEAK *  ,2  sl 1 .  N)
2095 FORMAT(41XNODAL COORCINATES OF LEAKAGE FROM SOURCE'I5//
*       5X,12(*  x  ,  Y  ')/
*       I), 121( 13,** *130 ))
C     CHECK FOR VALID LEAKAGE HISTORY
00  260  N1LK.=1.PLP
IF(NLK.EQ.1)GO TO 260
MLK = ILK-1
IFIT-(NLEAK.:iLK).GT.TMINLEAKMLK))GO TO 260
WRITE  fa 20q6)
2096 FORMAT(15X,"*FATAL FRROR LEAKAGE CURVE
I        TIME AXIS ERO**"/)
C
260  CONTINUE
C
C

0

--'':~'~~.....

1.,

C
C
C

90

)
0
0 ___

0
S

0
0
0

0

. *
0
I.
J.

_7
u   "aww*-14,r "i"'n IF                  "Ir  i,         at

1 .11, - .   . ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ i Il - 11  )  f I  1- 111,I"   '  )it-   1iA vll  A,  d. LL1 11