81/) 2/07. 12. )5.5((            PAUl        I
''U TI ii  C UT 2K      7'4/I P.  (IPT                                       tTN  C.O.~iTM

C Cs
C CS

S     rU  'UT  I I   t  TI MI. *,UPmIT  x .1  AX
ARRAYS
TPRAC(
C ALL%
OP frCI

C   FUNCTION:  PrI  T . T r  A R  C7,NCr ,TR AT IOtt MATI1X  VALUES  IN  hLOCK
C              Frn .  TkiE  n4IGIN  (NUt-F  1,l)  IS  P'INTLO  IN  THE  LOwER
L LE FT             CnP   . P .  PRO!-LEMS  wI TH  -I0.1E  T!rA%  21,  COLUPNS
r              Mk  P iR INTED  IN  STRIPS,  25  COLUMNS  PER  PAG .
C
C ARG~UMENT;:
C     ITYPEI - CCL.CT'; TYPC OF OUTPUT
C              1  =  r-"iIT5  trEAUS
C2 CI RI NTSC OCENCICTRAT IOci
C
C      TIE  -  T't  INCE  IMIJLATIOJ  'CEGAN
L
C     NUMIT  -  'UrW   f  1,l  IfI   AT IONS
r
C
COMM NI/POR " /tif A'  :   41) 1 00L  (211,41, I  f)T  u,4 1)
2               Y (".41Y1 , GY(2 ' 4 1)Y .   *i*YP  V   I  ,TH ICK 2 4 1)
C
CCOMMON J/ '1L/I T FfP,'A .st *   1Y  Y,0 ,1 TIAMAX ,UTF, j ,C ATPR I C  LUNI I,
t               T  n , IT Il t fi ), T)L, MAKI I  r'TYPt , L,PAR TVL,
I      I I O '10 I  I  I I  )
C
N NxPAR ,N Y PA  F EL I
C
COCMMON/MATA / IF MAT.,L (T0)  )LTA2 IfA  20) ,  (291,S ( ) ,r<  (20) *PO I(23)
C
COIMN/L LAK/  JLt    0 .'0 F 5IL01.N L T  ),T  : 0) kA T  t- 0  0
I              *(U l t (I1,100,0 )
C
COMMON/ff RO f RPC, FRRARG(10)
C
INTEGER TITLT TUNIT.LUNITeNX*NYCOLLPCOLPP9OUTFRO
C
REAL HPt12d),K
C
C      dRI RE        II9'')  T  .T IYf lT'FvNU' IT
C'-1N2  FOR 'AT(//IX,"I  ',T  INTO  1U2   " ill0  10., 115/)
4RITCE(ito*il ITLE
2010  FORMAT("l1"//'x, A10)
C
IF( ITYPO  *  YP *  I)  OT  10
.lRITC( e 31';)  LU lIlTIIlM(,TUNITOUt, MITtLLtAK
2015  fORMAT(/ 10 ."  *  it AOS  (",A4,")  AT  TIM =  **FII.4  X,A4,
1     "  **-**I"/  I ' Niij.  OF  IT( HAT1001, O ", I ,"  I  SILUN  =  4.3
2        jMAX   ",F.!//)

81/12/07. 12*15.511

r)             -

0

)
S
0
0

WIWI

PAGE1

, I I~* *.
0
0
'9
9
S

f IN *C+-508t

7 4 / I I,  n VT I

.'If nti;IIill  ( U T? K