GASPK<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh ژ(   8T Ř8d ][N _EMUL%DATANMONTR׌_A͌_OXe_QXcRMOVEތEVNTS׌SUMRYnjOTPUTˌERRORݐ GASP2 Ɯ~ ~ >?  | (T 8D @< _ $W ,O 4G <? zD7 uN- \V% i  YԠ  Sn U6B  IL, ))_ !# !# 3H!#: Y!#WA c!# j!#s!#q' }!# !#-(1H0,28X,'** Intermediate Results **'// )\S e@Udq]5fx  "$'),/:1{fS{fQff xH *  #U(_*,/1W4Y3gffiiǜx t   *!2&(*-c8ff{ff{ff~zx j    "%(-0s2 l2~f~~fҜx}.  .!.$(*.,Lff~W9 U.ҊtCOLCT<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh 1( 8T Ř8d ][N _EMUL%ERROR݌AMIN1AMAX1 COLCT 0!~ 6~ <>? B | H(T N8D T@< Z_ `$W f,O l4G rܜ<? x՜D7 ~МN- V% Ĝ  Ԡ  n 6B  L, !#06F  * )!ZB?<?|5'+8rrfr!x0 6" #&+1-1/2>A4f#rfcurf#rfcuu*rf#>x !$(+.47;=qrfcirf#rf#frf#rx !$' )-0'47tf#fW$' ) tDATAN <FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh{ l( m8T Ř8d ][N _EMUL%ERROR݌_A͌_OXe_QXc_B̌_OYd_O_PXd_CYp_CˌEXIT/_P_DʌDRANDSETFILEM DATAN s~ m~ d>?  X| X(T R8D 5@< E_  ?$W 9,O 34G -<? $&D7 *!N- 0V% 6 < Ԡ B n H6B N L, Tc Z̜ ` fܜk l Μd rΜ4I x <A ~ v  ߠ Π      r  a iiМK1 !!Z!# 7T3 :Z |`' F:f  ?l $&:r -x H:r Ox V:r ]x d:~ oۜ :Ԡ  ( u:Ƞ d!#  F: 5ߠ(!#ݜ D٠ Ӡ(1H0,9X,'1',9X,'2',9X,'3',9X,'4',9X,'5',9X,'6',9X,'7' / 1H ,'123456789',1H0,'123456789',1H0,'123456789',1H0,'123456789' ,1H0,'123456789',1H0,'123456789',1H0,'1234567890' )(6A2,I4,I2,I2,I4,I4 ) (1H ,6A2,I4,I2,I2,I4,I4 )- ( 9I5 )( 1H ,9I5 )' 4( 10I5 )<( 1H ,10I5 )۠v( 4F10.4 ) ( 1H ,4F10.4 )7( 4I5,2F10.3,I4 )W( 1H ,4I5,2F10.3,I4 )} ( 7I10 )( 1H ,7I10 )( ( 7F10.4 )r(1H ,7F10.4 )mK(1H1,19X,'Simulation Project No.',I4,2X,'on',2X, 6A2//,20X,'Date',I3,'/',I3,'/',I5,12X,'Run number',I5//)%(10X,' Parameter No.',I5,4F12.4 )_Dm2 48x`<>6ff x <A< #(A*,F.00-2{xA@  "$'H_<[{{{{{{f՜xB  DFH "% (*-H3 6B5fffffHx D F  H    #%'* -/47{{{{{{{{{xx  ""%(+.1N6fffffff'x       "! $' *- 06)fff~f~x  N  F$ #[&+*$-0h4[~~fQ~Zx+ N\ -+ $# &*,.4~~f~~x+v  H+"$&(++.%4~fQ~~ex O  +  +#&),V.66~f~~~fQx+ +! $]&)#,+02~~fx 0  +$< "A&(*,+b4K~ff#~~/xdc + k0 pm k#S&d) ,o.5{~ffc~~{[x+k 0mk~!$'B*,/ ޠ6{{{{{{fxJ  <. 2 "%( +-0 L7fffiiffk+ k<4+m<"8&+)<-<085}٠4fff!fx<  @B @#B'*.9f{fffffQxD B  H D F! $H' *- 0344f~ffc~xzz<  ++ d!+$k(0+.qd~W9mk Te= tDRAND 6FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDShh ژ( ][Y _EMUL%RANDU DRAND HffW$  NJtERROR<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh ̘(5 8T Ř8d ][N _EMUL%_A͌_Cˌ_Dʌ_OXe_QXcEXIT/ ERRORѠ {՜~ Ϝ~ Ɯ>?  | (T 8D @< _ $W ,O 4G <? D7 N- kV% x  hԠ  bn d6B  XL, NNÜ q ;b 3 ,  Π 2    #c )E8 /f E8o [8i yҜ8c 8\ 8 V 8P v8J X8D  >8P 78#> 08D 78P > 8)8 _8/2R (//26X,'Error exit, Type',I3,' Error.'//,26X, ' File status at time',F10.4/ )b( 20X,'NSET'/ )(3X,I5,5X,12I8 )X(//20X,'QSET'/ )A(3X,I5,4X,8(E12.6,2X) ) ( 1H0 )J( /1H ,'Array SUMA',/ )( I10,5F10.4 )(/1H ,'Array SSUMA'/ )E(/1H ,'Array JCELS' /)f( 7X,I3,5X,23I4 )RsV]yݠ8riʜx{ *!$'[),0s2;4{fff'f{ffff~f)xsquq s6swu6"s'y),q/2u5V4kQ~~ x{ swuhv/!#&*s,.sq={fff'f{ffff~fSԜxquq s NswuN s%'*q-037k3~~f+xs w u"%)Q+Q-i4f~ffc~Mx s sqq3!q$(+.@23~f5xss #4  "#%'\*,5af~ffc~xs" s q0qq#&)-s/3~fBxs| e7  !$>&)-sR7{fQff~ffa~,xsq[ q]_q!$q'+.1%.~fWÜjs[s yww "$(wtFILEM<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh I( b8T Ř8d ][N _EMUL%_A͌_OXe_QXcERROR݌SET FILEM J~ P~ V>? \ | b(T h8D nʜ@< tڜ_ zԜ$W Μ,O Ȝ4G œ<? D7 N- V%   Ԡ  n 6B  L, !!O q E80!#ל.JP@!#GJP% (//24H Overlap Set Given Below/ ).WҠ<8ff{fxJ P ..!"$'*0,/:2 =4ff'{ffffS{ffx<N < N<>::<:#P&>*\.>1:4 7<r:mf'{ffffQfWq6<  <>::<: J#>'+t.1@3ҊtHISTO<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh L( k8T Ř8d ][N _EMUL%_A͌_Cˌ_OXe_QXcEXIT/ HISTOԠ Av G  t M>? S | Y(T _8D eӜ@< k_ qݜ$W wל,O }ќ4G ˜<? ĜD7 N- V%   Ԡ  n 6B  L, ^i =8"(' Error in histogram',I4,// )%9;@ڠ?8rfrr{[x &&!$'+-/123>4uui~{iu6i1frQf3x 3 GOO9773"&;-704896n{rQfrf!rfafWzcw 7 ?7 e#&7*e-9֊tMONTR<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh (0 8T Ř8d ][N _EMUL%_A͌_Dʌ_OXe_QXc_CˌEXIT/ MONTRˠ Μ~ Ȝ~ >?  | (T 8D @< _ $W ,O 4G <? D7 }N- dV% q  aԠ  [n ]6B  QL, OOo 3e )  # ˠ '' ''| $**ٜ/N *""` C ^ zќ    8I Q8C ("8$= Y*jS( 1H0,10X,'** GASP IIex JOB Storage area dump at',F10.4, 2X,'Time units**'// )e( 20X,'NSET'/ )( 3X,I5,5X,12I8 )6(//20X,'QSET' / )(3X,I5,4X,8(E12.6,2X) )+(///26X,' Error Exit,Type 99 Error. ' )m+(/10X,'Next Event( NSET ).... ',(6I8) )Š./(/10X,'Next Event( QSET ).... ',(6E12.4) )&`( 10X,' File is Empty at ',F10.2 )eP8ffix !"$'**-0^2ܠ;4{fff'f{ffffgx  tvt6!x$v'6+0z25t5k~fQ~~:x~ xvq!$'8*,/;{fff'f{ffffxt vtNx!v$N(-/2t58~fS~~WfQQx xv!$(,02z8ff{fQ{fff0x   # $(v+.26>;'f{fffifQ~fQ~xx v 6*!%(+u.t258.<u~{fff'f{fff|xxvt hvvN"'x*v-N16(O5~fS~~WiXxt  xvt #'Y),*/ ~dɊtPRNTQߖ<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh" Ș(x 8T Ř8d ][N _EMUL%_A͌_Cˌ_OXe_QXc_IXk_DʌEXIT/ PRNTQƠ ~ ~ }>?  q| q(T k8D O@< __ Y$W S,O L4G F<?  ?D7 :N- !V% . $ Ԡ * n 06B 6 L, <$$͜j Be Hߠ N&&Ǡ T)) Zw `!\ f?> l^^)V' rɠ E8T  >8<% L8l S8Z ^8B u֜8` ǜ8r 8f 8H 8N((/25X,'No Printout TNOW = TBEG '// )e(20X,'NSET'/ )ؠ( //20X,'QSET'/ )*(///26X,'Error Exit, Type 94 Error.' )-(1H1,29X,' File Printout, File No.',I3 ) (/35X,' File Contents' // )Ѡ"!(/33X,'The File is Empty'// )נ?(3X,I5,4X,8(E12.6,2X) )-bV(/25X,'Average Number in file was',F10.4,/25X, 'STD. DEV.',18X,F10.4,/25X,'Maximum',24X,I4 )Ϡ(3X,I5,5X,12I8 )%DH?Π\aD8riijx !*$.)/+/-:0 2D4~{rQ{rSiirS*ii6{rSx8 <8!*$(.*1.7@:> Ctii*irS*ii6ii*iiZ~~{_x88* *.< <&@)D.15D7@:=@m7iiiirQx@H L <@ #&)S+.1\7{rQffW{f/xZ^ ss\  "%u'*.|1sI?ff{ff'{ff{fffx\Z ( z~|6~!\&)~,6136s9b8T~fQ~~~{ff'{Axd q\We!$'~*|-N2p:ff{fff~fS~;~{ff'f{fQfffx  ~s6\s~"&s).025Z1f{ff~3j  ZZ\ #%(+؊tRANDU6FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDShh@ ( ][Y _EMUL% RANDU͠ӠN FAfrf'rfrfffrfuix  ++ #',/58; ޠ=6WtRMOVE<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh 3( 8T Ř8d ][N _EMUL%ERROR݌SET RMOVEҠ *'~ 0!~ 6~ <>? B | H(T N8D T@< Z_ `$W f,O l4G rܜ<? x՜D7 ~МN- V% Ĝ  Ԡ  n 6B  L,!# *0N !#g*0[ L a?z:{fQfr6f{fff'{ffffSxl   N N "%( -1B480C>p{fff'{ffffQ6xN  6  !$ )-04*8fWa$$  wtSET<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh ;( Y8T Ř8d ][N _EMUL%MAX0SERRORݐ SETs Y~ _~ e>? k ݜ| qݜ(T wל8D }@< ˜_ Ŝ$W ,O 4G <? D7 N- V%   Ԡ  n 6B  {L, :O!#MY_P aΠ"o'A=;,dǠ.?hMX7ff{ٜxY _K!K" $') ,.1Ġ>3ff{ff{ff'{ff'fx 6 PNR"%6+-P/148_6miff{ff x]  R Yu!#%'* -06AB'ffffffffffx  Y Y %(R+0Y3 8:<@fffffffffff~x"" "" $"(+/"36:"!<ififiW{rxq " e"*"$ ')-/$3$68QQ{rQff{fx& (*(,#%'z*,*/(2(yAfii{ff'f{fQrQf>x,$ .i  6$2' +Y/3w6;;{rQf{ff'ffrwx^4 4  !6& *Y-15?f{ff'fffrfffx   6 Y#& *2, / 2 769L@4{ff'ff{rQrrSiir^xL 2 6 Y6 &*q-1q467*:HpS*rrSii*irS*rirrQx  ee66*!%,03*7;>B-AfrrrrrQWf{x  :!%(,1*68+;AɠAfff'f{fff'ffSfS{x N (C4N($A(_+C/_46h8h;AA.fff'f{fff'ffQfQ{x 6 (C46($A(Y+C/Y46h8h; Dkff'f{fQff{ff'fffx46 E Y Y # & )6. 2Y549&>͠>{ff'fff{ff'ff~x  6  YE E#6( ,Y/ 3"68&>{ff'{fQff{ff'ffx 46 4 Y4! #& ) ,61 5Y8PCrf{ff'fff{ff'ff~x    6 Y#$' *$-62 6Y9 ="=^ff{fff'f{fff'fx$ i *sA  N$()C,$/3N7(AfSfS{fff'f{fff'fMxA_ C_  A $6((-C0$376;(x<fQfQ{ff'f{fxAY CY  &$!G$ '$*6.3$6 Ƞ< Qfff{ff'ffxY$ i/i&* !&$ ' *6/ 3Y6GQ@D{ff'ffff{rQffx G6  Y &!#+')$, /36:N@'{fffi{rQff'ќxN     _#& )-046: ;{ffff{rQf'{ffRx   Y  #'*6/I2 5<Q{fQffff{ffxYK  YIT!K$)"+0-"0 3K66E+'fff{ff'ff{rQf'ffx YI I6 !Y$K( +/266; ?Y?lffffff{ff'frQx   Y   # & )6. 2Y59wC{rQrrQ{rQrrSiirvx   6#)-q04q76:*=nHS*rrSii*irS*rirrQ:x  ee66*!%,03*7;>B-@*fW{ff'ffrf~ff{ x I 6 Y!$I(R+K.3c57c: Bfff'fffrf~rfrf~4xK6  YK#R&*-158<Ri WOMtSUMRYԖ<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh /( x8T Ř8d ][N _EMUL%_A͌_OXe_QXc_Cˌ_CYp_DʌEXIT/_IXkPRNTQҐ SUMRY Z~ T~ J>?  >|  >(T 88D @< ,_ %&$W + ,O 14G 7<? = D7 CN- IV% O U Ԡ [ n a6B g ܜL, m** s sff<B y!!͠ && eew ##t  ppٜ \ PP t k G8m 58s 8y y8 L8۠ mݜ8ՠ 8Ϡ w8ɠ J8ՠ U8à mܜ8 8!#. (1H1,29X,'** GASPex Summary Report ** '/ )j<(20X,'Simulation Project No.',I4,2X,'on',2X, 6A2//,20X,'Date',I3,'/',I3,'/',I5,12X,'Run number',I5/ )ʠ%(10X,' Parameter No.',I5,4F12.4 )*(///26X,'Error Exit, Type 98 Error.' )i(//34X,'** Generated Data ** ',/17X,'Code',4X,'Mean',6X, 'STD.DEV.',5X,'Min.',7X,'Max.',5X,'OBS.'/ )ՠ't(17X,I3,10X,'No Values Recorded ' )Ԡ(17X,I3,4F11.4,I7 )t( /34X,'** Time Generated Data **'/,17X,'Code',4X,'Mean', 6X,'STD.DEV.',5X,'Min.',7X,'Max.',3X,'Total Time '/ )\( 17X,I3,5F11.4 )Tt(/27X,'** Generated Frequency Distributions **',/17X, 'Code',20X,'Histograms' ) "(/17X,I3,5X,11I4,/(25X,11I4) )*k??d;f{ffx 5 B#&a,/D25F37ffffxH  T!#%(*-7f~ffc~~fx| I!l$}'*U-13ffcvx}  "%k)[- 8f~{ffc{ffc{xm  z [$'*.[2Bffc{ii6{ii*ii*iii*6i{xk[ !$),/58 <;:i1fiiffcffc x  !%[(+.2[5Ϡ3qffffx  "H!#"%'*- 8cf~{ffc{ffxU  JEQ!$(U,/2n@c{ffc{ii6{ii6ii*i.xU  kUQ"%Q),14 8U:9fiiffcffciݜx  U #'U*-Q036Ef{fQf|x  Sm!$(=+0-5wf~ffa~~x  !#&),/\hWh2   atTMST.<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh ( 8T Ř8d ][N _EMUL%ERROR݌AMIN1AMAX1 TMST 2~ 8~ >>? D | J(T P8D V@< \_ b$W h,O n4G tڜ<? zӜD7 ΜN- V% œ  Ԡ  n 6B  L, !# 28@ "( + [<96 3))8rrf{x2 8" #&"+1-1/2 @4urfcrf#rfcirf#rfc,x !$),036:Bpui*rf#rfcuu*i*rf#rf#=x  !%+. 258 <g+frf#rf#fWޜU"  ))!+#.tFINDN<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh. ( 8T Ř8d ][N _EMUL%ERRORݐ FINDN 0!~ 6~ <>? B | H(T N8D T@< Z_ `$W f,O l4G rܜ<? x՜D7 ~МN- V% Ĝ  Ԡ  n 6B  L,!#06:GY"4(*.a:{rQfAx0  6 f#'-)2+9.0446Wr~{f?~Lx I V fvI" "$!"# &$)".Af{f?~{f?{f?{fff'rffQx " " $ "$"!&$'"+6/4 7&;08r'rfrffx  (' (%'),0-28ffQfQ'{ff'f4x$& 0 *0 #&%*(,+.62"!' {fQffAW9G, 0.22 5tUNFRM<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh" ʘ( 8T Ř8d ][N _EMUL%DRAND UNFRMӠ ;>?  /| /(T %)8D + @< 1_ 7$W =,O C 4G I<? OD7 UN- [V% a g ݜԠ m לn sٜ6B y ͜L,  @(k&{uuui*~@   ͊tEXIT<6FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDShh ܘ(* ][Y _EMUL%_A͌_OXe_QXc_RXb EXIT# $ u I$x ( 1H0,'FORTRAN-86 Exit. ' ) VWW  t