%UVP0UlIVl  INPUT

74/175  OPT=O

FTN 5.0+508

R1/12/07. 12*15-58

PAGE      2

ju lI *M533i lll J4IlathA' 1

65x,".*,23XwoOIFICATIGN 6.1 0 DECEMBER 1981t923X,"**/
I         0                      TIME: ",AIO,
I  'iXRUNDATE: ",AIO,17X'""/
READ(50,015) TU'NITLUNIT
1015 FOR"ATIA4q6x,A4)
IF(COF(9) .NE. 0) GOTO 900
WRITF(6,2016)  TUNIT.LUNIT
2015 FORMAT(/17x,"--- UNITS ---"I/
. NX,"TIMF UNITS = ",A4,5x."LENGTH UNITS
C

9
0
0*

694
72
H 0
93
74
lb
79
10
1 1
a1 0
17
1 P 0
1 5
1g 0
9
It,
17
1  1
19 1
100
101
102
10
104
105
10 9
1-01
10 3
19
10
1130
1014

REAC(5,1020) Oxl)Y,Nx,NRYTSTEP.TIMMAXPAFTVL
1020 FORMAT(2F10.0.21103F.IO0)
IF(EOF(5) .N. 0) GOTO 900
WRITE16,20P3) LUNIIToDALUNIIDY,NXN YTUNI TTST EPTUNIT
*               TIMMALUNITPARTVL
2020 FORMAT(/19x,"---   PRO9LEM DEFINITION
*  5x,*GRIO SPACING IN A ,IRECTION (I.AA,)',15XDX =,F10.21
*  5X.*GRID SPACING IN Y CIRECTION (.A',,),150,0y r'sFIO.2/
*  5X,*NUMBER OF NODES IN X LIRECTION,19X.ONX =9,110/
"   x,*NUBER OF NODES IN Y UIkECTION,10A.NY =.110/
*  bX,'TIPE STEP (*,A4')'i30x,'TSTEP =*,FIO.2/
*  EX,9MAxIMUM RUN TIME ('.A4,)' A,2'TMAX =*,FIO.?/
*  5XPRTICL( VOLU*AC (CU.),A*5),,*0Y*,F0ARIVL.2/
READi5,1021)DxPARDYPAR,NXPAR, NYPARKELIM
1021  FOR'4AT(2Fit.0t211,0I2)
WRITF(6,2021)LUNIT,DXPARLUNIT,OYPARNKPAR,NYPAR
2021 FORMAT(/
*   X,'SU1!GRI D SPACI NG IN X DIRECTION   A4       ,  0 X PAR  F10.0
5x,*SU1.GRID SPACING IN Y DICTION       A 4,)9X,(YPAR       F10.0
*   X,*NUi fER OF N00CS IN SUPGRIP X CIRFCTIONRX,'NXPAR     I I
t NX,'NUMRbL   OF NODES IN SUnGPIO Y OIRECIIN.RA.NYPAR =,1101
IF(KELIM*LE.0) GO TO 70
WRITE  ( 6 ,2 02 ;Z  FLI M
GO TO 15
70  WRITE(6.2023)  KLLIM
2023 FORMAT(OX,'PARTICLES ELIFIATED ON PRINT STEP'912X'KELIM ='9110/)
2022 FORVAT(I X'PARTICLES ELIMINATED ON TIME STEF9,15x,-ELIM =1,110/
75 REA(5,1025)ISrLD,MiYPE, MAxl TTOL,0UTFRj,(NDATP6(I),I=1910),
I             IHEDINIHEDOT
1025 FORMATI(3110FI0.0,11I0Il1*2110)
IF(EOF(5) .NE. D GO10  0
IFIRTYPE *EG. 0.OR. MTYPE *EG. 1) GOTO 920
RIT  (64R02I        R)ISEED I"TOI MTYPEi, MTYPEPIAXITItUNITTOLe0UTFR~

2025 FORAU
"   ix.'MOPLL TYPE : -,A,1X,'"TYPf =9,I10/
"  5X,'MAXIMUH INTERATIONS PER TIME STEP'ol3Xt*MAXIT =191iI
SX,0,'IIRATION TOLF.4ANCE ('A,),19TD            'F10.0/
5x N,IFRCO UL tC Y OF OU TPUT ( NO . OF T IME STL PS  Ix , -OUTF R U  I I0D
5 X.-PRINTOUT OPTIONS (SEE UErTAILS i[L3W?',9X.'NOATPR =-.1011/
*5A,'RESiTART CO'NDITION READ FROM FILL NLMBER',bXIUHLUIN =-,Ii0/
*5WRtETART CGNtTTITON WRITTEN TO FILE NUMLIER    ~ImEOT =1,110/)

.1~~...

.'.*.''-...<$,y-..~<'A'A~'~~>..

S
0
.~) -
A

0

w
9.

4

j *~.
0

7               .         --    r"."
law,

0

7-7.
ft                                                                                                                                                                                                                                                                                                i                                             ,                               -                                                                                                                                I

.014w,

I , I I     i-