1 .1 -.       .   -,

I

-u w  io l iNi   rI IN

1111/12/01.  12.1b.58

1,  /  I  I L I ) I  I

GO T" '0tO
 wRITE  TI)L  .i TICLt  COUNT

0

0?
I;
I,
0..
I.

0
*

0

100 CONTINUf
1  AD  If.  PAR TICLf  L  CAI  0 S
UEAD L  (I H t  ,I I, , )') .Y I(N) I1 TOTAL
Iln?,,  F OR,  A T ( HFit-.'I)

I N PU T  C GMPL  I
GOTO 9"n
000  CONTI':TU
r     SIGNAL  Fl PT  Of'E TAPT  FILE
ERRC'00  0  I.
EqRArG,(I)  =  I
LRRARGC(?)  =  1fi
GOTA 999

1 0  COINT INU
SIGNAL  r  ACHEtD  IN
FRrCr)D  m  10
EPRARGII
(PRARGU2    I
FPRAPG(!)   J
rOTO 999
"20  CONTINUC
ERRCOD  =  1107
!;O To 1'
0j30  CONTINUI
ERRCGO =101'
GO  1O '.0 ,
1'40 COiTIN1U(.
ERRCOD   10"
999 CONTINUE
RETURN
f NO

0

(F  FILE  1LFOP  COMPLL TED  L3AD

0

PAGE

.14ITLU,.'  1)l ITIL~ lellI F*TU'JIe  TOTA0LLukl T ,TIMEfU r.IT
Il'  f04(u tI( ,*,I  uL^TI'J  INITIALIZIU  Oy  Rt',TAIII  FILE  -0* 410 1/
*   , *Rf '.IA  I  r0N 111 0N  :/
*  l     ,* IM  1'  IN  ,IMULAI IO ()N   * 1i).. 1 x,A  /
*  7x  'NUMf.'   OARTICLES          IP/
.   (,  HErA,.  I', I   *i,'  AT  T I "  F 0.. 1 5   1  ,A4,IX,*:'/)
00  1 00  J = I olY
RE A iD (I  I,1'  l I  F. Au  I ,J  I 1  ,
If (LN) (I'it  it.)  . ) A  G T)C T 1)
'  0   FORlMA,  tMA  ) I
.02(0 FODRMATilx, *Y0'l .'/I'L.*L5,')'*,F<.2) ))

0C

U
I C
'Al
1 01
In?.
10 0
Ill
I ll
It ~

7
iaml  , 4441
L

I             I
7F.            7,7 . -T
I",

it

F1 1.0+51)"n