GASPK<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh ܘ( \8R ǘ84 ][N _EMUL%DATANMONTR׌_A͌_OXe_QXcRMOVEތEVNTS׌SUMRYnjOTPUTˌERRORݐ GASP2 \~ bB; h| nl tڜ \ z(T Μw Ȝ o œg _ $W ,O 6E >= ~    V# Z ))9m!/\%  A<<!m:\ L!J\ U!ٜS\-(1H0,28X,'** Intermediate Results **'// )jUe:FHdS]6fx\  ! #&):-0<:2{fS{fS1fffx.: hFhH#[%'*,J/L14 &3hfiixp   .6!#%(* -8ff{ff{ff~yx  :    : #:(+U- 024~f~~ffex(  :((#%('*F.hf~W+H  (`tCOLCT<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh 7( 8R ǘ84 ][N _EMUL%ERROR݌AMIN1AMAX1 COLCT +!~ 1B; 7| =l C  \ I(T Ow U o [g a_ g$W m,O sۜ6E yœ>= Ϝ~    V# Z !&+k / $&ZGDA?:"09rrfrf#x+   %+'+),/3@5rfcurf#rfcuu*rf#rfx !$'-047:>qcirf#rf#frf#rf#Μx  !#'*".14"8fW:$tDATAN <FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hhC ( T8R ǘ84 ][N _EMUL%ERROR݌_A͌_OXe_QXc_B̌_OYd_O_PXd_CYp_CˌEXIT/_P_DʌDRANDSETFILEM DATAN O~ JB; D|  >l 8 \ (T ,w %& o + g 1_ 7$W = ,O C6E I>= O~ U  [ V# aZ gh m s y  p c ;B  C:  }  ؠ Ǡ      p  {_ iiJ2 !!G  Q !( < g% >m  s L>y D  +>ՠ 4  O>ՠ V  ]>ՠ d  kߜ>ɠ vԜ  >   |, n> g ݠ !1  F> 3 Ѡ *!Ġ C ˠ  Š n (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 )2 ( 8I5,F10.2 )Ġ( 1H ,8I5,F10.2 ) ;( 10I5 )C( 1H ,10I5 )Ԡ}( 4F10.4 )( 1H ,4F10.4 )0( 4I5,2F10.3,I4 )P( 1H ,4I5,2F10.3,I4 )v ( I10 ),( 1H ,I10 )\ ( 7F10.4 )p(1H ,7F10.4 )mJ(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 )(//37X,' Scale =',F10.4 )_ Itޠ1!3 7x`;=4ff ̜x  6;@";$&@(*,;.Z20{{לx:     #a),*9^{{{{{ffx, . 0  !$a* -*0 3,?5ffff{3x . 0     !$ '),/7{{{{{{{{`x  ""%(+(. 1 6ffffffffTx    " ! $' *- 06)if~f~x (  @+U 2$='*b. 03[~~fQ~~x 2HV  4}2= $ &( *2-p5~f~~Ex~O  2 ! #2&), /VU4~fQ~~~fx2     2 #&](+.2`6~~~fQ~x   2 d #&2*- 0*m1~fpx  2 6;  "$ &2)k+Z5J~ff#~~~fx]2r I j t rM!^$ 'v),/2#5{fc~~{{1xrI  t rx!<$&) ,/2K6{{{{{ffx @ 2 6 " %'* - 02I6ffiiffx  @  26 "%) +5- 04fix, 2 .  rrO.#&(, .ߠ2@{ffx     !%k')x, 3n~~f~~x    ! #% ' *-4~fS~~x       #&),*.X1ffox;2  6+  !2% '1) +r>ff#iff#iff#iBfӜx2r[ 32t[7 2#;'[*7/2"668Q54ff#iff#ix6 " 2 2 U. 1 ="r%2(r,U/3V;eff#iff#iBfxO2t U72;U7"7%)6+-1 35 8ff!ff{mx?  A ?A!C#&*) ,a2 4fffff0x, .  0   4"4$( *, .25f~ffc~~x2  2rI+  "t$ &r),/a1iW+ ( tDRAND 6FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDShh ژ( ][Y _EMUL%RANDU DRAND HffW$  NJtERROR<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hhI ( J8R ǘ84 ][N _EMUL%_A͌_Cˌ_OXeMONTR׌PRNTQҌSUMRYnj_QXcEXIT/ ERRORѠ h~ nB; tڜ| zԜl Μ \ (T œw  o g _ $W ,O 6E >= ~    |V# ~Z ))-!] =J4 G< !&h :< !h-!(///26X,'Error exit, Type',I3,' Error.' )"J(1H0,31X,'Sceduled events'// )9 e>5r)xh     "%'*-/1ffW9   EFE tFILEM<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hhw u( p8R ǘ84 ][N _EMUL%_A͌_OXe_QXcERROR݌SET FILEM H~ NB; T| Zl ` \ fҜ(T lw rܜ o x֜g ~М_ ʜ$W Ü,O 6E >= ~    V# Z !!] s G< .!,H( A!mHU% (//24H Overlap Set Given Below/ ) ,WԠ7=75i6ffxH   ((!$.&*7,.705 @2fS{iBff!ifSi*1Tx=95 TGOO9=5! %H((+5/T29:) nfW~AptHISTO<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh L( q8R ǘ84 ][N _EMUL%_A͌_Cˌ_OXe_QXcEXIT/ HISTOԠ Gv MB; S| Yl _ \ eӜ(T kw qݜ o wלg }ќ_ ˜$W Ĝ,O 6E >= ~    V# Z dc 7<"(' Error in histogram',I4,// )?A@ԠE8rfrr{[x &&!$'+-/129s>4uui~{iu6i1frQf3x 9 GOO?==9"&A-=048?Ƞ6n{rQfrf!rfafWzcw = E= e#&=*e-?tMONTR<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh ( p8R ǘ84 ][N _EMUL%_A͌_Dʌ_OXe_QXc_CˌEXIT/ MONTRˠ /~ 5B; ;| A l G \ M(T Sw Y o _g e_ k$W qۜ,O w֜6E }>= ʜ~    V# Z JJ#o  b '']r bbڠ ""[ p G<à Y< k< < D<N(1H0,10X,'** GASP Job Storage area dump at',F10.4, 2X,'Time units **'// )۠ b(I5,12I9)+r(///26X,' Error Exit, type 99 error.' )f(/10X,'Current event.... Time =',F8.2,5X,'Event =',F7.2, /10X,'Next event.......',/(10X,12I9)// )-& (10X,' File 1 is empty at',F10.2 )!e I7ffi:x/  hh!.$'+ -/ 1 "53f~ffa~~xY  Q` /^  ":$ &`)A,R/ߠ7dWfQff{fx* _ w  #k%(+.1 =9QifS~ffa~x_ .; !%/(+/ 1:3 ޠ!~Wi~ĜG   .tPRNTQߖ<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh g( 28R ǘ84 ][N _EMUL%_A͌_Cˌ_OXe_QXc_IXk_DʌEXIT/ PRNTQƠ a~ gB; m| sڜl yԜ \ (T Ȝw œ o g _ $W ,O 6E >= ~    V# Z $$=l &&3u ''+ A 7  M ^^z G<  @< J<m U<y \< e<s nݜ<((/25X,'No Printout TNOW = TBEG '// )*u(///26X,'Error Exit, Type 94 Error.' )+(//29X,' File Printout, File No.',I3 )Ǡ(/35X,' File Contents'/ )g(/33X,'The File is empty' )(10X,10F10.4)b(/25X,'Average Number in file was',F10.4,/25X, 'STD. DEV.',18X,F10.4,/25X,'Maximum',24X,I4 )"BF?РSlal8rii~xa  .2#)%)'4* ,/2SD4{rQ{rSiirS*ii6{rSii̜x6:s6."(.+21>48g;6>68Ct*irS*ii6ii*iiZ~~{ii_x. .2:: >#B(+/B1>47>:>=F<iirQ{rQffPxJ : > #Q&*.Q1S64WfffaxU \SSc c$m'c*Q.aj<ffSi6~fS~5xcm cm(eI"c&m),V0S24S6c5S~{ffaffq<J Q QaQl "$y'n),/tRANDU6FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDShh@ ( ][Y _EMUL% RANDU͠ӠN FAfrf'rfrfffrfuix  ++ #',/58; ޠ=6WtRMOVE<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hhj ( 8R ǘ84 ][N _EMUL%ERROR݌SET RMOVEҠ .~ $*B; *$| 0l 6 \ <(T B w H o Ng T_ Z$W `,O f6E lϜ>= rܜ~ x ̜ ~ ƜV# ȜZ !&x !aE?8rrrfDx  !T$)+-/2:4fraffSi6fWj* ** (%()+$.13&tSET<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hhV ( r8R ǘ84 ][N _EMUL%MAX0SERROR݌EXIT/ SETs L~ RB; X| ^l d \ jΜ(T pޜw v؜ o |Ҝg ̜_ Ɯ$W ,O 6E >= ~    V# Z 2 E!CL RaР "q'C?9&?pCX7ff{ffŜxL  ! # &(+.193{ffff!ffVx: "%)L,0K3: >hf!ffff!ffff!f%xL L"A%(,L/ 468@fffffffffffx | $(v+/36:̠<ififiW{rx^  R."$ ')-/$3 6s=Q{rQii{ffarQ`x|" $p$&: "N%*(+ /L37dޠ;Of{rQfff!frxN[ ' ,,Nq ]#:& *L-15|;fff!frfffffx  L *  # & +-/2:5 F!f{rQrrSiirS*rrSϜxL . ^!^$.'.*.59R<@RҠEii*irS*rirrQfrrAx... .!%(,/48v;?v=>@rrrQWffaffax2 |$! %L($+,/L46z8z>z{ffaff!fff!ffffx9, L,L :  $L',+"0258 =!fff!f~{ffaff_xL9 : 9L ",":%,)L-,05]7>ff!frfff!fff!f~ax]: L |  #L& *:- 1L4 8>6'fffaffaOx Nq 2 $ L$ L"O$v&v)+". 0;:Y{ffafffff!x  L 22"#%(*"-:0 4L;fff!ff{rQŜx;; L " $#=&*/135ܠ>ff!f{ffa{ffaffƜx=L ?=L A#:&=*L.?168 ;ffff!fff!fff!1xA  AL? :#?'L*A.1=5L۠=7fff!fffff!f{rQ>x := L  Xff":% )L,=0 37GprrQ{rQrrSiirS*rx  |."^%)^,./.26=AR}ErSii*irS*rirrQfWff5xR. ..!$.(,/36<:??g>!frf~ffff!frmxL  |?-A!5#&)A-L048X,.f~rfrf~UUA- |-!E#&NJtSUMRYԖ<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh 5( 8R ǘ84 ][N _EMUL%_A͌_OXe_QXc_Cˌ_CYp_DʌEXIT/_IXkPRNTQҐ SUMRY \~ XB; R| Kl E \  )(T 9w 3 o -g $'_ *!$W 0,O 66E <>= B ~ H  N V# TZ Z(( u `ff$8F f!!Ѡ l&& ree{ x##p ~ pp X$ PP p ~ I<Z 1<` <f }<l P<r i<x <~ޠ {<ؠ F<x Q<Ҡ i<̠ <Ơ !E, (1H1,29X,'** GASP Summary Report ** '/ )j8(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.'/ )٠'p(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 '/ )X( 17X,I3,5F11.4 )Tp(/27X,'** Generated Frequency Distributions **',/17X, 'Code',20X,'Histograms' )"(/17X,I3,5X,11I4,/(25X,11I4) ).g??h;f{fffx  1* T&),,/.250F37fff~x  N"$'*-v5fffc~~f x< fw!$O'+-w/G3ffcxx  !g%N)+-:f~{ffc{ffc{ffӜxi  tN #&*N.14gZEc{ii6{ii*ii*iii*6i{i1xN  #&)/2 69?8=fiiffcffcfHx  N"%)N,/2ؠ5qfffc=x"  B"!$'+H/Р8f~{ffc{ffc{ĜxF  ?M H$'*.H2ݠ>ffc{ii6{ii6ii*ifxgH MM!$), 0Q25819iiffcffcifx  H!H$'M*-03/5E{fQff xM i "0%*,/w6v~ffa~~Kx  !|$'*V.0W$ tTMST.<FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDSC1C2hh ( 8R ǘ84 ][N _EMUL%ERROR݌AMIN1AMAX1 TMST -~ 3B; 9| ?l E  \ K(T Qw W o ]g c_ i$W oޜ,O uٜ6E {>= ͜~    V# Z  !$-g - &$[A>;8$.8rrf{urx-    "%+'+),/2{@4fcrf#rfcirf#rfcui5x  #&*-047:)Bp*rf#rfcuu*i*rf#rf#f x %(,/269<%rf#rf#fWG$ $&xtEXIT<6FCODEFXTRAFDATACODEEXTRADATAFORCSFORESFORDShh ܘ() ][Y _EMUL%_A͌_OXe_QXc_RXb EXIT# # u I#y ( 1H0,'FORTRAN-86 Exit ' )VWW  t