IMD 1.16: 2/09/2008 17:51:58 84-93580-02 f440 os4/rtx fortran product disk 18feb85    @0{)vvЀЀsQpk)p " }fA __M@IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 MB085021815534390850218155343 850218155343 =F58002 VOLOS4/RTX FORTRAN PRODUCT DISK 84-93580-02 F440   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII_M@qGyy GGG`HX@ b G`^Y e GQ @@p@987 85P@ G:پN 8)0. * C'xC# b# }BH @0DAJL w+™ЀЀΖQA1"   i  ž} š} @EEFF)DEۄF8 џ} ԟ} ̟} * `jUBBI,v BI, # @ G7H@pܾrCHC C GTq` Lg gEXC P+s=胾P+c fQN p $Rxnj  ޔniZ ތ⊞ } }HGž Ÿ@ALS)"$ C k20j.h( +$`%ꂜ\1 !M' y %'+os慾)sY ed|{ @8 o O m J K i gN )V% t%sLn`"E F. F„ D>) =`;nrgy w"G,{Kq1 A&}E*`(t@% ;c  765y342(.OS:: SYSG @ @G6BDāCGDĀ# BC @E OBO0SEGMENTBLANK oim MACRO (F510) @JG:OVLI O0SEGMENTBLANK F:LIBR o KG:ADDR G:CONTS G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I)I )IA@ B  ttttJG:OVL  O0SEGMENTBLANK F:LIBR o KI:OVL G:ADDR G:CONTS KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I@#PIttttJG:BGIN O0SEGMENTBLANK F:LIBR o !KR:BGIN G:CONTS G:ADDR KG:CHECK G:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I )I)I)IBCDtttttJG:SIG O0SEGMENTBLANK F:LIBR o KR:SIG G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:WAIT O0SEGMENTBLANK F:LIBR o KR:WAIT G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:RECV O0SEGMENTBLANK F:LIBR o KR:RECV G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p @)I)I āttttJG:SEND O0SEGMENTBLANK F:LIBR o KR:SEND G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @ `p @)I)I ttttJG:GPRI O0SEGMENTBLANK F:LIBR o KR:GPRI G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I:ttttJG:SPRI O0SEGMENTBLANK F:LIBR o KR:SPRI G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:ITIC O0SEGMENTBLANK F:LIBR o KR:ITIC G:TIC G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p ttttJG:MTIC O0SEGMENTBLANK F:LIBR o KR:MTIC G:TIC G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:TIC O0SEGMENTBLANK G:LIBR o KG:CONTS G:ADDR im MACRO (F510) @ig @)I)I)I# ttJG:CTIC O0SEGMENTBLANK F:LIBR o KR:CTIC G:CAN G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pIttttJG:CWAL O0SEGMENTBLANK F:LIBR o KR:CWAL G:CAN G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pIttttJG:CAN O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig @)I# tJG:IWAL  O0SEGMENTBLANK F:LIBR o KR:IWAL G:WAL G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:AWAL O0SEGMENTBLANK F:LIBR o KR:AWAL G:WAL G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:WAL O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig @)I)I)ICD# tJG:GTOD O0SEGMENTBLANK F:LIBR o KR:GTOD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I:ātttJG:STOD O0SEGMENTBLANK F:LIBR o KR:STOD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I:tttJG:GATD O0SEGMENTBLANK F:LIBR o KR:GATD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I tttJG:SATD O0SEGMENTBLANK F:LIBR o KR:SATD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I tttJG:CINT O0SEGMENTBLANK F:LIBR o  KR:CINT G:CHECK G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p:tttJG:PAUS O0SEGMENTBLANK F:LIBR o KR:PAUS G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:SDB O0SEGMENTBLANK  F:LIBR o 'KG:ADDR G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I A*āÓă@ !Ig1D J1 @gĀtttt>tJG:MDB O0SEGMENTBLANK F:LIBR o &KG:ADDR G:CHECK G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)II ĉăāIÒċ@ !Ih1D J1 @hĀttt~tJG:ADDR O0SEGMENTBLANK G:LIBR o  im MACRO (F510) @ig J.A# .6KAC @# JG:CONTS O0SEGMENTBLANK G:LIBR o im MACRO (F510) @ig J.A# .6KAC @# JG:CHECK O 0SEGMENTBLANK G:LIBR o  KF:XSTF G:EXIT im MACRO (F510) @ig FIp p# ttJG:EXIT G:ENTER O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig LJ+H L I I I# gc c # m*** FORTRAN/RTX INTERFAmCE - REV E100 ***tJCLOG O0SEGMENTBLANK F:LIBR o >KF:EBAZ F:RCRP F:IFC1 KF:IRST F:IRMV F:IRLD KF:ICAB F:IALG F:IAT2 im MACRO (F510) @iCLOGg A*G1', '' ' ' '' 'MS@# tttttttttJCSQRT O0SEGMENTBLANK F:LIBR o MKF:RCRP F:IFC1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:ISQR F:ICAB im MACRO (F510) @iCSQRT g A*G1q IX' ''J J''' J JX'' ']O IMS@# tt tttttt tttJCCOS O0SEGMENTBLANK F:LIBR o LKF:RCRP F:IFC1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:ICOS F:ISIN F:ISNH KF:ICSH im MACRO (F510) @iCCOSg A*G Od ' ''' IdI''  ''' ' 'MS@# tt t tttttt t tttJCSIN O0SEGMENTBLANK F:LIBR o JKF:RCRP F:IFC1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:ICOS F:ISIN F:ISNH KF:ICSH im MACRO (F510) @iCSINg A*G Od' ''' IdI'' ' '' ' 'MS@# tt t tttttt t tttJCEXP O0SEGMENTBLANK F:LIBR o :KF:RCRP F:IFC1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:ICOS F:ISIN F:IEXP im MACRO (F510) @iCEXPg A*G'  '' '' ' '''MS@# tt tt ttttt tttJDTANH O0SEGMENTBLANK  F:LIBR o KF:IFD1 F:IDSB F:IDST KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD F:IDXP im MACRO (F510) @iDTANH g A*G IeJ ' J' '''' v'析'' '''ՀIeIKI@# t 'Q)XJX'O' '''U' L''@'' ''L'' @'''' J JX1FJ J'# tttttttt \U+ @ ^iGsi PE9w;' ^T\0= D@-fXT th'3l@JDATAN2 DATAN O0SEGMENTBLANK F:LIBR o KF:RGMY F:EBAZ F:RDDU KF:IFD2 F:IFD1 F:IDSB KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDATAN2DATAN g A*GĂҀIdO eKQ1Ǟe' ɞ1'ĀdIe I Ie'IeIKI@# g A*GAKI@#  gIf'J^ 'IV#'L'ttttttt t tt '@r'Fm 'Lhh'iIP '@Z'FU 'LP'LJ'hM'IGgt t 'B'@x'='F9 '5'4'@0'/ Ig'('^'" 'X'T'R'N 'L'~ H'F'rB '@'f<':'Z6 '4'N0'.'B* '(gI'L"fI#  @nuXLU: IN3'@ UU*UU*dvD- # dvD- #C$p-s2 C$p-s2 UU*URx3ff33:| I$I[Fq r0 ]ng!M9NMRb Bc&Zqa D(+wlz,&*JDCOS DSIN O0SEGMENTBLANK F:LIBR o BKF:EATL F:IFD1 F:IDSB KF:IDST F:IDSL F:IDNM KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD im MACRO (F510) @iDCOSDSINg A*G'͞ I KI@# g A*GI If  IfIK@# XYJ FX C'ҟ# '' JXYXJ' IXJ JX 6At tt tttttttt 'y'u' s' o'd' i'^' c'X' ]'R' W'L' Q'|F' K' G' E'cA 'Z6' ;'N0' 5 'B*' /'6$' ) '*' #''  'Y I# A  K/لg g# @ Ny>Eo#@> ZTUtx<-x}  0?i=T ~s QMp]l s-P@ dvD- Ry % PQxuLY -R|T#| x s  xZpmA3Q|`IASJDSQRT O0SEGMENTBLANK F:LIBR o ]KF:ENGA F:IFD1 F:IDSB KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDSQRT g A*GeIC I )J6 * dJ' '9'0''$ JdJKI@# ' '''J J# ttttttttt B_|RD_CT(V -rP>ug^)mJDTAN O0SEGMENTBLANK F:LIBR o KF:ESGL F:EATL F:IFD1 KF:IDSB F:IDST F:IDSL KF:IDNM F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDTANg A*G'ĞJ 'KI@# Y IZ'JX1I' IIZZJ LYKKKL./!  ''Lt tt tttt ttttt`? K|K'LlYKr K'LbJ J'_ 'Z'@Y'tL'@Q 'hF'@K'\@'FG '@@'M?'D4'@9 '8.'F-'0YX' F-'L(I.I'' @!'F'L'@I ZI )KA+X @ C6SQFj jp?PV8F `Z#nJ TFCR j s3|!@ MAf?s$Q|`IARJTANH O0SEGMENTBLANK F:LIBR o KF:IPRX F:IFR1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:IEXP im MACRO (F510) @iTANHg A*G IaJ 'z J' 'o''' f'՞''k '''ĀIaIt 'F)XJX'B' '''>' 7'''' 3'''' J JX1FJ J'# ttt tttttt \U@sp kv+^SEn@JF:IAT2 ATAN2 ATAN O0SEGMENTBLANK F:LIBR o $KF:RGMY F:EBAZ F:IPRX KF:RRDU F:IFR2 F:IFR1 KF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD im MACRO (F510) @iATAN2 ATANg A*GĂg A*GB@@#  tg I|O}KQ1}#  'ʟ1'|I#  }I I}'I}I#  I~'LJ` 'IX'H'Lttt ttt t ttttt  y'@r|'D m'Hhl' eIPe'@Zh'D Uo'HPe'HJ 'HF'L@K'L= '@@'P;'D4'P. 'P2'@+'P- I 'L&'L!'P 'K 'D'P':'P '0'L I'H~ I# @nu IN@UU* dvdvC$p C$pUT^W fAXD(vlzJTAN O0SEGMENTBLANK F:LIBR o KF:INRM F:ESGL F:EATL KF:IPRX F:IFR1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD im MACRO (F510) @iTAN g A*G'J 't YI['JX1I 'II[[J LYKKKL. /! ''Lt tt tt ttttt? `KzK'LlY KpKq'LbJ J' @_'@Z'DY'\N' HS'DL'OK'HB' HA'@BYX'H?'L :I>I'0.'D3'H ,'L%'D$I[I(@ JXKL./JJ N0C /6X .KL# t @e B+Ce.@.xj  s4@MAfQ|`JAMOD O0SEGMENTBLANK F:LIBR o ,KF:RGMY F:IPRX F:RRDU KF:IFR2 F:IRST F:IRML KF:IRMV F:IRAD F:IAIN im MACRO (F510) @iAMODg A*GĂT1S' ''II'tttttttttJAIMAG O0SEGMENTBLANK F:LIBR o KF:IPRX F:IFC1 F:IRLD im MACRO (F510) @iAIMAG g A*G'tttJF:IAIN AINT O0SEGMENTBLANK F:LIBR o 7KF:IPRX F:IFR1 F:IRLD im MACRO (F510) @iAINTgA*Gtg JC'# [@KL. /JJN0C /   C //. KL# ttJAMIN1 AMIN0 AMAX1 JAMAX0 O0SEGMENTBLANK F:LIBR o hKF:XGNP F:XVPP F:EINA KF:IPRX F:RRSU F:RRUN KF:IRST F:IRMV F:IRLD im MACRO (F510) @i AMAX0AMAX1AMIN0AMIN1gA*G g A*G  g A*G žg A*G ĂD '' 'IYE ''Dkt GXǀO G'ttttttttJCMPLX O0SEGMENTBLANK F:LIBR o KF:RGMY F:RCRP F:IFR2 im MACRO (F510) @iCMPLX g A*GĂMS@# tttJCONJG O0SEGMENTBLANK F:LIBR o KF:RCRP F:IFC1 im MACRO (F510) @iCONJG g A*GOOMS@# ttJDMOD O0SEGMENTBLANK F:LIBR o .KF:RGMY F:RDDU F:IFD2 KF:IDST F:IDML F:IDMV KF:IDAD F:IDIN im MACRO (F510) @iDMODg A*GĂT1S' '' II'KI@# ttttttttJDBLE O0SEGMENTBLANK F:LIBR o KF:IFR1 im MACRO (F510) @iDBLEg A*G MNKI@# tJFLOAT O0SEGMENTBLANK F:LIBR o KF:INRM F:IPRX F:IFI1 im MACRO (F510) @iFLOAT g A*G)JF JK/ . KLtttJF:IDIN DINT O0SEGMEN TBLANK F:LIBR o NKF:IFD1 F:IDLD im MACRO (F510) @iDINTg A*GKI@# g JC'6' )  񺛞 񺖞* LMN '# tt @`px|~ JDMIN1 DMIN0 DMAX1 JDMAX0 O0SEGMENTBLANK F:LIBR o qKF:XGNP F:XVPP F:EINA KF:RDSU F:RDUN F:RRUN KF:IDST F:IDMV F:IDLD im MACRO (F510) @i DMAX0DMAX1DMIN0DMIN1gA*G g A*G  g A*G ˞g A*G žĂ D'' ' IYE ''DkKI@ # GXAO G '  ST# tttttttttJDFLOAT O0SEGMENTBLANK F:LIBR o KF:INRM F:IFI1 im MACRO (F510) @iDFLOATg A*G)JLMNI JK/ . KLI@# ttJIDINT IFIX INT O0SEGMENTBLANK F:LIBR o NKF:EATL F:IFD1 F:IFR1 im MACRO (F510) @i IDINT IFIXINT g A*G@# g A*G@# g A*G@# JB  # K E 0  . IA ! # xI;LK# ttt@JMIN1 MIN0 O0SEGMENTBLANK F:LIBR o 3KF:XGNP F:XVPP F:EINA im MACRO (F510) @iMIN0 MIN1 gA*G g A*G ĂD YYYDyY @# XEGV @# G# tttJMAX1 MAX0 O0SEGMENTBLANK F:LIBR o 3KF:XGNP F:XVPP F:EINA im MACRO (F510) @iMAX0 MAX1 gA*G g A*G ĂD YYYDyY @# XEGV @# G# tttJMOD O0SEGMENTBLANK F:LIBR o (KF:RGMY F:EATL F:IFI2 im MACRO (F510) @iMOD g A*GĂV1€K XY.6 # /'  '/XI1A@# tttJLMIN1 LMAX1 LMIN4 JLMAX4 AMIN4 AMAX4 O0SEGMENTBLANK F:LIBR o KF:XGNP F:XVPP F:EINA im MACRO (F510) @i AMAX4 AMIN4 LMAX4  LMIN4 LMAX1 LMIN1 g A*G g A*G ֞g A*G  g A*G ĞgA*G g A*Ĝ   ĂDG GYG XGGDjG ], @# GV^, # tttJDMIN4 DMAX4 O0SEGMENTBLANK F:LIBR o BKF:XGNP F:XVPP F:EINA KF:I4TD im MACRO (F510) @iDMAX4 DMIN4 gA*G g A*GĂD GVGGVGY G XG GDiG@# ttttJLMOD O0SEGMENTBLANK F:LIBR o  KF:RGMY F:I4DV F:I4MP im MACRO (F510) @iLMODg A*GĂGVH H @AQ GG""@# tttJLINT LABS O0SEGMENTBLANK F:LIBR o )KF:RGMY im MACRO (F510) @iLABSLINTg A*GĂGVG @IG@# g A*GĂGV @# tJLDINT O0SEGMENTBLANK F:LIBR o KF:IFD1 F:IDT4 im MACRO (F510) @iLDINT g A*G@# ttJREAL O0SEGMENTBLANK F:LIBR o  KF:IPRX F:IFC1 im MACRO (F510) @iREALgA*GttJSNGL O0SEGMENTBLANK F:LIBR o  KF:IPRX  F:IFD1 im MACRO (F510) @iSNGLgA*GttJIBTEST O0SEGMENTBLANK F:LIBR OIBTEST::o  KF:XRDA F:RGMY im MACRO (F510) @ig GHQIMMJN0 C 6B @# IBTESTtitdJF:RIIP O0SEGMENTBLANK F:LIBR o IKF:RGMY F:EOVR im MACRO (F510) @iI ** Ig A*GĂ)GB+ ZH6+. [Z1Ԟ U,)X Y6ĠXQ XJZQ¤Zs X X[1A @# '3ÀYII# ttJF:R44P F:R4IP O0SEGMENTBLANK F:LIBR o rKF:RGMY F:EOVR F:I4MP im MACRO (F510) @i I4 ** I4I4 ** I gA* Gg A* GĂ)GV E+ @AQ G-@6 +. o mn 1ݞQ] )i)jO G+6G) G)G+QOG-G-G +k IG)G)o 1D @AQ  I@# '-tpCGVHO# ttJF:RR4P F:RRIP O0SEGMENTBLANK F:LIBR o KF:RGMY F:EOVR F:IPRX  KF:RRUN F:IRST F:IRML KF:IRMV F:IRLD F:IRDV im MACRO (F510) @i R ** IR ** I4 gA* Gg A* GꄝĂG Q}'W' )E @AQ +\O G" 6'''G" QL'''G "c\G'*'' '!'t]CGVHO# tttttttt @JF:RD4P F:RDIP O0SEGMENTBLANK F:LIBR o KF:RGMY F:EOVR F:RDUN KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV im MACRO (F510) @i D ** ID ** I4 gA* Gg A* GꄟĂG Q}' [' )E @AQ +^O G& 6'' 'G& QL' ' ' G &c^G'.'' ''' KI@# _CGVHO# tttttttt @JF:RC4P F:RCIP O0SEGMENTBLANK F:LIBR o {KF:RGMY F:EOVR F:ICST KF:ICML F:ICLD F:ICDV im MACRO (F510) @i C ** IC ** I4 gA* Gg A* GꄝĂG MNʀSTA΀MS@ # ''H') E @AQ +\O G"6' ''G"QL '''G"c \G''' MS@# ]CGVHO# tttttt@JF:RRRP F:RIRP O0SEGMENTBLANK F:LIBR o YKF:RGMY F:EOVR F:IPRX KF:RRUN F:IRML F:IRMV KF:IRLD F:IEXP F:IALG im MACRO (F510) @iI ** RR ** Rg A*GĂGO G'g A*GG' H'' KL['' OD'ttttttttt @JF:RDDP F:RDRP F:RRDP JF:RIDP O0SEGMENTBLANK F:LIBR o KF:RGMY F:EOVR F:RDUN KF:IITD F:IRTD F:IDST KF:IDML F:IDMV F:IDLD KF:IDLG F:IDXP im MACRO (F510) @i I ** DR ** DD ** RD ** Dg A*GĂG' H'g A*GĂGV' ֠H'˞g A*GĂG 'GV'g A*GĂG 'H'' KO['' KI@# O:'ut t ttttttttt @JCOSH SINH O0SEGMENTBLANK F:LIBR o KF:IPRX F: IFR1 F:ISNH KF:ICSH im MACRO (F510) @iSINHCOSHgA*GgA*GttttJF:ICSH O0SEGMENTBLANK F:LIBR o &KF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD F:IEXP im MACRO (F510) @ig K' I'L' 'L'LJ JKI# tttttttt@JF:ISNH O0SEGMENTBLANK F:LIBR o SKF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD F:IEXP im MACRO (F510) @ig K I{J'L '5'LII'L J J'L'L'P '('!'P' 'LI{IIK# tttttttt @@3UT6 D5JF:IALG ALOG10 ALOG O0SEGMENTBLANK F:LIBR o KF:EOVR F:ENGA F:IPRX KF:IFR1 F:IRSB F:IRST KF:IRML F:IRMV F:IRLD KF:IRDV F:IRAD im MACRO (F510) @iALOG10ALOGgA*GgA*Gtg 'b# K'c # IC I J)B ؄~| }'g'D 'M'@'D'D '@'D'D'@ 'E'>'@'4 'D'@'<'$''@ # t t tttttttt IcwM& @@o- wJ\Q?@Z<JF:IDXP DEXP O0SEGMENTBLANK F:LIBR o KF:EATL F:IFD1 F:IDSB KF:IDST F:IDSL F:IDNM KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD im MACRO (F510) @iDEXPg A*GKI@# tttg K'x I~'@s' Iɀ~'xg' d'@a'i)}JC πJ'p}'@O' @'FI't'k' F'_'@'L7' F3'k'F'_' @('L'F"'L' @'FJ}J~I'L '* 'L# I@N0KC /}t tt ttttt \U+  XL==@ ^Ani[Pu&  ^nZ D@l_LR tJ]T,JF:IDLG DLOG10 DLOG O0SEGMENTBLANK F:LIBR o KF:EOVR F:ENGA F:IFD1 KF:IDSB F:IDST F:IDML KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDLOG DLOG10 g A*GKI@# tg A*GxKI@# g '|# K' # IC I J)B [|z{ }~' 'F'i'@'F '`'@'F'F '@''x'@ 'l'@'`'@ 'T'@'H'@ '<'F'@': '*''@ # tttttttt Icw5U M&y z@ @o-v*& 4JNn@GXDrD q8hDb'sp wP/+X](K_0}Z<;fHJF:IEXP EXP O0SEGMENTBLANK F:LIBR o KF:INRM F:EATL F:IPRX KF:IFR1 F:IRSB F:IRST KF:IRML F:IRMV F:IRLD KF:IRDV F:IRAD im MACRO (F510) @iEXP gA*Gtg K' I}'D' Iɀ}'w' 'D'j)|JC ̀J'k|'D'D '@'f'_'D 'H'@'['D 'H'@'H'D '@J|J}I'H'2'H# t tt ttttttt 0~I@KC | JKL .~JC /l. KL#  \UXL @sqiv&9SFIJF:ICAB CABS O0SEGMENTBLANK F:LIBR o \KF:EOVR F:IPRX   F:RRSU KF:IFC1 F:IRSB F:IRST KF:IRML F:IRMV F:IRLD KF:IRDV F:IRAD F:ISQR im MACRO (F510) @iCABSgA*Gtg IOKQ1# '1 # 'H'LIK 'HL'H'L' L'H' ' 'HJ'# tt t ttttt ttt @JDABS O0SEGMENTBLANK F:LIBR o KF:IFD1 im MACRO (F510) @iDABSg A*G IK@# tJF:ICOS F:ISIN COS JSIN O0SEGMENTBLANK F:LIBR o KF:INRM F:EATL F:IPRX KF:IFR1 F:IRSB F:IRST KF:IRML F:IRMV F:IRLD KF:IRDV F:IRAD im MACRO (F510) @iCOS SIN gA*GgA*Gtg K' I g KH I II# t tt tttttt |}J F|C'q#  j'j'iJψ| }|J'w_ I|J J| 6_'@R'@N' DL'rH'k?'DB' a9'D<'W3'@6 ' 2'D0'A,':# 'D&'0'D '& } ‚I# @KL. /JJN0C /L)J. .~ L. KL~# t ݀Nql@L S;6@d vRw QR9Kd _[Q|`JF:ISQR SQRT O0SEGMENTBLANK F:LIBR o NKF:ENGA F:IPRX F:IFR1 KF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD im MACRO (F510) @iSQRTg A*GCt@@# g IC I)J6 *  J'D'''  JJ# '@'D' @'@J J# tt tttttttW2W2JLDIM O0SEGMENTBLANK F:LIBR o !KF:RGMY im MACRO (F510) @iLDIMg A*GGVH g"'"6DGB I@# tJDIM O0SEGMENTBLANK F:LIBR o KF:RGMY im MACRO (F510) @iDIM g A*GĂGV\QB I@# tJDDIM O0SEGMENTBLANK F:LIBR o KF:RGMY F:RDSU F:IFD2 im MACRO (F510) @iDDIMg A*GĂIG IJKLMNKI@# tttJSIGN LSIGN ISIGN O0SEGMENTBLANK F:LIBR o BKF:RGMY im MACRO (F510) @i ISIGN LSIGN SIGNg A*GĂGH@SA@# g A*GĂGVH 3D @AQ @# g A*GĂGVH 3D I\Q@# tJDSIGN O0SEGMENTBLANK F:LIBR o KF:RGMY F:IFD2 F:IDLD im MACRO (F510) @iDSIGN g A*GĂOIK@# tttJF:IFI2 F:IFI1 F:IIUN O0SEGMENTBLANK F:LIBR o KF:X1PP F:EINA im MACRO (F510) @igĂOIQK# g OIQKHGKQ# g G)BOQ# ttJF:ICST F:ICLD F:ICDV JF:ICML F:ICSB F:ICAD JF:RCST F:RCSB F:RCRP JF:RCNG F:RCML F:RCLD JF:R4TC F:RITC F:RCDV JF:RCTD F:RDTC F:RCTR JF:RRTC F:RCT4 F:RCTI JF:RCAD O0SEGMENTBLANK F:LIBR o KF:XLYA F:RDTR F:IPRX KF:RRUN F:IRMV im MACRO (F510) @ig @# g G&G G&G# g@# g G G'GG'# g GG+GG-` kl G G-G ` GG+G # g@# g G \ G G\ G# g@# g G \!G G\!G# g @# g G\"G-G \"G+ G\"\+GG \"\-G # ttg~@# g G&\"G+G&\"\+   G+G \"G-G\" \-\+G-G \"G  G\"\ \+G G-G# g @# g # g@G @# g ;' ' MN@# g Og  g+G ST@# g "G ST@# g   I\ G I\G@# tttJF:IFD2 F:IFD1 F:IDUN JF:IDSB F:IDST F:IDSL JF:IDNM F:IDML F:IDMV JF:IDLD F:IDDV F:IDAD O0SEGMENTBLANK F:LIBR o KF:X1PP F:EINA F:RDSU KF:RDMU F:RDDU F:RDAU KF:RDUN im MACRO (F510) @ig ggg  OPQRST# g  IJKLMN# g IJKLMN# g jjjjjjjjjjjj# tttttttgĂ|'FK# g '@HGKQ# gGkg jKjz KjJ# g jj}# KL./K/ M.// L/ѠN.// . MN# JF:RDSU F:RDMU F:RDDU JF:RDAU F:RDUN F:RDSB JF:RDST F:IRTD F:RRTD JF:RDNG F:RDMP F:RDLD JF:IITD F:RITD F:I4TD JF:R4TD F:RDTR F:IDT4 JF:RDT4 F:RDTI F:RDDV JF:RDAD O0SEGMENTBLANK F:LIBR o OKF:XLYA F:INRM F:EOVR KF:EDV0 F:EATL F:IPRX KF:RRUN F:IRLD im MACRO (F510) @ig@# g@# gOЄOg PJB{AˀIOEIA )*ɐτ1#  )ˈ@1G*S8u SB # )ˌ@1G *S8 vSW) jjH J j 1B*oII# _=tg~x@# g OIIQrKLMN J# JPJet KQ ]KpLq o ɤKMqKRt)vL NqKSt)LRtv wM qKTt)LS tv܀MRtwxNv )w)x)k @1H*kSEBu  s# olAop./ ' oq./ 'pulF)q uuu)B(pqo # o oqp.1o #  ! . qp#  * ) k '4/ . oo pCojpk  '4/. qCp]q pCoVp# g SN SVI ……@@# ttg~@# g IVJRC IIK LɀMƀKGឨb VICGٞGԞ'  ./KJQJ@AN/JJ N0C / ISI@ @I G@ # g՟g@# g @# g Og )IJKLMNGQb@ ָQƄI JKI J GG@I G @ K )/.' KI# g  )*τ1KI@# t@` ttg }{@# g OIIPJJ) 1B *|mKQmKRLQ mKSMQLRm KTNQLSMR )1B*{# k '+/ . kmkm+@-1C * S# n(nn 1J+xnJ|@JIKI# g  KBI IK@# nJJ nA n ), +{nrS@JN0K) ,m.C /. m+ s# n n)  *3=ntPnJN0 )m (.C /m*35# g@# g G ' ' MNKI# g G G3G G5G G 7KElJ F V OIVpq IOJP QRS TJ +J K./aIV/aL. /p/QM./q/AN./l qpVG3G G 5G G7G @# t tttg DŽOPQRST#  Oy Pqr /aQ/q/QR/r/AS. T# JF:IFC1 F:IFR2 F:IFR1 JF:IRUN F:IRSB F:IRST JF:IRML F:IRMV F:IRLD JF:IRDV F:IRAD O0SEGMENTBLANK F:LIBR o   XKF:X1PP F:EINA F:RRSU KF:RRMU F:RRDU F:RRAU KF:RRUN im MACRO (F510) @ig ggg  OPQR# g IJKL# g IJKL# g jjjjjjjj# tttttttgĂ}'TK# g 'NHGKQ# gGjg ĂiGf'?G+`KQ# JF:IPRX F:RRSU F:RRMU JF:RRDU F:RRAU F:RRUN O0SEGMENTBLANK F:LIBR o KF:INRM F:EOVR F:EDV0 KF:EATL im MACRO (F510) @ig QCKŸ# JPh'E PJ' v@'V6. '/JJN0C  / . 'W6 IOπLRBKt KQE ./ . JlLRAQ K QH 1  !KOIK[g Q؂لKL JIOI#  JP JKL. ./'K )/ 'LR)/'Q + / !1 . RQ P)΄*1# g JP JIOIL 'L K 'RK '  RB+LA+ tt@tt?g ńOPQR# qO y P'&/afdQ. R # .c„JI. KL# gOWOWg G G G GDJ C @AC@IHI OJP Q R7J 0J K./aIW/aL./@W `GG G GG G@# JF:EOVR F:ESGL F:ENGA JF:EINA F:EDV0 F:EBAZ JF:EATL O0SEGMENTBLANK F:LIBR o VKF:ERRC F:ERRS im MACRO (F510) @igGgGgG$gG*gG2gG9gG=tt ARGUMENT TOO LARGEBO TH ARGUMENTS ZERO DIVI SION BY ZERONUMBER OF  ARGUMENTS NEGATIVE ARG UMENT SINGULARITY OVERFLOWJF:RCGO O0SEGMENTBLANK F:LIBR o %KF:ERRS F:XLYA im MACRO (F510) @ig pA  ptGBG t COMPUTED GO TOINDEX OUT OF RANGEJF:I4MP F:R4MP O0SEGMENTBLANK F:LIBR o pKF:XLYA im MACRO (F510) @igt@# g \)['GV' ) *3=)Y) ZXY XܠYG0GFON XYZX*2*Y*2"c deۀfIOSH[TNQ ghϞ''./G[QE  @!Q @ [QGG # G[[ @AQ ĂO NāքĂ# JF:I4DV F:R4DV O0SEGMENTBLANK F:LIBR o KF:INRM F:XLYA im MACRO (F510) @igt@# g G IJ'&' [J ӄJ'' _ X\`ab'#i' jJ@A G Ck I cۀdOSHIUNSӀef ОG%NO'$./РI3K @AQ GI3BG#  MII !1 E/IJt I. N# jY)Ꞌ )NOGggJhg Ÿ́h GONhq) ꞁmgg) G 'L @AQ ON@A@@ 6A 5g@AiLJi)  @ ON5jik0 # J GJIcdefwJ 1X !*.0G%N# ONfG $N# ONeG#N# ONd# JF:INRM O0SEGMENTBLANK F:LIBR o  im MACRO (F510) @ig IJJJ/U# @JF:ISHF O0SEGMENTBLANK F:LIBR o im MACRO (F510) @ig @ QVSJN0C  @ASJN0C  # JF:R4NG O0SEGMENTBLANK F:LIBR o im MACRO (F510) @ig @AQ # JF:ROPN O0SEGMENTBLANK F:LIBR o KF:XTRM F:XOPN F:XMPP im MACRO (F510) @iOPENgAGĂt wIJKLMtItJF:REND O0SEGMENTBLANK F:LIBR o  KF:XTRM F:XEND F:XMPP im MACRO (F510) @iEND FILEgAGĂtwtItJF:RBSP O0SEGMENTBLANK F:LIBR o KF:XTRM F:XBCK F:XMPP im MACRO (F510) @i BACKSPACE gAGĂtwtItJF:RINQ O0SEGMENTBLANK F:LIBR o KF:XTRM F:XENQ F:XMPP im MACRO (F510) @iINQUIRE gAGĂt wIJtItJF:RREW O0SEGMENTBLANK F:LIBR o KF:XTRM F:XREW F:XMPP im MACRO (F510) @iREWINDgAGĂtwtItJF:RCLS O0SEGMENTBLANK F:LIBR o KF:XTRM F:XCLS F:XMPP im MACRO (F510) @iCLOSE gAGĂtwItItJF:RHOM F:RLOM F:RCOM JF:RDOM F:RROM F:RAOM JF:R4OM F:RIOM F:RHUT JF:RLUT F:RCUT F:RDUT JF:RRUT F:RAUT F:R4UT JF:RIUT F:RETG F:RWIU JF:RWEU F:RRIU F:RREU O0SEGMENTBLANK F:LIBR o KF:XEBT F:XBTR F:XSRN KF:XSBW F:XSBR F:XGOU KF:XGIU F:XTRM F:XMPP im MACRO (F510) @igAGĂtt gAGĂtt  EKHwt ̠wE6CttItgAGĂt gAGĂt E# gE6 wtItggIgIg  Ig Ig Ig Ig  I@MNC@AG S NLƀFMFLy ItgggIgIgIgIgIgINIt E6IwFt N@ADFPE6A H+ H+DxPNP # @A LF# F# A` # RE AD EXTERNAL UNFORMATTED  READ INTERNAL UNFORMAT TED WRITE EXTERNAL UNF ORMATTEDWRITE INTERNAL UNFORMATTEDJF:RDLW F:RFSO F:RFWD JF:RFSW F:RFFD F:IOER JF:RFRW F:RLOL F:RCOL JF:RDOL F:RROL F:RAOL JF:R4OL F:RIOL F:RHUS JF:RLUS F:RCUS F:RDUS JF:RRUS F:RAUS F:R4US JF:RIUS F:RETF F:RWIF JF:RWEF F:RRIF F:RREF O0SEGMENTBLANK F:LIBR o KF:XGLS F:XASR F:XASW KF:XSRN F:XGOU F:XGIU KF:XTRM F:XMPP MF:RFD F:RFG F:RFE MF:RFF F:RFI F:RFL MF:RFZ im MACRO (F510) @igAGĂtt GTaRgAGĂtt  K1C,KEBbQ1ـK Kt RA’R'Ta@#RRE6  ItgB B|# H%'H# J %'JC# )6   #  ERROR AT : LI NE  CALLED FROM : IN SL JF:XSTP O0SEGMENTBLANK F:LIBR  o KE:MON im MACRO (F510) @igtJF:XGLS F:XPSE F:XCAF JF:XINT F:XENQ F:XSRN JF:XCLS F :XOPN F:XEND JF:XBCK F:XREW F:XEBT JF:XBTR F:XSBR F:XSBW JF:XASR F:XASW O0SEGMENTBLANK F:LIBR o JKI:IO E:SLU F:XDCR KF:XDDE F:XDCO F:XDUF KF:XDGF F:XSTF im MACRO (F510) @ig ` yNzO$ ` O+Nq M# gV[I T פMQπР1Nǀ DXN IMě @# tACg: 逆 LCKށCB.ЁCB$ǁCQB@# g: A L @GĄCQJBJCGQٞQ.CBXĄˁCQB G@gVIAФL  KK$@# g VIAͤL ĄKGg V LR$TCJLLUBLLKB@KKĄB@# g V LR$TLJ KC̄QA  @# EFGgVEŸ DEDo  EHE gGEe   F BF LI ' J+Rg ` yz+KS@#  @J G G' # @Ĉ G G'J G G'VI)TJI*T @KQL@<ć@ #  @6    @6   @o6 @<@?6 @_6À?6I 6  # Z @6ɀ     IЂG!AKĈ@ć  HĀ# Q G  ˀKŀ< K# @ G K# G  K# 6H/6- I I# @/6Ÿ # 6B/6 , # zyGIHSDIIH @QM+GuHLI ERG$T#  IG'   1 GLG& Ќ+G{L6E/6 G&G' = # KQ K# @S BBI# ` A# L @M@}ćѠ1OA Lx D M@|@Lć L#   t I8 I)I3WIWI ĀVA # WIWI éQWΤQԄPL]1A QX1AQ1CR LRP#  CISLOCt GGj GWI W IWII'I!I#I  I"QeI0QaI1U Q\@O6BUV Y?  sU@ DJQB #  R*QB R&# LG IG' +G {LL # /*DEOLNEDICOUN ?JF:XDCR F:XDDE F:XDCO JF:XDUF F:XDGF O0SEGMENTBLANK F:FMSC o KF:DELE F:CONN F:CREA KE:UF E:GFN im MACRO (F510) @ig) b# g# g# g# g# ttJF:XRDA O0SEGMENTBLANK F:LIBR::o KF:XFDA F:XNFU F:XFUT im MACRO (F510) @itg8bIttm*** FORTRAN.LIB REV F4m20 ***JF:XFCI F:XFCR F:XFDM JF:XFDE F:XFDS F:XFDA O0SEGMENTBLANK F:LIBR::o KF:XRDA im MACRO (F510) @igt g g g ggJF:XNFU F:XFUT O0SEGMENTBLANK F:LIBR::o 4im MACRO (F510) @ifgg4IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIO0SEGMENTBLANK oim MACRO (F510) @JG:OVLI O0SEGMENTBLANK F:LIBR o KG:ADDR G:CONTS G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I)I )IA@ B  ttttJG:OVL  O0SEGMENTBLANK F:LIBR o KI:OVL G:ADDR G:CONTS KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I@#PIttttJG:BGIN O0SEGMENTBLANK F:LIBR o !KR:BGIN G:CONTS G:ADDR KG:CHECK G:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I )I)I)IBCDtttttJG:SIG O0SEGMENTBLANK F:LIBR o KR:SIG G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:WAIT O0SEGMENTBLANK F:LIBR o KR:WAIT G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:RECV O0SEGMENTBLANK F:LIBR o KR:RECV G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p @)I)I āttttJG:SEND O0SEGMENTBLANK F:LIBR o KR:SEND G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p @)I)I ttttJG:GPRI O0SEGMENTBLANK F:LIBR o KR:GPRI G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I:ttttJG:SPRI O0SEGMENTBLANK F:LIBR o KR:SPRI G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:ITIC O0SEGMENTBLANK F:LIBR o KR:ITIC G:TIC G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C  @C @`p ttttJG:MTIC O0SEGMENTBLANK F:LIBR o KR:MTIC G:TIC G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:TIC O0SEGMENTBLANK G:LIBR o KG:CONTS G:ADDR im MACRO (F510) @ig @)I)I)I# ttJG:CTIC O0SEGMENTBLANK F:LIBR o KR:CTIC G:CAN G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pIttttJG:CWAL O0SEGMENTBLANK F:LIBR o KR:CWAL G:CAN G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pIttttJG:CAN O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig @)I# tJG:IWAL  O0SEGMENTBLANK F:LIBR o KR:IWAL G:WAL G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:AWAL O0SEGMENTBLANK F:LIBR o KR:AWAL G:WAL G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:WAL O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig @)I)I)ICD# tJG:GTOD O0SEGMENTBLANK F:LIBR o KR:GTOD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I:ātttJG:STOD O0SEGMENTBLANK F:LIBR o KR:STOD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I:tttJG:GATD O0SEGMENTBLANK F:LIBR o KR:GATD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I tttJG:SATD O0SEGMENTBLANK F:LIBR o KR:SATD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I tttJG:CINT O0SEGMENTBLANK F:LIBR o  KR:CINT G:CHECK G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p:tttJG:PAUS O0SEGMENTBLANK F:LIBR o KR:PAUS G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:SDB O0SEGMENTBLANK  F:LIBR o 'KG:ADDR G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I A*āÓă@ !Ig1D J1 @gĀtttt>tJG:MDB O0SEGMENTBLANK F:LIBR o &KG:ADDR G:CHECK G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)II ĉăāIÒċ@ !Ih1D J1 @hĀttt~tJG:ADDR O0SEGMENTBLANK G:LIBR o  im MACRO (F510) @ig J.A# .6KAC @# JG:CONTS O0SEGMENTBLANK G:LIBR o im MACRO (F510) @ig J.A# .6KAC @# JG:CHECK O0SEGMENTBLANK G:LIBR o  KF:XSTF G:EXIT im MACRO (F510) @ig FIp p# ttJG:EXIT G:ENTER O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig LJ+H L I I I# gc c # m*** FORTRAN/RTX INTERFAmCE - REV E100 ***tJCLOG O0SEGMENTBLANK F:LIBR o @KF:EBAZ F:X1PP F:ICAB KF:IALG F:IAT2 im MACRO (F510) @iCLOGg A*GĂGG&G  G&GKQG%G  G GG G G G G GGGMS@# # tttttJCSQRT O0SEGMENTBLANK F:LIBR o jKF:X1PP F:ISQR F:ICAB im MACRO (F510) @iCSQRT g A*GĂ֠GG&G  G&GKQyYG  Y3GGGFG G G ?GֺXG GG G\ GG \ GG X3G G G GGG ]SSMS@# # tttJCCOS O0SEGMENTBLANK F:LIBR o DKF:X1PP F:ICOS F:ISIN KF:ISNH F:ICSH im MACRO (F510) @iCCOSg A*GĂGG&G  G&GdQQG G GGGG  GG \GG  \G MS@# # tttttJCSIN O0SEGMENTBLANK F:LIBR o GKF:X1PP  F:ICOS F:ISIN KF:ISNH F:ICSH im MACRO (F510) @iCSINg A*GĂGG&G  G&GdQG G  GGGG dG G G \GG  G \G MS@# # tttttJCEXP O0SEGMENTBLANK F:LIBR o 6KF:X1PP F:ICOS F:ISIN KF:IEXP im MACRO (F510) @iCEXPg A*GĂGG&G  G&GG G GG G \G G G  \GMS@# # ttttJDTANH O0SEGMENTBLANK F:LIBR o KF:IFD1 F:IDSB F:IDST KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD F:IDXP im MACRO (F510) @iDTANH g A*G IeJ ' J' '''' v'析'' '''ՀIeIKI@# t 'Q)XJX'O' '''U' L''@'' ''L'' @'''' J JX1FJ J'# tttttttt \U+ @ ^iGsi PE9w;' ^T\0= D@-fXT th'3l@JDATAN2 DATAN O0SEGMENTBLANK F:LIBR o KF:RGMY F:EBAZ F:RDDU KF:IFD2 F:IFD1 F:IDSB KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDATAN2DATAN g A*GĂҀIdO eKQ1Ǟe' ɞ1'ĀdIe I Ie'IeIKI@# g A*GAKI@#  gIf'J^ 'IV#'L'ttttttt t tt '@r'Fm 'Lhh'iIP '@Z'FU 'LP'LJ'hM'IGgt t 'B'@x'='F9 '5'4'@0'/ Ig'('^'" 'X'T'R'N 'L'~H'F'rB '@'f<':'Z6 '4'N0'.'B* '(gI'L"fI#  @nuXLU: IN3'@ UU*UU*dvD- # dvD- #C$p-s2 C$p-s2 UU*URx3ff33:| I$I[Fq r0 ]ng!M9NMRb Bc&Zqa D(+wlz,&*JDCOS DSIN O0SEGMENTBLANK F:LIBR o BKF:EATL F:IFD1 F:IDSB KF:IDST F:IDSL F:IDNM KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD im MACRO (F510) @iDCOSDSINg A*G'͞ I KI@# g A*GI If  IfIK@# XYJ FX C'ҟ# '' JXYXJ' IXJ JX 6At t t tttttttt 'y'u' s' o'd' i'^' c'X' ]'R' W'L' Q'|F' K' G' E'cA 'Z6' ;'N0' 5 'B*' /'6$' ) '*' #''  'Y ‚I#  A  K/لg g# @ Ny>Eo#@> ZTUtx<-x}  0?i=T ~s QMp]l s-P@ dvD- Ry % PQxuLY -R|T#| x s  xZpmA3Q|`IASJDSQRT O0SEGMENTBLANK F:LIBR o ]KF:ENGA F:IFD1 F:IDSB KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDSQRT g A*GeIC I )J6 * dJ' '9'0''$ JdJKI@# ' '''J J# ttttttttt B_|RD_CT(V -rP>ug^)mJDTAN O0SEGMENTBLANK F:LIBR o KF:ESGL F:EATL F:IFD1 KF:IDSB F:IDST F:IDSL KF:IDNM F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDTANg A*G'ĞJ 'KI@# Y IZ'JX1I' IIZZJ LYKKKL./!  ''Lt tt tttt ttttt`? K|K'LlYKr K'LbJ J'_ 'Z'@Y'tL'@Q 'hF'@K'\@'FG '@@'M?'D4'@9 '8.'F-'0YX' F-'L(I.I'' @!'F'L'@I ZI )KA+X @ C6SQFj jp?PV8F `Z#nJ TFCR j s3|!@ MAf?s$Q|`IARJTANH O0SEGMENTBLANK F:LIBR o zKF:X1PP F:IEXP  im MACRO (F510) @iTANHg A*GĂG&G h ٞGXK  K6G G\KG G\E\# G G\?GG\ @# \+)X6X\&G \G\"\\G G\\GG\ X1C \# tt @;@A>lVeBAJF:IAT2 ATAN2 ATAN O0SEGMENTBLANK F:LIBR o KF:X1PP F:RGMY F:EBAZ im MACRO (F510) @iATAN2 ATANg A*GĂGVG GVG@# g A*GĂG&G A@# # g KQ̄|}KQQS G # G# QG|# G \G QHG \ |# G # K~ G KGLh X K\G GGHGLttt GgG@GgG DGmGHmG \ oG MGRG@GRGD GTGHGMGHG=\ LG NGL\@GP GD\PGPG@\PG  9K8KG GL\LG P\-\)\P\#\P\ \L \H~G #  @@ݳ@:A@AI @@ @ @y?L$P5b?0AnJTAN O0SEGMENTBLANK F:LIBR o KF:X1PP F:ESGL F:EATL im MACRO (F510) @iTAN g A*GĂG&G hG# @ # )YG Ƅ[K\ G źG  @  \ G . 6G \7 G [[KŞ YG \G  ֚\GXGaGLttt ?@@@ @G \G GBG LYG \G G4G LG dG@\@GD\% GHGD\\\H\@ Y1OGH\L=\G DG H\L\D[ > ?@Ay@"JAMOD O0SEGMENTBLANK F:LIBR o (KF:RGMY im MACRO (F510) @iAMODg A*GĂGG&G HG&G)G 1JI \  \\ @# tJAIMAG O0SEGMENTBLANK F:LIBR o KF:X1PP im MACRO (F510) @iAIMAG g A*GĂGG&@# # tJF:IAIN AINT O0SEGMENTBLANK F:LIBR o KF:X1PP im MACRO (F510) @iAINTg A*GĂG&@# g  # # tJAMIN1 AMIN0 AMAX1 JAMAX0 O0SEGMENTBLANK F:LIBR o gKF:XGNP F:XVPP F:EINA im MACRO (F510) @i AMAX0AMAX1AMIN0AMIN1gA*G g A*G  g A*G g A*G ĂD G GG G \G YDG GGG Di@# GX ǀO G'G&G# tttJCMPLX O0SEGMENTBLANK F:LIBR o KF:RGMY im MACRO (F510) @iCMPLX g A*GĂGVG GVGMS@# tJCONJG O0SEGMENTBLANK F:LIBR o KF:X1PP im MACRO (F510) @iCONJG g A*GĂGG&G  G&GM@# # tJDMOD O0SEGMENTBLANK F:LIBR o .KF:RGMY F:RDDU F:IFD2 KF:IDST F:IDML F:IDMV KF:IDAD F:IDIN im MACRO (F510) @iDMODg A*GĂT1S' '' II'KI@# ttttttttJDBLE O0SEGMENTBLANK  F:LIBR o *KF:X1PP im MACRO (F510) @iDBLEg A*GĂG&G  IKh JKO`NG  MNKI@# # tJFLOAT O0SEGMENTBLANK F:LIBR o KF:INRM F:IPRX F:IFI1 im MACRO (F510) @iFLOAT g A*G)JF JK/ . KLtttJF:IDIN DINT O0SEGMENTBLANK F:LIBR o NKF:IFD1 F:IDLD im MACRO (F510) @iDINTg A*GKI@# g JC'6' )  񺛞 񺖞* LMN '# tt @`px|~ JMAX1 MAX0  O0SEGMENTBLANK F:LIBR o 3KF:XGNP F:XVPP F:EINA im MACRO (F510) @iMAX0 MAX1 gA*G g A*G ĂD YYYDyY @# XEGV @# G# tttJDFLOAT O0SEGMENTBLANK F:LIBR  o KF:INRM F:IFI1 im MACRO (F510) @iDFLOATg A*G)JLMNI JK/ . KLI@# ttJIDINT IFIX INT O0SEGMENTBLANK F:LIBR o QKF:EATL F:IFD1 F:X1PP im MACRO (F510) @i IDINT IFIXINT g A*G@# g A*GĂG& @@# gA*Gr# t JB # K E 0 . IA ! # x I;LK# tt@JMIN1 MIN0 O0SEGMENTBLANK F:LIBR o 3KF:XGNP F:XVPP F:EINA im MACRO (F510) @iMIN0 MIN1 gA*G g A*G ĂD YYYDyY @# XEGV @# G# tttJMAX1 MAX0 O0SEGMENTBLANK F:LIBR o 3KF:XGNP F:XVPP F:EINA im MACRO (F510) @iMAX0 MAX1 gA*G g A*G ĂD YYYDyY @# X EGV @# G# tttJMOD O0SEGMENTBLANK F:LIBR o (KF:RGMY F:EATL F:IFI2 im MACRO (F510) @iMOD g A*GĂV1€K XY.6 # /'  '/XI1A@# tttJLMIN1 LMAX1 LMIN4 JLMAX4 AMIN4 AMAX4 O0SEGMENTBLANK F:LIBR o KF:XGNP F:XVPP F:EINA im MACRO (F510) @i AMAX4 AMIN4 LMAX4  LMIN4 LMAX1 LMIN1 g A*G g A*G ֞g A*G  g A*G ĞgA*G g A*Ĝ   ĂDG GYG XGGDjG ], @# GV^, # tttJDMIN4 DMAX4 O0SEGMENTBLANK F:LIBR o BKF:XGNP F:XVPP F:EINA KF:I4TD im MACRO (F510) @iDMAX4 DMIN4 gA*G g A*GĂD GVGGVGY G XG GDiG@# ttttJLMOD O0SEGMENTBLANK F:LIBR o  KF:RGMY F:I4DV F:I4MP im MACRO (F510) @iLMODg A*GĂGVH H @AQ GG""@# tttJLINT LABS O0SEGMENTBLANK F:LIBR o )KF:RGMY im MACRO (F510) @iLABSLINTg A*GĂGVG @IG@# g A*GĂGV @# tJLDINT O0SEGMENTBLANK F:LIBR o KF:IFD1 F:IDT4 im MACRO (F510) @iLDINT g A*G@# ttJREAL O0SEGMENTBLANK F:LIBR o KF:X1PP im MACRO (F510) @iREALg A*GĂGV@# # tJSNGL O0SEGMENTBLANK F:LIBR o KF:IFD1 im MACRO (F510) @iSNGLg A*GG OiG  G KևN`GKKL@# tJIBTEST O0SEGMENTBLANK F:LIBR OIBTEST::o  KF:XRDA F:RGMY im MACRO (F510) @ig GHQIMMJN0 C 6B @# IBTESTtitdJF:RIIP O0SEGMENTBLANK F:LIBR o IKF:RGMY F:EOVR im MACRO (F510) @iI ** Ig A*GĂ)GB+ ZH6+. [Z1Ԟ U,)X Y6ĠXQ XJZQ¤Zs X X[1A @# '3ÀYII# ttJF:R44P F:R4IP O0SEGMENTBLANK F:LIBR o rKF:RGMY F:EOVR F:I4MP im MACRO (F510) @i I4 ** I4I4 ** I gA* Gg A* GĂ)GV E+ @AQ G-@6 +. o mn 1ݞQ] )i)jO G+6G) G)G+QOG-G-G +k IG)G)o 1D @AQ  I@# '-tpCGVHO# ttJF:RR4P F:RRIP  O0SEGMENTBLANK F:LIBR o kKF:RGMY F:EOVR im MACRO (F510) @i R ** IR ** I4 gA* Gg A* GꄝĂGG& GpGGCG) E @AQ +\O G"6G \GG"QIG\ GG"i\EG\ GGG  @# ]CGVHO# tt@JF:RD4P F:RDIP O0SEGMENTBLANK F:LIBR o KF:RGMY F:EOVR F:RDUN KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV im MACRO (F510) @i D ** ID ** I4 gA* Gg A* GꄟĂG Q}' [' )E @AQ +^O G& 6'' 'G & QL' ' ' G &c^G'.'' ''' KI@# _CGVHO# tttttttt @JF:RC4P F:RCIP O0SEGMENTBLANK F:LIBR o {KF:RGMY F:EOVR F:ICST KF:ICML F:ICLD F:ICDV im MACRO (F510) @i C ** IC ** I4 gA* Gg A* GꄝĂG MNʀSTA΀MS@ # ''H') E @AQ +\O G"6' ''G"QL '''G"c \G''' MS@# ]CGVHO# tttttt@JF:RRRP F:RIRP O0SEGMENTBLANK F:LIBR o @KF:RGMY F:EOVR F:IEXP KF:IALG im MACRO (F510) @iI ** RR ** Rg A*GĂGO g A*GGVGGV GGKYG] \Y3CG@# tttt@JF:RDDP F:RDRP  F:RRDP JF:RIDP O0SEGMENTBLANK F:LIBR o KF:RGMY F:EOVR F:RDUN KF:IITD F:IRTD F:IDST KF:IDML F:IDMV F:IDLD KF:IDLG F:IDXP im MACRO (F510) @i I ** DR ** DD ** RD ** Dg A*GĂG' H'g A*GĂGV' ֠H'˞g A*GĂG 'GV'g A*GĂG 'H'' KO['' KI@# O:'ut t ttttttttt @JF:ISNH F:ICSH COSH JSINH O0SEGMENTBLANK F:LIBR o jKF:X1PP F:IEXP im MACRO (F510) @iSINHCOSHg A*GĂG&g A*GĂG&@# # ttg G=# zwGLG6\L\L # g # )6){g6bG LG!\L6\L  GL\LGP\\\ P\ \L{1D6# @@?*= JF:ICSH O0SEGMENTBLANK F:LIBR o &KF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD F:IEXP im MACRO (F510) @ig K' I'L' 'L'LJ JKI# tttttttt@JF:ISNH O0SEGMENTBLANK F:LIBR o SKF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD F:IEXP im MACRO (F510) @ig K I{J'L '5'LII'L J J'L'L'P '('!'P' 'LI{IIK# tttttttt @@3UT6 D5JF:IALG ALOG10 ALOG O0SEGMENTBLANK F:LIBR o KF:X1PP F:EOVR F:ENGA im MACRO (F510) @iALOG10ALOGg A*GĂG&g A*GĂG&@# # g 1\Q# G GN) # 6KKh JK KJ SA G>G  \@GD\2G@GD\, \@GD\DG@\*\& \@\ \DG@G>\\ \@)# ttt @A]? @ @@^[?0_?8@JF:IDXP DEXP O0SEGMENTBLANK F:LIBR o KF:EATL F:IFD1 F:IDSB KF:IDST F:IDSL F:IDNM KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD im MACRO (F510) @iDEXPg A*GKI@# tttg K'x I~'@s' Iɀ~'xg' d'@a'i)}JC πJ'p}'@O' @'FI't'k' F'_'@'L7' F3'k'F'_' @('L'F"'L' @'FJ}J~I'L '* 'L # I@N0KC /}t tt ttttt \U+  XL==@ ^Ani[Pu&  ^nZ D@l_LR tJ]T,JF:IDLG DLOG10 DLOG O0SEGMENTBLANK F:LIBR o KF:EOVR  F:ENGA F:IFD1 KF:IDSB F:IDST F:IDML KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDLOG DLOG10 g A*GKI@# tg A*GxKI@# g '|# K' # IC I J)B [|z{ }~' 'F'i'@'F '`'@'F'F '@''x'@ 'l'@'`'@ 'T'@'H'@ '<'F'@': '*''@ # tttttttt Icw5U M&y z@ @o-v*& 4JNn@GXDrD q8hDb'sp wP/+X](K_0}Z<;fHJF:IEXP EXP O0SEGMENTBLANK F:LIBR o KF:X1PP F:EATL im MACRO (F510) @iEXP g A*GĂG&@# # g G ‚# )6¢}K \d6K}G[# Gd # KG \O)|G  h KK | \ G 6DK\>|GD\DG @\9\5\DGHG@\ 1GD\HG@GH\D\ @G h|`K֐GKL }3FGHG\H# tt @;C3@A>lLmB(JF:ICAB CABS O0SEGMENTBLANK F:LIBR o 5KF:X1PP F:ISQR im MACRO (F510) @iCABSg A*GĂGG&G  G&G@# # tg KQQ# Gw# QLs # L\ GHG\\H# tJDABS O0SEGMENTBLANK F:LIBR o KF:IFD1 im MACRO (F510) @iDABSg A*G IK@# tJF:ICOS F:ISIN COS JSIN O0SEGMENTBLANK F:LIBR o KF:EATL F:X1PP im MACRO (F510) @iCOS SIN g A*GĂG&g A*GĂG&@# g G G# )}. 6A# g G H }.}. 6# # tt @|K|i GG |1BG# iG#  G \C)}\ߞ G   \ G )I )̞)ʞ)E \ ĞG G | . 6[\ GD\M\I\D \C\D\=\D\7\D \1\ # \ GD\&\ "\D\\D\\D\ \D\ # ?@@@ @=7p lU@I۾]<#5ic58߱AJF:ISQR SQRT O0SEGMENTBLANK F:LIBR o QKF:X1PP F:ENGA im MACRO (F510) @iSQRTg A*GĂG&A@# g G DKK±6 ¯ h KGKLGD \%\!G h` K֖GKL# G@GD\@\@ # # tt @??@/JLDIM O0SEGMENTBLANK F:LIBR o !KF:RGMY im MACRO (F510) @iLDIMg A*GĂGVH g"'"6DGB I@# tJDIM O0SEGMENTBLANK F:LIBR o KF:RGMY im MACRO (F510) @iDIM g A*GĂGV\QB I@# tJDDIM O0SEGMENTBLANK F:LIBR o KF:RGMY F:RDSU F:IFD2 im MACRO (F510) @iDDIMg A*GĂIG IJKLMNKI@# tttJSIGN LSIGN ISIGN O0SEGMENTBLANK F:LIBR o BKF:RGMY im MACRO (F510) @i ISIGN LSIGN SIGNg A*GĂGH@SA@# g A*GĂGV H 3D @AQ @# g A*GĂGVH 3D I\Q@# tJDSIGN O0SEGMENTBLANK F:LIBR o KF:RGMY F:IFD2 F:IDLD im MACRO (F510) @iDSIGN g A*GĂOIK@# tttJF:IFI2 F:IFI1 F:IIUN O0SEGMENTBLANK F:LIBR o KF:X1PP F:EINA im MACRO (F510) @igĂOIQK# g OIQKHGKQ# g G)BOQ# ttJF:ICST F:ICLD F:ICDV JF:ICML F:ICSB F:ICAD JF:RCST F:RCSB F:RCNG JF:RCML F:RCLD F:R4TC JF:RITC F:RCDV F:RCTD JF:RDTC F:RCTR F:RRTC JF:RCT4 F:RCTI F:RCAD O0SEGMENTBLANK F:LIBR o KF:XLYA F:RDTR im MACRO (F510) @ig @# g G&G G&G# g@# g G G'GG'# g@# g G \ G G\ G# g@# g G \!G G\!G# g @# g G\"G-G \"G+ G\"\+GG \" \-G # tg ~@# g G&\"G+G&\"\+ G+G \"G-G\" \-\+G-G \"G  G\"\ \+G G-G# g @# g # g@G @# g ;M@44NhJG G . .O`NG MN@# g Og  g#G ST@# gvg  I\ G I\G@# tJF:IFD2 F:IFD1 F:IDUN JF:IDSB F:IDST F:IDSL JF:IDNM F:IDML F:IDMV JF:IDLD F:IDDV F:IDAD O0SEGMENTBLANK F:LIBR o KF:X1PP F:EINA F:RDSU KF:RDMU F:RDDU F:RDAU KF:RDUN im MACRO (F510) @ig ggg  OPQRST# g  IJKLMN# g IJKLMN# g jjjjjjjjjjjj# tttttttgĂ|'FK# g '@HGKQ# gGkg jKjz KjJ# g jj}# KL./K/ M.// L/ѠN.// . MN# JF:RDSU F:RDMU F:RDDU JF:RDAU F:RDUN F:RDSB JF:RDST F:IRTD F:RRTD JF:RDNG F:RDMP F:RDLD JF:IITD F:RITD F:I4TD JF:R4TD F:RDTR F:IDT4 JF:RDT4 F:RDTI F:RDDV JF:RDAD O0SEGMENTBLANK F:LIBR o qKF:XLYA F:INRM F:EOVR KF:EDV0 F:EATL im MACRO (F510) @ig@# g@# gOЄOg PJB{AˀIOEIA )*ɐτ1#  )ˈ@1G*S8u SB # )ˌ@1G *S8 vSW) jjH J j 1B*oII# AvTtg~x@# g OIIQrKLMN J# JPJet KQ ]KpLq o ɤKMqKRt)vL NqKSt)LRtv wM qKTt)LS tv܀MRtwxNv )w)x)k @1H*kSEBu  s# olAop./ ' oq./ 'pulF)q uuu)B(pqo # o oqp.1o # ! . qp#  * ) k '4/ . oo pCojpk  '4/. qCp]q pCoVp# g SN SVI ……@@# ttg~@# g IVJRC IIK LɀMƀKGឨb VICGٞGԞ'  ./KJQJ@AN/JJ N0C / ISI@ @I G@ # g G QQOi6KV G G KֈN`GKKL `@# g@# g @# g Og )IJKLMNGQb@ ִQƄI JKI J GG@I Gqo @ K )/.' KI# g  )* τ1KI@# t@` Atg ~|@# g OIIPJJ) 1B *|mKQmKRLQ mKSMQLRm KTNQLSMR )1B*{# k '+/ . kmkm+@.1C * S# n(nn 1J+xnJ|@JIKI# g  KBI IK@# nJJ nA n ), +{nrS@JN0K) ,m.C /. m+ s# n n)  *3=ntPnJN0 )m (.C /m*35# g@# g G @xxNhJG G r rO`NG MNKI# g G G3G G5G G 7KElJ F V BIVpq IOJP QRS TJ +J K./aIV/aL. /p/QM./q/AN./l qpVG3G G 5G G7G @# t tg DŽOPQRST#  Oy Pqr /aQ/q/QR/r/AS. T# JF:IFC1 F:IFR2 F:IFR1 JF:IRUN F:IRSB F:IRST JF:IRML F:IRMV F:IRLD JF:IRDV F:IRAD O0SEGMENTBLANK F:LIBR o XKF:X1PP F:EINA F:RRSU KF:RRMU F:RRDU F:RRAU KF:RRUN im MACRO (F510) @ig ggg  OPQR# g IJKL# g IJKL# g jjjjjjjj# tttttttgĂ}'TK# g 'NHGKQ# gGjg ĂiGf'?G+`KQ# JF:IPRX F:RRSU F:RRMU JF:RRDU F:RRAU F:RRUN O0SEGMENTBLANK F:LIBR o KF:INRM F:EOVR F:EDV0 KF:EATL im MACRO (F510) @ig QCKŸ# JPh'E PJ' v@'V6. '/JJN0C  / . 'W6 IOπLRBKt KQE ./ . JlLRAQ K QH 1  !KOIK[g Q؂لKL JIOI#  JP JKL. ./'K )/ 'LR)/'Q + / !1 . RQ P)΄*1# g JP JIOIL 'L K 'RK '  RB+LA+ tt@tt?g ńOPQR# qO y P'&/afdQ. R # .c„JI. KL# gOWOWg G G G GDJ C @AC@IHI OJP Q R7J 0J K./aIW/aL./@W `GG G GG G@# JF:EOVR F:ESGL F:ENGA JF:EINA F:EDV0 F:EBAZ JF:EATL O0SEGMENTBLANK F:LIBR o VKF:ERRC F:ERRS im MACRO (F510) @igGgGgG$gG*gG2gG9gG=tt ARGUMENT TOO LARGEBO TH ARGUMENTS ZERO DIVI SION BY ZERONUMBER OF  ARGUMENTS NEGATIVE ARG UMENT SINGULARITY OVERFLOWJF:RCGO O0SEGMENTBLANK F:LIBR o %KF:ERRS F:XLYA im MACRO (F510) @ig pA  ptGBG t COMPUTED GO TOINDEX OUT OF RANGEJF:I4MP F:R4MP O0SEGMENTBLANK F:LIBR o pKF:XLYA im MACRO (F510) @igt@# g \)['GV' ) *3=)Y) ZXY XܠYG0GFON XYZX*2*Y*2"c deۀfIOSH[TNQ ghϞ''./G[QE  @!Q @ [QGG # G[[ @AQ ĂO NāքĂ# JF:I4DV F:R4DV O0SEGMENTBLANK F:LIBR o KF:INRM F:XLYA im MACRO (F510) @igt@# g G IJ'&' [J ӄJ'' _ X\`ab' #i' jJ@A G Ck I cۀdOSHIUNSӀef ОG%NO'$./РI3K @AQ GI3BG#  MII !1 E/IJt I. N# jY)Ꞌ )NOGggJhg Ÿ́h GONhq) mgg) G 'L @AQ ON@A@@ 6A 5g@AiLJi)  @ ON5jik0 # J GJIcdefwJ 1X !*.0G%N# ONfG $N# ONeG#N# ONd# JF:INRM O0SEGMENTBLANK F:LIBR o  im MACRO (F510) @ig IJJJ/U# @JF:ISHF O0SEGMENTBLANK F:LIBR o im MACRO (F510) @ig @ QVSJN0C  @ASJN0C  # JF:R4NG O0SEGMENTBLANK F:LIBR o im MACRO (F510) @ig @AQ # JF:ROPN O0SEGMENTBLANK F:LIBR o KF:XTRM F:XOPN F:XMPP im MACRO (F510) @iOPENgAGĂt wIJKLMtItJF:REND O0SEGMENTBLANK F:LIBR o KF:XTRM F:XEND F:XMPP im MACRO (F510) @iEND FILEgAGĂtwtItJF:RBSP O0SEGMENTBLANK F:LIBR o KF:XTRM F:XBCK F:XMPP im MACRO (F510) @i BACKSPACE gAGĂtwtItJF:RINQ O0SEGMENTBLANK F:LIBR o KF:XTRM F:XENQ F:XMPP im MACRO (F510) @iINQUIRE gAGĂt wIJtItJF:RREW O0SEGMENTBLANK F:LIBR o KF:XTRM F:XREW F:XMPP im MACRO (F510) @iREWINDgAGĂtwtItJF:RCLS O0SEGMENTBLANK F:LIBR o KF:XTRM F:XCLS F:XMPP im MACRO (F510) @iCLOSE gAGĂtwItItJF:RHOM F:RLOM F:RCOM JF:RDOM F:RROM F:RAOM JF:R4OM F:RIOM F:RHUT JF:RLUT F:RCUT F:RDUT JF:RRUT F:RAUT F:R4UT JF:RIUT F:RETG F:RWIU JF:RWEU F:RRIU F:RREU O0SEGMENTBLANK F:LIBR o KF:XEBT F:XBTR F:XSRN KF:XSBW F:XSBR F:XGOU KF:XGIU F:XTRM F:XMPP im MACRO (F510) @igAGĂtt gAGĂtt  EKHwt ̠wE6CttItgAGĂt gAGĂt E# gE6 wtItggIgIg  Ig Ig Ig Ig  I@MNC@AG S NLƀFMFLy ItgggIgIgIgIgIgINIt E6IwFt N@ADFPE6A H+ H+DxPNP # @A LF# F# A` # RE AD EXTERNAL UNFORMATTED  READ INTERNAL UNFORMAT TED WRITE EXTERNAL UNF ORMATTEDWRITE INTERNAL UNFORMATTEDJF:RDLW F:RFSO F:RFWD JF:RFSW F:RFFD F:IOER JF:RFRW  F:RLOL F:RCOL JF:RDOL F:RROL F:RAOL JF:R4OL F:RIOL F:RHUS JF:RLUS F:RCUS F:RDUS JF:RRUS F:RAUS F:R4US JF:RIUS F:RETF F:RWIF JF:RWEF F:RRIF F:RREF O0SEGMENTBLANK F:LIBR o KF:XGLS F:XASR F:XASW KF:XSRN F:XGOU F:XGIU KF:XTRM F:XMPP MF:RFD F:RFG F:RFE MF:RFF F:RFI F:RFL MF:RFZ im MACRO (F510) @igAGĂ tt GTaRgAGĂtt  K1C,KEBbQ1ـK Kt RAR'Ta@#RRE6  ItgB B|# H%'H# J %'JC# )6   #  ERROR AT : LI NE  CALLED FROM : IN SL JF:XSTP O0SEGMENTBLANK F:LIBR o KE:MON im MACRO (F510) @igtJF:XGLS F:XPSE F:XCAF JF:XINT F:XENQ F:XSRN JF:XCLS F:XOPN F:XEND JF:XBCK F:XREW F:XEBT JF:XBTR F:XSBR F:XSBW JF:XASR F:XASW O0SEGMENTBLANK F:LIBR o JKI:IO E:SLU F:XDCR KF:XDDE F:XDCO F:XDUF KF:XDGF F:XSTF im MACRO (F510) @ig ` yNzO$ ` O+Nq M# gV[I T פMQπР1Nǀ DXN IM @# tACg: 逆 LCKށCB.ЁCB$ǁCQB@# g: A L @GĄCQJBJCGQٞQ.CBXĄˁCQB G@gVIAФL  KK$@# g VIAͤL ĄKGg V LR$TCJLLUBLLKB@KKĄB@# g V LR$TLJ KC̄QA  @# EFGgVEŸ DEDo  EHE gGEe   F BF LI ' J+Rg ` yz+KS@#  @J G G' # @Ĉ G G'J G G'VI)TJI*T @KQL@<@ #  @6    @6   @o6 @<@?6 @_6À?6I 6  # Z @6ɀ     IЂG!AKĈ@ć  HĀ# Q G  ˀKŀ< K# @ G K# G  K# 6H/6- I I# @/6Ÿ # 6B/6 , # zyGIHSDIIH @QM+GuHLI ERG$T#  IG'   1 GLG& Ќ+G{L6E/6 G&G' = # KQ K# @SBBI# ` A# L @M@}ćѠ1OA Lx D M@|@Lć L#   t I8 I)I3WIWI ĀVA # WIWI éQWΤQԄPL]1A QX1AQ1CR LRP#  CISLOCt GGj GWI W IWII'I!I#I  I"QeI0QaI1U Q\@O6BUV Y?  sU@ DJQB #  R*QB R&# LG IG' +G {LL # /*DEOLNEDICOUN ?JF:XDCR F:XDDE F:XDCO JF:XDUF F:XDGF O0SEGMENTBLANK F:FMSC o KF:DELE F:CONN F:CREA KE:UF E:GFN im MACRO (F510) @ig) b# g# g# g# g# ttJF:XRDA O0SEGMENTBLANK F:LIBR::o KF:XFDA F:XNFU F:XFUT im MACRO (F510) @itg8bIttm*** FORTRAN.LIB REV F4m20 ***JF:XFCI F:XFCR F:XFDM JF:XFDE F:XFDS F:XFDA O0SEGMENTBLANK F:LIBR::o KF:XRDA im MACRO (F510) @igt g g g ggJF:XNFU F:XFUT O0SEGMENTBLANK F:LIBR::o 4im MACRO (F510) @ifgg4IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOVicEdDanoj_) +_;Ćņ ц %Pj^p_ #^_[`P#Pͪ/)ID> 88D}!DCI?!)`8!^_[2)_6YZ[X?z%7o;c%?XY;}/h̼P`&A_;x/}: x__:95"'@hj-F#.D/^C3>EC * X)/P^_[/`j/_`  ^^ˤP`IFI{0/{5nhY- ̜^p'o_ ߔqyb2F ݪ% QoXPr%^r%q%qN'Q!'1qo"q"qg%qj'$q  ':qZ';q(nq(Xq(.q'q"Xqb"}q"*qS"q$r$ qE"Oq!q!r"q~#hq#dqI#`q#qV#q#EaPq!'q!1a4*t"52/t4Aה5otqDپ*t"54/t8!Fe_otqqHotq^Lotqvot-!\[.v( j['\o+ay[X!i')Qa8iY##\ hY_̮QiR=5ZxӦ!x]ЌuQo.x..ozQ!ތ!ބQ!߲!QQ[o􌬚ooQiOX!?.np0c]o)]RiR0cRRiO]^ ]Y<o*Y,hX) *)UM!!**.iR/YiO(DV]YX"8),X5iR X,(OYX"I)iOY5rhXiRZx"j[)Y,Rh,RhiO5i!)'/v̼h/ob/_5;`iR&'\&" b \["['Z\iR(]SPyR$$zzz$Y}iY…}iY>iY)"/"R/SPS]/",SPb,SPb'"(")yycP'#-"+SSPS]bSUP"~*"$S=c SPSU~S=S.oT#SXSPc'H# Z#RA#SL#RISR.#SoS./(yySPbSCc'S]]s]m ,///)/bD#6E#6F#6GwSS.S]6SSot*@SP$cPS]SP.'ESP'#E o]so_]s_^]s^cX>5o SlUc/Sl^cSlYc|(zS#sT7,xS#sn)oT7oq#q#r$6q$mq$eow|BJS|#T7,S|#n)[c5J.zJ"hX*otB.zB'hX*ot$NS\cNSW^|]iR|MKPLOS#T7,S#n)or$6q$mq$er#Nwq#q?#q#q#ow5L.zL(c5M.zM7%c5K.zK#c5P.zP'Yot5O.zO&Y_*ot*RTT_d4RT1.Tdd|.=S1T)$ T7,%T)$ Ty,%T)$ n)^or$6q$xq$q$eq{$q$mow5^.z^3*$VVT`V$J]*otD.*ot.]*ot!WZ!o53.z3Yot5C.zC hX*ot5=.z=*6_dTot5S.zS-Yot51.z1Yot=$D.#oDS.o$Y_$̣oY%iA6_$ o|D$=$d$]$$T̺1b]iR,'T'o(ݰ5T)dT$5=UEXUM) d]X$  o'Rhe%U3e Y_% U&'''ot re!#e!'U&ow]%0%/%0#%06o9+%A-(%C[]^[ot(kn+ o=UX,5UXX%X]o(]]o(%U (Y2U,U,U)%,,%xXZ,ezZ)%X[)^piYZ[)^piYh\\[.Ն oY.YK\ .  .X%)iYU? [eUX((U^piY;\\oh\\[%%e+X%)o-U/5V-/3#򌂺%eeX%iY\[%[̕]]Ч&(X)u[װf[f%[X5e&3VV|>*>=eV|h,&K,$u&^&SVyfPp&KVzfKV􌤅wX&/3oVzf>,G'&-Gf+9(\i\H)f\oG&f&^ow/tow&3ow]Ќulmot`Ȍ{l&fوmٌf٢m&٦ьm؈f٦،m؈f?,&,&&&V& &`o?/{o{ ._   _'SiY5iY5;%iYYKg*5G*Wg-[(WX'&iY(qXU e@(/Q/'Qh\/@HWZ/'>iY%.†ÆgDWZiYYKg`5G`Wg(lh\.v.v.vgx\\[.v[x! vv ھ(WX'\o{%'i'[.v0H0X.x%%X'%%%.t%]g%%%Wg''g''XgXXWgЈWoWo{)''_o]']']oX:( .xotHX/thH:(]owX]ow0!(#]ot[(&[ovQ!(_i_-D_i_i(D̹iM(NhNiD,(2),(.iYYKh_5H_Yhj[\[.vX([iY"YKhs(X})"X(r(Yhrh\.[(Xh(])"X(}o],(hX>]hhn(h̹oF}Fo,(wot,th_h]]o\[([h\[([UhU(̨U(Yr̕h((̕o()//_i,//_iYoY%Do{oY% "^o{o]Yk-++--+-*&*-k-/+-^+-&kkB +N[b@k0k[l[P򌂰*&\ij&ko]]\+`\o[lP[.P[+Pn򌂰+u[/n[.++[.[n[}o{]+]k]k]/towh[o{\[w+tsk/t /t/t/t wjtn kӲ7o[ׂot[ׂo[/o+餣/{owotQQ\Hk\ow,,,,]]^]otժ],]ot /t ot$$B,+/r򪬚,n>lniȰw~oo9obob#obob^obeob̕obob̼ob̋5ho̮obΆobobmobobobyob.....n.no{o{bnopon/oΆs pǒa .o /_b..__n.__n/ww_otot/oo?_o__c~cco o /-Ͱo04ɰvІ ?8_o5˚ʜʌ?Fv?FoA̚̚ʪ4OoR?V_oS_o''_'o/(/j=/j5/p&/&##ohoooooo %$ #'=  ()2@BRd@ aY_++*$E() W0P>W @  @@ J X(P,DFd^f V0H0@@b@LPPPTPRPJPXPZ`Bp\@@`thlACCESS=ANDASSIGN BACKSPACE BLOCKDATACALL CLOSE( COMMON COMPLEXCONTINUE DATA DIMENSIONDO DOUBLEPRECISIONENDEND= ENDFILEEQ EQUIVALENCE( ERR= EXTERNAL FALSEFILE=FMT= FORM=FORMAT FUNCTION GE GLOBALCOMMON GOTO GT IF(IMPLICIT INCLUDEINQUIRE( INTEGERIOSTAT=LE LOGICAL LONGINTEGERLT NE NEXTREC= NOTOPEN(OR PAUSEREAD(REAL REC= RECL=RETURN REWIND STATUS=STOP SUBROUTINE TASK TO TRUE UNIT=WRITE( 8jv0K*va$*vE$}v}$8Z0KZ1:Lv}W $S MaI8# 8$I`Ic `$ dQ QM 8aM `M aQ[#[$Q[Q\Xc[$\XdR RM[aM[M\Xa'o `3'o s]$99Kx/W;A- N-a- $u8Q@80KQ@aQ@ $xK#qIKcXc\@N&?e8v0:09p0:}0;@(H08"L&8"`X08Mx0;;` #d$de/++$+e/0;0;$x6x62W$We++2v$Gve}62!X$yz} s$se}6!W$ aW<p$ a\< $vc`DECLARATION CONFLICT ARGUMENT COUNT DUPLICATE OPTION CONSTANT SIZEDIMENSION RANGEDUPLICATE DUMMY DATA COUNT ARRAY SIZE DATA TYPE FORMAT LABEL BLOCK DATA ONLYUNSUCCESSFUL INCLUDE ILLEGAL LABELILLEGAL NUMBER CONTROL VARIABLE REUSE INVALID UNIT ASSIGNMENT JUMP LABEL RECURSIVE FUNCTION MISUSED NAME MULTI DEFINED NOT ARRAY NOT INTEGERNUMBER OF SUBSCRIPTS RANGESTATEMENT NOT ALLOWED MISSING UNIT SYNTAX TYPE CONFLICT UNDIMENSIONEDUNRECOGNIZABLE INCOMPATIBLE OPTIONS ANSI ARRAY WARNING ARGUMENT CONVERTED LABEL MISSING MISSING COMMAILLEGAL DO CLOSE EXTRA COMMARANGECB%mG2G2G1G2--G4--E7G1--G0E3----LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOVicEdDano&!3)79:-FE.GIH%/65T> T0$` "򌂮 5T332`3SU`')K9: FHCgTq)7 M!iToTq!hTv!TH`[򌂮 w# ~>``lTTqT9TH`  *êSU`S"Td`*`R*򌂮 TTTᚵTS0򌂮 TS`Tj`0<"+"4A"+"SN?R"!"""R!%/" .EF&d"򌂮$T"Ɍ0*4ATbT򌌖SNRT"Ū;?R򌌖bbb;ؐ֌b٬d;dSN?""b􆢖"?b0"cU$cUS"?A#A?  4# 40?4A#SUA*dSY+#/#+#d򌗆c9T9ScDUScDTN2#KFcGK*dScDTN2d#$#d #c#cScD dS|#fSiDdrd#y$ddSS7#dUb\dTTMSd#TTSSSCddCddC$KdĝPdȝd̝&dНdԝXdScDc2$#2􄈖JTd  TSUTc %TS%%Tᚖ%#d +TdT+ U$Td$7 7$" $(+d,+d,$(Td++$9$D: $H%d$d2$TWd]2$$22d<<iQ>‘^@iYnsoVo|\!G];\Z];3 ^\X\\3S°^so3S[g[fanX:W];ž›U3{&xas&o__X\__\o33]S3333u]!!›QaŸQšQoœQ!šQžQoQo|^)m^YZZu/{Zo|žZœZ¡Zu/{Zo|u/{j3Zo3򌀚^3Xl\{^ ?3\a3Xl3Yo3Y/¬!Zo3S"o33^3Xl\{o\{okofe~vhXj}oR2oR:oo3fo3eoR:~oR:voR'oR:hoR'Xo3\YYekoR'joR'}o3*3&0SSb1Sie3*3&#Sd3/*"AYbH3&GSYbHSieSbn"Z"Z"X"X"Xb[b[nm"iRLbk-YYRb~SRR~RbSRb~SR^\{m^ RomnRRRRRR怘oRRRR怛omnRRRoRR怘omnRRRomnRRRRR怘oobˌfbˌebˌkbˌ}bnjhbˌXbnjjbnjbnjvbˌ~b˔R˲om(ت"؈T~nnbnmo|mn2bmoTb3(_X3µ!2c,3^33,^c &3_"_\o{So3333Y/S-Y"""o];"lS3o""""Y/ZX^SV"LL›cN"ZgXYK3#ZSY\{gY-Y\|g_cd_3SWo3S3SX['['o3S[#|Y}W#W^Yn^\{3^ oS*\c[cSXo|*war5pSacg65b33755?555655q5]74G?467b4?444A4>o#ۧ"#ݧ*\ccoo#􆢍 Wh WMT[g^TXlTgT^hTgYT‹^gW4WMXl[owXlTTosYS^yiު/YTi/a00[*$$)*00o|$;$;$9$9o|$9o|_TGoTTMoYS^\~^ Xd{4`T~dX4okdb4odj^ 4yxTdq$`h($$$$$|]D􌎗oToy\$\$[[[_dYYnYo\og4455I5 5+?5-?4444oXX];›ZŽ^\ hXXWihXX$²^hWXY²^hWXYhWXY²^h\[|oXX·^@h XX%¢e¤ ^@hXXY&YT\\h´e.·XX< ^@hY&YT“^@£^@^¸^^hXXW)SVeTV];›Z–^@\ hUmYT\h Um&k&h UwewUwh [[eX:Y[W];ž›UoVVHVœeV!VZeVeVVHVž›eV!VZeV\ h VVšŸ];Uh p%Ϧ%j›%ž%œ%Ÿ%š%žZ];ŸZ fZ];žZ¡fjZ¡j];ŸZ Z\ o{];Z];jo V /sowV'%YorYovW!5W2/sow/wosY9XoqW$Y@XowEXovW$XorW4/sW4/rov0]?020i1B\[\\\21113h2w3c3a2w110p10n2w1232?1?2{3133Q21[222p22!2 212I2I2a2$02w11012I2I2a3voYlXlW!X:hVhW!&W4W$WVo|X&W$X&W$X:Vo|W4&\  &ϲ X‘n@W4&\ ٪ &Ų X”n@o|W!&WXhX&W$XW$WM&fWM&W$WM&&*&W$*&W$WX§^@vYŒ^h W$X:[hW!'X:Y hX:X¨^@pYŒ^hX/sW$X/wW$X:osW)W$W)oX.Wo[|o'8"wvv/s/sv/rov\ wWV/s T^ow/w􌊘 Z/ulX:XWWih'r'~''gW) 'y|©^Œ^o|8gW¨^@o|©^o|>gW¨^@gª^o|DgWJgWP''''YTlդ'X77[[TWψ§^@vYŒ^gXghTTYS\^#!Z\TPo|Y[oW󲍲oah W XWYeWh [aYa6oX:W/XWW ŽnW&pl7];ŸZ]; Z\ ³^@\ o|Y l/|X/,(B[Ud((Q+/|^YhVXXdhVXXWoXY(`bghh(fjhniY iXYZ[\ {W (y–n@—n@YތY[|ZoX/wXosY[X[YoY[(Wo| (l (WYeWo|Xw[oswZ/wY/s[/sow[Sͦ(h(diY ihԦ¯^4TYKXXUiަ[iY iAh±^4TYK‚Xiަ…iY i^X!xioYXl|iY inYXlsiY XY\g$*o1oY/[|/n)5++YT\ A )?˜n@™n@#Y޲[|oYToX[)YWo|c )cYjWo|WYnWhYni))|){){)|./|.o2^i݄[iބiPi[[[ͧ(*-*#"***** **1)$]D**^Y/j{jjxYT˜^@xjj%݌[T+kk򌂮!j*:jW4*bxFxyY1ZMyxyjr*To\] *Z’n@• n@ `^jT.:mjh^Y/j{T.*{YT£^@*x*^xj 򌂮!jxZMx^**2*[0]-[C[Kj[C[0]-[K/nO/,,[C[K2nOW4/|\ * Yo  YT•n@YT’n@!׌[T+ k«!ی[T+䬘+2[C[0]-[K/nO2[C[0,Æ$/]0[KnO= 7 k8 , oz|,zo| /{,,o/{,,o^Z|+`[r+l+i[r+n|[xoskoow,|wos,[,+^_[// ../, x )o.+ko|[£n@¥n@|X[¢n@¤n@sow(+XXWk(+[݌ZXWYekYjl^Xl];Z\^XlφWl[|[o| /o6wl0wlw/wosww\vos /w wosW_,\@.-_ rl/r\l&=''&& &'l l1ۆ|.I\T,@׆|.\T,Io|,,[,|v_)v_ //../or#|$$###]#$llYS3l^]DjYSY!Z­!j­k_,,Y/l\­!k/_o^/¶!2(----"--,,$\o?\\o?,㈹]0oo,]0o=]Do=o=,]0!o?/,]0o?&,Æ$]0, #nO,]0􆌖o?,,2-7m9xx,oo/sow.-{_-W"-b-mmJ]\mH]\l]mH]gmH]\l]mH]smH^ ]\l]mH]$!##!m$m#$!! ](^m!##- ]]m]m^  ]]m__X$¶!2]&o\(^ n (]^ ^ /|^ n %(%%%%^m%o|/|򌂳/{o,r/v* ^os_)|_ ^mZ\^+l¶n¶n¶^,!2, /o? ņ/oɆ / o!,, ,2/^nO^!/[C2,,2[K.aZnffnf.o/^n~//􆌾$.}-^2/o^!2[C[K//^,/o,3,&__m_mo,3,,&__m_m'_monn,r/|.r_];Z^\ o|xx^Ɔxo_^.o /v.v+.++,)_n^r^ros..lmjr/..n/ _/n./or|ro_5o_5 ! _X$/. 'x,[o\ [o\_**)*o,3,_Eo/K/SoL__m&_mot_&_do,o_,_,_mo,,,,o򌊪_oooo32 62728292;21o@++xyBC: F  @@  pP  (,d\ :%KCB%qqqqrrrrr!%!@8@@8:@4@G@4G:@2@'@2':tt@t8t@(t@8>,(@(@@(@(<(9@(@ (@!@(@#(!'P(#'9T(@(@@(@8(d(88h(@(@@(@2('x(2'8|(@(@@(@1(@g(@1g8(@(@@(@4(G(4G8@@'@'?:[:[@:[0:[@G:[@0G=``@`8`'`8'>z z @z 8z @z @8;z z @z 4z @Gz @4G;z z @z 2z @'z @2;jj@j8j@,j@8?04882<G@GD4G2H%\L%\P%0\0TX\84`'d'h2'4l(Gp(Gt(G7x( G|(G(<G6( '('(:'6%\%\%0\4~ G~G~<G1~%\~%\~%0\3T GTGT<G0T 'T'T:'0T%\T%\T%0\2z 'z 'z 8'2z gz gz 4g2z %\z %\z %0\1("b b(@ (@H@(@( XOXO" !Y  +t 8z " z "*(@ (@"(@ )(@"(?Y??@e@t@?Y@Q@@+ Qx (x ( .x ( x ( . x (Ox (O x (O ' 'o ` @@ AA@p}@s# w}@%d }@w}@ |@*p}@ H #  PPPZ10PQ+QQ܌KQڰJ10QMQkPPPZPQQQQMQkPPJ[z[z0Q1Q謗[z07[z`3PZPdPЌOQQNPo[zXX[{QQҌKQڰJPiQMQg[z[z[{k l IQ`[ΌNai[zP[z[zXg[z[zk[z[z[zXX[zXX[zX6XH[z[z[zXX7Xd[z[z"XX[zX6XXXXG[z[z[zXk{[zXk{+l10JaO[z[zQQQ[{O[z[zQQX[{10OQ OQڀ`LJI+fQ1OQڀ`NY[xYY!YaI;lYa֌KJQڌԌKJQ+f!!/QT?RVd0R3@gT4Wb3WV5V=bW=$,d0b=@Wb=@WbWd0Wd0Wd0T?Wv3h3W0b3V3d02􌬗2bX>T?Rd,#"UbWvh"R"R335555553klVz3Vz3kgOcck_Vz3SKkgW5Vd2Wd23>T?#.WvVz333h'3c)3W3cVVk__>k_!%n%%> 15U>T?SVUeGVgW0VKj#%jWW 1 >k^T?WvUVgeT?WvUT?WvUVa5ek]hllƴklT?WvĆVgk_Wv#%1VgW0kf+fUklUklO%YV4+_򌂢􌂢fgA[wXk_& ƆAA􆀗&fƆA,  X &/ *f/ /AXk_[w&F&F ? &AXk_AZNAŤb[vAZ̆+_k_5nfx5VzVz5k_hl1lg0Ua33S&I+aU&ŧW&?\&V͍Vk_VV͍Vk_&V͍Vk_VV͍Vk_˴klk_V+fklV+fkl5+f+fW0f1NO1hA&f/ONfOWVW4fN WOl5+fWSWWUWggg05+fWS&W+WU)W+g!/+gg0klWNHIB5+fFWVIgHWSIWfWULWfg=klgVh+b\\g`AbWGk_Be􀬗IfH+fg0l'fgG'ggG +g+gGGkgl3g;li3gb7g7gWgX-gEFWD'X-'X)􌬗EggklD;_WޒWX_gF'FgFFklFklWGCXDX- 8gC7hC;gh DX_h(CX_8#8(h8)X_X_klcf4BWGDf?QRBJQJhMXVBRAShTDk_i[zB[z[zQXk{XQklR+ci[z[z[z,X[{kcklR̆kľ̆+lkl +l klO(Y(M(hklklkl ([y[jkl kld[z[zXXk{t[z[zk{[zXXk{򌊪[zkz [̚[ lhʚ[ )[w[E!(# h(ihi[ h=[[ i [ )4[w['[):Q):G)9C)7i:i=vi:i2[[[ MiE[ 22Z[ 2i['iQ댗 [z"['띬,['p.!['띛-[ 댖 8[ 은)?[#9[ *?[#)[|N,Y.!Y[~"5)%))4)i[zX[{kmo[z[zXN)iĈiĈd)iĎ[zNk{ZiZ/,,i&i9,i-򌊪iњ--&,iߌYkg(,Z(Z~,[&Y(klZ---[&i,M/kl,MZZ* Mkl,c:!:L:N:c:j:y:y:y:+:I:K;kiZ|$kl,iZ5*)j$j0,iZ5-,ck_3:5kl6?8kl9D;kl<l>klk_k_,iZ2CWj`+*` *^`̚ [ Zk_,i Z[&Zk_,iZ*t򌊪Zk_,ijM+lZZMklZ&['2-'['$kl3['kl(*jZ2kEZ,iZZk_*O*ħY*ЧM*'+d*[w[Ekg[J[JkgZMg--klZMg-- +g--kljjk +^k k 2)lkl,l,+fkfk_[ ksklk+g+k􆂭k ?[r[8k*?LF;^F+3?[8 Lk-=?+=kl?BkCkl[J[Jkl[k+Z [k+Z [k+Zklklklkl*)[}   &Z  (@>GBpDF@@Z\dfhjnppp p p r7v\}*KvS+&!+q!-Z+y'N +`+*D 0 :'*@,=(-+)#A7CHILMQRSTXY     ?B@@@@t !Z\(,&pP\ARGS DATA SIZE= DO END ENTRY= EQUERRORS FORMAT INLINE KNOWNLABEL LINE LOCN LONG INSTRUCTIONS USED NAME PROGRAM SIZE- =RUNTIMESTATEMENT LABELS STATEMENT LOCATION MAP SUBPROGRAMS CALLED TYPE UNUSED USE USER WARNINGS WORDS! COMPILATION COMPLETE mG9G4G3G6--G7--E7G1--G0E4----OVicEdDano81@U'@pĀG'@'A+B BU½B B+KC BD''τ5tACDTT5!8H'c' 68 ?OUO/.8Fߞ/.h?-E+! bфUUUU JHC_HO\VBVWU UvO9rVVJVVFVCV?VcaġK F H@(K*t# àV(VQA ! VFā@ W Ā  *Lx@ Wß=(jVTRHRTRˤR'tTU@UNJĀ @KTРR'tK q# VW RQC   RU@URWVāJ't@ @99V@ 3@ H+L{&ą@ @J * ğ@ ÍÅğ _T u{z u _t  @ .N 6A.x8 1f _r'بSS7S4O?.(V? '$ 4*7lGBVHHJ @OV'VrZj< ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789#-:VVC@E *3*3H+;. '6ANxX# & !"#$' V*))A)å@('t@AȀĀV# WXYWXY @@rK @WXψQ؀WXY# b=GD; X1# BQG@AB*+TX ā *1BCK %F( # Q] 'Ą á 1IM B C*My'TāBÁBāB*2-ÄV# 6̢@ # GTp@'# `# VrJ{ C2'dN BrJN 6CpX֬@Ār# rQK r'cKGGGBm€m{+.*d@ *UN r#  8H]xI@EMWUN BWN 6AxA,UWWMq# UGT BUxKG ġ@E *K&{@B U G# )ġ Cv *2D1sv vK  @ v  6ANxXu#  o ] cUсBC @́BC @8 kC+IPS P@@N B (C6Ā+F °*+ĀC )C * ā* p# Cœ (ā+CM H+K HMxC+)C# ]W  a U)UOpKLO0IO0Q!II# >FTL' `'!I B'I B{ЀG@Ȅ_'@ń@Ä@ֿĂ)8Ă'I B'› B# B *U# [ IU!}[/ p ZdF"E"G H @I7" H H" H BOIw'?+USD rN# JOxOI@b)Í @)Í @) Í @)Í @vyuTDFEI@bu Hvy H\Nx@AM ZZO\ Sx'ׄ)+v O SxZ'T%Mb) buvy%q"qp"po"on"n$nopq Va2nopq IV@ M+U] !UU]ĨUMrX u+'=FOU l.  I#uysG @IiU'tUI`(aT*WXv Y@IQ@AM ؀Q +MxIYKXWhWB XWI1 oNPY .]FKPÄUGK@Y@E# vywA# L ~7QA# |A# v'ф vwLCL*LXL _N ^L ^L L0P'рv u# U`LLz'UN@   ``  }>( 'äqK6pon@EntpOxfpoOxeonOxdtKN`Gca'ՀEFwEF'ՄāVF"EVOUVt- tnnooppqq@EU'Vt-   tqWUp q op non^ d'jz\O GO6 # U'錀UK# YGV # N GO6GV # Vx'ŀvyuJOOxI@b) H H) H H) H H) H H @vyu:T?V*GāH 'ITLWC@B@CWB@7HW I < HC  ]BVI  Ā +Lxlj @tUnƴopqU„t]tJtzUq/Uqpo/ponn# )' )'Á@  @E'ĀY'dI+GB (['I# ViI Ā  +Lx 'eI+I'dKNrp* NN# NN# cdO0cdeO0defO0ef'ŀuvy) HO* HП7ITBV'܀N @ B6Aph) 8H) 8A'@GB@I+UGcNhJqd c /QC.K|f9@0)6! Mč*Mx# )6!M,#,&*MtU'UUāU# U'UUU# %)ÁF  R)@JQL@AM +) ā  +Mx) ׅv]e/) + Ā  ā  ĂK) @I G%h G%ml j ]I HO (') }á+@&F@#\ ؀Q ؁QHĀāI$ ) ì\ K ) I^AGAGAGA'Ijhfd_b'I\ZXV*'ă))+IR# # w# w# ly9=(; 88ƨĠpquhs`q0x8:$rd$Md5[;s[N[ ,7v);s?2;ds;cs#!!t"":`Nd=q_qNq]q"fy.)-&psy&v  pruyw?QZ\d]ms";^r]]]cM F OL= % *^ // 4 B L W _(9ENDFILE ** < pIJSŀ@+ky㯤@I JSŀb+yKrS r# s@EǚÕ B`B@ kߑ < U     U1kV1AvzKrbCzm[[[[K_ ~[[[[[[[[[ ~KlrKPkwKl ~KPsakZ iKRʣУ磖ݣ  F K!P[[ ~3 PP%%Kl#  P3 Pa P3 PZKpK3N~3 PNKp3kPpKN3N  P3 Pk ~՛i. ~Ki.Ki3k~  P3 PV3 P  P]s3S 3|V]s3S 3|TKeV ~KQK ~ P3 PdCd~dKRCd3KdKR # #!P#m&Cdn...dKd3!Km3mm3mm3mm({n{m3nn(LKR :KL3K(KR @CKL(KL(KRc_ ~KRcc ~[[ ~/ KpaZkclKrCuu_CvvCwwCxx(K_p[[!qKc t(}Kc z(kw(SFKF3F(K^K3oK(KFK3oK(3oMKoKo3osM(XKYKR KRKX(KX(KR X{YKY3XY!KY(skc!skc3((bS^K^3sK!ڛ^< RKb(KPcKpC{sk K\[\[Ct[![[K~iAKgcj CgcKp!&KiAKqKgkf&" CgpKgcgKq3sK3N3p`KNs` CN[C[pKN3N"[([[KPcKp[(KO[KO3k '(AKh @Kf3Vkg@KgT[[Kip[KeV(Ku3ifKx3ihKv3ijKw3igCffChhCjjCgg(KTsVoKV3cUsTaKTUKe fKVp[CVpKV3VkU f["V(]KO{]syc3"z3\[\KO3sr[( q t w z k |   IRÏK@+P  k ~ 랂 @` @n@@*݀ܞp+ԇѦўf͈Z "%'TQOŞT "%'cBEAC=?>@N0Ā272 "%'0,)% ⏜@   (B  ',09W PABCDEFGIJKNOPRSTUWXZ j? P  'd FORTRAN(F440)FTNSCAN SOLFTNALLOCATESOLFTNGEN SOLLISTING g7OBJECT ANSI ERRORSONLY LISTOBJECT XREF XON TRACE  pPAGESIZE LINEWIDTH  FTN XLS OBJ+[C @`RI)%C *V;U /GJ :PS .V  MY 9D'A @ ``pDc # P# 1 P}ÀC x@J{R # C @`RQĸPQc # `H% 0 9 /  05`H'#   C @`R@b) h bI+FI QWX1AB+c # C @h`R bѢ bM IC C @U .%KLMNc # I00H# UȠ1FUI10H# ?rD^~`PJp) À}pQ   I?`%5`]+`I 5I+@'`)OH)F)iD)B)@)>) "%'. # 0)C @ bUbV)օ5CU Uc # QlĤVS@6]@/6eRSX U+UGVM0N4H# II00 VI# 0IrC @`R@1C1ǞĀp]}^ b@ p~K})?٠@Ą)?Ϡ@)?IB @ĂI)?C Ǡ@C U)O) bҀ`b[1b o )?S)O SB]pI~^}`pBc #  Dp c?> $    b0)}N# QAQdj}N) b^pF q H# `bI1bQcb@ o# cЀy D o # o{`;ocx osC @`@K'@``pBC`HARJk%`(C @`(C @U ``p'BDBc # C @`p  ĄBࠁ1^RDĂ DIĀDc # @ DĂ@ ďS p8pJQBE)SψoEKbHWPP@)?6YW ?)tQJb€cÞ )tD)t L‡)# GSTTÀRPpJQˀ}N)0 btĀrP(# .TLpJQˀ}N)0 btĀrG(# 1PAGE LcC @P Q)Ԅ5)# n5kC`H%@*`H„`H5`H F Ec # }N)0 bqQpQwvT1B(JR+7 b &3O# @ TB# @ OpL,YL WL+UL)}N)0 bq# r NOD)? b¿)Y b½OSɄ_B)? )? gSL]MQK QW ZZQ ?))ۀ„S ?)S LpL()O# =SIZ16SAZ2$+  MK}N) bžknSL=N}R )eϞ)ۀ KMCAZL# SOZ3)t b“H B)I00I# `" # LOZ4P`pP`j`#I5Ye bI *U 'Rg栁ǀARHRP)0 OIHP)i IHL)9H)IHD)ЂIH@)EI<)IH8I4)I0b)))p J ) SA))0 b}qpQA }L L bZ[\ÚNyK#  Z5Z6OCCISL0::+..BKYOj@`` `P# ÂτOp_@ ` bĎ!HU  Ă+ UxP b A)Op +T))p ,K))pA.1 PHASE @/ 0POINTER OVERFLOWMEMORY OVERFLOW COMPILER ERROR % ~ IPzy C @`P)W c u IP{ )| )| IPWH IP@y @ zK#*C @`R)# 5Ӡ1QAB) b`# SA)c # FTN::WORK TMPXX+.+ )I OI#  C @`Rr p™ pc q C @`Rc pˆ pc o?-@-b-X\  C @`RPQc w?f @ {Hl C @`R)c w C @`R)c w? @ z IP@zW C @`R)Oc w C @`R)c w?EC @`R`B)5NI@b@IO pJ%`(C @`(C NU'`pCDc #  C @`RI?V)?SA)Oc p C @`RIF )SAc q?  $+ C @☞C @h `R).5 pUJUD@+t%`(@`H@c #  C @`RWU'X @. 6A*Յ5Xc # ? #  0)OѠ@)? @)?I0)O@)? "bI@C )?C U@ cB* @# Q C @`R)? bI pDSC@QH`pBCc # >?{# }>C @`Rr ac적1jIBbc n p@!C ς SA p b  pc # ?SFOV+,*C @`R LL) SA))ςLIc p)D Cc ?+:::C @`R)G6Gc #  C @`RIc # ?:- -H4C @ c C @ c  c # -b4"-g4'-X4C @`RIC)C)c # ?@+B#F+HMC @`RF B)tSA))tςLc C @`Py Q C  QQP c C @c C @`PECFAc # C @ pc # ?+!"0!B[ C @`RU?UY ĀU0 `pBCc # X?LtHs?C @ ::c # : c # X10PX1 PX1 1P81mG2G2G1G2G1G4--E7G1--G0E3----+O0SEGMENTBLANK oim MACRO (F510) @JG:OVLI O0SEGMENTBLANK F:LIBR o KG:ADDR G:CONTS G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I)I )IA@ B  ttttJG:OVL  O0SEGMENTBLANK F:LIBR o KI:OVL G:ADDR G:CONTS KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I@#PIttttJG:BGIN O0SEGMENTBLANK F:LIBR o !KR:BGIN G:CONTS G:ADDR KG:CHECK G:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I )I)I)IBCDtttttJG:SIG O0SEGMENTBLANK F:LIBR o KR:SIG G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p1 )I ttttJG:WAIT O0SEGMENTBLANK F:LIBR o KR:WAIT G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:RECV O0SEGMENTBLANK F:LIBR o KR:RECV G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p @)I)I āttttJG:SEND O0SEGMENTBLANK F:LIBR o KR:SEND G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p @)I)I ttttJG:GPRI O0SEGMENTBLANK F:LIBR o KR:GPRI G:ADDR G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I:ttttJG:SPRI O0SEGMENTBLANK F:LIBR o KR:SPRI G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:ITIC O0SEGMENTBLANK F:LIBR o KR:ITIC G:TIC G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p ttttJG:MTIC O0SEGMENTBLANK F:LIBR o KR:MTIC G:TIC G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:TIC O0SEGMENTBLANK G:LIBR o KG:CONTS G:ADDR im MACRO (F510) @ig @)I)I)I# ttJG:CTIC O0SEGMENTBLANK F:LIBR o KR:CTIC G:CAN G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pIttttJG:CWAL O0SEGMENTBLANK F:LIBR o KR:CWAL G:CAN G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pIttttJG:CAN O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig @)I# tJG:IWAL  O0SEGMENTBLANK F:LIBR o KR:IWAL G:WAL G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:AWAL O0SEGMENTBLANK F:LIBR o KR:AWAL G:WAL G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`pttttJG:WAL O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig @)I)I)ICD# tJG:GTOD O0SEGMENTBLANK F:LIBR o KR:GTOD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I:ātttJG:STOD O0SEGMENTBLANK F:LIBR o KR:STOD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I:tttJG:GATD O0SEGMENTBLANK F:LIBR o KR:GATD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I tttJG:SATD O0SEGMENTBLANK F:LIBR o KR:SATD G:ADDR G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)I tttJG:CINT O0SEGMENTBLANK F:LIBR o  KR:CINT G:CHECK G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p:tttJG:PAUS O0SEGMENTBLANK F:LIBR o KR:PAUS G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I ttttJG:SDB O0SEGMENTBLANK  F:LIBR o 'KG:ADDR G:CONTS G:CHECK KG:EXIT G:ENTER im MACRO (F510) @ig C @C @`p)I)I A2 *āÓă@ !Ig1D J1 @gĀtttt>tJG:MDB O0SEGMENTBLANK F:LIBR o &KG:ADDR G:CHECK G:EXIT KG:ENTER im MACRO (F510) @ig C @C @`p)II ĉăāIÒċ@ !Ih1D J1 @hĀttt~tJG:ADDR O0SEGMENTBLANK G:LIBR o  im MACRO (F510) @ig J.A# .6KAC @# JG:CONTS O0SEGMENTBLANK G:LIBR o im MACRO (F510) @ig J.A# .6KAC @# JG:CHECK O0SEGMENTBLANK G:LIBR o  KF:XSTF G:EXIT im MACRO (F510) @ig FIp p# ttJG:EXIT G:ENTER O0SEGMENTBLANK G:LIBR o KG:ADDR im MACRO (F510) @ig LJ+H L I I I# gc c # m*** FORTRAN/RTX INTERFAmCE - REV E100 ***tJCLOG O0SEGMENTBLANK F:LIBR o >KF:EBAZ F:RCRP F:IFC1 KF:IRST F:IRMV F:IRLD KF:ICAB F:IALG F:IAT2 im MACRO (F510) @iCLOGg A*G1', '' ' ' '' 'MS@# tttttttttJCSQRT O0SEGMENTBLANK F:LIBR o MKF:RCRP F:IFC1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:ISQR F:ICAB im MACRO (F510) @iCSQRT g A*G1q IX' ''J J''' J JX'' ']O IMS@# tt tttttt tttJCCOS O0SEGMENTBLANK F:LIBR o LKF:RCRP F:IFC1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:ICOS F:ISIN F:ISNH KF:ICSH im MACRO (F510) @iCCOSg A*G Od ' ''' IdI''  ''' ' 'MS@# tt t tttttt t tttJCSIN O0SEGMENTBLANK F:LIBR o JKF:RCRP F:IFC1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:ICOS F:ISIN F:ISNH KF:ICSH im MACRO (F510) @iCSINg A*G Od' ''' IdI'' ' '' ' 'MS@# tt t tttttt t tttJCEXP O0SEGMENTBLANK F:LIBR o :KF:RCRP F:IFC1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:ICOS F:ISIN F:IEXP im MACRO (F510) @iCEXPg A*G'  '' '' ' '''MS@# tt tt ttttt tttJDTANH O0SEGMENTBLANK  F:LIBR o KF:IFD1 F:IDSB F:IDST KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD F:IDXP im MACRO (F510) @iDTANH g A*G IeJ ' J' '''' v'析'' '''ՀIeIKI@# t 'Q)XJX'O' '''U' L''@'' ''L'' @'''' J JX1FJ J'# tttttttt \U+ @ ^iGsi PE9w;' ^T\0= D@-fXT th'3l@JDATAN2 DATAN O0SEGMENTBLANK F:LIBR o KF:RGMY F:EBAZ F:RDDU KF:IFD2 F:IFD1 F:IDSB KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F513 0) @iDATAN2DATAN g A*GĂҀIdO eKQ1Ǟe' ɞ1'ĀdIe I Ie'IeIKI@# g A*GAKI@#  gIf'J^ 'IV#'L'ttttttt t tt '@r'Fm 'Lhh'iIP '@Z'FU 'LP'LJ'hM'IGgt t 'B'@x'='F9 '5'4'@0'/ Ig'('^'" 'X'T'R'N 'L'~H'F'rB '@'f<':'Z6 '4'N0'.'B* '(gI'L"fI#  @nuXLU: IN3'@ UU*UU*dvD- # dvD- #C$p-s2 C$p-s2 UU*URx3ff33:| I$I[Fq r0 ]ng!M9NMRb Bc&Zqa D(+wlz,&*JDCOS DSIN O0SEGMENTBLANK F:LIBR o BKF:EATL F:IFD1 F:IDSB KF:IDST F:IDSL F:IDNM KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD im MACRO (F510) @iDCOSDSINg A*G'͞ I KI@# g A*GI If  IfIK@# XYJ FX C'ҟ# '' JXYXJ' IXJ JX 6At tt tttttttt 'y'u' s' o'd' i'^' c'X' ]'R' W'L' Q'|F' K' G' E'cA 'Z6' ;'N0' 5 'B*' /'6$' ) '*' #''  'Y I# A  K/لg g# @ Ny>Eo#@> ZTUtx<-x}  0?i=T ~s QMp]l s-P@ dvD- Ry % PQxuLY -R|T#| x s  xZpmA3Q|`IASJDSQRT O0SEGMENTBLANK F:LIBR o ]KF:ENGA F:IFD1 F:IDSB KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDSQRT g A*GeIC I )J6 * dJ' '9'0''$ JdJKI@# ' '''J J# ttttttttt B_|RD_CT(V -rP>ug^)mJDTAN O0SEGMENTBLANK F:LIBR o KF:ESGL F:EATL F:IFD1 KF:IDSB F:IDST F:IDSL KF:IDNM F:IDML F:IDMV KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDTANg A*G'ĞJ 'KI@# Y IZ'JX1I' IIZZJ LYKKKL./!  ''Lt tt tttt ttttt`? K|K'LlYKr K'LbJ J'_ 'Z'@Y'tL'@Q 'hF'@K'\@'FG '@@'M?'D4'@9 '8.'F-'0YX' F-'L(I.I'' @!'F'L'@I ZI )KA+X @ C6SQFj jp?PV8F `Z#nJ TFCR j s3|!@ MAf?s$Q|`IARJTANH O0SEGMENTBLANK F:LIBR o KF:IPRX F:IFR1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD KF:IEXP im MACRO (F510) @iTANHg A*G IaJ 'z J' 'o''' f'՞''k '''ĀIaI4 t 'F)XJX'B' '''>' 7'''' 3'''' J JX1FJ J'# ttt tttttt \U@sp kv+^SEn@JF:IAT2 ATAN2 ATAN O0SEGMENTBLANK F:LIBR o $KF:RGMY F:EBAZ F:IPRX KF:RRDU F:IFR2 F:IFR1 KF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD im MACRO (F510) @iATAN2 ATANg A*GĂg A*GB@@# tg I|O}KQ1}#  'ʟ1'|I#  }I I}'I}I#  I~'LJ` 'IX'H'Lttt ttt t ttttt  y'@r|'D m'Hhl' eIPe'@Zh'D Uo'HPe'HJ 'HF'L@K'L= '@@'P;'D4'P. 'P2'@+'P- I 'L&'L!'P 'K 'D'P':'P '0'L I'H~ I# @nu IN@UU* dvdvC$p C$pUT^W fAXD(vlzJTAN O0SEGMENTBLANK F:LIBR o KF:INRM F:ESGL F:EATL KF:IPRX F:IFR1 F:IRSB KF:IRST F:IRML F:IRMV KF:IRLD F:IRDV F:IRAD im MACRO (F510) @iTAN g A*G'J 't YI['JX1I 'II[[J LYKKKL. /! ''Lt tt tt ttttt? `KzK'LlY KpKq'LbJ J' @_'@Z'DY'\N' HS'DL'OK'HB' HA'@BYX'H?'L :I>I'0.'D3'H ,'L%'D$I[I(@ JXKL./JJ N0C /6X .KL# t @e B+Ce.@.xj  s4@MAfQ|`JAMOD O0SEGMENTBLANK F:LIBR o ,KF:RGMY F:IPRX F:RRDU KF:IFR2 F:IRST F:IRML KF:IRMV F:IRAD F:IAIN im MACRO (F510) @iAMODg A*GĂT1S' ''II'tttttttttJAIMAG O0SEGMENTBLANK F:LIBR o KF:IPRX F:IFC1 F:IRLD im MACRO (F510) @iAIMAG g A*G'tttJF:IAIN AINT O0SEGMENTBLANK F:LIBR o 7KF:IPRX F:IFR1 F:IRLD im MACRO (F510) @iAINTgA*Gtg JC'# [@KL. /JJN0C /   C //. KL# ttJAMIN1 AMIN0 AMAX1 JAMAX0 O0SEGMENTBLANK F:LIBR o hKF:XGNP F:XVPP F:EINA KF:IPRX F:RRSU F:RRUN KF:IRST F:IRMV F:IRLD im MACRO (F510) @i AMAX0AMAX1AMIN0AMIN1gA*G g A*G  g A*G žg A*G ĂD '' 'IYE ''Dkt GXǀO G'ttttttttJCMPLX O0SEGMENTBLANK F:LIBR o KF:RGMY F:RCRP F:IFR2 im MACRO (F510) @iCMPLX g A*GĂMS@# tttJCONJG O0SEGMENTBLANK F:LIBR o KF:RCRP F:IFC1 im MACRO (F510) @iCONJG g A*GOOMS@# ttJDMOD O0SEGMENTBLANK F:LIBR o .KF:RGMY F:RDDU F:IFD2 KF:ID5 ST F:IDML F:IDMV KF:IDAD F:IDIN im MACRO (F510) @iDMODg A*GĂT1S' '' II'KI@# ttttttttJDBLE O0SEGMENTBLANK F:LIBR o KF:IFR1 im MACRO (F510) @iDBLEg A*G MNKI@# tJFLOAT O0SEGMENTBLANK F:LIBR o KF:INRM F:IPRX F:IFI1 im MACRO (F510) @iFLOAT g A*G)JF JK/ . KLtttJF:IDIN DINT O0SEGMENTBLANK F:LIBR o NKF:IFD1 F:IDLD im MACRO (F510) @iDINTg A*GKI@# g JC'6' )  񺛞 񺖞* LMN '# tt @`px|~ JDMIN1 DMIN0 DMAX1 JDMAX0 O0SEGMENTBLANK F:LIBR o qKF:XGNP F:XVPP F:EINA KF:RDSU F:RDUN F:RRUN KF:IDST F:IDMV F:IDLD im MACRO (F510) @i DMAX0DMAX1DMIN0DMIN1gA*G g A*G  g A*G ˞g A*G žĂ D'' ' IYE ''DkKI@ # GXAO G '  ST# tttttttttJDFLOAT O0SEGMENTBLANK F:LIBR o KF:INRM F:IFI1 im MACRO (F510) @iDFLOATg A*G)JLMNI JK/ . KLI@# ttJIDINT IFIX INT O0SEGMENTBLANK F:LIBR o NKF:EATL F:IFD1 F:IFR1 im MACRO (F510) @i IDINT IFIXINT g A*G@# g A*G@# g A*G@# JB  # K E 0  . IA ! # xI;LK# ttt@JMIN1 MIN0 O0SEGMENTBLANK F:LIBR o 3KF:XGNP F:XVPP F:EINA im MACRO (F510) @iMIN0 MIN1 gA*G g A*G ĂD YYYDyY @# XEGV @# G# tttJMAX1 MAX0 O0SEGMENTBLANK F:LIBR o 3KF:XGNP F:XVPP F:EINA im MACRO (F510) @iMAX0 MAX1 gA*G g A*G ĂD YYYDyY @# XEGV @# G# tttJMOD O0SEGMENTBLANK F:LIBR o (KF:RGMY F:EATL F:IFI2 im MACRO (F510) @iMOD g A*GĂV1€K XY.6 # /'  '/XI1A@# tttJLMIN1 LMAX1 LMIN4 JLMAX4 AMIN4 AMAX4 O0SEGMENTBLANK F:LIBR o KF:XGNP F:XVPP F:EINA im MACRO (F510) @i AMAX4 AMIN4 LMAX4  LMIN4 LMAX1 LMIN1 g A*G g A*G ֞g A*G  g A*G ĞgA*G g A*Ĝ   ĂDG GYG XGGDjG ], @# GV^, # tttJDMIN4 DMAX4 O0SEGMENTBLANK F:LIBR o BKF:XGNP F:XVPP F:EINA KF:I4TD im MACRO (F510) @iDMAX4 DMIN4 gA*G g A*GĂD GVGGVGY G XG GDiG@# ttttJLMOD O0SEGMENTBLANK F:LIBR o  KF:RGMY F:I4DV F:I4MP im MACRO (F510) @iLMODg A*GĂGVH H @AQ GG""@# tttJLINT LABS6  O0SEGMENTBLANK F:LIBR o )KF:RGMY im MACRO (F510) @iLABSLINTg A*GĂGVG @IG@# g A*GĂGV @# tJLDINT O0SEGMENTBLANK F:LIBR o KF:IFD1 F:IDT4 im MACRO (F510) @iLDINT g A*G@# ttJREAL O0SEGMENTBLANK F:LIBR o  KF:IPRX F:IFC1 im MACRO (F510) @iREALgA*GttJSNGL O0SEGMENTBLANK F:LIBR o  KF:IPRX F:IFD1 im MACRO (F510) @iSNGLgA*GttJIBTEST O0SEGMENTBLANK F:LIBR OIBTEST::o  KF:XRDA F:RGMY im MACRO (F510) @ig GHQIMMJN0 C 6B @# IBTESTtitdJF:RIIP O0SEGMENTBLANK F:LIBR o IKF:RGMY F:EOVR im MACRO (F510) @iI ** Ig A*GĂ)GB+ ZH6+. [Z1Ԟ U,)X Y6ĠXQ XJZQ¤Zs X X[1A @# '3ÀYII# ttJF:R44P F:R4IP O0SEGMENTBLANK F:LIBR o rKF:RGMY F:EOVR F:I4MP im MACRO (F510) @i I4 ** I4I4 ** I gA* Gg A* GĂ)GV E+ @AQ G-@6 +. o mn 1ݞQ] )i)jO G+6G) G)G+QOG-G-G +k IG)G)o 1D @AQ  I@# '-tpCGVHO# ttJF:RR4P F:RRIP O0SEGMENTBLANK F:LIBR o KF:RGMY F:EOVR F:IPRX  KF:RRUN F:IRST F:IRML KF:IRMV F:IRLD F:IRDV im MACRO (F510) @i R ** IR ** I4 gA* Gg A* GꄝĂG Q}'W' )E @AQ +\O G" 6'''G" QL'''G "c\G'*'' '!'t]CGVHO# tttttttt @JF:RD4P F:RDIP O0SEGMENTBLANK F:LIBR o KF:RGMY F:EOVR F:RDUN KF:IDST F:IDML F:IDMV KF:IDLD F:IDDV im MACRO (F510) @i D ** ID ** I4 gA* Gg A* GꄟĂG Q}' [' )E @AQ +^O G& 6'' 'G& QL' ' ' G &c^G'.'' ''' KI@# _CGVHO# tttttttt @JF:RC4P F:RCIP O0SEGMENTBLANK F:LIBR o {KF:RGMY F:EOVR F:ICST KF:ICML F:ICLD F:ICDV im MACRO (F510) @i C ** IC ** I4 gA* Gg A* GꄝĂG MNʀSTA΀MS@ # ''H') E @AQ +\O G"6' ''G"QL '''G"c \G''' MS@# ]CGVHO# tttttt@JF:RRRP F:RIRP O0SEGMENTBLANK F:LIBR o YKF:RGMY F:EOVR F:IPRX KF:RRUN F:IRML F:IRMV KF:IRLD F:IEXP F:IALG im MACRO (F510) @iI ** RR ** Rg A*GĂGO G'g A*GG' H'' KL['' OD'ttttttttt @JF:RDDP F:RDRP F:RRDP JF:RIDP O0SEGMENTBLANK F:LIBR o KF:RGMY F:EOVR F:RDUN KF:IITD F:IRTD F:7 IDST KF:IDML F:IDMV F:IDLD KF:IDLG F:IDXP im MACRO (F510) @i I ** DR ** DD ** RD ** Dg A*GĂG' H'g A*GĂGV' ֠H'˞g A*GĂG 'GV'g A*GĂG 'H'' KO['' KI@# O:'ut t ttttttttt @JCOSH SINH O0SEGMENTBLANK F:LIBR o KF:IPRX F:IFR1 F:ISNH KF:ICSH im MACRO (F510) @iSINHCOSHgA*GgA*GttttJF:ICSH O0SEGMENTBLANK F:LIBR o &KF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD F:IEXP im MACRO (F510) @ig K' I'L' 'L'LJ JKI# tttttttt@JF:ISNH O0SEGMENTBLANK F:LIBR o SKF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD F:IEXP im MACRO (F510) @ig K I{J'L '5'LII'L J J'L'L'P '('!'P' 'LI{IIK# tttttttt @@3UT6 D5JF:IALG ALOG10 ALOG O0SEGMENTBLANK F:LIBR o KF:EOVR F:ENGA F:IPRX KF:IFR1 F:IRSB F:IRST KF:IRML F:IRMV F:IRLD KF:IRDV F:IRAD im MACRO (F510) @iALOG10ALOGgA*GgA*Gtg 'b# K'c # IC I J)B ؄~| }'g'D 'M'@'D'D '@'D'D'@ 'E'>'@'4 'D'@'<'$''@ # t t tttttttt IcwM& @@o- wJ\Q?@Z<JF:IDXP DEXP O0SEGMENTBLANK F:LIBR o KF:EATL F:IFD1 F:IDSB KF:IDST F:IDSL F:IDNM KF:IDML F:IDMV F:IDLD KF:IDDV F:IDAD im MACRO (F510) @iDEXPg A*GKI@# tttg K'x I~'@s' Iɀ~'xg' d'@a'i)}JC πJ'p}'@O' @'FI't'k' F'_'@'L7' F3'k'F'_' @('L'F"'L' @'FJ}J~I'L '* 'L# I@N0KC /}t tt ttttt \U+  XL==@ ^Ani[Pu&  ^nZ D@l_LR tJ]T,JF:IDLG DLOG10 DLOG O0SEGMENTBLANK F:LIBR o KF:EOVR F:ENGA F:IFD1 KF:IDSB F:IDST F:IDML KF:IDLD F:IDDV F:IDAD im MACRO (F510) @iDLOG DLOG10 g A*GKI@# tg A*GxKI@# g '|# K' # IC I J)B [|z{ }~' 'F'i'@'F '`'@'F'F '@''x'@ 'l'@'`'@ 'T'@'H'@ '<'F'@': '*''@ # tttttttt Icw5U M&y z@ @o-v*& 4JNn@GXDrD q8hDb'sp wP/+X](K_0}Z<;fHJF:IEXP EXP O0SEGMENTBLANK F:LIBR o KF:INRM F:EATL F:IPRX KF:IFR1 F:IRSB F:IRST KF:IRML F:IRMV F:IRLD KF:IRDV F:IRAD im8  MACRO (F510) @iEXP gA*Gtg K' I}'D' Iɀ}'w' 'D'j)|JC ̀J'k|'D'D '@'f'_'D 'H'@'['D 'H'@'H'D '@J|J}I'H'2'H# t tt ttttttt 0~I@KC | JKL .~JC /l. KL#  \UXL @sqiv&9SFIJF:ICAB CABS O0SEGMENTBLANK F:LIBR o \KF:EOVR F:IPRX  F:RRSU KF:IFC1 F:IRSB F:IRST KF:IRML F:IRMV F:IRLD KF:IRDV F:IRAD F:ISQR im MACRO (F510) @iCABSgA*Gtg IOKQ1# '1 # 'H'LIK 'HL'H'L' L'H' ' 'HJ'# tt t ttttt ttt @JDABS O0SEGMENTBLANK F:LIBR o KF:IFD1 im MACRO (F510) @iDABSg A*G IK@# tJF:ICOS F:ISIN COS JSIN O0SEGMENTBLANK F:LIBR o KF:INRM F:EATL F:IPRX KF:IFR1 F:IRSB F:IRST KF:IRML F:IRMV F:IRLD KF:IRDV F:IRAD im MACRO (F510) @iCOS SIN gA*GgA*Gtg K' I g KH I II# t tt tttttt |}J F|C'q#  j'j'iJψ| }|J'w_ I|J J| 6_'@R'@N' DL'rH'k?'DB' a9'D<'W3'@6 ' 2'D0'A,':# 'D&'0'D '& } ‚I# @KL. /JJN0C /L)J. .~ L. KL~# t ݀Nql@L S;6@d vRw QR9Kd _[Q|`JF:ISQR SQRT O0SEGMENTBLANK F:LIBR o NKF:ENGA F:IPRX F:IFR1 KF:IRSB F:IRST F:IRML KF:IRMV F:IRLD F:IRDV KF:IRAD im MACRO (F510) @iSQRTg A*GCt@@# g IC I)J6 *  J'D'''  JJ# '@'D' @'@J J# tt tttttttW2W2JLDIM O0SEGMENTBLANK F:LIBR o !KF:RGMY im MACRO (F510) @iLDIMg A*GGVH g"'"6DGB I@# tJDIM O0SEGMENTBLANK F:LIBR o KF:RGMY im MACRO (F510) @iDIM g A*GĂGV\QB I@# tJDDIM O0SEGMENTBLANK F:LIBR o KF:RGMY F:RDSU F:IFD2 im MACRO (F510) @iDDIMg A*GĂIG IJKLMNKI@# tttJSIGN LSIGN ISIGN O0SEGMENTBLANK F:LIBR o BKF:RGMY im MACRO (F510) @i ISIGN LSIGN SIGNg A*GĂGH@SA@# g A*GĂGVH 3D @AQ @# g A*GĂGVH 3D I\Q@# tJDSIGN O0SEGMENTBLANK F:LIBR o KF:RGMY F:IFD2 F:IDLD im MACRO (F510) @iDSIGN g A*GĂOIK@# tttJF:IFI2 F:IFI1 F:IIUN O0SEGMENTBLANK F:LIBR o KF:X1PP F:EINA im MACRO (F510) @igĂOIQK# g OIQKHGKQ# g G)BOQ# ttJF:ICST F:ICLD F:ICDV JF:ICML F:ICSB F:ICAD JF:RCST F:RCSB F:RCRP JF:RCNG F:RCML F:RCLD JF:R4TC F:RITC F:RCDV JF:RCTD F:RDTC F:RC9 TR JF:RRTC F:RCT4 F:RCTI JF:RCAD O0SEGMENTBLANK F:LIBR o KF:XLYA F:RDTR F:IPRX KF:RRUN F:IRMV im MACRO (F510) @ig @# g G&G G&G# g@# g G G'GG'# g GG+GG-` kl G G-G ` GG+G # g@# g G \ G G\ G# g@# g G \!G G\!G# g @# g G\"G-G \"G+ G\"\+GG \"\-G # ttg~@# g G&\"G+G&\"\+ G+G \"G-G\" \-\+G-G \"G  G\"\ \+G G-G# g @# g # g@G @# g ;' ' MN@# g Og  g+G ST@# g "G ST@# g   I\ G I\G@# tttJF:IFD2 F:IFD1 F:IDUN JF:IDSB F:IDST F:IDSL JF:IDNM F:IDML F:IDMV JF:IDLD F:IDDV F:IDAD O0SEGMENTBLANK F:LIBR o KF:X1PP F:EINA F:RDSU KF:RDMU F:RDDU F:RDAU KF:RDUN im MACRO (F510) @ig ggg  OPQRST# g  IJKLMN# g IJKLMN# g jjjjjjjjjjjj# tttttttgĂ|'FK# g '@HGKQ# gGkg jKjz KjJ# g jj}# KL./K/ M.// L/ѠN.// . MN# JF:RDSU F:RDMU F:RDDU JF:RDAU F:RDUN F:RDSB JF:RDST F:IRTD F:RRTD JF:RDNG F:RDMP F:RDLD JF:IITD F:RITD F:I4TD JF:R4TD F:RDTR F:IDT4 JF:RDT4 F:RDTI F:RDDV JF:RDAD O0SEGMENTBLANK F:LIBR o OKF:XLYA F:INRM F:EOVR KF:EDV0 F:EATL F:IPRX KF:RRUN F:IRLD im MACRO (F510) @ig@# g@# gOЄOg PJB{AˀIOEIA )*ɐτ1#  )ˈ@1G*S8u SB # )ˌ@1G *S8 vSW) jjH J j 1B*oII# _=tg~x@# g OIIQrKLMN J# JPJet KQ ]KpLq o ɤKMqKRt)vL NqKSt)LRtv wM qKTt)LS tv܀MRtwxNv )w)x)k @1H*kSEBu  s# olAop./ ' oq./ 'pulF)q uuu)B(pqo # o oqp.1o #  ! . qp#  * ) k '4/ . oo pCojpk  '4/. qCp]q pCoVp# g SN SVI ……@@# ttg~@# g IVJRC IIK LɀMƀKGឨb VICGٞGԞ'  ./KJQJ@AN/JJ N0C / ISI@ @I G@ # g՟g@# g @# g Og )IJKLMNGQb@ ָQƄI JKI J GG@I G @ K )/.' KI# g  )*τ1KI@# t@` ttg }{@# g OIIPJJ) 1B *|mKQmKRLQ mKSMQLRm KTNQLSMR )1B*{# k '+/ . kmkm+@-1C * S# n(nn 1J+xnJ|@JIKI# g  KBI IK@# nJJ nA n ), +{nrS@JN0K) ,m.C /. m+ s# n n)  *3=ntPnJN0 )m (.C /m*35# g@# g:  G ' ' MNKI# g G G3G G5G G 7KElJ F V OIVpq IOJP QRS TJ +J K./aIV/aL. /p/QM./q/AN./l qpVG3G G 5G G7G @# t tttg DŽOPQRST#  Oy Pqr /aQ/q/QR/r/AS. T# JF:IFC1 F:IFR2 F:IFR1 JF:IRUN F:IRSB F:IRST JF:IRML F:IRMV F:IRLD JF:IRDV F:IRAD O0SEGMENTBLANK F:LIBR o XKF:X1PP F:EINA F:RRSU KF:RRMU F:RRDU F:RRAU KF:RRUN im MACRO (F510) @ig ggg  OPQR# g IJKL# g IJKL# g jjjjjjjj# tttttttgĂ}'TK# g 'NHGKQ# gGjg ĂiGf'?G+`KQ# JF:IPRX F:RRSU F:RRMU JF:RRDU F:RRAU F:RRUN O0SEGMENTBLANK F:LIBR o KF:INRM F:EOVR F:EDV0 KF:EATL im MACRO (F510) @ig QCKŸ# JPh'E PJ' v@'V6. '/JJN0C  / . 'W6 IOπLRBKt KQE ./ . JlLRAQ K QH 1  !KOIK[g Q؂لKL JIOI#  JP JKL. ./'K )/ 'LR)/'Q + / !1 . RQ P)΄*1# g JP JIOIL 'L K 'RK '  RB+LA+ tt@tt?g ńOPQR# qO y P'&/afdQ. R # .c„JI. KL# gOWOWg G G G GDJ C @AC@IHI OJP Q R7J 0J K./aIW/aL./@W `GG G GG G@# JF:EOVR F:ESGL F:ENGA JF:EINA F:EDV0 F:EBAZ JF:EATL O0SEGMENTBLANK F:LIBR o VKF:ERRC F:ERRS im MACRO (F510) @igGgGgG$gG*gG2gG9gG=tt ARGUMENT TOO LARGEBO TH ARGUMENTS ZERO DIVI SION BY ZERONUMBER OF  ARGUMENTS NEGATIVE ARG UMENT SINGULARITY OVERFLOWJF:RCGO O0SEGMENTBLANK F:LIBR o %KF:ERRS F:XLYA im MACRO (F510) @ig pA  ptGBG t COMPUTED GO TOINDEX OUT OF RANGEJF:I4MP F:R4MP O0SEGMENTBLANK F:LIBR o pKF:XLYA im MACRO (F510) @igt@# g \)['GV' ) *3=)Y) ZXY XܠYG0GFON XYZX*2*Y*2"c deۀfIOSH[TNQ ghϞ''./G[QE  @!Q @ [QGG # G[[ @AQ ĂO NāքĂ# JF:I4DV F:R4DV O0SEGMENTBLANK F:LIBR o KF:INRM F:XLYA im MACRO (F510) @igt@# g G IJ'&' [J ӄJ'' _ X\`ab'#i' jJ@A G Ck I cۀdOSHIUNSӀef ОG%NO'$./РI3K @AQ GI3BG#  MII !1 E/IJt I. N# jY)Ꞌ )NOGggJhg Ÿ́h GONhq) ꞁmgg) G 'L @AQ ON@A@@ 6A 5g@AiLJi)  @ ON5jik0 # J GJIcdefwJ 1X !*.0G%N# ONfG $N# ONeG#N# ONd# JF:INRM O0SEGMENTBLANK F:LIBR o  im MACRO (F51; 0) @ig IJJJ/U# @JF:ISHF O0SEGMENTBLANK F:LIBR o im MACRO (F510) @ig @ QVSJN0C  @ASJN0C  # JF:R4NG O0SEGMENTBLANK F:LIBR o im MACRO (F510) @ig @AQ # JF:ROPN O0SEGMENTBLANK F:LIBR o KF:XTRM F:XOPN F:XMPP im MACRO (F510) @iOPENgAGĂt wIJKLMtItJF:REND O0SEGMENTBLANK F:LIBR o KF:XTRM F:XEND F:XMPP im MACRO (F510) @iEND FILEgAGĂtwtItJF:RBSP O0SEGMENTBLANK F:LIBR o KF:XTRM F:XBCK F:XMPP im MACRO (F510) @i BACKSPACE gAGĂtwtItJF:RINQ O0SEGMENTBLANK F:LIBR o KF:XTRM F:XENQ F:XMPP im MACRO (F510) @iINQUIRE gAGĂt wIJtItJF:RREW O0SEGMENTBLANK F:LIBR o KF:XTRM F:XREW F:XMPP im MACRO (F510) @iREWINDgAGĂtwtItJF:RCLS O0SEGMENTBLANK F:LIBR o KF:XTRM F:XCLS F:XMPP im MACRO (F510) @iCLOSE gAGĂtwItItJF:RHOM F:RLOM F:RCOM JF:RDOM F:RROM F:RAOM JF:R4OM F:RIOM F:RHUT JF:RLUT F:RCUT F:RDUT JF:RRUT F:RAUT F:R4UT JF:RIUT F:RETG F:RWIU JF:RWEU F:RRIU F:RREU O0SEGMENTBLANK F:LIBR o KF:XEBT F:XBTR F:XSRN KF:XSBW F:XSBR F:XGOU KF:XGIU F:XTRM F:XMPP im MACRO (F510) @igAGĂtt gAGĂtt  EKHwt ̠wE6CttItgAGĂt gAGĂt E# gE6 wtItggIgIg  Ig Ig Ig Ig  I@MNC@AG S NLƀFMFLy ItgggIgIgIgIgIgINIt E6IwFt N@ADFPE6A H+ H+DxPNP # @A LF# F# A` # RE AD EXTERNAL UNFORMATTED  READ INTERNAL UNFORMAT TED WRITE EXTERNAL UNF ORMATTEDWRITE INTERNAL UNFORMATTEDJF:RDLW F:RFSO F:RFWD JF:RFSW F:RFFD F:IOER JF:RFRW F:RLOL F:RCOL JF:RDOL F:RROL F:RAOL JF:R4OL F:RIOL F:RHUS JF:RLUS F:RCUS F:RDUS JF:RRUS F:RAUS F:R4US JF:RIUS F:RETF F:RWIF JF:RWEF F:RRIF F:RREF O0SEGMENTBLANK F:LIBR o KF:XGLS F:XASR F:XASW KF:XSRN F:XGOU F:XGIU KF:XTRM F:XMPP MF:RFD F:RFG F:RFE MF:RFF F:RFI F:RFL MF:RFZ im MACRO (F510) @igAGĂtt GTaRgAGĂtt  K1C,KEBbQ1ـK Kt RA’R'Ta@#RRE6  Itg  im MACRO (F510) @iSTOPPAUSE gGwtBt@# gñ@QCGt AĂ` pJC'WIĀ ŸāĂă@  j G 0%' *QGW t6  # t JF:RDMY O0SEGMENTBLANK F:LIBR o "im MACRO (F510) @ig ``pAAAą@@` WD BF CEE ESA bN6 FEFDpE p# JF:RGMY O0SEGMENTBLANK F:LIBR o 6KF:ERRS im MACRO (F510) @ig `pAAAąJă@@` @ QWD+F CEE E SA@N6FEFDpE p# Gt NUMBER OF ARGUMENTS JF:XGOU F:XGIU F:XTRM JF:XLYA F:XGNP F:XVPP JF:X1PP F:XMPP O0SEGMENTBLANK F:LIBR o KF:XECT F:ERRS im MACRO (F510) @ig `pB BB BBB B` SA@NSAG# G` t NUMBER OF ARGUMENTS g `p@@AąJă` + F CEE )N6ǡEESA @N6FFDmE p# g `pAAAJă` IE# g pGEF CGG GG SA@N6EFG p# g DA*` p*C)B@+# g DGQAGVHQ힆mDLIQG't VQM@QHN 6+ B+ t@ K'`I C *JS:V']GWt pĀ@# STATUS = :XXXX, IOg# g # F.zFF .zF# O0  0/x# JF:XECT O0SEGMENTBLANK F:LIBR o im MACRO (F510) @ig END OF FILE  I/O  HALTED NOT READY   WRITE PROTECT TIME O UT POWER FAILDDT  NOT AVAILABLE VOLUME NOT ON UNITVOLUME N OT FOUND LOGICAL UNIT NOT RELEASED A BAD CH ECK SUM BUNASSIGNED D EVICE CLUN NOT IN UAT DREACHED END OF MEDIA EHARDWAREF!ILLEGAL  OPERATION FOR THIS DEVIC E GNON-EXISTANT MEMOR Y ADDRESS HMEMORY ADD RESS IN SYSTEM AREA I DIRECTORY FULLJDISK N OT LABELEDKFILE ADDRE SS OVERFLOW L ILLEGAL  AUM AU NOT FOUNDNWR ITE DIRECT HIT END OF FI LEONOT EXTENDABLEP ILLEGAL FILE ADDRESSQ ALLOCATION TABLE FOULED  UPRSYSTEM USAGE ONLY  S FCB CHAIN BAD T FI LE OPEN U FILE NOT OPE N VOLD OR NEW WRONGV ILLEGAL FILE POINTERW UNIT NOT GIVENXUNAS SIGNED FCBYBUFFER HAS WRITE PENDINGZNO MOR E FREE SPACE[ BAD TYPE CODE \ABORT RTX  ACCESSFORMAT INVALID TRAILING COUNT UNABLE TO BACKSPACE  PAST EOFTOO MANY U NITSREAD AFTER WRITE CANNOT BACKSPACE NEW UNIT FILE ALREADY O PEN INVALID FILE NAM E FILE NOT FOUND INVALID LEADING COUNT  NON-EXISTANT UNIT  FILE ALREADY EXISTS  CANNOT DELETE PHYSICAL U NIT LOGICAL UNIT (UF ) NOT ASSIGNEDILLEGA L INPUT CHARACTER CA NNOT DELETE UNNAMED FILE ILLEGAL CHARACTER IN FORMAT %TOO MANY NES TED PARENTHESES IN FORMA T %UNMATCHED RIGHT PA RENTHESIS IN FORMAT  ILLEGAL REPEAT COUNT IN  FORMATHOLLERITH INPU T NUMERIC/LOGICAL TY PE MISMATCH ILLEGAL  MAG TAPE ACCESS OR FORM  #INVALID DIRECT ACCES S RECORD NUMBER LINE SIZE ERROR JF:XSNE F:ERCS F:ERRC JF:ERRS O0SEGMENTBLANK F:LIBR o KF:XSTP F:XASW F:XCAF im MACRO (F510) @iggAttg g A` ED @E , DAE@6C E@? /6~ @E6Ơ@@ @FtFu@#  FFE/-E6B  Gl/8Bz@ ̂B  O0ߞ  0BwE?6G PF AGt  ' C# '>B B|# H%'H# J %'JC# )6   #  ERROR AT : LI NE  CALLED FROM : IN SL JF:XSTP O0SEGMENTBLANK F:LIBR  o KE:MON im MACRO (F510) @igtJF:XGLS F:XPSE F:XCAF JF:XINT F:XENQ F:XSRN JF:XCLS F:XOPN F:XEND JF:XBCK F:XREW F:XEBT JF:XBTR F:XSBR F:XSBW JF:XASR F:XASW O0SEGMENTBLANK F:LIBR o JKI:IO E:SLU F:XDCR KF:XDDE F:XDCO F:XDUF KF:XDGF F:XSTF im MACRO (F510) @ig ` yNzO$ ` O+Nq M# gV[I T פMQπР1Nǀ DXN IMě @# tACg: 逆 LCKށCB.ЁCB$ǁCQB@# g: A L @GĄCQJBJCGQٞQ.CBXĄˁCQB G@gVIAФL  KK$@# g VIAͤL ĄKGg V LR$TCJLLUBLLKB@KKĄB@# g V LR$TLJ KC̄QA  @# EFGgVEŸ DEDo  EHE gGEe   F BF LI ' J+Rg ` yz+KS@#  @J G G' # @Ĉ G G'J G G'VI)TJI*T @KQL@<ć@ #  @6    @6   @o6 @<@?6 @_6À?6I 6  # Z @ @6ɀ     IЂG!AKĈ@ć  HĀ# Q G  ˀKŀ< K# @ G K# G  K# 6H/6- I I# @/6Ÿ # 6B/6 , # zyGIHSDIIH @QM+GuHLI ERG$T#  IG'   1 GLG& Ќ+G{L6E/6 G&G' = # KQ K# @SBBI# ` A# L @M@}ćѠ1OA Lx D M@|@Lć L#   t I8 I)I3WIWI ĀVA # WIWI éQWΤQԄPL]1A QX1AQ1CR LRP#  CISLOCt GGj GWI W IWII'I!I#I  I"QeI0QaI1U Q\@O6BUV Y?  sU@ DJQB #  R*QB R&# LG IG' +G {LL # /*DEOLNEDICOUN ?JF:XDCR F:XDDE F:XDCO JF:XDUF F:XDGF O0SEGMENTBLANK F:FMSC o KF:DELE F:CONN F:CREA KE:UF E:GFN im MACRO (F510) @ig) b# g# g# g# g# ttJF:XRDA O0SEGMENTBLANK F:LIBR::o KF:XFDA F:XNFU F:XFUT im MACRO (F510) @itg8bIttm*** FORTRAN.LIB REV F4m20 ***JF:XFCI F:XFCR F:XFDM JF:XFDE F:XFDS F:XFDA O0SEGMENTBLANK F:LIBR::o KF:XRDA im MACRO (F510) @igt g g g ggJF:XNFU F:XFUT O0SEGMENTBLANK F:LIBR::o 4im MACRO (F510) @ifgg4IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIA IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIB IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIC IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIID IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIE IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIF IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIG IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJ IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIK IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIL IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 MB085021815534390850218155343 850218155343 =F58002 VOLOS4/RTX FORTRAN PRODUCT DISK 84-93580-02 F440