SUl-iOUT INI INPUT

74/175  OPT=O

FTN 5.0508

81/12/07. 12.15.58

229
30
32
239
23
27
.,45
41
2 
3
2 b 14
6.)
27.
2 70
z. r
2 72
250
25 1
2'9
: 6
7
2ka
d8
29 3
2b6
26 1
2n 9
270
71
272
279
276
271
280
285

200 CONTINUE
WRITE(6,207b
2075 FORMAT(//,5K,"---  "ATERIAL TYPE MATRIX ---"//
133X.*CELL  N"UMI'FR  Il  X  DIRECTION'/
21Xs'CELL  N ' E * 2 x * * 1 x * '
31X,*Y  DIRECTION*,7x.2t  I  2  3  4' 5  6  7  8  0  ),  1  2  3  4  5  6  7  8/
IF(MTYPE  .1E.  1)  GOTO  205
READ(591036)  LAYfR
IF(LAYER .CO. "UPPER") L=
IF(LAYER  .E0.  "LOWER")  L=2
IFiL .NF. 0) COTO 205
ERRCOD = 135
GOTO Q10
205 CONTINUE
IF(L *Er] CI L:MTYPF-1
IFfMTYPE *EO. 1) WRITEt6,2036) LAYER
J=NY
210 CONTINUE
IF(J.LT.1) G)TO 220
READ( .10H0)  (ITEMP(il 1,=19NX)
1080   FORMAT(8011
IFIEOF(5) *NE. 0) (GOT0 900
DO 21!b I=1,NX
IF(ITEMP(I)*NE, 0 MATLhIJ)=4ITEMPtI))
215   CONTINUE

0
0

9.
* .-- *-' 2
3

-                                                                                             WIWI

PAGE     5

I.-

L=0
IF(MTYPE .4E. 1) GOTO 162
READ(5,1036) LAYER
IF(LAYER  .r .  "UPPER-)  L  1
IFILAYER  .E'.  "LOWER")  L  2
IF(L .NL. 0) GOTO 162
ERC010 = 15
GOTO 910
162 CONTINUE
IF(L  *EO*  0) L  =  MTYPE  -1
IF(MTYPE  .E .  1)  wRIE46.2036)  LAYER
J=NY
165 CONTINUE
ir(J.LT.1) GOTO 170
REArifh),l11b) (FTE,1P(IMjI=1sNX)
1065   FORMAT(IFl 0.0)
IF(E0Fl'j).NE.0) GOTO 900
DO 167 [1,00X
IF (PT1MP.(I.E.0)  BOThIlJ)=PT[MPIIl
167   CONTINUE
WRITE(6,20b5) (I0T(I lJ),I1,rNX)
2065   FORMAT((5I5FR.2)/)
J=J-1
GOTO 165
170  CONTINUE
GOTO 30
READ MATERIAL TYPE MATRIX

0

S

~.

j

I

~La       Ik~

7                   f~