Day-I/ 40777 0 0 0 11777312760 5013 5Day-I/.DS_Store100777 0 0 36004 11777307510 6616 0Bud1   estIlocbl  @ @ @ @01-TestIlocblobH(02-DerivativesIlocblob(02-Derivativesbwspblobbplist00 \WindowBounds[ShowSidebar]ShowStatusBar[ShowPathbar[ShowToolbar\SidebarWidth_{{255, 168}, {770, 438}} ".r94___math_funcs_MOD_qurt__gfortran_runtime_error_at_log_exp___math_funcs_MOD_cbrtLC0LC1_is_recursive.0.1544LC3LC4_is_recursive.1.1546EH_frame1Day-I/01-Test/Test100777 0 0 3625760 11777053420 7210 0 H__PAGEZERO(__TEXTpp__text__TEXT __stubs__TEXT__stub_helper__TEXT`p`__cstring__TEXTI __const__TEXT $ __eh_frame__TEXTHWHh__DATAp0p0 __dyld__DATAp8p__nl_symbol_ptr__DATA8p8p#__la_symbol_ptr__DATAHpHp%__data__DATA`q'`q__const__DATA8__bss5__DATA`__common__DATA __bss2__DATA__pu_bss5__DATA@p__pu_bss2__DATAH__LINKEDIT"0(xHI PUUx$H /usr/lib/dyldoL5$ )a$ * H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&ؿjHHH}HuHHHH9uH! ASLAS%^%^UHHtH5T H=  y H@H5lHp H@HHHHHPHHXHH`H~HhHxHpHrHxHlHHfHH`HHZH@HH5 H} H@HHHHHPHHXHH`HHhHHpHHxHHHHHH=Y H@H{H5 Hǐ H@HHHHHPHHXHH`HHhHHpHHxHHHHHH= HPH5` H H]HP=HHHH5e]H=^+ HHF]dHИ HHHUHPHUHPHUHPHUHP HUHP(HUHP0HUHP8HUHP@HUHPHHUHPPHUHPXHU@`EH HDžEDžDžHH HUHuHEHѺdH UHMHHH E~HEHtH HH H=/蔱 H=#\! H= UHH}HuHUEH։3 H5 ( UHH ptH5{ H= HH@T@HEHEHEEYEYEYEEHuHEAH^ HQ UHH ЃtH5? H=p H H;@HEHEHEEYEYEEHuHEAH H躠 IUHH H}AtH5 H=- HE  l Y EHEfHnUHH H}˂tH5 H= ; HE   Y EHErfHnUHSHXH0H(H(H@HtH(HHUH(HJ(H(HR HH)HHHUIIH0HRHtH0H HMH0Hq(H0HI HH)HHHMIIHuHDžH HHDžXH`HPHDž8HDž@H8Hq(HI HH)HHHHH΅u E$HuHDžx HHEHuHMHDžhHDžpHhH}HE HHEH}HMHEHEHMH~(Hv HH)HHHHHHy(HI HH)HHHHH9ɉMԃ}tXLH}II¸H97HIL2HUFHIJHUA9tHĉMEEHX[]UHATSHHXTHHHHH@HtHHHHHEHHHP(HHH@ HH)HHHEIIHUHDžP HHDž`HhHXHDž@HDžHH@HP(H@ HH)HHHHH‰E܋E܃H HhDžpHXHDž HDžDždH8 HDžDž`PH`HV HMHDžP LHHDž`HhHXHUH@HHH@H`H H`H H HhDžpHXHDž HDžDždH` HDžDž`PH`Hl HMHDžP LHHDž`HhHXHUH@HHH@H`H6 H`H H HhDžpHEHDžPHDžDždH HDžDž`PH`H H`H5h H E܃|H|H`HHv H`H5) HU H`H H HhDžpHXHDž HDžDždHEHDžPDž`PH`H HMHDžP LHHDž`HhHXHUH@HHH@H`Hm H`H: Hİ[A\]UHHHHH H(Dž0HHDž HDž`Dž$H HhDžpDž PH H HH HH H Hk UHATSHH8H0H($H0H@HtHH0HHEH0HP(H0H@ HH)HHHEIIH8H HMHDžP HHDž`HhHXHDž@HDžHH@HH(H@ HH)HHHHHHHEHMHE HDžpHDžxHpH HMHE LHHEHMHUHUHUHEH(t H(HH(t$HuHpH HpHtH H[A\]UHAWAVAUATSHX HHHHH@HtIHHHEHHP(HH@ HH)HHHELHHHH@HtHHHHEHHP(HH@ HH)HHHEIIHUHDž LHDžHHHDžHDžHHP(H@ HH)HHHHH‰EHUHDž HHDžHHHDžHDžHHP(H@ HH)HHHHH‰EE9E}EEE;EEHEHcMMIڸH98HIL1HMFHIN,HMB A9tHÉU}t } HpInte@ger @vect@ or a@sser@tion@ fai@led:HpH HH `HHHHHpHPH\HѺ H \HHHDH IHP\\yL AHщL# \~HPHtH HH`HlHH \PlHHHDH` IH`l\P\xlIALL{ l~H`HtH LHtH \PlD4IcH=vHp LH :IcHpLH Icƺ H)IcHpHȾ H LHtHh HpH@HLHѺ H LHHHDH0 IH@LLL AL[ L~H@HtH LHHHDH IŋLLzL r ALL LHtH{ LDpIcH=vHp LHg :IcHpLHP Icƺ H)IcHpHȾ H1 LHtH EqHpH0HHHH9L9#HILHuBYXHHQf.zf.t f( EؐHEfHnH8[A\A]]UHSH8H}HuHEH@HtHUHHUHUHJ(HUHR HH)HHHUHHHU(x6 HUHƸH97HHLH}B  fTf.@@u&HH~ H HfHnH9XHHLH}B fTf.@@t!HHLH}B  fTHEfWHLEHǸL9*HHH 2HU ; fTXHEYfWHLEHǸL9"HHH 2HUYXHQf.zf.t f( EHEfHnH8[]UHH}HuHE fTEHEfHn]UHSHHpHpH@HtHpHHUHpHJ(HpHR HH)HHHUHpHR0HpHq@HpHI8HH)HHHMHHII)H}HuHEHHEH}HMHHEHuHMHDžxHEHxHq(HI HH)HHHHHΉMH}HuHEHHEH}HMHHEHuHMHDžxHEHxHq@HI8HH)HHHHHΉMEME9MzuE9uU}HcIL}HcHLNH}B<tEEEE&9u@@Et9M@@EtEH[]UHSH}HEH@HtHUHHUHUHJ(HUHR HH)HHHUHHHMHEHHEHMHUHEHEHUHJ(HR HH)HHHHHщUEUE9U8MHcHH49HM tEE9UɃEtʋE[]UHH}HEt EEE]UHAUATSHHH}HuUMHMUHuHEH HMUHuHEHϮ ŰEHHHDH IHuЋMHUEDE̋}DIAHщL E܅~HEHtH螮 E̅~HEHtH膮 ŰED,]tNIcHcH9rHcHELHp /IcHELH\ HcIcH)IcHE HE LHtH HH[A\A]]UHATSHHXTHHHHH@HtHHHHHEHHHP(HHH@ HH)HHHEIIHUHDžPHHDž`HhHXHDž@HDžHH@HP(H@ HH)HHHHH‰E܋E܃Hn HhDžp`,HXHDžHDžDždH HDžDž`PH`HG HMHDžPLHHDž`HhHXHUH@HHH@H`H H`Hޫ H HhDžpb,HXHDžHDžDždH? HDž$Dž`PH`H] HMHDžPLHHDž`HhHXHUH@HHH@H`H' H`H H HhDžpd,HEHDžPHDžDždH| HDžDž`PH`Hv H`H5S H苪 E܃|H|H`HHg H`H5 HF H`H H HhDžpe,HXHDžHDžDždHEHDžPDž`PH`H蔩 HMHDžPLHHDž`HhHXHUH@HHH@H`H^ H`H+ Hİ[A\]UHATSHHXTHHHHH@HtHHHHHEHHHP(HHH@ HH)HHHEIIHUHDžPHHDž`HhHXHDž@HDžHH@HP(H@ HH)HHHHH‰E܋E܃HȮ HhDžpC,HXHDžHDžDždH۴ HDžDž`PH`H衧 HMHDžPLHHDž`HhHXHUH@HHH@H`Hk H`H8 Hޭ HhDžpE,HXHDžHDžDždH HDž$Dž`PH`H跦 HMHDžPLHHDž`HhHXHUH@HHH@H`H聦 H`HN H HhDžpG,HEHDžPHDžDždHF HDžDž`PH`HХ H`H5 H E܃|H|H`HH H`H5ز H蠥 H`Hg H HhDžpH,HXHDžHDžDždHEHDžPDž`PH`H HMHDžPLHHDž`HhHXHUH@HHH@H`H踤 H`H腤 Hİ[A\]UHATSHHXTHHHHH@HtHHHHHEHHHP(HHH@ HH)HHHEIIHUHDžP HHDž`HhHXHDž@HDžHH@HP(H@ HH)HHHHH‰E܋E܃H" HhDžp',HXHDžHDžDždH HDžDž`PH`H HMHDžP LHHDž`HhHXHUH@HHH@H`HŢ H`H蒢 H8 HhDžp),HXHDžHDžDždHǯ HDžDž`PH`H HMHDžP LHHDž`HhHXHUH@HHH@H`Hۡ H`H訡 HN HhDžp+,HEHDžPHDžDždH HDžDž`PH`H* H`H5 H? E܃|H|H`HH H`H5 H H`H Hl HhDžp,,HXHDžHDžDždHEHDžPDž`PH`HH HMHDžP LHHDž`HhHXHUH@HHH@H`H H`Hߟ Hİ[A\]UHHHHH^ H(Dž0,HHDžHDž`Dž$H+ HhDžpDž PH H7 HH HHU H H UHHHHH H(Dž0,HHDžHDž`Dž$Ho HhDžpDž PH Hs HH HH葞 H HL UHHHHH֤ H(Dž0+HHDžHDž`Dž$H HhDžpDž PH H话 HH HHǝ H H舝 UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHH@xHHHHHHH)HHHEHHH+H+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHxHH@xHHHHHHH)HHHpHHH+H+H+HH+HHUHMHuLEH}HDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžLHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHhHhHHHIHxHUHMHuH}LEHDžHHDžHHHHDžHHHHDž H(HHHDž8H@H0HHDžPLXHHHDžHDžHHP@H@8HH)HHHHHHH`HxH`HHHIHpHUHMHuH}LEHDžpHHDžHHxHHDžHHHHDžHHHHDžHHHHDžLHHDž`HDžhH`HPXH@PHH)HHPHHIHHXHpHXHHHIHhHUHMHuH}LEHDžHHDžHHHHDž(H0H HHDž@HHH8HHDžXH`HPHHDžpLxHhHDžHDžHHPpH@hHH)HHPHHIHHPHhHPHHHIH`HUHMHuH}LEHDžHHDžHHHHDžHHHHDžHHHHDžHHHHDžLHHDžHDžHHHHH)HHPHHIHHHH`HHHHHHHHDH H@HxHH+pH+hHH+`HXHDž HDžHDžHDžH0HHDžHUHMHuHxLpHDžLHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HHDžLHxHEHLHHHH HDž HDžHDžHDžHHHDžHUHMHuH}LEHDžLHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HHDžLHxHEHLHHHH HDž HDžHDžHDžHHHDžHDž HDžHDžHDžH0HHDžHHHHHPArra@ys a@re n@ ot c@onfo@rmabf@le@.HPHHH HHyHHHHPHH討 HH}HHHHHY HHPHUHHHMH@H}H8HxH0HpH(HH HXHHHHHAL;(HIHPHHHIH HHH`IHHHAL;0XHIHHHHIHHHHhIHHHH;8HHLIHHLIHpHLIžH;@HHN$8HHJ0HxHN(H;HKNHHJ HEHHHHE \H@BHHdH II+HhH`HXHPLHHDžHXHDž H(HDžHxHDž8H@H0HpHDžPHXHHHhHDžhHpH`H`HDžLHxH@HHHHH8H8HH HHHHHUHMLEHxHpHHHHHHHILLLvHDžHDžHDž HH(HHHDHHH0HDž8HH@HHHDHHHHHHDžPHHXHHHDHHHH`HDžhLpIGHIGHHxHDžLIFHIFHHD҃Dȃ!D!‰!‰ȃ!Ѕt HHHDHh HHDžHHHHAM9 HxHIHICHHHHICHHHHAM9H`IHHHxI@HHHHpI@HHHHhH;2HHHHxHH`HGHHpHHXHGHHhHHPH;H0HL`IHFHLXIHFHHPHùH;iLN !HAHJ(HEHAHHHE \ [ fTf.CHH2HITIHHDž HDžHDžHDžH HHDžLEH}HuHMHUHDžHHDžLHHHDž(H0H HHDž@HHH8HHDžXH`HPHHDžpHxHhHDžHDžHLHr A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH蘆 HHtH HHm HHHDH^m HHIAH z Hމl ~HHtHl PHPѺHH菽HHtHl HPH5Lz H_HHPHH:j HH}HHHHHi H@HtHPl HĈ[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHH@xHHHHHHH)HHHEHHH+H+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHxHH@xHHHHHHH)HHHpHHH+H+H+HH+HHUHMHuLEH}HDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžLHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHhHhHHHIHxHUHMHuH}LEHDžHHDžHHHHDžHHHHDž H(HHHDž8H@H0HHDžPLXHHHDžHDžHHP@H@8HH)HHHHHHH`HxH`HHHIHpHUHMHuH}LEHDžpHHDžHHxHHDžHHHHDžHHHHDžHHHHDžLHHDž`HDžhH`HPXH@PHH)HHPHHIHHXHpHXHHHIHhHUHMHuH}LEHDžHHDžHHHHDž(H0H HHDž@HHH8HHDžXH`HPHHDžpLxHhHDžHDžHHPpH@hHH)HHPHHIHHPHhHPHHHIH`HUHMHuH}LEHDžHHDžHHHHDžHHHHDžHHHHDžHHHHDžLHHDžHDžHHHHH)HHPHHIHHHH`HHHHHHHHDHPc H@HxHH+pH+hHH+`HXHDž HDžHDžHDžH0HHDžHUHMHuHxLpHDž LHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HHDžLHxHEHLHHHHfa HDž HDžHDžHDžHHHDžHUHMHuH}LEHDžLHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HHDžLHxHEHLHHHH0` HDž HDžHDžHDžHHHDžHDž HDžHDžHDžH0HHDžHHHHpHPArra@ys a@re n@ ot c@onfo@rmabf@le@.HPHHH HHyHHHHPHH] HH}HHHHH\ HHPHUHHHMH@H}H8HxH0HpH(HH HXHHHHHAL;(HIHPHHHIH HHH`IHHHAL;0ZHIHHHHIHHHHhIHHHH;8HHLIHHLIHpHLIžH;@HHN$8HHJ0HxHN(H;HMNHHJ HE*HHHHE \H@BHHbHII)HhH`HXHPLHHDžHXHDž H(HDžHxHDž8H@H0HpHDžPHXHHHhHDžhHpH`H`HDžLHxH@HHHHH8H8HHbi HHHHHUHMLEHxHpHHHHHHHILLLvHDžHDžHDž HH(HHHDHHH0HDž8HH@HHHDHHHHHHDžPHHXHHHDHHHH`HDžhLpIGHIGHHxHDžLIFHIFHHD҃Dȃ!D!‰!‰ȃ!Ѕt HHHDHY HHDžHHHHAM9 HxHIHICHHHHICHHHHAM9H`IHHHxI@HHHHpI@HHHHhH;4HHHHxHH`HGHHpHHXHGHHhHHPH;H0HL`IHFHLXIHFHHPHùH;kLN !HAHJ(HE*HAHHHE \ e fTf.CHH0HIRIHHDž HDžHDžHDžH HHDžLEH}HuHMHUHDžHHDžLHHHDž(H0H HHDž@HHH8HHDžXH`HPHHDžpHxHhHDžHDžHLHU A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHU HHtHU HHHPArra@ys a@re n@ ot c@onfo@rmabf@le@.HPHHH HHyHHHHPHHt+ HH}HHHHH%+ HHPHUHHHMH@H}H8HxH0HpH(HH HXHHHHHAL;(HIHPHHHIH HHH`IHHHAL;0^HIHHHHIHHHHhIHHHH;8HHLIHHLIHpHLIžH;@HHN$8HHJ0HxHN(H;HQNHHJ HEHHHHE \ZH@BHH^HII%HhH`HXHPLHHDžHXHDž H(HDžHxHDž8H@H0HpHDžPHXHHHhHDžhHpH`H`HDžLHxH@HHHHH8H8HH7 HHE]"HHHUHMLEHxHpHHHHHHHILLLvHDžHDžHDž HH(HHHDHHH0HDž8HH@HHHDHHHHHHDžPHHXHHHDHHHH`HDžhLpIGHIGHHxHDžLIFHIFHHD҃Dȃ!D!‰!‰ȃ!Ѕt HHHDH.( HHDžHHHHAM9HxHIHICHHHHICHHHHAM9H`IHHHxI@HHHHpI@HHHHhH;7HHHHxHH`HGHHpHHXHGHHhHHPH;H0HL`IHFHLXIHFHHPHùH;nLN !HAHJ(HEHAHHHE \ 14 TZf.CHH-HIOIHHDž HDžHDžHDžH HHDžLEH}HuHMHUHDžHHDžLHHHDž(H0H HHDž@HHH8HHDžXH`HPHHDžpHxHhHDžHDžHLH3$ A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHY# HHtH# HHWs HĈ[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHH@xHHHHHHH)HHHEHHH+H+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHxHH@xHHHHHHH)HHHpHHH+H+H+HH+HHUHMHuLEH}HDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžLHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHhHhHHHIHxHUHMHuH}LEHDžHHDžHHHHDžHHHHDž H(HHHDž8H@H0HHDžPLXHHHDžHDžHHP@H@8HH)HHHHHHH`HxH`HHHIHpHUHMHuH}LEHDžpHHDžHHxHHDžHHHHDžHHHHDžHHHHDžLHHDž`HDžhH`HPXH@PHH)HHPHHIHHXHpHXHHHIHhHUHMHuH}LEHDžHHDžHHHHDž(H0H HHDž@HHH8HHDžXH`HPHHDžpLxHhHDžHDžHHPpH@hHH)HHPHHIHHPHhHPHHHIH`HUHMHuH}LEHDžHHDžHHHHDžHHHHDžHHHHDžHHHHDžLHHDžHDžHHHHH)HHPHHIHHHH`HHHHHHHHDH> H@HxHH+pH+hHH+`HXHDž HDžHDžHDžH0HHDžHUHMHuHxLpHDžLHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HHDžLHxHEHLHHHHT HDž HDžHDžHDžHHHDžHUHMHuH}LEHDžLHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HHDžLHxHEHLHHHH HDž HDžHDžHDžHHHDžHDž HDžHDžHDžH0HHDžHHHHpHPArra@ys a@re n@ ot c@onfo@rmabf@le@.HPHHH HHyHHHHPHH HH}HHHHH HHPHUHHHMH@H}H8HxH0HpH(HH HXHHHHHAL;(HIHPHHHIH HHH`IHHHAL;0^HIHHHHIHHHHhIHHHH;8HHLIHHLIHpHLIžH;@HHN$8HHJ0HxHN(H;HQNHHJ HEZHHHHE \H@BHH^HII%HhH`HXHPLHHDžHXHDž H(HDžHxHDž8H@H0HpHDžPHXHHHhHDžhHpH`H`HDžLHxH@HHHZ8H8HHD HH)HHHUHMLEHxHpHHHZHHHHILLLvHDžHDžHDž HH(HHHDHHH0HDž8HH@HHHDHHHHHHDžPHHXHHHDHHHH`HDžhLpIGHIGHHxHDžLIFHIFHHD҃Dȃ!D!‰!‰ȃ!Ѕt HHHDH HHDžHHHHAM9HxHIHICHHHHICHHHHAM9H`IHHHxI@HHHHpI@HHHHhH;8HHHHxHH`HGHHpHHXHGHHhHHPH;H0HL`IHFHLXIHFHHPHùH;oLN !HAHJ(HEZHAHHHE \ fTf.CHH,HINIHHDž HDžHDžHDžH HHDžLEH}HuHMHUHDžHHDžLHHHDž(H0H HHDž@HHH8HHDžXH`HPHHDžpHxHhHDžHDžHLH A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH HHtHX HH(' H@HtH) HĈ[A\A]A^A_]UHAWAVAUATSHxHHHHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHH@xHHHHHHH)HHHEHHH+H+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHxHH@xHHHHHHH)HHHpHHH+H+H+HH+HHUHMHuLEH}HDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžLHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHhHhHHHIHHUHMHuH}LEHDžHHDžHHHHDžHHHHDž H(HHHDž8H@H0HHDžPLXHHHDžHDžHHP@H@8HH)HHHHHHH`HH`HHHIHHUHMHuH}LEHDžpHHDžHHxHHDžHHHHDžHHHHDžHHHHDžLHHDž`HDžhH`HPXH@PHH)HHPHHIHHXHHXHHHIHxHUHMHuH}LEHDžHHDžHHHHDž(H0H HHDž@HHH8HHDžXH`HPHHDžpLxHhHDžHDžHHPpH@hHH)HHPHHIHHPHxHPHHHIHpHUHMHuH}LEHDžHHDžHHHHDžHHHHDžHHHHDžHHHHDžLHHDžHDžHHHHH)HHPHHIHHHHpHHHHHHHHDH H@HHH+H+xHH+pHh H0HlH0HtH HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlH6 lHHHDHV HH`llIAH Hމy l~H`HtH lPHѺHHHHtHŵ HH5D HWH0HHH2 HPH0}HHHHPH HpHtHH H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHO HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtH蜭 HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHHVHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH HPH0}HHHHPH蝨 H HHUHHMHH}HHEHHUHHHHH*H(HAL;_LIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;tHIHHHHLIùH;:J4HHHHE f(\f(Hp HHI4IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8HHHHPHµ HHMH HLEH}HuHMHUHH*xH8pIXHHhHH`HHXHHPHDž`HDžhHDžpHxHCHDHSHHDžHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDH HPHDžXH(HHAL;PHHIH@ICIHHH8AL;XQHIH@HH0IBIH8HH(AL;`HIH0HH I@IH(HHH;hHHH HHHFIHHHH9hLPHHHAHHHHHEx\f( fTpf.AHHCIIIXHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH謢 A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHHҡ HPHtHN H0HlH0HtH% HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlHF lHHHDHf HH`llIAH ʮ Hމ艠 l~H`HtH lPHѺHHHHtHՠ HH5T HgH0HHHB HPH0}HHHHPH HpHtHX H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDH_ HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtH謘 HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHHfHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH HPH0}HHHHPH譓 H HHUHHMHH}HHEHHUHHHHHH(HAL;hLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;}HIHHHHLIùH;@J<HHHHEZf(\f(HpHHzI+IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8HHHHPHˠ HHVH HLEH}HuHMHUHHxH8pIXHHhHH`HHXHHPHDž`HDžhHDžpHxHCHDHSHHDžHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDH$ HPHDžXH(HHAL;PHHIH@ICIHHH8AL;XVHIH@HH0IBIH8HH(H;`HHH0HH HGIH(HHH;hHHH HHHFIHHHH9nLPLIHAHHHHHEZx\f( fTpf.CHH=HIISHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH貍 A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH، HPHtHT H0HlH0HtH+ HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlHL lHHHDHl HH`llIAH Й Hމ菋 l~H`HtH lPHѺHHHHtHۋ HH5Z HmH0HHHH HPH0}HHHHPH HpHtH^ H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHe HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtH貃 HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHHlHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH HPH0}HHHHPH~ H HHUHHMHH}HHEHHUHHHHHH(HAL;fLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;{HIHHHHLIùH;>J<HHHHE(\(ZHpHH|I-IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8HHHHPHӋ HH^H HLEH}HuHMHUHH|H8pIXHHhHH`HHXHHPHDž`HDžhHDžpHxHCHDHSHHDžHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDH,| HPHDžXH(HHAL;PHHIH@ICIHHH8AL;XTHIH@HH0IBIH8HH(H;`HHH0HH HGIH(HHH;hHHH HHHFIHHHH9lLPLIHAHHHHHE|\( TZpf.CHH?HIIUHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LHx A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHHw HPHtH^x H0HlH0HtH5x HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlHVw lHHHDHvw HH`llIAH ڄ Hމv l~H`HtHw lPHѺHHHHtHv HH5d HwH0HHHRt HPH0}HHHHPHt HpHtHhv H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHoo HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtHn HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH$m HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHHv}HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH j HPH0}HHHHPHi H HHUHHMHH}HHEHHUHHHHH*H(HAL;fLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;{HIHHHHLIùH;>J<HHHHE (\(ZHp HH|I-IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8HHHHPHv HHfH HLEH}HuHMHUHH*|H8pIXHHhHH`HHXHHPHDž`HDžhHDžpHxHCHDHSHHDžHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDH2g HPHDžXH(HHAL;PHHIH@ICIHHH8AL;XTHIH@HH0IBIH8HH(H;`HHH0HH HGIH(HHH;hHHH HHHFIHHHH9lLPLIHAHHHHHE|\( s TZpf.CHH?HIIUHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LHc A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHHb HPHtHdc H0HlH0HtH;c HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlH\b lHHHDH|b HH`llIAH o Hމa l~H`HtHb lPHѺHH譲HHtHa HH5jo H}H0HHHX_ HPH0}HHHHPH _ HpHtHna H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHuZ HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtHY HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH*X HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHH|hHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHU HPH0}HHHHPHT H HHUHHMHH}HHEHHUHHHHHH(HAL;_LIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;tHIHHHHLIùH;:J4HHHHE f(\f(Hp HHI4IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8ZHHPHa HHmH HLEH}HuHMHUHHxH8ZpIXHHhHH`HHXHHPHDž`HDžhHDžpHxHCHDHSHHDžHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDH5R HPHDžXH(HHAL;PHHIH@ICIHHH8AL;XQHIH@HH0IBIH8HH(AL;`HIH0HH I@IH(HHH;hHHH HHHFIHHHH9hLPHHHAHHHHHEx\f( ^ fTpf.AHHCIIIXHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LHN A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHHM HPHtHjN H0HlH0HtHAN HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlHbM lHHHDHM HH`llIAH Z HމL l~H`HtH#M lPHѺHH賝HHtHL HH5pZ H胝H0HHH^J HPH0}HHHHPHJ HpHtHtL H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDH{E HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtHD HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH0C HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHHSHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH@ HPH0}HHHHPH? H HHUHHMHH}HHEHHUHHHHHZH(HAL;_LIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;tHIHHHHLIùH;:J4HHHHE f(\f(Hp HHI4IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8ZHHPHL HHmrH HLEH}HuHMHUHHZxH8ZpIXHHhHH`HHXHHPHDž`HDžhHDžpHxHCHDHSHHDžHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDH/= HPHDžXH(HHAL;PHHIH@ICIHHH8AL;XQHIH@HH0IBIH8HH(AL;`HIH0HH I@IH(HHH;hHHH HHHFIHHHH9hLPHHHAHHHHHEx\f( I fTpf.AHHCIIIXHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH9 A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH8 HPHtHd9 H0HlH0HtH;9 HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlH\8 lHHHDH|8 HH`llIAH E Hމ7 l~H`HtH8 lPHѺHH譈HHtH7 HH5jE H}H0HHHX5 HPH0}HHHHPH 5 HpHtHn7 H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHu0 HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtH/ HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH*. HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHH|>HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH+ HPH0}HHHHPH* H HHUHHMHH}HHEHHUHHHHH*H(HAL;_LIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;tHIHHHHLIùH;:J4HHHHE f(\f(Hp HHI4IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8ZHHPH7 HHk]H HLEH}HuHMHUHH*xH8ZpIXHHhHH`HHXHHPHDž`HDžhHDžpHxHCHDHSHHDžHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDH1( HPHDžXH(HHAL;PHHIH@ICIHHH8AL;XQHIH@HH0IBIH8HH(AL;`HIH0HH I@IH(HHH;hHHH HHHFIHHHH9hLPHHHAHHHHHEx\f( 4 fTpf.AHHCIIIXHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH$ A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH# HPHtHf$ H0HslH0HtH=$ HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlH^# lHHHDH~# HH`llIAH 0 Hމ" l~H`HtH# lPHѺHHsHHtH" HH5l0 HsH0HHHZ HPH0}HHHHPH HpHtHp" H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHw HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtH HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH, HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHH~)HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH HPH0}HHHHPH H HHUHHMHH}HHEHHUHHHHHH(HAL;hLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;}HIHHHHLIùH;@J<HHHHEZf(\f(HpHHzI+IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8ZHHPH" HHfHH HLEH}HuHMHUHHxH8ZpIXHHhHH`HHXHHPHDž`HDžhHDžpHxHCHDHSHHDžHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDH. HPHDžXH(HHAL;PHHIH@ICIHHH8AL;XVHIH@HH0IBIH8HH(H;`HHH0HH HGIH(HHH;hHHH HHHFIHHHH9nLPLIHAHHHHHEZx\f(  fTpf.CHH=HIISHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH HPHtH^ H0H^lH0HtH5 HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlHV lHHHDHv HH`llIAH  Hމ l~H`HtH lPHѺHH^HHtH HH5d Hw^H0HHHR HPH0}HHHHPH HpHtHh H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHo HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtH HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH$ HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHHvHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH  HPH0}HHHHPH H HHUHHMHH}HHEHHUHHHHHH(HAL;fLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;{HIHHHHLIùH;>J<HHHHE(\(ZHpHH|I-IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8ZHHPH HH`3H HLEH}HuHMHUHH|H8xIXHHpHHhHH`HHXHDž`HDžhHDžpHxHCHDHSHHDžHpHHpHHDHpHHHHDžHhHHhHHDHhHHHHDžH`HH`HHH`HHHHDžHXHHXHHHXHHHDʃDЃ!D!‰!‰!Ѕt HHHDH. HPHDžXH(HPAL;XHHIHHICIHHH@AL;`NHIHHHH8IBIH@HH0AL;hHIH8HH(I@IH0HH H;pHHH(HHHFIH HHH9eLPHHHAHPHHHE|\( Tx.AHHFIII[HPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH HPHtHf H0HIlH0HtH= HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlH^ lHHHDH~ HH`llIAH  Hމ l~H`HtH lPHѺHHIHHtH HH5l HIH0HHHZ HPH0}HHHHPH HpHtHp H[A\A]A^A_]UHAWAVAUATSHHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž0H(HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHw HpHHH+H+HH+HHDž HDžHDžHDžHDžHDžHyHHHHtH HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H H(HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH, HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHH~HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH HPH0}HHHHPH H HHUHHMHH}HHEHHUHHHHH*H(HAL;fLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;{HIHHHHLIùH;>J<HHHHE (\(ZHp HH|I-IIHELEH}HuHxHDž`HHDžpHxHDžhHHDžLHHHDžHHHHDžHHHHDžHHHpHPHXH8ZHHPH HHfH HLEH}HuHMHUHH*|H8xIXHHpHHhHH`HHXHDž`HDžhHDžpHxHCHDHSHHDžHpHHpHHDHpHHHHDžHhHHhHHDHhHHHHDžH`HH`HHH`HHHHDžHXHHXHHHXHHHDʃDЃ!D!‰!‰!Ѕt HHHDH2 HPHDžXH(HPAL;XHHIHHICIHHH@AL;`NHIHHHH8IBIH@HH0AL;hHIH8HH(I@IH0HH H;pHHH(HHHFIH HHH9eLPHHHAHPHHHE|\( Tx.AHHFIII[HPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH(HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH HPHtHj H0H4lH0HtHA HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlHb lHHHDH HH`llIAH Hމ l~H`HtH# lPHѺHH4HHtH HH5p H4H0HHH^ HPH0}HHHHPH HpHtHt H[A\A]A^A_]UHAWAVAUATSHH8H0H($H0H@HtH(H0HHEH0HP(H0H@ HH)HHHEH0Lx0H0HP@H0H@8HH)HHHEH0LpHH0HPXH0H@PHH)HHHEH0Lh`H0HPpH0H@hHH)HHHEH0L`xH0HH0HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž H(HDž0L8H(LHDžHHPH@LHDž`HhHXLHDžxHHpLHDžHHHDžHDžHHP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDž H(HHDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDž@H(HDžPLXHHLHDžhHpH`LHDžHHxLHDžHHLHDžHHHDž0HDž8H0HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDžHHLHDž(H0H LHDž@HHH8HDžHDžHHHHH)HHHHHHHxHHxHHHHHHDH HpHHH+H+HH+HHHhHDž HDžHDžHDžHDžHDžHyHpHHHtH HDž HDžHDžHDžHPHHDžHUHMH}LMLEHDžPH H(HDž`HhHXLHDžxHHpLHDžHHLHDžLHLHDžLHHEH@HHH@HHH' HDž HDžHDžHDžHPHHDžHDž HDžHDžHDžHpHHDžHHHHyHpArra@ys a@re n@ ot c@onfo@rmabf@le@.HpHHH HHyHHH0HpHH H@H0}HHHH@H H HHUHHMHH}HHEHHUHHHH8H(HAL;_LIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;tHIHHHHLIùH;:J4HHHHE f(\f(Hp HHI4IIHELEH}HuHxHDžPHHDž`HhHDžXHHDžxLHpHHDžHHHHDžHHHHDžHHHpH@HHHhHxHxH@H HHu H HLEH}HuHMHUH8xhpIXHHhHH`HHXHHPHDžPHDžXHDž`HhHCHDHSHpHDžxHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDHF H@HDžHH(HHAL;PHHIH@ICIHHH8AL;XQHIH@HH0IBIH8HH(AL;`HIH0HH I@IH(HHH;hHpHH HHHFIHHHH9hL@HHHAHHHHHEx\f( fTpf.AHHCIIIXH@HDž HDžHDžHDžH`HHDžLEH}HuHMHUHDž@H(HDžPLXHHLHDžhHpH`LHDžHHxLHDžHHLHDžHHHDž0HDž8H0LH A$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH H@HtH{ H HdH HtHR HpFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HpH'HH HxHHH(H($HPH\Hs \HHHDH HHP\\IAH Hމ \~HPHtH4 \PHpѺHHHHtH HpH5 HH0HpHHo H@H0}HHHH@H HpHtH H[A\A]A^A_]UHAWAVAUATSHH8H0H($H0H@HtH(H0HHEH0HP(H0H@ HH)HHHEH0Lx0H0HP@H0H@8HH)HHHEH0LpHH0HPXH0H@PHH)HHHEH0Lh`H0HPpH0H@hHH)HHHEH0L`xH0HH0HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž H(HDž0L8H(LHDžHHPH@LHDž`HhHXLHDžxHHpLHDžHHHDžHDžHHP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDž H(HHDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDž@H(HDžPLXHHLHDžhHpH`LHDžHHxLHDžHHLHDžHHHDž0HDž8H0HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDžHHLHDž(H0H LHDž@HHH8HDžHDžHHHHH)HHHHHHHxHHxHHHHHHDH HpHHH+H+HH+HHHhHDž HDžHDžHDžHDžHDžHyHpHHHtH HDž HDžHDžHDžHPHHDžHUHMH}LMLEHDžPH H(HDž`HhHXLHDžxHHpLHDžHHLHDžLHLHDžLHHEH@HHH@HHH8 HDž HDžHDžHDžHPHHDžHDž HDžHDžHDžHpHHDžHHHHHpArra@ys a@re n@ ot c@onfo@rmabf@le@.HpHHH HHyHHH0HpHH H@H0}HHHH@H H HHUHHMHH}HHEHHUHHHH8ZH(HAL;_LIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;tHIHHHHLIùH;:J4HHHHE f(\f(Hp HHI4IIHELEH}HuHxHDžPHHDž`HhHDžXHHDžxLHpHHDžHHHHDžHHHHDžHHHpH@HHHhHxHxH@H HHH HLEH}HuHMHUH8ZxhpIXHHhHH`HHXHHPHDžPHDžXHDž`HhHCHDHSHpHDžxHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDHK H@HDžHH(HHAL;PHHIH@ICIHHH8AL;XQHIH@HH0IBIH8HH(AL;`HIH0HH I@IH(HHH;hHpHH HHHFIHHHH9hL@HHHAHHHHHEx\f( fTpf.AHHCIIIXH@HDž HDžHDžHDžH`HHDžLEH}HuHMHUHDž@H(HDžPLXHHLHDžhHpH`LHDžHHxLHDžHHLHDžHHHDž0HDž8H0LH޻ A$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH H@HtH耻 H H dH HtHW HpFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HpH'HH HxHHH(H($HPH\Hx \HHHDH蘺 HHP\\IAH Hމ軹 \~HPHtH9 \PHpѺHH HHtH HpH5 H H0HpHHt H@H0}HHHH@H% HpHtH芹 H[A\A]A^A_]UHAWAVAUATSHH8H0H($H0H@HtH(H0HHEH0HP(H0H@ HH)HHHEH0Lx0H0HP@H0H@8HH)HHHEH0LpHH0HPXH0H@PHH)HHHEH0Lh`H0HPpH0H@hHH)HHHEH0L`xH0HH0HHH)HHHEH(HL)L)L)HL)H LEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHLEH}HuHMHUHDž H(HDž0L8H(LHDžHHPH@LHDž`HhHXLHDžxHHpLHDžHHHDžHDžHHP@H@8HH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDžH(HDžLHLHDžHHLHDžHHLHDžHHLHDž H(HHDžHDžHHPXH@PHH)HHHHHHHEHHEHHHIHLEH}HuHMHUHDž@H(HDžPLXHHLHDžhHpH`LHDžHHxLHDžHHLHDžHHHDž0HDž8H0HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH(HDžHHLHDžLHLHDžHHLHDž(H0H LHDž@HHH8HDžHDžHHHHH)HHHHHHHxHHxHHHHHHDH虲 HpHHH+H+HH+HHHhHDž HDžHDžHDžHDžHDžHyHpHHHtHձ HDž HDžHDžHDžHPHHDžHUHMH}LMLEHDžPH H(HDž`HhHXLHDžxHHpLHDžHHLHDžLHLHDžLHHEH@HHH@HHH= HDž HDžHDžHDžHPHHDžHDž HDžHDžHDžHpHHDžHHHHHpArra@ys a@re n@ ot c@onfo@rmabf@le@.HpHHH HHyHHH0HpHH% H@H0}HHHH@H֬ H HHUHHMHH}HHEHHUHHHH8*H(HAL;_LIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHHIHHHH;tHIHHHHLIùH;:J4HHHHE f(\f(Hp HHI4IIHELEH}HuHxHDžPHHDž`HhHDžXHHDžxLHpHHDžHHHHDžHHHHDžHHHpH@HHHhHxHxH@H HHH HLEH}HuHMHUH8*xhpIXHHhHH`HHXHHPHDžPHDžXHDž`HhHCHDHSHpHDžxHhHHhHHDHhHHHHDžH`HH`HHDH`HHHHDžHXHHXHHHXHHHHDžHPHHPHHHPHHHDʃDЃ!D!‰!‰!Ѕt HHHDHX H@HDžHH(HHAL;PHHIH@ICIHHH8AL;XQHIH@HH0IBIH8HH(AL;`HIH0HH I@IH(HHH;hHpHH HHHFIHHHH9hL@HHHAHHHHHEx\f( Ķ fTpf.AHHCIIIXH@HDž HDžHDžHDžH`HHDžLEH}HuHMHUHDž@H(HDžPLXHHLHDžhHpH`LHDžHHxLHDžHHLHDžHHHDž0HDž8H0LH A$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH H@HtH荦 H HdH HtHd HpFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HpH'HH HxHHH(H($HPH\H腥 \HHHDH襥 HHP\\IAH HމȤ \~HPHtHF \PHpѺHHHHtH HpH5 HH0HpHH聢 H@H0}HHHH@H2 HpHtH藤 H[A\A]A^A_]UHAWAVAUATSHHHH@H84H@H@HtH8H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH8HL)L)L)HL)H0LEH}HuHMHUHDžH8HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIH(LEH}HuHMHUHDž0H8HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEH(HEHHHIH LEH}HuHMHUHDžH8HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEH HEHHHIHLEH}HuHMHUHDžPH8HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH8HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDH覝 HpH(HH+ H+HH+HlHDž HDžHDžHDžHDžHDžHyHHHHtH HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H0H8HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHHP HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHH被HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHH8 HPH@}HHHHPH H0HHUHHMHH}HHEHHUHHHHHH8HAL;hLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHH IHHHH;}HIHHH(HLIùH;@J<HHHHEZf(\f(HpHHzI+IIHELEH}HuHxHDž`HHDžpHxHDžhH(HDžLHH HDžHHHHDžHHHHDžHHHpHPHXlZHHPH HHH0HLEH}HuHMHUHHlZIXHHxHHpHHhHH`HDž`HDžhHDžpHxHCHDHSHHDžHxHHxHHDHxHHHHDžHpHHpHHDHpHHHHDžHhHHhHHHhHHHHDžH`HH`HHH`HHHDʃDЃ!D!‰!‰!Ѕt HHHDH^ HPHDžXH8HXAL;`HHIHPICIHHHHAL;hVHIHPHH@IBIHHHH8H;pHHH@HH0HGIH8HH(H;xHHH0HH HFIH(HHH9nLPL IHAHXHHHEZ\f( š fTf.CHH=HIISHPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH8HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH HPHtH莑 H0HhH0HtHe HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH8H84H`HlH膐 lHHHDH覐 HH`llIAH Hމɏ l~H`HtHG lPHѺHHHHtH HH5 HH@HHH肍 HPH@}HHHHPH3 HpHtH蘏 H[A\A]A^A_]UHAWAVAUATSHHHH@H84H@H@HtH8H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH8HL)L)L)HL)H0LEH}HuHMHUHDžH8HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIH(LEH}HuHMHUHDž0H8HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEH(HEHHHIH LEH}HuHMHUHDžH8HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEH HEHHHIHLEH}HuHMHUHDžPH8HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH8HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDH览 HpH(HH+ H+HH+HlHDž HDžHDžHDžHDžHDžHyHHHHtH HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H0H8HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHHQ HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHH裖HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHH9 HPH@}HHHHPH H0HHUHHMHH}HHEHHUHHHHHH8HAL;fLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHH IHHHH;{HIHHH(HLIùH;>J<HHHHE(\(ZHpHH|I-IIHELEH}HuHxHDž`HHDžpHxHDžhH(HDžLHH HDžHHHHDžHHHHDžHHHpHPHXlZHHPH HH蓵H0HLEH}HuHMHUHHlIXHHHHxHHpHHhHDž`HDžhHDžpHxHCHDHSHHDžHHHHHDHHHHHDžHxHHxHHDHxHHHHDžHpHHpHHHpHHHHDžHhHHhHHHhHHHDʃDЃ!D!‰!‰!Ѕt HHHDHd HPHDžXH8H`AL;hHHIHXICIHHHPAL;pNHIHXHHHIBIHPHH@AL;xHIHHHH8I@IH@HH0H;HHH8HH(HFIH0HH H9eLPH(HHAH`H HHE\( T.AHHFIII[HPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH8HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LH| A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH | HPHtH| H0HhH0HtHs| HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH8H84H`HlH{ lHHHDH{ HH`llIAH  Hމz l~H`HtHU{ lPHѺHHHHtH#{ HH5 HH@HHHx HPH@}HHHHPHAx HpHtHz Hĸ[A\A]A^A_]UHAWAVAUATSHHHH@H84H@H@HtH8H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH@Lh`H@HPpH@H@hHH)HHHEH@L`xH@HH@HHH)HHHEH8HL)L)L)HL)H0LEH}HuHMHUHDžH8HDžLHLHDžHHLHDžHHLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIH(LEH}HuHMHUHDž0H8HDž@LHH8LHDžXH`HPLHDžpHxHhLHDžHHLHDžHHHDž HDž(H HP@H@8HH)HHHHHHHEH(HEHHHIH LEH}HuHMHUHDžH8HDžLHLHDžHHLHDžHHLHDžH HLHDž0H8H(HDžHDžHHPXH@PHH)HHHHHHHEH HEHHHIHLEH}HuHMHUHDžPH8HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@HPpH@hHH)HHHHHHHEHHEHHHIHHULEH}HuHMHDžH8HDžHHLHDžLHLHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHHHH)HHHHHHHxHHxHHHHHHDHs HpH(HH+ H+HH+HlHDž HDžHDžHDžHDžHDžHyHHHHtHr HDž HDžHDžHDžH`HHDžHUHMH}LMLEHDž`H0H8HDžpHxHhLHDžHHLHDžHHLHDžLHLHDžLHHEHPHXHPHHH_q HDž HDžHDžHDžH`HHDžHDž HDž HDž(HDžHHHDžHHHH豁HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHHGn HPH@}HHHHPHm H0HHUHHMHH}HHEHHUHHHHH*H8HAL;fLIHHHHIHHHAL;LIHHHHIHHHAL;LIHHHH IHHHH;{HIHHH(HLIùH;>J<HHHHE (\(ZHp HH|I-IIHELEH}HuHxHDž`HHDžpHxHDžhH(HDžLHH HDžHHHHDžHHHHDžHHHpHPHXlZHHPH{ HH蟠H0HLEH}HuHMHUHH*lIXHHHHxHHpHHhHDž`HDžhHDžpHxHCHDHSHHDžHHHHHDHHHHHDžHxHHxHHDHxHHHHDžHpHHpHHHpHHHHDžHhHHhHHHhHHHDʃDЃ!D!‰!‰!Ѕt HHHDHnk HPHDžXH8H`AL;hHHIHXICIHHHPAL;pNHIHXHHHIBIHPHH@AL;xHIHHHH8I@IH@HH0H;HHH8HH(HFIH0HH H9eLPH(HHAH`H HHE\( w T.AHHFIII[HPHDž HDžHDž HDž(HpHHDžLEH}HuHMHUHDžPH8HDž`LhHXLHDžxHHpLHDžHHLHDžHHLHDžHHHDž@HDžHH@LHh A$HDž HDžHDžHDžHHHDžHHH HcH HHHDž@HDž0HDž8H0AHH*g HPHtHg H0H(hH0HtH}g HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH8H84H`HlHf lHHHDHf HH`llIAH "t Hމe l~H`HtH_f lPHѺHHHHtH-f HH5s H迶H@HHHc HPH@}HHHHPHKc HpHtHe Hĸ[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH_ HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHY] HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHG\ HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHlH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH/Y HH}HHHHHX HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`THIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xKNHHHHHEH@HJHE \HXBHHdH IHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHHH8H8HH+f HHHH H}HuHMHUHHHLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH6W HHDžHHHHAM9HpHIHI@HH HHI@HHHHL97HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9oLL HAHHHHEHAHJHE \ c fTf.CHH-HIZHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLHS A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHR HHtHsS HHTHHtHJS H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHHkR HHHDHR HHIAH _ HމQ ~HHtH,R PH`ѺHH輢HHtHQ H`H5y_ H茢HH`HHgO HH}HHHHHO HXHtH}Q H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDHJ HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH&I HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHfXH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HHD HH}HHHHHD HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`ZHIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xQNHHHHHEZH@HJHE \HXBHH^HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHHH8H8HHQ HHyHH H}HuHMHUHHHLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDHB HHDžHHHHAM9HpHIHI@HH HHI@HHHHL9=HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9uLL HAHHHHEZHAHJHE \ NO fTf.CHH'HITHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH? A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH> HHtH4? HH趎THHtH ? H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH,> HHHDHL> HHIAH K Hމo= ~HHtH= PH`ѺHH}HHtH= H`H5:K HMHH`HH(; HH}HHHHH: HXHtH>= H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH6 HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH4 HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH3 HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHH'DH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH0 HH}HHHHHn0 HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`VHIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xMNHHHHHE*H@HJHE \HXBHHbHIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHHH8H8HH= HHpeHH H}HuHMHUHHHLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH. HHDžHHHHAM9HpHIHI@HH HHI@HHHHL99HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9qLL HAHHHHE*HAHJHE \ ; fTf.CHH+HIXHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH[+ A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH* HHtH* HHzTHHtH* H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH) HHHDH* HHIAH y7 Hމ8) ~HHtH) PH`ѺHHFzHHtH) H`H57 HzHH`HH& HH}HHHHH& HXHtH) H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDHe" HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHH/H`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH HH}HHHHH7 HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`bHIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xYNHHHHHE H@HJHEZf(\f(HXBHHVHIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHHH8H8HHt) HH-Q HH H}HuHMHUHHHLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH HHDžHHHHAM9HpHIHI@HH HHI@HHHHL9LHXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9LL HAHHHHE HAHJHEZf(\f( & fTf.CHwHHIEHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH+ HHtH HH)fTHHtH~ H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH HHHDH HHIAH ## Hމ ~HHtH` PH`ѺHHeHHtH. H`H5" HeHH`HH HH}HHHHHL HXHtH H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHZ HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH0 HH}HHHHH HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`ZHIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xQNHHHHHEH@HJHE \ZHXBHH^HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHHH8H8HH& HH<HH H}HuHMHUHHHLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH1 HHDžHHHHAM9HpHIHI@HH HHI@HHHHL9<HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9tLL HAHHHHEHAHJHE \  TZf.CHH(HIUHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH HHtHi HHQTHHtH@ H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHHa HHHDH HHIAH  Hމ ~HHtH" PH`ѺHHQHHtH H`H5o HQHH`HH] HH}HHHHH HXHtHs H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHH\H`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH HH}HHHHH HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`\HIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xSNHHHHHE*H@HJHE \ZHXBHH\HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHHH8H8HH HH(HH H}HuHMHUHHHH_LfLiLrHDž HDž(HDž0H8HCHDHSH@HDžHLPID$HDID$HHXHDž`LhIEHIEHHpHDžxLIFHIFHHDʃD!‰!‰ȃ!Ѕt HHHDH HHDžHHHHAM9HpHIHI@HH HHI@HHHHL9>HXHHHHHGHHHHHGHHHHL9H@HLIHFHHHHHFHLIùH9vLN 9HAHHHHE*HAHJHE \ V TZf.CHH&HISHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH HHtH' HH=THHtH H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH HHHDH? HHIAH Hމb ~HHtH PH`ѺHHp=HHtH H`H5- H@=HH`HH HH}HHHHH HXHtH1 H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH HH}HHHHHa HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`THIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xKNHHHHHEH@HJHE \HXBHHdH IHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHZ8H8HH HH]HH H}HuHMHUHHHZLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH HHDžHHHHAM9HpHIHI@HH HHI@HHHHL97HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9oLL HAHHHHEHAHJHE \ fTf.CHH-HIZHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLHD A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHj HHtH HHh)THHtH H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH HHHDH HHIAH b Hމ! ~HHtH PH`ѺHH/)HHtHm H`H5 H(HH`HH HH}HHHHH HXHtH H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDHN HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HHo HH}HHHHH HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`ZHIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xQNHHHHHEZH@HJHE \HXBHH^HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHZ8H8HH] HHHH H}HuHMHUHHHZLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDHb HHDžHHHHAM9HpHIHI@HH HHI@HHHHL9=HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9uLL HAHHHHEZHAHJHE \ fTf.CHH'HITHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH HHtH HHTHHtHp H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH HHHDH HHIAH  Hމ ~HHtHR PH`ѺHHHHtH H`H5 HHH`HH HH}HHHHH> HXHtH H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHL HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH: HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH" HH}HHHHHӶ HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`VHIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xMNHHHHHE*H@HJHE \HXBHHbHIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHZ8H8HH HHHH H}HuHMHUHHHZLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH HHDžHHHHAM9HpHIHI@HH HHI@HHHHL99HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9qLL HAHHHHE*HAHJHE \ n fTf.CHH+HIXHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH貱 A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHذ HHtHT HHTHHtH+ H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHHL HHHDHl HHIAH н Hމ華 ~HHtH PH`ѺHHHHtHۯ H`H5Z HmHH`HHH HH}HHHHH HXHtH^ H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH輨 HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHGH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HHݢ HH}HHHHH莢 HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`bHIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xYNHHHHHE H@HJHEZf(\f(HXBHHVHIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHZ8H8HHï HH|HH H}HuHMHUHHHZLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDHȠ HHDžHHHHAM9HpHIHI@HH HHI@HHHHL9LHXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9LL HAHHHHE HAHJHEZf(\f( fTf.CHwHHIEHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLHN A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHt HHtH HHrTHHtHǜ H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH HHHDH HHIAH l Hމ+ ~HHtH詛 PH`ѺHH9HHtHw H`H5 H HH`HH HH}HHHHH蕘 HXHtH H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDHX HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH裒 HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH葑 HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HHy HH}HHHHH* HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`ZHIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xQNHHHHHEH@HJHE \ZHXBHH^HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHZ8H8HHg HH HH H}HuHMHUHHHLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDHr HHDžHHHHAM9HpHIHI@HH HHI@HHHHL95HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9mLL HAHHHHEHAHJHE \ ٘ T.CHH/HI\HHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH5 HHtH豈 HH3THHtH興 H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH詇 HHHDHɇ HHIAH - Hމ ~HHtHj PH`ѺHHHHtH8 H`H5 HHH`HH襄 HH}HHHHHV HXHtH軆 H[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH HXHHH+HL)HHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHd~ HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHR} HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHH褍H`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH:z HH}HHHHHy HHHUHxHMHpH}HhHEH`HHXHHPHHHHH@AL;`\HIHHH8HIHXHH0LIHPHH(H;hHHL8IHHL0IHHL(IľH;pHHJ0HHN(HHN H;xSNHHHHHE*H@HJHE \ZHXBHH\HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHZ8H8HH& HH߮HH H}HuHMHUHHHLgLnLqLzHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH1x HHDžHHHHAM9HpHIHI@HH HHI@HHHHL97HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9oLL HAHHHHE*HAHJHE \ T.CHH-HIZHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLHt A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHs HHtHnt HHTHHtHEt H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHHfs HHHDHs HHIAH Hމr ~HHtH's PH`ѺHHHHtHr H`H5t HHH`HHbp HH}HHHHHp HXHtHxr H[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDHk HXHHH+HL)HHHPHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHj HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHi HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHXyH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HHe HH}HHHHHe HHH}HHEHHUHxHMHpHHhHH`HHXHHPAL;pTHIHHHHHIHhHH@LIH`HH8H;xHHLHIHHL@IHHL8IľH;HHJ0HHN(HHN H;KNHXHHHEHPHJHE \HXBHHdH IHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHPH8H8HHr HH覚HH0HuHMHUHEHH(P LfLiLrLxHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDHc HHDžHHHHAM9HpHIHI@HH0HHI@HH(HHL97HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9oLL HAHHHHEHAHJHE \ Rp fT f.CHH-HIZHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH` A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH_ HHtH8` HH躯LHHtH` H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH0_ HHHDHP_ HHIAH l Hމs^ ~HHtH^ PH`ѺHH聯HHtH^ H`H5>l HQHH`HH,\ HH}HHHHH[ HXHtHB^ H[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDHW HXHHH+HL)HHHPHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHU HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHT HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHH"eH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HHQ HH}HHHHHiQ HHH}HHEHHUHxHMHpHHhHH`HHXHHPAL;pZHIHHHHHIHhHH@LIH`HH8H;xHHLHIHHL@IHHL8IľH;HHJ0HHN(HHN H;QNHXHHHEZHPHJHE \HXBHH^HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHPH8H8HH^ HHjHH0HuHMHUHEHH(P LfLiLrLxHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDHO HHDžHHHHAM9HpHIHI@HH0HHI@HH(HHL9=HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9uLL HAHHHHEZHAHJHE \ \ fT f.CHH'HITHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLHTL A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHzK HHtHK HHxLHHtHK H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHHJ HHHDHK HHIAH rX Hމ1J ~HHtHJ PH`ѺHH?HHtH}J H`H5W HHH`HHG HH}HHHHHG HXHtHJ H[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDHfC HXHHH+HL)HHHPHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHA HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH@ HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHPH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HHv= HH}HHHHH'= HHH}HHEHHUHxHMHpHHhHH`HHXHHPAL;pVHIHHHHHIHhHH@LIH`HH8H;xHHLHIHHL@IHHL8IľH;HHJ0HHN(HHN H;MNHXHHHE*HPHJHE \HXBHHbHIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHHPH8H8HHsJ HH,rHH0HuHMHUHEHH(P LfLiLrLxHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH; HHDžHHHHAM9HpHIHI@HH0HHI@HH(HHL99HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9qLL HAHHHHE*HAHJHE \ G fT f.CHH+HIXHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH8 A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH@7 HHtH7 HH>LHHtH7 H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH6 HHHDH6 HHIAH 8D Hމ5 ~HHtHu6 PH`ѺHHHHtHC6 H`H5C HՆHH`HH3 HH}HHHHHa3 HXHtH5 H[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH,/ HXHHH+HL)HTHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHl- HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHHZ, HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHH<H`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HHB) HH}HHHHH( HHH}HHEHHUHxHMHpHHhHH`HHXHHPAL;pbHIHHHHHIHhHH@LIH`HH8H;xHHLHIHHL@IHHL8IľH;HHJ0HHN(HHN H;YNHXHHHE HPHJHEZf(\f(HXBHHVHIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHTZ8H8HH.6 HH] HH0HuHMHUHEHH(TZ LfLiLrLxHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH9' HHDžHHHHAM9HpHIHI@HH0HHI@HH(HHL9LHXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9LL HAHHHHE HAHJHEZf(\f( ~3 fT f.CHwHHIEHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH# A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH" HHtHa# HHrPHHtH8# H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHHY" HHHDHy" HHIAH / Hމ! ~HHtH" PH`ѺHHrHHtH! H`H5g/ HzrHH`HHU HH}HHHHH HXHtHk! H[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH HXHHH+HL)HTHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHQ(H`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH HH}HHHHH HHH}HHEHHUHxHMHpHHhHH`HHXHHPAL;pZHIHHHHHIHhHH@LIH`HH8H;xHHLHIHHL@IHHL8IľH;HHJ0HHN(HHN H;QNHXHHHEHPHJHE \ZHXBHH^HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHTZ8H8HH! HHIHH0HuHMHUHEHH(T$LfLiLrLxHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDH HHDžHHHHAM9HpHIHI@HH0HHI@HH(HHL95HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9mLL HAHHHHEHAHJHE \ P T$.CHH/HI\HHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLH A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH HHtH( HH^PHHtH H`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHH  HHHDH@ HHIAH  Hމc ~HHtH PH`ѺHHq^HHtH H`H5. HA^HH`HH HH}HHHHH HXHtH2 H[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HHH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHH@`HHHPpHH@hHH)HHHEHHH+H+HH+HH}HuHMHUHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHxHxHHHIHHUH}HuHMHDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHP@H@8HH)HHHHHHHpHHpHHHIHHUHMH}HuHDžPHHDž`HhHXHHDžxHHpHHDžHHHHDžHHHDž@HDžHH@HPXH@PHH)HHHHHHHhHHhHILIHUHMHuH}HDžHHDžHHHHDžHHHHDžHHHHDž(H0H HDžHDžHHPpH@hHH)HHHHHHH`LH`HHHHHHDH HXHHH+HL)HTHDž HDžHDžHDžHPHHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHUHMHuH}HDž LHHDž0H8H(HHDžHHPH@HHDž`HhHXHHDžxHHpHEHLHHHH HDž HDžHDžHDžH@HHDžHDž HDžHDžHDžHPHHDžHHHHH`Arra@ys a@re n@ ot c@onfo@rmabf@le@.H`HHH HHyHHHH`HH HH}HHHHH_ HHH}HHEHHUHxHMHpHHhHH`HHXHHPAL;p\HIHHHHHIHhHH@LIH`HH8H;xHHLHIHHL@IHHL8IľH;HHJ0HHN(HHN H;SNHXHHHE*HPHJHE \ZHXBHH\HIHxHpHhH`HDž HHDž0H8HDž(HHDžHHPH@HHDž`HhHXLHDžxHHpHXHHTZ8H8HH HHY5HH0HuHMHUHEHH(T$LfLiLrLxHDž HDž(HDž0L8ID$HDIT$H@HDžHLPIEHDIEHHXHDž`LhIFHIFHHpHDžxLIGHIGHHDʃD!‰!‰ȃ!Ѕt HHHDHHHDžHHHHAM9HpHIHI@HH0HHI@HH(HHL97HXHHHHHGHHHHHGHHHHL9H@HHHHFHHHHHFHLIùL9oLL HAHHHHE*HAHJHE \  T$.CHH-HIZHHDž HDžHDžHDžH HHDžH}HuHMHUHDžHHDž H(HHHDž8H@H0HHDžPHXHHHHDžhHpH`HDžHDžHLHIA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHoHHtHHHmJPHHtHH`Floa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:H`H'HH HxHHHHHHHHHHDHHHIAH g Hމ&~HHtHPH`ѺHH4JHHtHrH`H5 HJHH`HHHH}HHHHHHXHtHH[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtH-HDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHHPH0}HHHHPHJLHEHHUHHMHH}HHHHHH(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8HHxHxHPHHH#uLH}HuHMHUHHH8H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDH(HPHDžXH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9bLPN HAHHpHHE\f( fTf.CHHPIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LH6A$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH\HPHtHH HZ9|H HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\H\HHHDHHHP\\IAH THމ\~HPHtH\PHѺHH!9HHtH_HH5H8H0HHHHPH0}HHHHPH}HEHtHHh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHHPH0}HHHHPH:LHEHHUHHMHH}HHHHHZH(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8HHxHxHPHHH{LH}HuHMHUHHZH8H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDH HPHDžXH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9bLPN HAHHpHHE\f( fTf.CHHPIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LHA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH@HPHtHH H>(|H HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\H\HHHDHHHP\\IAH 8Hމ\~HPHtHu\PHѺHH(HHtHCHH5H'H0HHHHPH0}HHHHPHaHEHtHHh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHmHPH0}HHHHPHLHEHHUHHMHH}HHHHH*H(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8HHxHxHPHHHwLH}HuHMHUHH*H8H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHHPHDžXH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9bLPN HAHHpHHE\f( fTf.CHHPIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LHA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH,HPHtHH H*|H HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\H\HHHDHHHP\\IAH $Hމ\~HPHtHa\PHѺHHHHtH/HH5HH0HHHHPH0}HHHHPHMHEHtHHh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHqHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHYHPH0}HHHHPH LHEHHUHHMHH}HHHHHH(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;wH HLIHILI¹H;=J<HHJHEZf(\f(HEHHI1IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8HHxHxHPHHH{LH}HuHMHUHHH8H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHHPHDžXH(HL9CHHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9hLPN HAHHpHHEZ\f( fTf.CHHJIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LHA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHHHPHtH茶H H|H HtHcHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\H脵\HHHDH褵HHP\\IAH HމǴ\~HPHtHE\PHѺHHHHtHHH5HH0HHH耲HPH0}HHHHPH1HEHtH虴Hh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHnHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtHѮHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHUHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH觽HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH=HPH0}HHHHPHLHEHHUHHMHH}HHHHHH(HAL; LIHHHLHHHHAL;HIHHHLIHHHH;uH HLIHILI¹H;;J<HHJHE(\(ZHEHHI3IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8HHxHxHPHHHiyLH}HuHMHUHHH8H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHȨHPHDžXH(HL9AHHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9fLPN HAHHpHHE\( TZf.CHHLIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LHҥA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHHHPHtHtH H|H HtHKHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\Hl\HHHDH茤HHP\\IAH Hމ诣\~HPHtH-\PHѺHHHHtHHH5zHH0HHHhHPH0}HHHHPHHEHtH聣Hh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHVHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtH蹝HDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHH=HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH菬HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH%HPH0}HHHHPH֘LHEHHUHHMHH}HHHHH*H(HAL; LIHHHLHHHHAL;HIHHHLIHHHH;uH HLIHILI¹H;;J<HHJHE (\(ZHE HHI3IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8HHxHxHPHHHO{LH}HuHMHUHH*H8H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDH謗HPHDžXH(HL9AHHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9fLPN HAHHpHHE\( TZf.CHHLIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LH趔A$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHHܓHPHtHXH H|H HtH/HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\HP\HHHDHpHHP\\IAH ԠHމ蓒\~HPHtH\PHѺHHHHtHߒHH5^HqH0HHHLHPH0}HHHHPHHEHtHeHh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDH:HELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtH蝌HDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHH!HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHsHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH HPH0}HHHHPH躇LHEHHUHHMHH}HHHHHH(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8ZxHxHPHxHH1{LH}HuHMHUHHH8ZH_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDH芆HPHDžXH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9bLPN HAHHpHHE\f( PfTf.CHHPIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LH蘃A$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH辂HPHtH:H H|H HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\H2\HHHDHRHHP\\IAH Hމu\~HPHtH\PHѺHHHHtHHH5@HSH0HHH.HPH0}HHHHPH~HEHtHGHh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDH|HELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtH{HDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHzHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHUHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHvHPH0}HHHHPHvLHEHHUHHMHH}HHHHHZH(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8ZxHxHPHTHH LH}HuHMHUHHZH8ZH_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDH`uHPHDžXH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9bLPN HAHHpHHE\f( &fTf.CHHPIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LHnrA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHHqHPHtHrH H|H HtHqHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\Hq\HHHDH(qHHP\\IAH ~HމKp\~HPHtHp\PHѺHHYHHtHpHH5~H)H0HHHnHPH0}HHHHPHmHEHtHpHh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHjHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtHUjHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHhHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH+yHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHeHPH0}HHHHPHreLHEHHUHHMHH}HHHHH*H(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8ZxHxHPH.sHH}LH}HuHMHUHH*H8ZH_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDH>dHPHDžXH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9bLPN HAHHpHHE\f( qfTf.CHHPIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LHLaA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHHr`HPHtH`H Hp|H HtH`HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\H_\HHHDH`HHP\\IAH jmHމ)_\~HPHtH_\PHѺHH7HHtHu_HH5lHH0HHH\HPH0}HHHHPH\HEHtH^Hh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHYHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtH3YHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHWHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH hHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHTHPH0}HHHHPHPTLHEHHUHHMHH}HHHHHH(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;wH HLIHILI¹H;=J<HHJHEZf(\f(HEHHI1IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8ZxHxHPHbHHLH}HuHMHUHHH8ZH_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHSHPHDžXH(HL9CHHHHHGIHHHAM9HIHHHI@HHHHxL9HHLIHFH HxHHpH9hLPN HAHHpHHEZ\f( _fTf.CHHJIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LH"PA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHHHOHPHtHOH HF|H HtHOHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\HN\HHHDHNHHP\\IAH @\HމM\~HPHtH}N\PHѺHH HHtHKNHH5[HݞH0HHHKHPH0}HHHHPHiKHEHtHMHh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHHHELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtH HHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHFHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHVHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHuCHPH0}HHHHPH&CLHEHHUHHMHH}HHHHHH(HAL; LIHHHLHHHHAL;HIHHHLIHHHH;uH HLIHILI¹H;;J<HHJHE(\(ZHEHHI3IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8ZxHxHPHPHHxrLH}HuHMHUHHH8H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHAHPHDžXH(HL9:HHHHHGIHHHAM9HIHHHI@HHHHL9HHLIHFH HHHxH9_LPN HAHHxHHE\( NT.CHHSIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LH ?A$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH/>HPHtH>H H-|H HtH>HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\H=\HHHDH=HHP\\IAH 'KHމ<\~HPHtHd=\PHѺHHHHtH2=HH5JHčH0HHH:HPH0}HHHHPHP:HEHtH<Hh[A\A]A^A_]UHAWAVAUATSHhHHH@H8H0D,H@H@HtH(H@HHEH@HP(H@H@ HH)HHHEH@H@0H H@HP@H@H@8HH)HHHEH@H@HHH@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDž H(HH HDž8H@H0HHDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDH7HELHL)HH)HHDž HDžHDžHDžHDžHDžHyHHHHtH6HDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH(HDžpLxHhH HDžHHHHDžHHLHDžHHHEHPHXHPHHHt5HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHEHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH\2HPH0}HHHHPH 2LHEHHUHHMHH}HHHHH*H(HAL; LIHHHLHHHHAL;HIHHHLIHHHH;uH HLIHILI¹H;;J<HHJHE (\(ZHE HHI3IHUH}HuHMHDž`HHDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHXH8ZxHxHPH?HH~gtLH}HuHMHUHH*H8H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDH0HPHDžXH(HL9:HHHHHGIHHHAM9HIHHHI@HHHHL9HHLIHFH HHHxH9_LPN HAHHxHHE\( =T.CHHSIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH(HDž`HhHXH HDžxHHpHHDžHHLHDžHHHDž@HDžHH@LH-A$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH-HPHtH-H H}|H HtHe-HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,HPH\H,\HHHDH,HHP\\IAH :Hމ+\~HPHtHG,\PHѺHH|HHtH,HH59H|H0HHH)HPH0}HHHHPH3)HEHtH+Hh[A\A]A^A_]UHAWAVAUATSHhH8H0H($H0H@HtH(H0HHEH0HP(H0H@ HH)HHHEH0H@0H H0HP@H0H@8HH)HHHEH0H@HHH0HPXH0H@PHH)HHHEH0Lx`H0HPpH0H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžpHDžxHpHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDžHHH HDž(H0H HHDž@HHH8LHDžXH`HPHDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžpHDžxHpHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDžHHH HDž(H0H HHDž@HHH8LHDžXH`HPHDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHx&HELHL)HH)HHHxHDž HDžHDžHDžHDžHDžHyHHHHtH%HDž HDžHDžHDžHpHHDžLEH}HuHMHDžPLH(HDž`LhHXH HDžxHHpHHDžHHLHDžHHHEH@HHH@HHHN$HDž HDžHDžHDžHpHHDžHDž HDžHDžHDžHHHDžHHHH4HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH6!H@H0}HHHH@H LHEHHUHHMHH}HHHH8H(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDžPHHDž`HhHDžXLHDžxHHpLHDžHHHHDžHHHUH@HHHxHhHhH@H.HHiVrLH}HuHMHUH8xH_LfLiLrHDžPHDžXHDž`HhHCHHCHpHDžxLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHH@HDžHH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HpHLIHFH HxHHpH9bL@N HAHHpHHE\f( ,fTf.CHHPIHH@HDž HDžHDžHDžHPHHDžH}HuHMHUHDž@H(HDžPHXHHH HDžhHpH`HHDžHHxLHDžHHHDž0HDž8H0LHA$HDž HDžHDžHDžH`HHDžHHH HcH HHHDž HDžHDžHAHHH@HtH{HHktHHtHRHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH(H($H@HLHsLHHHDHHH@LLIAH (HމL~H@HtH4LPHѺHHkHHtHHH5(HkH0HHHoH@H0}HHHH@H HEHtHHh[A\A]A^A_]UHAWAVAUATSHhH8H0H($H0H@HtH(H0HHEH0HP(H0H@ HH)HHHEH0H@0H H0HP@H0H@8HH)HHHEH0H@HHH0HPXH0H@PHH)HHHEH0Lx`H0HPpH0H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžpHDžxHpHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDžHHH HDž(H0H HHDž@HHH8LHDžXH`HPHDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžpHDžxHpHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDžHHH HDž(H0H HHDž@HHH8LHDžXH`HPHDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHeHELHL)HH)HHHxHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHpHHDžLEH}HuHMHDžPLH(HDž`LhHXH HDžxHHpHHDžHHLHDžHHHEH@HHH@HHH;HDž HDžHDžHDžHpHHDžHDž HDžHDžHDžHHHDžHHHH#HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHH#H@H0}HHHH@HLHEHHUHHMHH}HHHH8ZH(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDžPHHDž`HhHDžXLHDžxHHpLHDžHHHHDžHHHUH@HHHxHhHhH@HHHPExLH}HuHMHUH8ZxH_LfLiLrHDžPHDžXHDž`HhHCHHCHpHDžxLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHH@HDžHH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HpHLIHFH HxHHpH9bL@N HAHHpHHE\f( rfTf.CHHPIHH@HDž HDžHDžHDžHPHHDžH}HuHMHUHDž@H(HDžPHXHHH HDžhHpH`HHDžHHxLHDžHHHDž0HDž8H0LH A$HDž HDžHDžHDžH`HHDžHHH HcH HHHDž HDžHDžHAHH H@HtH\ HHZtHHtH3 HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH(H($H@HLHT LHHHDHt HH@LLIAH Hމ L~H@HtH LPHѺHHZHHtH HH5bHuZH0HHHPH@H0}HHHH@HHEHtHi Hh[A\A]A^A_]UHAWAVAUATSHhH8H0H($H0H@HtH(H0HHEH0HP(H0H@ HH)HHHEH0H@0H H0HP@H0H@8HH)HHHEH0H@HHH0HPXH0H@PHH)HHHEH0Lx`H0HPpH0H@hHH)HHHEH(HH+ H+IM)H}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžpHDžxHpHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH(HDžHHH HDž(H0H HHDž@HHH8LHDžXH`HPHDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH(HDžHHH HDžHHHHDžHHLHDžHHHDžpHDžxHpHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH(HDžHHH HDž(H0H HHDž@HHH8LHDžXH`HPHDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHFHELHL)HH)HHHxHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHpHHDžLEH}HuHMHDžPLH(HDž`LhHXH HDžxHHpHHDžHHLHDžHHHEH@HHH@HHHHDž HDžHDžHDžHpHHDžHDž HDžHDžHDžHHHDžHHHHnHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHH@H0}HHHH@HLHEHHUHHMHH}HHHH8*H(HAL;LIHHHLHHHHAL;HIHHHLIHHHH;qH HLIHILI¹H;7J4HHJHE f(\f(HE HHI7IHUH}HuHMHDžPHHDž`HhHDžXLHDžxHHpLHDžHHHHDžHHHUH@HHHxHhHhH@H| HH54tLH}HuHMHUH8*xH_LfLiLrHDžPHDžXHDž`HhHCHHCHpHDžxLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHH@HDžHH(HL9=HHHHHGIHHHAM9HIHHHI@HHHHxL9HpHLIHFH HxHHpH9bL@N HAHHpHHE\f( [ fTf.CHHPIHH@HDž HDžHDžHDžHPHHDžH}HuHMHUHDž@H(HDžPHXHHH HDžhHpH`HHDžHHxLHDžHHHDž0HDž8H0LHA$HDž HDžHDžHDžH`HHDžHHH HcH HHHDž HDžHDžHAHHH@HtHEHHItHHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH(H($H@HLH=LHHHDH]HH@LLIAH HމL~H@HtHLPHѺHHIHHtHHH5KH^IH0HHH9H@H0}HHHH@HHEHtHRHh[A\A]A^A_]UHAWAVAUATSHXHHH@H84H@H@HtH8H@HHEH@HP(H@H@ HH)HHHEH@H@0H0H@HP@H@H@8HH)HHHEH@H@HH(H@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH8HH+0H+(IM)H}HuHMHUHDžH8HDžHHH0HDžHHH(HDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH8HDž H(HH0HDž8H@H0H(HDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH8HDžHHH0HDžHHH(HDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH8HDž H(HH0HDž8H@H0H(HDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDH/HELHL)HH)H |HDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH8HDžpLxHhH0HDžHHH(HDžHHLHDžHHHEHPHXHPHHH HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH]HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHHHPH@}HHHHPHLHEHHUHHMHH}HH HHHH8HAL;LIHHHLHHHHAL;H(IHHHLIHHHH;wH0HLIHILI¹H;=J<HHJHEZf(\f(HEHHI1IHUH}HuHMHDž`H HDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHX|ZxHxHPHbHH#{LH}HuHMHUHH|ZH_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHzHPHDžXH8HL9CHHHHHGIHHHAM9HIHHHI@H(HHHL9HHLIHFH0HHHH9hLPN HAHHHHEZ\f( :fTf.CHHJIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH8HDž`HhHXH0HDžxHHpH(HDžHHLHDžHHHDž@HDžHH@LHA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHHHPHtH$H H8xH HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH8H84HPH\H\HHHDH<HHP\\IAH Hމ_\~HPHtH\PHѺHHm8HHtHHH5*H=8H@HHHHPH@}HHHHPHHEHtH1HX[A\A]A^A_]UHAWAVAUATSHXHHH@H84H@H@HtH8H@HHEH@HP(H@H@ HH)HHHEH@H@0H0H@HP@H@H@8HH)HHHEH@H@HH(H@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH8HH+0H+(IM)H}HuHMHUHDžH8HDžHHH0HDžHHH(HDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH8HDž H(HH0HDž8H@H0H(HDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH8HDžHHH0HDžHHH(HDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH8HDž H(HH0HDž8H@H0H(HDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHHELHL)HH)H |HDž HDžHDžHDžHDžHDžHyHHHHtHfHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH8HDžpLxHhH0HDžHHH(HDžHHLHDžHHHEHPHXHPHHHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH<HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHHHPH@}HHHHPHLHEHHUHHMHH}HH HHHH8HAL; LIHHHLHHHHAL;H(IHHHLIHHHH;uH0HLIHILI¹H;;J<HHJHE(\(ZHEHHI3IHUH}HuHMHDž`H HDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHX|ZxHxHPHCHHoLH}HuHMHUHH|H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDH^HPHDžXH8HL9:HHHHHGIHHHAM9HIHHHI@H(HHHL9HHLIHFH0HHHH9_LPN HAHHHHE\( 5T.CHHSIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH8HDž`HhHXH0HDžxHHpH(HDžHHLHDžHHHDž@HDžHH@LHoA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHHHPHtHH H'xH HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH8H84HPH\H \HHHDH)HHP\\IAH HމL\~HPHtH\PHѺHHZ'HHtHHH5H*'H@HHHHPH@}HHHHPHHEHtHHX[A\A]A^A_]UHAWAVAUATSHXHHH@H84H@H@HtH8H@HHEH@HP(H@H@ HH)HHHEH@H@0H0H@HP@H@H@8HH)HHHEH@H@HH(H@HPXH@H@PHH)HHHEH@Lx`H@HPpH@H@hHH)HHHEH8HH+0H+(IM)H}HuHMHUHDžH8HDžHHH0HDžHHH(HDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHILIH}HuHMHUHDžH8HDž H(HH0HDž8H@H0H(HDžPHXHHLHDžhHpH`HDžHDžHHP@H@8HH)HHHHHHHELHEHILIH}HuHMHUHDžH8HDžHHH0HDžHHH(HDžHHLHDžHHHDžHDžHHPXH@PHH)HHHHHHHELHEHHHIH}HuHMHUHDžH8HDž H(HH0HDž8H@H0H(HDžPHXHHLHDžhHpH`HDžHDžHHPpH@hHH)HHHHHHHEHHEHHHHHHDHHELHL)HH)H |HDž HDžHDžHDžHDžHDžHyHHHHtHSHDž HDžHDžHDžHHHDžLEH}HuHMHDž`LH8HDžpLxHhH0HDžHHH(HDžHHLHDžHHHEHPHXHPHHHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH)HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHHHPH@}HHHHPHpLHEHHUHHMHH}HH HHH*H8HAL; LIHHHLHHHHAL;H(IHHHLIHHHH;uH0HLIHILI¹H;;J<HHJHE (\(ZHE HHI3IHUH}HuHMHDž`H HDžpHxHDžhLHDžHHLHDžHHHHDžHHHUHPHX|ZxHxHPH.HHqLH}HuHMHUHH*|H_LfLiLrHDž`HDžhHDžpHxHCHHCHHDžLIT$HDIT$HHHDžLIUHIUHHHDžLIFHIFHƒDƒ!щ!щ!ʅtHHHDHGHPHDžXH8HL9:HHHHHGIHHHAM9HIHHHI@H(HHHL9HHLIHFH0HHHH9_LPN HAHHHHE\( T.CHHSIHHPHDž HDžHDžHDžH`HHDžH}HuHMHUHDžPH8HDž`HhHXH0HDžxHHpH(HDžHHLHDžHHHDž@HDžHH@LHXA$HDž HDžHDžHDžHpHHDžHHH HcH HHHDž0HDž HDž(H AHH~HPHtHH H|xH HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH8H84HPH\H\HHHDHHHP\\IAH vHމ5\~HPHtH\PHѺHHCHHtHHH5HH@HHHHPH@}HHHHPHHEHtHHX[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHHpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHHHDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHH<HDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH$H0H}HHHH0HպCHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;KN HHJHEHHJHE \HpBHHZHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HHH8H8H0HHH@ HHHuHMHULxHpH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDH H0HDž8HHhHH`L9(HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9oL0NHAHhH@HHEHAH`JHE \ fTpf.CHH1HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LHFA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHlH0HtHHHjlHHtH迶HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHHHHHDHHHIAH dHމ#~HHtH衵PHѺHH1HHtHoHH5HHHHHܲH0H}HHHH0H荲HpHtHHĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDH菰HpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHH HDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHH'HDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHHyHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHH0H}HHHH0HOHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;QN HHJHEZHHJHE \HpBHHTHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HHH8H8H0HHH%HHHuHMHULxHpH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDHH0HDž8HHhHH`L9.HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9uL0NHAHhH@HHEZHAH`JHE \ fTpf.CHH+HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LH%A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHKH0HtHǦHHIlHHtH螦HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHH迥HHHDHߥHHIAH CHމ~HHtH耥PHѺHHHHtHNHH5ͲHHHHH転H0H}HHHH0HlHpHtHѤHĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHnHpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@ HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHHHDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHHHDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHHXHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHH0H}HHHH0H蟚GHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;MN HHJHE*HHJHE \HpBHHXHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HHH8H8H0HHHHHHuHMHULxHpH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDHљH0HDž8HHhHH`L9*HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9qL0NHAHhH@HHE*HAH`JHE \ fTpf.CHH/HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LH A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH2H0HtH讖HH0lHHtH腖HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHH覕HHHDHƕHHIAH *Hމ~HHtHgPHѺHHHHtH5HH5HHHHH袒H0H}HHHH0HSHpHtH踔HĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHUHpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHHώHDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHHHDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHH?HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHՊH0H}HHHH0H膊fHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;YN HHJHE HHJHEZf(\f(HpBHHLHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HHH8H8H0H[HH"HHHuHMHULxHpH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDH謉H0HDž8HHhHH`L9=HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9L0NHAHhH@HHE HAH`JHEZf(\f( ^fTpf.CHwHHH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LHԆA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHH0HtHvHHlHHtHMHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHHnHHHDH莅HHIAH Hމ豄~HHtH/PHѺHHHHtHHH5|HHHHHjH0H}HHHH0HHpHtH耄HĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHHpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHH~HDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHH}HDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHzH0H}HHHH0HNzNHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;QN HHJHEHHJHE \ZHpBHHTHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HHH8H8H0H+HH賱HHHuHMHULxHpH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDH|yH0HDž8HHhHH`L9-HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9tL0NHAHhH@HHEHAH`JHE \ PTZpf.CHH,HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LHvA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHuH0HtHVvHHlHHtH-vHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHHNuHHHDHnuHHIAH ҂Hމt~HHtHuPHѺHHHHtHtHH5\HoHHHHJrH0H}HHHH0HqHpHtH`tHĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHoHpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@ HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHHwnHDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHHmHDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHH}HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH}jH0H}HHHH0H.jRHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;SN HHJHE*HHJHE \ZHpBHHRHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HHH8H8H0H xHH葡HHHuHMHULxHpH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDHZiH0HDž8HHhHH`L9/HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9vL0NHAHhH@HHE*HAH`JHE \ ,vTZpf.CHH*HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LHfA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHeH0HtH2fHH贵lHHtH fHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHH*eHHHDHJeHHIAH rHމmd~HHtHdPHѺHH{HHtHdHH58rHKHHHH&bH0H}HHHH0HaHpHtHFA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHdEH0HtHEHHblHHtHEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHHDHHHDHDHHIAH \RHމD~HHtHDPHѺHH)HHtHgDHH5QHHHHHAH0H}HHHH0HAHpHtHCHĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDH?HpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@ HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHH>HDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHH=HDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHHqMHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH:H0H}HHHH0H9UHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;MN HHJHE*HHJHE \HpBHHXHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HZ8H8H0HGHHqHHHuHMHULxHZpH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDH8H0HDž8HHhHH`L9*HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9qL0NHAHhH@HHE*HAH`JHE \ EfTpf.CHH/HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LH6A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH=5H0HtH5HH;lHHtH5HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHH4HHHDH4HHIAH 5BHމ3~HHtHr4PHѺHHHHtH@4HH5AH҄HHHH1H0H}HHHH0H^1HpHtH3HĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDH`/HpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHH-HDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHH,HDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHHJ=HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH)H0H}HHHH0H)tHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;YN HHJHE HHJHEZf(\f(HpBHHLHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HZ8H8H0H^7HH`(HHHuHMHULxHZpH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDH(H0HDž8HHhHH`L9=HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9L0NHAHhH@HHE HAH`JHEZf(\f( [5fTpf.CHwHHH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LH%A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHH$H0HtHs%HHtlHHtHJ%HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHHk$HHHDH$HHIAH 1Hމ#~HHtH,$PHѺHHtHHtH#HH5y1HtHHHHg!H0H}HHHH0H!HpHtH}#HĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHHpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHHHDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHHHDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHH-HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHH0H}HHHH0HKOHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;QN HHJHEHHJHE \ZHpBHHTHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HZ8H8H0H 'HHP HHHuHMHULxHtH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDHqH0HDž8HHhHH`L9&HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9mL0NHAHhH@HHEHAH`JHE \ E%Tt.CHH3HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LHA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHH0HtHRHHdlHHtH)HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHHJHHHDHjHHIAH !Hމ~HHtH PHѺHHdHHtHHH5X!HkdHHHHFH0H}HHHH0HHpHtH\HĘ[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHHpLHHH)HHDž HDžHDžHDžHpHHDžHUH}HuHDž@ HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHHs HDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHH HDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHy H0H}HHHH0H* SHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;SN HHJHE*HHJHE \ZHpBHHRHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8HZ8H8H0HHH@ HHHuHMHULxHtH^LaLjHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDHNH0HDž8HHhHH`L9(HxHHHXHGHHHHPHGIHxHHHL9H`HLXIHFHHPHH@HFILHI¹H9oL0NHAHhH@HHE*HAH`JHE \ Tt.CHH1HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LHA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHH0HtH-HHTlHHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH HHH%HHHDHEHHIAH Hމh~HHtHPHѺHHvTHHtHHH53HFTHHHH!H0H}HHHH0HHpHtH7HĘ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHLx0HHP@HH@8HH)HHHEHLpHHHPXHH@PHH)HHHEHHL)IM)HH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHHH+HH+HHuHMHUHDž@HHDžPHXHHLHDžhHpH`LHDžHHxHDž0HDž8H0HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDžHHLHDž(H0H LHDž@HHH8HDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHHpLHHH)HHHhHDž HDžHDžHDžH`HpHDžxHUH}HuHDž0HHHDž@HHH8HHDžXH`HPHHDžpHxHhHEH H(H HpHHEHDž HDžHDžHDžHPHpHDžxHUH}HuHDž0LHHDž@HHH8LHDžXH`HPLHDžpHxHhHEH H(H HpHHcHDž HDžHDžHDžHPHpHDžxHDž HDžHDžHDžH`HHDžHHpHH HpArra@ys a@re n@ ot c@onfo@rmabf@le@.HpHHH HHyHHHHpHHKH H}HHHH H=HHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;KN HHJHEHHJHE \HpBHHZHHUHuHxHDž0HHDž@HHHDž8LHDžXH`HPHHDžpHxHhHpH H(HhH(H(H HHHj0 HHHMHUHELxhpHYLbLhHDž0HDž8HDž@HHHCHHSHPHDžXL`ID$HDID$HHhHDžpLxIEHIEHHʉD!‰!Ѕt HHHDH6H HDž(HHhHH`L9(HhHHHXHGHHHHPHGIHxHHHL9HPHLXIHFHHPHH@HFILHI¹H9oL NHAHhH@HHEHAH`JHE \ fTpf.CHH1HH HDž HDžHDžHDžHHHDžHuHMHUHDž HHDž0H8H(LHDžHHPH@LHDž`HhHXHDžHDžHLHsA$HDž HDžHDžHDžH HpHDžxHHpH HcH HHpHDžHDžHDžHAHHH HtHHHDdHHtHHpFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HpH'HH HxHHHHHH H  HHHDH-HH IAH HމP ~HHtH PHpѺHH^DHHtHHpH5H.DHHpHH H H}HHHH HHpHtHHĘ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHLx0HHP@HH@8HH)HHHEHLpHHHPXHH@PHH)HHHEHHL)IM)HH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHHH+HH+HHuHMHUHDž@HHDžPHXHHLHDžhHpH`LHDžHHxHDž0HDž8H0HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDžHHLHDž(H0H LHDž@HHH8HDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHHpLHHH)HHHhHDž HDžHDžHDžH`HpHDžxHUH}HuHDž0HHHDž@HHH8HHDžXH`HPHHDžpHxHhHEH H(H HpHH-HDž HDžHDžHDžHPHpHDžxHUH}HuHDž0LHHDž@HHH8LHDžXH`HPLHDžpHxHhHEH H(H HpHHKHDž HDžHDžHDžHPHpHDžxHDž HDžHDžHDžH`HHDžHHpHHHpArra@ys a@re n@ ot c@onfo@rmabf@le@.HpHHH HHyHHHHpHH3H H}HHHH HIHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;QN HHJHEZHHJHE \HpBHHTHHUHuHxHDž0HHDž@HHHDž8LHDžXH`HPHHDžpHxHhHpH H(HhH(H(H HHHL HHHMHUHELxhpHYLbLhHDž0HDž8HDž@HHHCHHSHPHDžXL`ID$HDID$HHhHDžpLxIEHIEHHʉD!‰!Ѕt HHHDHH HDž(HHhHH`L9.HhHHHXHGHHHHPHGIHxHHHL9HPHLXIHFHHPHH@HFILHI¹H9uL NHAHhH@HHEZHAH`JHE \ fTpf.CHH+HH HDž HDžHDžHDžHHHDžHuHMHUHDž HHDž0H8H(LHDžHHPH@LHDž`HhHXHDžHDžHLHOA$HDž HDžHDžHDžH HpHDžxHHpH HcH HHpHDžHDžHDžHAHHuH HtHHHs4dHHtHHpFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HpH'HH HxHHHHHH H HHHDH HH IAH mHމ, ~HHtH PHpѺHH:4HHtHxHpH5H 4HHpHHH H}HHHH HHpHtHHĘ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEHLx0HHP@HH@8HH)HHHEHLpHHHPXHH@PHH)HHHEHHL)IM)HH@HtHHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHEHH@HHHHPXHH@PHH)HHHEHHH+HH+HHuHMHUHDž@HHDžPHXHHLHDžhHpH`LHDžHHxHDž0HDž8H0HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDžHHLHDž(H0H LHDž@HHH8HDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHHpLHHH)HHHhHDž HDžHDžHDžH`HpHDžxHUH}HuHDž0 HHHDž@HHH8HHDžXH`HPHHDžpHxHhHEH H(H HpHH HDž HDžHDžHDžHPHpHDžxHUH}HuHDž0LHHDž@HHH8LHDžXH`HPLHDžpHxHhHEH H(H HpHH'HDž HDžHDžHDžHPHpHDžxHDž HDžHDžHDžH`HHDžHHpHHyHpArra@ys a@re n@ ot c@onfo@rmabf@le@.HpHHH HHyHHHHpHHH H}HHHH HAHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;MN HHJHE*HHJHE \HpBHHXHHUHuHxHDž0HHDž@HHHDž8LHDžXH`HPHHDžpHxHhHpH H(HhH(H(H HHH, HHHMHUHELxhpHYLbLhHDž0HDž8HDž@HHHCHHSHPHDžXL`ID$HDID$HHhHDžpLxIEHIEHHʉD!‰!Ѕt HHHDHH HDž(HHhHH`L9*HhHHHXHGHHHHPHGIHxHHHL9HPHLXIHFHHPHH@HFILHI¹H9qL NHAHhH@HHE*HAH`JHE \ fTpf.CHH/HH HDž HDžHDžHDžHHHDžHuHMHUHDž HHDž0H8H(LHDžHHPH@LHDž`HhHXHDžHDžHLH3A$HDž HDžHDžHDžH HpHDžxHHpH HcH HHpHDžHDžHDžHAHHYH HtHHHW$dHHtHHpFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HpH'HH HxHHHHHH H HHHDHHH IAH QHމ ~HHtH PHpѺHH$HHtH\HpH5H#HHpHHH H}HHHH HzHpHtHHĘ[A\A]A^A_]UHAWAVAUATSHH(H HH H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHHpLHHH)HlHDž HDžHDžHDžHpHHDžHUH}HuHDž@HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHHHDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHHHDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHHcHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHHH0H }HHHH0HhHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;YN HHJHE HHJHEZf(\f(HpBHHLHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8lZ8H8H0H}HH"HHHMHUHELlZHYLbLhHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDHH0HDž8HHxHHpL9=HxHHHhHGHHHH`HGIHHHXL9H`HLhIHFHH`HHPHFILXI¹H9L0NHAHxHPHHE HAHpJHEZf(\f( fTf.CHwHHH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LHA$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHH0HtHHHhHHtHoHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDHHHIAH Hމ~HHtHQPHѺHHHHtHHH5HH HHHH0H }HHHH0H=HpHtHHĈ[A\A]A^A_]UHAWAVAUATSHH(H HH H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDHGHpLHHH)HlHDž HDžHDžHDžHpHHDžHUH}HuHDž@HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHH趼HDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHHԻHDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHH&HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHH輸H0H }HHHH0HmFHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;QN HHJHEHHJHE \ZHpBHHTHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8lZ8H8H0HHHHHHHMHUHELlHYLbLhHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDH蜷H0HDž8HHxHHpL9&HxHHHhHGHHHH`HGIHHHXL9H`HLhIHFHH`HHPHFILXI¹H9mL0NHAHxHPHHEHAHpJHE \ pT.CHH3HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LH۴A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHH0HtH}HHhHHtHTHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHuHHHDH蕳HHIAH Hމ踲~HHtH6PHѺHHHHtHHH5HH HHHqH0H }HHHH0H"HpHtH臲HĈ[A\A]A^A_]UHAWAVAUATSHH(H HH H@HtHH HHEH HP(H H@ HH)HHHEH Lx0H HP@H H@8HH)HHHEH LpHH HPXH H@PHH)HHHEHHL)IM)H(H@HtHH(HHEH(HP(H(H@ HH)HHHEH(H@0HH(HP@H(H@8HH)HHHEH(H@HHH(HPXH(H@PHH)HHHEHHH+HH+HHuHMHUHDžPHHDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžHHDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDžHHDž H(HLHDž8H@H0LHDžPHXHHHDžHDžHHPXH@PHH)HHHHHHHxHHxHHHHHHDH,HpLHHH)HlHDž HDžHDžHDžHpHHDžHUH}HuHDž@ HHHDžPHXHHHHDžhHpH`HHDžHHxHEH0H8H0HHH蛬HDž HDžHDžHDžH`HHDžHUH}HuHDž@LHHDžPHXHHLHDžhHpH`LHDžHHxHEH0H8H0HHH蹫HDž HDžHDžHDžH`HHDžHDž HDžHDžHDžHpHHDžHHHH HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHH表H0H }HHHH0HRJHHHUHHMHH}HLHHHHHHH;HHHHHHIHHHHHHHHH;HHLIHILIHILIH;SN HHJHE*HHJHE \ZHpBHHRHHUHuHxHDž@HHDžPHXHDžHLHDžhHpH`HHDžHHxHpH0H8lZ8H8H0H+HH HHHMHUHELlHYLbLhHDž@HDžHHDžPHXHCHHSH`HDžhLpID$HDID$HHxHDžLIEHIEHHʉD!‰!Ѕt HHHDHH0HDž8HHxHHpL9(HxHHHhHGHHHH`HGIHHHXL9H`HLhIHFHH`HHPHFILXI¹H9oL0NHAHxHPHHE*HAHpJHE \ QT.CHH1HH0HDž HDžHDžHDžH HHDžHuHMHUHDž0HHDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H LH輤A$HDž HDžHDžHDžH0HHDžHHH HcH HHHDžHDžHDžHAHHH0HtH^HHhHHtH5HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHVHHHDHvHHIAH ڰHމ虢~HHtHPHѺHHHHtHHH5dHwH HHHRH0H }HHHH0HHpHtHhHĈ[A\A]A^A_]UHAWAVAUATSHHXHPHHH@DmA$HDž HDžHDžHDžH`HHDžHHH HcH HHHDž HDžHDžHAHHdlH`HtHlHHbEHHtHlHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH@H@HEHtHIAH[A\A]A^A_]UHAWAVAUATSHHXHPHHH@DHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHH*H`H@}HHHH`H*MHEH(HUH HMHH0HHX*H8HAL;LILHLHHHHH; mHILIHILIH;(7J4 HHJHE f(\f(HE HHIFHUHuHMHDžpH0HDžHHDžxLHDžHHHHDžHHHUH`HhHHZhHhH`H8HH[bLHuHMHUHX*HHZH^LaLjHDžpHDžxHDžHHCHHCHHDžLIT$HIT$HHHDžLIUHI}Hǃ!!ʅtHHHDH&*H`HDžhL8L9HILHFIHHHL9HHLHHGIHHHH9dL`LIHAIHHHE\f( D7fTf.CHHRHH`HDž HDžHDžHDžHPHHDžHuHMHUHDž`H8HDžpHxHhLHDžHHLHDžHHHDžPHDžXHPLH'A$HDž HDžHDžHDžH`HHDžHHH HcH HHHDž HDžHDžHAHH&H`HtH_'HHvEHHtH9'HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH@H@H@HHHHPH@}HHHHPHHEHtHH[A\A]A^A_]UHAWAVAUATSHHHH@H84H@H@HtH8H@HHEH@HP(H@H@ HH)HHHEH@Lx0H@HP@H@H@8HH)HHHEH@LpHH@HPXH@H@PHH)HHHEH8HL)IM)HuHMHUHDžpH8HDžHHxLHDžHHLHDžHHHDž`HDžhH`HP(H@ HH)HHHHHHHEHEHILIHuHMHUHDžH8HDžHHLHDžHHLHDžHHHDžHDžHHP@H@8HH)HHHHHHHELHEHHHIHuHMHUHDž0H8HDž@HHH8LHDžXH`HPLHDžpHxHhHDž HDž(H HPXH@PHH)HHHHHHHEHHEHHHHHHDH{HELHHH)H0HHEHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžH}HuHMHDž`LH8HDžpHxHhLHDžHHLHDžHHHUHPHXHPHHHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHHgHPH@}HHHHPHoMHEH(HUH HMHH0HHHZH8HAL;LILHLHHHHH; mHILIHILIH;(7J4 HHJHE f(\f(HE HHIFHUHuHMHDž`H0HDžpHxHDžhLHDžHHHHDžHHHUHPHXHEHXHXHPHhHHLHuHMHUHHZEH^LaLjHDž`HDžhHDžpHxHCHHCHHDžLIT$HIT$HHHDžLIUHI}Hǃ!!ʅtHHHDHHPHDžXL8L9HILHFIHHHL9HHLHHGIHHHH9dLPLIHAIHHHE\f( fTf.CHHRHHPHDž HDžHDžHDžH@HHDžHuHMHUHDžPH8HDž`HhHXLHDžxHHpLHDžHHHDž@HDžHH@LHZA$HDž HDžHDžHDžHPHHDžHHH HcH HHHDžHDžHDžHAHHHPHtHHH~1EHHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH8H84H0HHH5HHHHH諍HH}HHHHH\HEHtHďHĘ[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDHHEHHHHDž HDž0HDž8HDž(HHHDžHuHMHDž HLHDžHHHHDžHHHUHHHHHH詋HDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHHHDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHH=HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHӇHH}HHHHH脇LHEHHUHLHHxLpLhH;HHNHILIHHLxIH;IJ<HpHJHE*HhHJHE \HEHHbHUHMHDžHHDžHHDžHHDžHHHUHHHHHHHHHHHH`HMHULXHPHYLbHDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDH跇HHDžMML9HILHFHH`HHHHFILXIǹH9iLJ< HAIHHHHE*HAIJ8HE \ fTPf.AHH>HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@H蝅A$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHHÄHHtH?HpHEHpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH:HHHDHZHHIAH Hމ}~HHtHPHѺHHHHtHɃHH5HH[HHHH6HH}HHHHHHEHtHOHĘ[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDH艀HEHHHHDž HDž0HDž8HDž(HHHDžHuHMHDžHLHDžHHHHDžHHHUHHHHHH4HDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHHv~HDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHHȎHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH^{HH}HHHHH{LHEHHUHLHHxLpLhH;HHNHILIHHLxIH;UJ<HpHJHE HhHJHEZf(\f(HEHHVHUHMHDžHHDžHHDžHHDžHHHUHHHHHHHHHH蝴#HH`HMHULXHPHYLbHDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDH6{HHDžMML9HILHFHH`HHHHFILXIǹH9uLJ< HAIHHHHE HAIJ8HEZf(\f( jfTPf.AHH2HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@HyA$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHH6xHHtHxHpH4EHpHtHxHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHwHHHDHwHHIAH 1Hމv~HHtHnwPHѺHHHHtHHHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@H:A$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHH9HHtH):HpH諉EHpHtH:HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH$9HHHDHD9HHIAH FHމg8~HHtH8PHѺHHuHHtH8HH52FHEHHHH 6HH}HHHHH5HEHtH98HĘ[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDHs5HEHHHHDž HDž0HDž8HDž(HHHDžHuHMHDžHLHDžHHHHDžHHHUHHHHHH4HDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHH`3HDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHHCHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHH0HH}HHHHH/LHEHHUHLHHxLpLhH;HHNHILIHHLxIH;UJ<HpHJHE HhHJHEZf(\f(HEHHVHUHMHDžHHDžHHDžHHDžHHHUHHHZHHH}>HHi)HH`HMHULXHZPHYLbHDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDH0HHDžMML9HILHFHH`HHHHFILXIǹH9uLJ< HAIHHHHE HAIJ8HEZf(\f( F=fTPf.AHH2HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@H-A$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHH-HHtH-HpH}EHpHtHh-HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH,HHHDH,HHIAH :Hމ+~HHtHJ,PHѺHH|HHtH,HH59H|HHHH)HH}HHHHH6)HEHtH+HĘ[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDH(HEHHHHDž HDž0HDž8HDž(HHHDžHuHMHDžHLHDžHHHHDžHHHUHHHHHH'HDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHH&HDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHH7HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH#HH}HHHHH^#LHEHHUHLHHxLpLhH;HHNHILIHHLxIH;MJ<HpHJHEHhHJHE \ZHEHH^HUHMHDžHHDžHHDžHHDžHHHUHHHZHHH1HH\HH`HMHULXHTHYLbHDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDH#HHDžMML9HILHFHH`HHHHFILXIǹH9eLJ< HAIHHHHEHAIJ8HE \ 0TT.AHHBHHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@Ho!A$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHH HHtH!HpHpEHpHtH HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH HHHDH, HHIAH -HމO~HHtHPHѺHH]pHHtHHH5-H-pHHHHHH}HHHHHHEHtH!HĘ[A\A]A^A_]UHAWAVAUATSHHHHHDHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDH[HEHHHHDž HDž0HDž8HDž(HHHDžHuHMHDž HLHDžHHHHDžHHHUHHHHHHHDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHHHHDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHH*HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH0HH}HHHHHLHEHHUHLHHxLpLhH;HHNHILIHHLxIH;OJ<HpHJHE*HhHJHE \ZHEHH\HUHMHDžHHDžHHDžHHDžHHHUHHHZHHHk%HHmPHH`HMHULXHTHYLbHDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDHHHDžMML9HILHFHH`HHHHFILXIǹH9gLJ< HAIHHHHE*HAIJ8HE \ V$TT.AHH@HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@HA$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHHHHtHHpHdEHpHtHjHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDHHHIAH !Hމ~HHtHLPHѺHHcHHtHHH5 HcHHHHHH}HHHHH8HEHtHHĘ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDHHEHHHHHEHDž HDž0HDž8HDž(HHHDžHuHMHDžHLHDžHHHHDžHHHUHHHHHHHDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHH HDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH HH}HHHHHZ LHEHHUHLHHLLxH;HHNHILIHHLIH;GJ<HHJHEHxHJHE \HEHHdHUHMHDžHHDžHHDžHHDžHHHUHHHEHHHHHHCHHpHUHELhE`HZL`HDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDH HHDžMML9HILHFHHpHHXHFILhIǹH9gLJ< HAIHXHHEHAIJ8HE \ fT`f.AHH@HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@HA$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHHHHtH%HpHW|HpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDH=HHIAH Hމ`~HHtHPHѺHHnWHHtHHH5+H>WHHHHHH}HHHHHHEHtH2HĈ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDHtHEHHHHHEHDž HDž0HDž8HDž(HHHDžHuHMHDžHLHDžHHHHDžHHHUHHHHHHHDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHHSHDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH;HH}HHHHHLHEHHUHLHHLLxH;HHNHILIHHLIH;MJ<HHJHEZHxHJHE \HEHH^HUHMHDžHHDžHHDžHHDžHHHUHHHEHHHH HH7HHpHUHELhE`HZL`HDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDH'HHDžMML9HILHFHHpHHXHFILhIǹH9mLJ< HAIHXHHEZHAIJ8HE \ c fT`f.AHH:HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@H A$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHH/HHtHHpH-K|HpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDHHHIAH 'Hމ~HHtHdPHѺHHJHHtH2HH5HJHHHHHH}HHHHHPHEHtHHĈ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDHHEHHHHHEHDž HDž0HDž8HDž(HHHDžHuHMHDž HLHDžHHHHDžHHHUHHHHHHHDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHHHDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHH+HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHHH}HHHHHrLHEHHUHLHHLLxH;HHNHILIHHLIH;IJ<HHJHE*HxHJHE \HEHHbHUHMHDžHHDžHHDžHHDžHHHUHHHEHHHHHH+HHpHUHELhE`HZL`HDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDHHHDžMML9HILHFHHpHHXHFILhIǹH9iLJ< HAIHXHHE*HAIJ8HE \ fT`f.AHH>HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@HA$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHHHHtH9HpH>|HpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH1HHHDHQHHIAH Hމt~HHtHPHѺHH>HHtHHH5?HR>HHHH-HH}HHHHHHEHtHFHĈ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDHHEHHHEHDž HDž0HDž8HDž(HHHDžHuHMHDžHLHDžHHHHDžHHHUHHHHHH+HDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHHmHDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHUHH}HHHHHLHEHHUHLHHLLxH;HHNHILIHHLIH;UJ<HHJHE HxHJHEZf(\f(HEHHVHUHMHDžHHDžHHDžHHDžHHHUHHEZHHHHH HHpHUHELhEZ`HZL`HDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDH1HHDžMML9HILHFHHpHHXHFILhIǹH9uLJ< HAIHXHHE HAIJ8HEZf(\f( efT`f.AHH2HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@H A$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHH1HHtHHpH/2EHpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDHHHIAH ,Hމ~HHtHiPHѺHH1HHtH7HH5H1HHHHHH}HHHHHUHEHtHHĈ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDHHEHHHEHDž HDž0HDž8HDž(HHHDžHuHMHDžHLHDžHHHHDžHHHUHHHHHHHDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHHHDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHH6HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHHH}HHHHH}LHEHHUHLHHLLxH;HHNHILIHHLIH;MJ<HHJHEHxHJHE \ZHEHH^HUHMHDžHHDžHHDžHHDžHHHUHHEZHHHHH HHpHUHELhEdHZL`HDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDHHHDžMML9HILHFHHpHHXHFILhIǹH9eLJ< HAIHXHHEHAIJ8HE \ Td.AHHBHHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@HA$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHHHHtH?HpH%EHpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH:HHHDHZHHIAH Hމ}~HHtHPHѺHH%HHtHHH5HH[%HHHH6HH}HHHHHHEHtHOHĈ[A\A]A^A_]UHAWAVAUATSHHHHHH@HtIHHHEHHP(HH@ HH)HHHEHLh0HHP@HH@8HH)HHHELHIM)HH@HtIHHHEHHP(HH@ HH)HHHEHH@0HHHP@HH@8HH)HHHELHHH+HHMHUHDžLHDžHHLHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž0LHDž@HHH8LHDžXH`HPHDž HDž(H HP@H@8HH)HHHHHHHEHHEHHHHHHDHHEHHHEHDž HDž0HDž8HDž(HHHDžHuHMHDž HLHDžHHHHDžHHHUHHHHHH4HDž HDž0HDž8HDž(HpHHDžHuHMHDžLLHDžHHLHDžHHHUHHHHHHvHDž HDž0HDž8HDž(HpHHDžHDžP HDž`HDžhHDžXHH@HDžHH@HHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH^HH}HHHHHLHEHHUHLHHLLxH;HHNHILIHHLIH;OJ<HHJHE*HxHJHE \ZHEHH\HUHMHDžHHDžHHDžHHDžHHHUHHEZHHHHHHHpHUHELhEdHZL`HDžHDžHDžHHCHHCHHDžLIT$HIt$Hƃ!ʅtHHHDHCHHDžMML9HILHFHHpHHXHFILhIǹH9gLJ< HAIHXHHE*HAIJ8HE \ Td.AHH@HHDžP HDžXHDž`HDžhHH@HDžHHMHUHDžLHDžHHLHDžHHHDžHDžHL@H+A$HDž HDž(HDž0HDž8HHHDžHHH@ HcH HHHDžHDžpHDžxHpAHHQHHtHHpHOEHpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDHHHIAH LHމ ~HHtHPHѺHHHHtHWHH5HHHHHHH}HHHHHuHEHtHHĈ[A\A]A^A_]UHAWAVAUATSH(HHHHDHH@HtIHHHEHHP(HH@ HH)HHHEHLp0HHP@HH@8HH)HHHELHIM)HMHUHDžLHDž H(HLHDž8H@H0HDžHDžHHP(H@ HH)HHHHHHHEHEHHHIHMHUHDž`LHDžpHxHhLHDžHHHDžPHDžXHPHP@H@8HH)HHHHHHHEHHEHHHHHHDHHEIIHDžP HDžXHDž`HDžhHDž@HDžHHyH@HH@HtH)HDžP HDž`HDžhHDžXHH@HDžHHuHMHDžLLHDž H(HLHDž8H@H0HUHHHH@HHHDžP HDž`HDžhHDžXHH@HDžHHDž HDžHDžHDžHHpHDžxHpH@HHKHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHHH}HHHHHMLMLUMHLL9uHILHHHLHL9CHHHHHHHE f(\f(HE HHHUHMHDžLHDž H(HDžHHDž8H@H0HUHHHHHHHHrHHtMHMHUHHHYLbHDžHDžHDž H(HCHHCH0HDž8L@IT$HIt$Hƃ!ʅtHHHDH HHDžML9H0ILHBIN(H9ZHJ4HxINH}B\f( fTf.@@mHEIIHDžP HDžXHDž`HDžhHDž@HDžHHyH@HH@HtHlHDžP HDž`HDžhHDžXHH@HDžHHuHMHDžLLHDž H(HLHDž8H@H0HUHHHH@HHkHDžP HDž`HDžhHDžXHH@HDžHHDž HDžHDžHDžHHpHDžxHpH@HH{HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHihHH}HHHHHh.MLMLUMH*LL9uHILHHHLHL9CHHHHHHHE f(\f(HE HHHUHMHDžLHDž H(HDžHHDž8H@H0HUHHHZHHHvHHMHMHUH*HZHYLbHDžHDžHDž H(HCHHCH0HDž8L@IT$HIt$Hƃ!ʅtHHHDHhHHDžML9H0ILHBIN(H9ZHJ4HxINH}B\f( ufTf.@@1HHDžML9H ILHBIN(H9ZHJ4HxINH}B\f( >fTf.@@MHMHUH*MHYLbHDžHDžHDž H(HCHHCH0HDž8L@IT$HIt$Hƃ!ʅtHHHDH-HHDžML9H0ILHBIN(H9WHJ4HxINH}B\( T.@@HHHHѺHHHHDH HHIAH Hމ/~HHtHPHѺHH=.HHtH{H HHHH0H }HHHH0HHEHtH!H[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEIIH(H@HtIH(HHEH(HP(H(H@ HH)HHHEMIHUHDžpHHDžHHxHDž`HDžhH`HP(H@ HH)HHHHHHHEHEHHHHHHDHHEHDž0 HDž@HDžHHDž8HH HDž(HMHDž LLHDž0H8H(HUHHHH HHHDž HDž0HDž8HDž(HHHDžHMHDž0LHHDž@HHH8HUH H(H HHHHDž0 HDž@HDžHHDž8HH HDž(HDž HDž0HDž8HDž(HHHDžHH HH7HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHH0H}HHHH0H~ ML]LMIظL9AHHHIJ4 HU*HIH4:HU \HUHHEHDž HDž0H8HDž(HEHHDžHHHXHXHHHH LHULHLzHDž HDž(HDž0L8IGHIWtHHHDHHHDžMH߸L9jHHHIHHHM *HHHHHHM \ (fTf.ɉ HHHDž0 HDž8HDž@HDžHH@H HDž(HUHDž@HHDžPHXHHHDž0HDž8H0H HH(H@ HH)HHHHHHDžP HDžXHDž`HDžhHPH@HDžHHH@H HcH HH@HDžHDžpHDžxHpAH HHtHHpH%EHpHtH`HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH H0H$HHHDH(HP#$L ALHILHtH%HHHDHINjP$%L .AHLHHtHlP%HѺLH"LHtH:HMHDž LLHDžHHHUHpHxHpHH-HHHHѺHHHHDHIHIAH 0L~HHtHEHHHDH/HPL ALHPLHtHHHHDHINjPL 5AHLHHtHsPHѺLH!LHtHAHMHDžLHHDžHHHUHpHxHpH H!H HHHѺHHHHDHIHIAH JL~HHtHLHHHDH6HPL ALHWLHtHHHHDHINjPL <AHLHHtHzPHѺLH LHtHHMHEMLhHDžHDžHDžLIEHIUtHHHDHHpHDžxILL9JHpHHIJ49HM HHHJ41HM *f(\f(HHpH HGHpHtH?H HHHѺHHHHDHHHIAH Hމ'~HHtHPHѺHH5HHtHsHHH>,HHHHѺHHHHDHHHIAH Hމ@~HHtHPHѺHHNHHtHHHHHH H}HHHH HHEHtH2H[A\A]A^A_]UHAWAVAUATSHH8H0H(H DH0H@HtHH0HHEH0HP(H0H@ HH)HHHEIIH8H@HtIH8HHEH8HP(H8H@ HH)HHHEMIHUHDžpHHDžHHxHDž`HDžhH`HP(H@ HH)HHHHHHHEHEHHHHHHDHHEHDž@ HDžPHDžXHDžHHH0HDž8HMHDž0LLHDž@HHH8HUH H(H H0HHHDž0 HDž@HDžHHDž8HH HDž(HMHDž@LHHDžPHXHHHUH0H8H0H HHHDž@ HDžPHDžXHDžHHH0HDž8HDž0 HDž@HDžHHDž8HH HDž(H H0HHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHHH@H }HHHH@H ML]LMIظL9MHHHIJ4 HU HIH4:HUZf(\f(HUHHEHDž0HDž@HHHDž8HEH HDž(H(HHXHXH HHH LHULH(LzHDž0HDž8HDž@LHIGHIWtHHHDHH HDž(MH߸L9vH HHIHHHM HHHHHHMZf(\f( !fTf.ɉ HH HDž@ HDžHHDžPHDžXH@H0HDž8HUHDžPHHDž`HhHXHDž@HDžHH@H0HH(H@ HH)HHHHHHDž` HDžhHDžpHDžxHPHPHDžXHHPH0 HcH HHPHDžHDžHDžHAHH HtHHHEHHtHYHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH H H0H HHHDH(H P L ALHILHtHվ HHHDH迾INj P L .AHLHHtHl PHѺLHLHtH:HMHDžLHHDžHHHUHHHH0HyH0HHHѺH脽HHHDH褽IHIAH CLǼ~HHtHEHHHDH/HPL ALHPLHtHܼHHHDHƼINjPL 5AHLHHtHsPHѺLH LHtHAMHEMLhHDžHDžHDžLIEHIUtHHHDH߻HHDžILL9FHHHIJ49HMZHHHJ41HM \HHH0HD HHtH<H0HHHѺHHHHDHHHIAH Hމ$~HHtH袺PHѺHH2 HHtHpH(HH;HHHHѺHHHHDHHHIAH Hމ=~HHtH軹PHѺHHK HHtH艹H HHHH0H }HHHH0HǶHEHtH/H[A\A]A^A_]UHAWAVAUATSHH8H0H(H DH0H@HtHH0HHEH0HP(H0H@ HH)HHHEIIH8H@HtIH8HHEH8HP(H8H@ HH)HHHEMIHUHDžpHHDžHHxHDž`HDžhH`HP(H@ HH)HHHHHHHEHEHHHHHHDH豷HEHDž@ HDžPHDžXHDžHHH0HDž8HMHDž0LLHDž@HHH8HUH H(H H0HH葶HDž0 HDž@HDžHHDž8HH HDž(HMHDž@LHHDžPHXHHHUH0H8H0H HHHDž@ HDžPHDžXHDžHHH0HDž8HDž0 HDž@HDžHHDž8HH HDž(H H0HHEHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHH۲H@H }HHHH@H茲 ML]LMIظL9EHHHIJ4 HUHIH4:HU \ZHUHHEHDž0HDž@HHHDž8HEH HDž(H(HHXHXH HHH LHULH(LzHDž0HDž8HDž@LHIGHIWtHHHDH詳H HDž(MH߸L9mH HHIHHHMHHHHHHM \ DTZf.ɉ HH HDž@ HDžHHDžPHDžXH@H0HDž8HUHDžPHHDž`HhHXHDž@HDžHH@H0HH(H@ HH)HHHHHHDž` HDžhHDžpHDžxHPHPHDžXHHPH0 HcH HHPHDžHDžHDžHAHH HtH荱HHEHHtHgHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH H H0HrHHIAH Hމaq~HHtHqPHѺHHoHHtHqH HHH:oH0H }HHHH0HnHEHtHSqH[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEIIH(H@HtIH(HHEH(HP(H(H@ HH)HHHEMIHUHDžpHHDžHHxHDž`HDžhH`HP(H@ HH)HHHHHHHEHEHHHHHHDHoHEHDž0 HDž@HDžHHDž8HH HDž(HMHDž LLHDž0H8H(HUHHHH HHnHDž HDž0HDž8HDž(HHHDžHMHDž0LHHDž@HHH8HUH H(H HHHnHDž0 HDž@HDžHHDž8HH HDž(HDž HDž0HDž8HDž(HHHDžHH HHi~HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHjH0H}HHHH0Hj ML]LMIظL9AHHHIJ4 HU*HIH4:HU \HUHHEHDž HDž0H8HDž(HEHHDžHZXHXHHyHH LHULHZLzHDž HDž(HDž0L8IGHIWtHHHDHkHHDžMH߸L9jHHHIHHHM *HHHHHHM \ LyfTf.ɉ HHHDž0 HDž8HDž@HDžHH@H HDž(HUHDž@HHDžPHXHHHDž0HDž8H0H HH(H@ HH)HHHHHHDžP HDžXHDž`HDžhHPH@HDžHHH@H HcH HH@HDžHDžpHDžxHpAH.iHHtHiHpH,EHpHtHiHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH H0HSH P L `ALH_RLHtHR HHHDHRINj P L D`AHLQHHtHR PHѺLHLHtHPRHMHDžLHHDžHHHUHHHH0H菨H0HHHѺHQHHHDHQIHIAH Y_LP~HHtH[QHHHDHEQHPL ^ALHfPLHtHPHHHDHPINjPL K^AHLPHHtHPPHѺLHLHtHWPMHEMLhHDžHDžHDžLIEHIUtHHHDHOHHDžILL9FHHHIJ49HMZHHHJ41HM \HHH0HZHHtHROH0HHHѺHNHHHDHOHHIAH \Hމ:N~HHtHNPHѺHHHHHtHNH(HHHHHHѺHNHHHDH0NHHIAH [HމSM~HHtHMPHѺHHaHHtHMH HHH,KH0H }HHHH0HJHEHtHEMH[A\A]A^A_]UHAWAVAUATSHH8H0H(H DH0H@HtHH0HHEH0HP(H0H@ HH)HHHEIIH8H@HtIH8HHEH8HP(H8H@ HH)HHHEMIHUHDžpHHDžHHxHDž`HDžhH`HP(H@ HH)HHHHHHHEHEHHHHHHDHKHEHDž@ HDžPHDžXHDžHHH0HDž8HMHDž0LLHDž@HHH8HUH H(H H0HHJHDž0 HDž@HDžHHDž8HH HDž(HMHDž@LHHDžPHXHHHUH0H8H0H HH JHDž@ HDžPHDžXHDžHHH0HDž8HDž0 HDž@HDžHHDž8HH HDž(H H0HH[ZHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHHFH@H }HHHH@HF ML]LMIظL9EHHHIJ4 HUHIH4:HU \ZHUHHEHDž0HDž@HHHDž8HEH HDž(H(ZXHXH HUHH LHULH( LzHDž0HDž8HDž@LHIGHIWtHHHDHGH HDž(MH߸L9fH HHIHHHMHHHHHHM \ RUT .ɉ HH HDž@ HDžHHDžPHDžXH@H0HDž8HUHDžPHHDž`HhHXHDž@HDžHH@H0HH(H@ HH)HHHHHHDž` HDžhHDžpHDžxHPHPHDžXHHPH0 HcH HHPHDžHDžHDžHAH&EH HtHEHH$EHHtH|EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH H H0H~HHtHh?HHHDHR?HPL LALHs>LHtH>HHHDH>INjPL XLAHL>HHtH>PHѺLH&LHtHd>MHEMLhHDžHDžHDžLIEHIUtHHHDH>HHDžILL9@HHHIJ49HMHHHJ41HM \HHH0HHHtHe=H0HHHѺH =HHHDH*=HHIAH JHމM<~HHtH<PHѺHH[HHtH<H(HH(HHHHѺH#<HHHDHC<HHIAH JHމf;~HHtH;PHѺHHtHHtH;H HHH?9H0H }HHHH0H8HEHtHX;H[A\A]A^A_]UHAWAVAUATSHH(H HHD H H@HtHH HHEH HP(H H@ HH)HHHEIIH(H@HtIH(HHEH(HP(H(H@ HH)HHHEMIHUHDžpHHDžHHxHDž`HDžhH`HP(H@ HH)HHHHHHHEHEHHHHHHDH9HEHDž0 HDž@HDžHHDž8HH HDž(HMHDž LLHDž0H8H(HUHHHH HH8HDž HDž0HDž8HDž(HHHDžHMHDž0LHHDž@HHH8HUH H(H HHH8HDž0 HDž@HDžHHDž8HH HDž(HDž HDž0HDž8HDž(HHHDžHH HHnHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH5H0H}HHHH0H4 ML]LMIظL9GHHHIJ4 HU*HIH4:HU \ZHUHHEHDž HDž0H8HDž(HEHHDžHZXHXHHCHHp LHULHLzHDž HDž(HDž0L8IGHIWtHHHDH5HHDžMH߸L9hHHHIHHHM *HHHHHHM \ aCT.ɉ HHHDž0 HDž8HDž@HDžHH@H HDž(HUHDž@HHDžPHXHHHDž0HDž8H0H HH(H@ HH)HHHHHHDžP HDžXHDž`HDžhHPH@HDžHHH@H HcH HH@HDžHDžpHDžxHpAH53HHtH3HpH3EHpHtH3HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHH H0HALHt0LHtH1%HHHDH0INjP$%L Y>AHL0HHtH0P%HѺLH'LHtHe0HMHDž LLHDžHHHUHpHxHpHHJHHHHѺH/HHHDH/IHIAH [=L.~HHtHp/HHHDHZ/HPL <ALH{.LHtH/HHHDH.INjPL `<AHL.HHtH.PHѺLH.LHtHl.HMHDžLHHDžHHHUHpHxHpH H諄H HHHѺH-HHHDH-IHIAH u;L,~HHtHw-HHHDHa-HPL ;ALH,LHtH-HHHDH,INjPL g:AHL,HHtH,PHѺLH5}LHtHs,MHEMLhHDžHDžHDžLIEHIUtHHHDH,HpHDžxILL9HHpHHIJ49HM HHHJ41HM *(\(HHpH HHpHtHl+H HHHѺH+HHHDH1+HHIAH 8HމT*~HHtH*PHѺHHb{HHtH*HHH/HHHHѺH**HHHDHJ*HHIAH 8Hމm)~HHtH)PHѺHH{zHHtH)HHHHF'H H}HHHH H&HEHtH_)H[A\A]A^A_]UHAWAVAUATSHH(H HH H@HtHH HHEH HP(H H@ HH)HHHEIIH(H@HtIH(HHEH(HP(H(H@ HH)HHHEMIHUHDž`HHDžpHxHhHDžPHDžXHPHP(H@ HH)HHHHHHHEHEHHHHHHDH'HEHHHDž0 HDž@HDžHHDž8HH HDž(HMHDž LLHDž0H8H(HUHHHH HH&HDž HDž0HDž8HDž(HHHDžHMHDž0LHHDž@HHH8HUH H(H HHH&HDž0 HDž@HDžHHDž8HH HDž(HDž HDž0HDž8HDž(HHHDžHH HHl6HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHH#H0H }HHHH0H" ML]LMIظL9?HHHIJ4 HUHIH4:HU \HUHHEHDž HDž0H8HDž(HEHHDžHHHHHHH1HH^ LHELLxHDž HDž(HDž0L8IGHIWtHHHDH#HHDžMH߸L9hHHHIHHHMHHHHHHM \ g1fTf.ɉ HHHDž0 HDž8HDž@HDžHH0H HDž(HUHDž@HHDžPHXHHHDž0HDž8H0H HH(H@ HH)HHHHHHDžP HDžXHDž`HDžhH@H@HDžHHH@H HcH HH@HDžHDžpHDžxHpAHI!HHtH!HpHGqEHpHtH!HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHH H,H ,HHHDH IH ,,IAH D.L ,~H HtH ,PHѺLHqLHtHO HH5-HpHUHH腁HHH HѺH #HHHDHIH #IAH D-#L ~HHtH} $HHHDHgH P# $L ,ALHLHtH %HHHDHINj P$ %L m,AHL#HHtH P%HѺLH;oLHtHyHMHDžLLHDžHHHUHpHxHpH HpH HHHѺHHHHDHIHIAH o+L~HHtHHHHDHnHPL +ALHLHtHHHHDHINjPL t*AHL*HHtHPHѺLHBmLHtHHMHDžLHHDžHHHUHpHxHpH HnH HHHѺHHHHDHIHIAH )L ~HHtHHHHDHuHPL )ALHLHtH"HHHDH INjPL {(AHL1HHtHPHѺLHIkLHtHMHEMLhHDžHDžHDžLIEHIUtHHHDH%HpHDžxILL9@HpHHIJ49HMHHHJ41HM \HHpH HkHpHtHH HHHѺH-HHHDHMHHIAH &Hމp~HHtHPHѺHH~iHHtHHHHxHHHHѺHFHHHDHfHHIAH )&Hމ~HHtHPHѺHHhHHtHH HHHbH H }HHHH HHEHtH{H[A\A]A^A_]UHAWAVAUATSHH(H HH H@HtHH HHEH HP(H H@ HH)HHHEIIH(H@HtIH(HHEH(HP(H(H@ HH)HHHEMIHUHDž`HHDžpHxHhHDžPHDžXHPHP(H@ HH)HHHHHHHEHEHHHHHHDHHEHHHDž0 HDž@HDžHHDž8HH HDž(HMHDž LLHDž0H8H(HUHHHH HHHDž HDž0HDž8HDž(HHHDžHMHDž0LHHDž@HHH8HUH H(H HHH6HDž0 HDž@HDžHHDž8HH HDž(HDž HDž0HDž8HDž(HHHDžHH HH$HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHHH0H }HHHH0H ML]LMIظL9EHHHIJ4 HUZHIH4:HU \HUHHEHDž HDž0H8HDž(HEHHDžHHHHHHH HH5L LHELLxHDž HDž(HDž0L8IGHIWtHHHDHHHDžMH߸L9nHHHIHHHMZHHHHHHM \ wfTf.ɉ HHHDž0 HDž8HDž@HDžHH0H HDž(HUHDž@HHDžPHXHHHDž0HDž8H0H HH(H@ HH)HHHHHHDžP HDžXHDž`HDžhH@H@HDžHHH@H HcH HH@HDžHDžpHDžxHpAHYHHtHHpHW_EHpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHH H,H,HHHDHIH ,,IAH TL,~H HtH,PHѺLH!_LHtH_HH5H^HUHHoHHH HѺH  #HHHDH IH #IAH T#L  ~HHtH  $HHHDHw H P# $L ALH LHtH$  %HHHDH INj P$ %L }AHL3 HHtH  P%HѺLHK]LHtH HMHDžLLHDžHHHUHpHxHpH HbH HHHѺH HHHDH IHIAH L ~HHtH HHHDH~ HPL "ALH LHtH+ HHHDH INjPL AHL: HHtH PHѺLHR[LHtH HMHDžLHHDžHHHUHpHxHpH H)\H HHHѺH HHHDH IHIAH L ~HHtH HHHDH HPL )ALHLHtH2 HHHDH INjPL AHLAHHtHPHѺLHYYLHtHMHEMLhHDžHDžHDžLIEHIUtHHHDH5HpHDžxILL9NHpHHIJ49HM HHHJ41HMZf(\f(HHpH HYHpHtHH HHHѺH/HHHDHOHHIAH Hމr~HHtHPHѺHHWHHtHHHHfHHHHѺHHHHHDHhHHIAH +Hމ~HHtH PHѺHHVHHtHH HHHdH H }HHHH HHEHtH}H[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEIIHH@HtIHHHEHHP(HH@ HH)HHHEMIHUHDž`HHDžpHxHhHDžPHDžXHPHP(H@ HH)HHHHHHHEHEHHHHHHDHHEHHHDž HDž0HDž8HDž(HHHDžHMHDž LLHDž H(HHUHHHHHHHDž HDž HDž(HDžHHHDžHMHDž LHHDž0H8H(HUHHHHHH8HDž HDž0HDž8HDž(HHHDžHDž HDž HDž(HDžHHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH H H}HHHH H ML]LMIظL9AHHHIJ4 HU*HIH4:HU \HUHHEHDžHDž H(HDžHEHHDžHHHHHHHHH;: LHELLxHDžHDžHDž L(IGHIWtHHHDHHHDžMH߸L9jHHHIHHHM *HHHHHHM \ fTf.ɉ HHHDž HDž(HDž0HDž8H0HHDžHUHDž0HHDž@HHH8HDž HDž(H HHH(H@ HH)HHHHHHDž@ HDžHHDžPHDžXH@H0HDž8HH0H HcH HH0HDžpHDž`HDžhH`AHcHHtHH`HaMEH`HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHH H,H,HHHDHIH ,,IAH ^ L,~H HtH,PHѺLH+MLHtHiHH5 HLHUHH]HHH HѺH #HHHDHIH #IAH ^ #L ~HHtH $HHHDHH P# $L  ALHLHtH. %HHHDHINj P$ %L AHL=HHtH P%HѺLHUKLHtHHMHDžp LLHDžHHxHUH`HhH`HHxUHHHHѺHHHHDHIHIAH L ~HHtHHHHDHHPL ,ALHLHtH5HHHDHINjPL AHLDHHtHPHѺLH\ILHtHHMHDžpLHHDžHHxHUH`HhH`HH3JHHHHѺHHHHDHIHIAH L'~HHtHHHHDHHPL 3ALHLHtH<HHHDH&INjPL AHLKHHtHPHѺLHcGLHtHMHEMLhHDžpHDžxHDžLIEHIUtHHHDH?H`HDžhILL9JH`HHIJ49HM HHHJ41HM *f(\f(HH`HHGH`HtHHHHHѺH=HHHDH]HHIAH Hމ~HHtHPHѺHHEHHtHHHHTHHHHѺHVHHHDHvHHIAH 9Hމ~HHtHPHѺHHDHHtHHHHHrHH}HHHHH#HEHtHH[A\A]A^A_]UHAWAVAUATSHH(H HH H@HtHH HHEH HP(H H@ HH)HHHEIIH(H@HtIH(HHEH(HP(H(H@ HH)HHHEMIHUHDž`HHDžpHxHhHDžPHDžXHPHP(H@ HH)HHHHHHHEHEHHHHHHDHHEHDž0 HDž@HDžHHDž8HH HDž(HMHDž LLHDž0H8H(HUHHHH HHHDž HDž0HDž8HDž(HHHDžHMHDž0LHHDž@HHH8HUH H(H HHHLHDž0 HDž@HDžHHDž8HH HDž(HDž HDž0HDž8HDž(HHHDžHH HHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHH4H0H }HHHH0H ML]LMIظL9MHHHIJ4 HU HIH4:HUZf(\f(HUHHEHDž HDž0H8HDž(HEHHDžZHHHHHHH;( LHELZLxHDž HDž(HDž0L8IGHIWtHHHDHHHDžMH߸L9vHHHIHHHM HHHHHHMZf(\f( ofTf.ɉ HHHDž0 HDž8HDž@HDžHH0H HDž(HUHDž@HHDžPHXHHHDž0HDž8H0H HH(H@ HH)HHHHHHDžP HDžXHDž`HDžhH@H@HDžHHH@H HcH HH@HDžHDžpHDžxHpAHQHHtHHpHO;EHpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHH H,H,HHHDHIH ,,IAH LL ,~H HtH,PHѺLH;LHtHWHH5H:HUHHKHHH HѺH #HHHDHIH #IAH L#L ~HHtH $HHHDHoH P# $L ALHLHtH %HHHDHINj P$ %L uAHL+HHtH P%HѺLHC9LHtHHMHDžLLHDžHHHUHpHxHpH H:H HHHѺHHHHDHIHIAH wL~HHtHHHHDHvHPL ALHLHtH#HHHDH INjPL |AHL2HHtHPHѺLHJ7LHtHHMHDžLHHDžHHHUHpHxHpH HHDž0 HDž@HDžHHDž8HH HDž(HDž HDž0HDž8HDž(HHHDžHH HHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH HHH&H0H }HHHH0H ML]LMIظL9EHHHIJ4 HUHIH4:HU \ZHUHHEHDž HDž0H8HDž(HEHHDžZHHHHHHH5 LHEL LxHDž HDž(HDž0L8IGHIWtHHHDHHHDžMH߸L9fHHHIHHHMHHHHHHM \ T .ɉ HHHDž0 HDž8HDž@HDžHH0H HDž(HUHDž@HHDžPHXHHHDž0HDž8H0H HH(H@ HH)HHHHHHDžP HDžXHDž`HDžhH@H@HDžHHH@H HcH HH@HDžHDžpHDžxHpAHaHHtHHpH_)EHpHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHH H,H,HHHDHIH ,,IAH \L,~H HtH,PHѺLH))LHtHgHH5H(HUHH9HHH HѺH #HHHDHIH #IAH \#L ~HHtH $HHHDHH P# $L ALHLHtH, %HHHDHINj P$ %L AHL;HHtH P%HѺLHS'LHtHHMHDžLLHDžHHHUHpHxHpH H,H HHHѺHHHHDHIHIAH L~HHtHHHHDHHPL *ALHLHtH3HHHDHINjPL AHLBHHtHPHѺLHZ%LHtHHMHDžLHHDžHHHUHpHxHpH H*H HHHѺHHHHDHIHIAH L%~HHtHHHHDHHPL 1ALHLHtH:HHHDH$INjPL AHLIHHtHPHѺLHa#LHtHMHEMLhHDžHDžHDžLIEHIUtHHHDH=HpHDžxILL9@HpHHIJ49HMHHHJ41HM \HHpH HN(HpHtHH HHHѺHEHHHDHeHHIAH Hމ~HHtHPHѺHH!HHtHHHHc1HHHHѺH^HHHDH~HHIAH AHމ~HHtHPHѺHH HHtHH HHHzH H }HHHH H+HEHtHH[A\A]A^A_]UHAWAVAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEIIHH@HtIHHHEHHP(HH@ HH)HHHEMIHUHDž`HHDžpHxHhHDžPHDžXHPHP(H@ HH)HHHHHHHEHEHHHHHHDHHEHDž HDž0HDž8HDž(HHHDžHMHDž LLHDž H(HHUHHHHHHHDž HDž HDž(HDžHHHDžHMHDž LHHDž0H8H(HUHHHHHHTHDž HDž0HDž8HDž(HHHDžHDž HDž HDž(HDžHHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH<H H}HHHH H ML]LMIظL9GHHHIJ4 HU*HIH4:HU \ZHUHHEHDžHDž H(HDžHEHHDžZHHHHH%HHI LHELLxHDžHDžHDž L(IGHIWtHHHDHHHDžMH߸L9hHHHIHHHM *HHHHHHM \ T.ɉ HHHDž HDž(HDž0HDž8H0HHDžHUHDž0HHDž@HHH8HDž HDž(H HHH(H@ HH)HHHHHHDž@ HDžHHDžPHDžXH@H0HDž8HH0H HcH HH0HDžpHDž`HDžhH`AHsHHtHH`HqEH`HtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHH H,H,HHHDH IH ,,IAH nL-,~H HtH,PHѺLH;LHtHyHH5H HUHH'HHH HѺH #HHHDHIH #IAH n#L) ~HHtH $HHHDHH P# $L "ALHLHtH> %HHHDH(INj P$ %L AHLMHHtH P%HѺLHeLHtHHMHDžp LLHDžHHxHUH`HhH`HHHHHHѺHHHHDH IHIAH L0~HHtHHHHDHHPL <ALHLHtHEHHHDH/INjPL AHLTHHtHPHѺLHlLHtHHMHDžpLHHDžHHxHUH`HhH`HHHHHHѺHHHHDHIHIAH L7~HHtHHHHDHHPL CALHLHtHLHHHDH6INjPL AHL[HHtHPHѺLHsLHtHMHEMLhHDžpHDžxHDžLIEHIUtHHHDHOH`HDžhILL9HH`HHIJ49HM HHHJ41HM *(\(HH`HHXH`HtH調HHHHѺHOHHHDHoHHIAH Hމ蒾~HHtHPHѺHHHHtH޾HHHmHHHHѺHhHHHDH舾HHIAH KHމ諽~HHtH)PHѺHHHHtHHHHH脻HH}HHHHH5HEHtH蝽H[A\A]A^A_]UHAVAUATSHHHH@H8H0D,H@H@HtHH@HHEH@HP(H@H@ HH)HHHEIIHUHDžHHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEȺHHHHHHDHvHEHDžP HDžXHDž`HDžhHDž@HDžHHyH@HH@HtHHDžP HDž`HDžhHDžXHH@HDžHHMHDž@LHHDžPHXHHHUH0H8H0H@HHߺHDž@ HDžPHDžXHDžHHH0HDž8HDžP HDž`HDžhHDžXHH@HDžHH@H0HH1HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHǷHPH0}HHHHPHx LLMHHIظL93HHHIH4:HUf(\f(HUHHEHDžPHDž`HhHDžXHEH@HDžHH8HHHH@HHHK MHUHH(H8 LjHDžPHDžXHDž`LhIEHIUtHHHDH蚸H@HDžHH߸L9SH@HHHJ41HM(\f( =fT f.ɉ HH@HDž@ HDžHHDžPHDžXHpH0HDž8HUHDž`HHDžpHxHhHDžPHDžXHPH0HH(H@ HH)HHHHHHDžp HDžxHDžHDžHH`HDžhHH`H0 HcH HH`HDžHDžHDžHAHH@HtH蛶HHEHHtHuHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlH薵lHHHDH趵IH`llIAH Lٴl~H`HtHWlPHѺLHLHtH%HH5HHUHPH[HPH@HLHѺH蒴L#HHHDH貴IH@LL#IAH #LճL~H@HtHSL$HHHDH=IƋLP#L$L ALLfLHtHL%HHHDHܳIŋLP$L%L KALLLHtH葳LP%HѺLH!LHtH_HHH H*H HHHѺHHHHDH IHIAH L,~HHtH課HHHDH蔲IƋPL <ALL轱LHtHIHHHDH3IŋPL ALL\LHtHPHѺLHxLHtH趱HMHDžLHHDžHHHUHHHH@HOH@HH HѺH HHHDH IH IAH LC ~HHtH HHHDH諰IƋ P L SALLԯLHtH` HHHDHJIŋ P L ALLsLHtH PHѺLHLHtHͯMHUHHLbHDžHDžHDžLID$HIT$tHHHDHYHHDžH߸L9/HHHHJ4)HM\HHH@HHHtHЮH@HHHѺHuHHHDH蕮HHIAH FHމ踭~HHtH6PHѺHHHHtHH8HH HHHHѺH莭HHHDH训HHIAH qHމѬ~HHtHOPHѺHHHHtHH0HHH說H@H0}HHHH@H[HEHtHìH[A\A]A^]UHAVAUATSHHHH@H8H0D,H@H@HtHH@HHEH@HP(H@H@ HH)HHHEIIHUHDžHHDžHHHDžHDžHHP(H@ HH)HHHHHHHEHEȺHHHHHHDH螫HEHDžP HDžXHDž`HDžhHDž@HDžHHyH@HH@HtHHDžP HDž`HDžhHDžXHH@HDžHHMHDž@LHHDžPHXHHHUH0H8H0H@HHHDž@ HDžPHDžXHDžHHH0HDž8HDžP HDž`HDžhHDžXHH@HDžHH@H0HHYHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH0HHHHPH0}HHHHPH蠦* LLMHHZIظL93HHHIH4:HU f(\f(HU HHEHDžPHDž`HhHDžXHEH@HDžHH8HHHH@HHH W MHUHHZ(H8 LjHDžPHDžXHDž`LhIEHIUtHHHDH趧H@HDžHH߸L9SH@HHHJ41HM(\f( YfT f.ɉ HH@HDž@ HDžHHDžPHDžXHpH0HDž8HUHDž`HHDžpHxHhHDžPHDžXHPH0HH(H@ HH)HHHHHHDžp HDžxHDžHDžHH`HDžhHH`H0 HcH HH`HDžHDžHDžHAH;H@HtH跥HH9EHHtH葥HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH0H0,H`HlH貤lHHHDHҤIH`llIAH 6Ll~H`HtHslPHѺLHLHtHAHH5HHUHPHwHPH@HLHѺH讣L#HHHDHΣIH@LL#IAH 6#LL~H@HtHoL$HHHDHYIƋLP#L$L ALL肢LHtHL%HHHDHIŋLP$L%L gALL!LHtH譢LP%HѺLH=LHtH{HHH H H HHHѺHHHHDH%IHIAH LH~HHtHơHHHDH谡IƋPL XALL٠LHtHeHHHDHOIŋPL ALLxLHtHPHѺLHLHtHҠHMHDžLHHDžHHHUHHHH@HkH@HH HѺH HHHDH<IH IAH ۭL_ ~HHtHݟ HHHDHǟIƋ P L oALLLHtH| HHHDHfIŋ P L լALL菞LHtH PHѺLHLHtHMHUHHZLbHDžHDžHDžLID$HIT$tHHHDHoHHDžH߸L9/HHHHJ4)HM\HHH@HHHtHH@HHHѺH苝HHHDH諝HHIAH \HމΜ~HHtHLPHѺHHHHtHH8HHHHHHѺH褜HHHDHĜHHIAH Hމ~HHtHePHѺHHHHtH3H0HHHH@H0}HHHH@HqHEHtHٛH[A\A]A^]UHAVAUATSHHXHPHHH@DkH@HHHѺHjHHHDHkHHIAH xHމ&j~HHtHjPHѺHH4HHtHrjH8HH=HHHHѺHiHHHDHjHHIAH wHމ?i~HHtHiPHѺHHMHHtHiH0HHHgH@H0}HHHH@HfHEHtH1iH[A\A]A^]UHAVAUATSHHXHPHHH@Dl~H`HtH?lPHѺLH藏LHtH>HH5TLHgHUHPH HPH@HLHѺHB>L#HHHDHb>IH@LL#IAH K#L=L~H@HtH>L$HHHDH=IƋLP#L$L KALL=LHtH=L%HHHDH=IŋLP$L%L JALL<LHtHA=LP%HѺLHэLHtH=HHH H螝H HHHѺH<HHHDH<IHIAH EJL;~HHtHZ<HHHDHD<IƋPL IALLm;LHtH;HHHDH;IŋPL RIALL ;LHtH;PHѺLH(LHtHf;HMHDžLHHDžHHHUHHHH@HH@HH HѺH: HHHDH:IH IAH oHL9 ~HHtHq: HHHDH[:IƋ P L HALL9LHtH: HHHDH9Iŋ P L iGALL#9LHtH9 PHѺLH?LHtH}9MHUHHZLbHDžHDžHDžLID$HIT$tHHHDH9HHDžH߸L9/HHHHJ4)HM\HHH@H肊HHtHz8H@HHHѺH8HHHDH?8HHIAH EHމb7~HHtH7PHѺHHpHHtH7H8HH=HHHHѺH87HHHDHX7HHIAH EHމ{6~HHtH6PHѺHH艇HHtH6H0HHHT4H@H0}HHHH@H4HEHtHm6H[A\A]A^]UHAVAUATSHHXHPHHH@DfT0f.ɉ HHPHDžP HDžXHDž`HDžhHpH@HDžHHUHDžpHHDžHHxHDž`HDžhH`H@HH(H@ HH)HHHHHHDž HDžHDžHDžHHpHDžxHHpH@ HcH HHpHDžHDžHDžHAH.HPHtH[/HH~EHHtH5/HFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH@H@HHDžH߸L9/HHHHJ4)HM\$HHH@Hc\HHtHH@HHHѺHZHHHDHzHHIAH +Hމ~HHtHPHѺHHUHHtHH8HHxeHHHHѺHsHHHDHHHIAH VHމ~HHtH4PHѺHHTHHtHH0HHHH@H0}HHHH@H@HEHtHH[A\A]A^]UHAVAUATSHHXHPHHH@DHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHH@HHHH`H@}HHHH`H' LLMHX*IظL97HHHIH4:HU (\(ZHU HHEHDž`HDžpHxHDžhHEHPHDžXHHZHHPH HH8L MHUHX*L MHUHH*80LjHDžPHDžXHDž`LhIEHIUtHHHDHH@HDžHH߸L9SH@HHHJ41HM8\f( fT0f.ɉ HH@HDž@ HDžHHDžPHDžXH`H0HDž8HUHDž`HHDžpHxHhHDžPHDžXHPH0HH(H@ HH)HHHHHHDžp HDžxHDžHDžHpH`HDžhHH`H0 HcH HH`HDžHDžHDžHAHvH@HtHHHtEHHtHHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHH8H84HPH\H\HHHDH IHP\\IAH qL0\~HPHtH\PHѺLH>LHtH|HH5HHUH@H)H@H0HPHѺHHHHtH HHHHHpH|HѺH薆|HHHDH趆HHp||IAH UHމم|~HpHtHW|HHHDHAIċ|P|L AHLjHHtH|HHHDHHË|P|L OALHމ LHtH蕅|PHѺHH%HHtHcHH\HHHHPH HPH8HDHѺH˄DHHHDHHH8DDIAH HމD~H8HtH茄DPHѺHHHHtHZHHH%HHH HѺH HHHDHHH IAH ǑHމ' ~HHtH襃 PHѺHH5HHtHsHHHHHH}HHHHH豀H [A\]UHATSH HHHHDHDž HDžHDžHDžHDžHDžHyHHHHtHvHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHߑHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHu~HH}HHHHH&~HZH\EHHHHHEHHH轺bHZH\ fTHf.HHtEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDH'HHIAH HމJ~~HHtH~PHѺHHXHHtH~HH5H(HHHHHHHѺH~HHHDH ~HHIAH HމC}~HHtH}HHHDH}IċPL SAHL|HHtH`}HHHDHJ}HËPL ALHމs|LHtH|PHѺHHHHtH|HHHHHpH|HѺHW||HHHDHw|HHp||IAH Hމ{|~HpHtH||HHHDH|Iċ|P|L AHL+{HHtH{|HHHDH{HË|P|L ALHމzLHtHV{|PHѺHHHHtH${HHZf(\f(HHHHPHHPH8HDHѺH~zDHHHDHzHH8DDIAH OHމyD~H8HtH?zDPHѺHHHHtH zHHHHHH HѺHy HHHDHyHH IAH zHމx ~HHtHXy PHѺHHHHtH&yHHHHvHH}HHHHHdvH [A\]UHATSHHHHHDHDž HDžHDžHDžHDžHDžHyHHHHtH)xHDž HDžHDžHDžHDžHDžHyHHHHtHwHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH蒇HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH(tHH}HHHHHsH*H\EHHHHHEHHHtZH*H\ ԃfTHf.HH/EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHtHHHDHtHHIAH FHމt~HHtHtPHѺHHHHtHQtHH5ЁHHHHHHHHѺHsHHHDHsHHIAH gHމr~HHtH|sHHHDHfsIċPL AHLrHHtHsHHHDHsHËPL tALHމ.rLHtHrPHѺHHJHHtHrHHHSHHHHѺHrHHHDH2rHHIAH HމUq~HHtHqHHHDHqIċPL eAHLpHHtHrqHHHDH\qHËPL ~ALHމpLHtHqPHѺHHHHtHpHH*f(\f(XHXH`H~H`HHHTHѺH=pTHHHDH]pHHHTTIAH ~HމoT~HHHtHoTPHѺHHHHtHoHH HH HHHѺHVoHHHDHvoHHIAH 9}Hމn~HHtHoPHѺHH觿HHtHnHHHHrlHH}HHHHH#lH[A\]UHATSH HHHHDHDž HDžHDžHDžHDžHDžHyHHHHtHmHDž HDžHDžHDžHDžHDžHyHHHHtHqmHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHQ}HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHiHH}HHHHHiHHZf(\f(EHHHHHEHNyHH'bHHZf(\f( {yfTHf.HHֻEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHijHHHDHjHHIAH wHމi~HHtH*jPHѺHH躺HHtHiHH5wwH芺HHHHHHHѺHbiHHHDHiHHIAH wHމh~HHtH#iHHHDH iIċPL vAHL6hHHtHhHHHDHhHËPL vALHމgLHtHahPHѺHHHHtH/hHHHHHpH|HѺHg|HHHDHgHHp||IAH xuHމf|~HpHtHzg|HHHDHdgIċ|P|L uAHLfHHtHg|HHHDHgHË|P|L rtALHމ,fLHtHf|PHѺHHHHHtHfHZH\HHHHPH)HPH8HDHѺHeDHHHDHfHH8DDIAH sHމ+eD~H8HtHeDPHѺHH9HHtHweHHHBHHH HѺHe HHHDH!eHH IAH rHމDd ~HHtHd PHѺHHRHHtHdHHHHbHH}HHHHHaH [A\]UHATSHHHHHDHDž HDžHDžHDžHDžHDžHyHHHHtHcHDž HDžHDžHDžHDžHDžHyHHHHtHcHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHrHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH_HH}HHHHHC_HH\ZEHHHHHEHoHHڛSHH\ LoTZHf.HH蒱EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH%`HHHDHE`HHIAH mHމh_~HHtH_PHѺHHvHHtH_HH53mHFHHH#HHHHѺH_HHHDH>_HHIAH lHމa^~HHtH^HHHDH^IċPL qlAHL]HHtH~^HHHDHh^HËPL kALHމ]LHtH^PHѺHH譮HHtH]HHHzHHpH|HѺHu]|HHHDH]HHp||IAH 4kHމ\|~HpHtH6]|HHHDH ]Iċ|P|L jAHLI\HHtH\|HHHDH\HË|P|L .jALHމ[LHtHt\|PHѺHHHHtHB\HH\LHLHPH诼HPH@HHHѺH[HHHHDH[HH@HHIAH {iHމZH~H@HtHk[HPHѺHHHHtH9[HH HH HHHѺHZHHHDHZHHIAH hHމZ~HHtHZPHѺHHHHtHRZHHHHWHH}HHHHHWH[A\]UHATSHHHHHDHDž HDžHDž HDž(HDžHDžHyHHHHtHUYHDž HDžHDž HDž(HDžHDžHyHHHHtHXHDž HDž HDž(HDžHHHDžHDž HDžHDžHDžHHHDžHHHHhHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHTUHH}HHHHHUH*H\ZEHHHHHEHdHH蚑]H*H\ eTZHf.HHPEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHUHHHDHVHHIAH gcHމ&U~HHtHUPHѺHH4HHtHrUHH5bHHHH襶HHHHѺHTHHHDHTHHIAH bHމT~HHtHTHHHDHTIċPL /bAHLSHHtHJIċPL WAHLgIHHtHIHHHDHIHËPL LWALHމILHtHIPHѺHH"HHtH`IHHH+HHpH|HѺHH|HHHDH IHHp||IAH VHމ-H|~HpHtHH|HHHDHHIċ|P|L =VAHLGHHtHJH|HHHDH4HHË|P|L UALHމ]GLHtHG|PHѺHHyHHtHGHH\HHHHPH`HPH8HDHѺHGDHHHDH?GHH8DDIAH THމbFD~H8HtHFDPHѺHHpHHtHFHHH=HHH HѺH8F HHHDHXFHH IAH THމ{E ~HHtHE PHѺHH艖HHtHEHHHHTCHH}HHHHHCH [A\]UHATSH HHHHDHDž HDžHDžHDžHDžHDžHyHHHHtHDHDž HDžHDžHDžHDžHDžHyHHHHtHSDHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH3THArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH@HH}HHHHHz@HZH\EHZHHEH0PHH }hHZH\ ePfTHZf.HH躒EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHMAHHHDHmAHHIAH NHމ@~HHtHAPHѺHH螑HHtH@HH5[NHnHHHKHHHHѺHF@HHHDHf@HHIAH MHމ?~HHtH@HHHDH?IċPL MAHL?HHtH?HHHDH?HËPL LALHމ>LHtHE?PHѺHHՏHHtH?HHHޞHHpH|HѺH>|HHHDH>HHp||IAH \LHމ=|~HpHtH^>|HHHDHH>Iċ|P|L KAHLq=HHtH=|HHHDH=HË|P|L VKALHމ=LHtH=|PHѺHH,HHtHj=HHZf(\f(HHHHPHHPH8HDHѺH<DHHHDH<HH8DDIAH JHމ<D~H8HtH<DPHѺHHHHtHS<HHHHHH HѺH; HHHDH;HH IAH IHމ ; ~HHtH; PHѺHH.HHtHl;HHHH8HH}HHHHH8H [A\]UHATSHHHHHDHDž HDžHDžHDžHDžHDžHyHHHHtHo:HDž HDžHDžHDžHDžHDžHyHHHHtH9HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHIHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHn6HH}HHHHH6H*H\EHZHHEHEHHr`H*H\ FfTHZf.HHgEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH6HHHDH7HHIAH ~DHމ=6~HHtH6PHѺHHKHHtH6HH5DHHHH輗HHHHѺH5HHHDH6HHIAH CHމ65~HHtH5HHHDH5IċPL FCAHL4HHtHS5HHHDH=5HËPL BALHމf4LHtH4PHѺHH肅HHtH4HHH苔HHHHѺHJ4HHHDHj4HHIAH BHމ3~HHtH 4HHHDH3IċPL AAHL3HHtH3HHHDH3HËPL AALHމ2LHtHI3PHѺHHكHHtH3HH*f(\f(XHXH`H趒H`HHHTHѺHu2THHHDH2HHHTTIAH F@Hމ1T~HHHtH62TPHѺHHƂHHtH2HH H蓒H HHHѺH1HHHDH1HHIAH q?Hމ0~HHtHO1PHѺHH߁HHtH1HHHH.HH}HHHHH[.H[A\]UHATSH HHHHDHDž HDžHDžHDžHDžHDžHyHHHHtH 0HDž HDžHDžHDžHDžHDžHyHHHHtH/HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH?HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH,HH}HHHHH+HHZf(\f(EHZHHEH~;HHWhhHHZf(\f( ;fTHZf.HH~EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH,HHHDH,HHIAH :Hމ+~HHtHT,PHѺHH|HHtH",HH59H|HHH͋HHHHѺH+HHHDH+HHIAH 89Hމ*~HHtHM+HHHDH7+IċPL 8AHL`*HHtH*HHHDH*HËPL E8ALHމ)LHtH*PHѺHH{HHtHY*HHHHHpH|HѺH)|HHHDH*HHp||IAH 7Hމ&)|~HpHtH)|HHHDH)Iċ|P|L 67AHL(HHtHC)|HHHDH-)HË|P|L 6ALHމV(LHtH(|PHѺHHryHHtH(HZH\HHHHPHSHPH8HDHѺH(DHHHDH2(HH8DDIAH 5HމU'D~H8HtH'DPHѺHHcxHHtH'HHH0HHH HѺH+' HHHDHK'HH IAH 5Hމn& ~HHtH& PHѺHH|wHHtH&HHHHG$HH}HHHHH#H [A\]UHATSHHHHHDHDž HDžHDžHDžHDžHDžHyHHHHtH%HDž HDžHDžHDžHDžHDžHyHHHHtHF%HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH&5HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH!HH}HHHHHm!HH\ZEHZHHEH#1HH]LHH\ n1TH.HHsEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHN"HHHDHn"HHIAH /Hމ!~HHtH"PHѺHHrHHtH!HH5\/HorHHHLHHHHѺHG!HHHDHg!HHIAH .Hމ ~HHtH!HHHDH IċPL .AHL HHtH HHHDH HËPL .ALHމLHtHF PHѺHHpHHtH HHH裀HHpH|HѺH|HHHDHHHp||IAH ]-Hމ|~HpHtH_|HHHDHIIċ|P|L ,AHLrHHtH|HHHDHHË|P|L W,ALHމLHtH|PHѺHH-oHHtHkHH\LHLHPH~HPH@HHHѺHHHHHDHHH@HHIAH +HމH~H@HtHHPHѺHH$nHHtHbHH H}H HHHѺHHHHDH HHIAH *Hމ/~HHtHPHѺHH=mHHtH{HHHHHH}HHHHHH[A\]UHATSHHHHHDHDž HDžHDž HDž(HDžHDžHyHHHHtH~HDž HDžHDž HDž(HDžHDžHyHHHHtHHDž HDž HDž(HDžHHHDžHDž HDžHDžHDžHHHDžHHHH*HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH}HH}HHHHH.H*H\ZEHZHHEH&HHSVH*H\ +'TH.HHxiEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH HHHDH+HHIAH %HމN~HHtHPHѺHH\hHHtHHH5%H,hHHHxHHHHѺHHHHDH$HHIAH $HމG~HHtHHHHDHIċPL W$AHLHHtHdHHHDHNHËPL #ALHމwLHtHPHѺHHfHHtHHHH`vHHHHѺH[HHHDH{HHIAH #Hމ~HHtHHHHDHIċPL "AHL/HHtHHHHDHHËPL "ALHމLHtHZPHѺHHdHHtH(HH*(\(\H\H`HtH`HPHXHѺHXHHHDHHHPXXIAH Y!HމX~HPHtHIXPHѺHHcHHtHHH0HsH0H H,HѺH,HHHDHHH ,,IAH Hމ,~H HtHb,PHѺHHbHHtH0HHHHHH}HHHHHnH[A\]UHATSHHHHHHHDž HDžHDžHDžHDžHDžHyHHHHtH*HDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHH) HH}HHHHH HH\EHHHHEHHHzIKHH\ fTf.HH:_EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH HHHDH HHIAH QHމ ~HHtH PHѺHH^HHtH\ HH5H]HHHmHHHHѺH HHHDH HHIAH rHމ ~HHtH HHHDHq IċPL AHL HHtH& HHHDH HËPL ALHމ9 LHtH PHѺHHU\HHtH HHH^kHHpH|HѺH |HHHDH= HHp||IAH Hމ` |~HpHtH |HHHDH Iċ|P|L pAHL HHtH} |HHHDHg HË|P|L ALHމ LHtH |PHѺHHZHHtH HH\HHHHPHiHPH8HDHѺHR DHHHDHr HH8DDIAH #HމD~H8HtH DPHѺHHYHHtHHHHhHHH HѺHk HHHDHHH IAH NHމ ~HHtH, PHѺHHXHHtHHHHHHH}HHHHH8H[A\]UHATSHHHHHHHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHDžHDžHyHHHHtH}HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH]HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHHH}HHHHHHZH\EHHHHEHeHH>?_HZH\ fTf.HHTEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDHHHIAH Hމ~HHtHLPHѺHHSHHtHHH5HSHHHcHHHHѺHHHHDHHHIAH 0Hމ~HHtHEHHHDH/IċPL AHLXHHtHHHHDHHËPL =ALHމLHtHPHѺHHRHHtHQHHHaHHpH|HѺH|HHHDHHHp||IAH Hމ|~HpHtH|HHHDHIċ|P|L .AHLHHtH;|HHHDH%HË|P|L ALHމNLHtH|PHѺHHjPHHtHHHZf(\f(HHHHPHC_HPH8HDHѺHDHHHDH"HH8DDIAH HމED~H8HtHDPHѺHHSOHHtHHHH\^HHH HѺH HHHDH;HH IAH Hމ^ ~HHtH PHѺHHlNHHtHHHHH7HH}HHHHHH[A\]UHATSHHHHHHHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHDžHDžHyHHHHtH-HDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHH HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHHH}HHHHHTH*H\EHHHHEHHH4WH*H\ RfTf.HHJEHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHCHHHDHcHHIAH Hމ~HHtHPHѺHHIHHtHHH5QHdIHHHZHHHHѺH<HHHDH\HHIAH Hމ~HHtHHHHDHIċPL AHLHHtHHHHDHHËPL ALHމLHtH;PHѺHHGHHtH HHHVHHHHѺHHHHDHHHIAH RHމ~HHtHTHHHDH>IċPL AHLgHHtHHHHDHHËPL LALHމLHtHPHѺHH"FHHtH`HH*f(\f(XHXH`HTH`HHHTHѺHTHHHDHHHHTTIAH HމT~HHHtHTPHѺHHEHHtHMHH HTH HHHѺHHHHDHHHIAH Hމ~HHtHPHѺHH(DHHtHfHHHHHH}HHHHHH[A\]UHATSHHHHHDž HDžHDžHDžHDžHDžHyHHHHtHfHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHeHH}HHHHHHHZf(\f(EZHHEHHH*eHHZf(\f( fTZf.HHL@EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDHHHIAH cHމ"~HHtHPHѺHH0?HHtHnHH5H?HHHNHHHHѺHHHHDHHHIAH Hމ~HHtHHHHDHIċPL +AHLHHtH8HHHDH"HËPL ALHމKLHtHPHѺHHg=HHtHHHH4MHHpH|HѺH/|HHHDHOHHp||IAH Hމr|~HpHtH|HHHDHIċ|P|L AHLHHtH|HHHDHyHË|P|L ALHމLHtH.|PHѺHH;HHtHHZH\HHHHPHJHPH8HDHѺH^DHHHDH~HH8DDIAH /HމD~H8HtHDPHѺHH:HHtHHHH|JHHH HѺHw HHHDHHH IAH ZHމ ~HHtH8 PHѺHH9HHtHHHHHHH}HHHHHDH[A\]UHATSHHHHHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHDžHDžHyHHHHtHHDž HDžHDžHDžHHHDžHDž HDžHDžHDžHHHDžHHHHoHArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHHH}HHHHHHH\ZEZHHEHoHHH IHH\ T.HH 6EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHHHHHDHHHIAH !Hމ~HHtH^PHѺHH4HHtH,HH5H4HHHDHHHHѺHHHHDHHHIAH BHމ~HHtHWHHHDHAIċPL AHLjHHtHHHHDHHËPL OALHމ LHtHPHѺHH%3HHtHcHHHBHHpH|HѺH|HHHDH HHp||IAH Hމ0|~HpHtH|HHHDHIċ|P|L @AHLHHtHM|HHHDH7HË|P|L ALHމ`LHtH|PHѺHH|1HHtHHH\LHLHPH'AHPH@HHHѺH"HHHHDHBHH@HHIAH HމeH~H@HtHHPHѺHHs0HHtHHH H@@H HHHѺH;HHHDH[HHIAH Hމ~~HHtHPHѺHH/HHtHHHHHWHH}HHHHHH[A\]UHATSHHHHHDž HDžHDž HDž(HDžHDžHyHHHHtHHDž HDžHDž HDž(HDžHDžHyHHHHtHSHDž HDž HDž(HDžHHHDžHDž HDžHDžHDžHHHDžHHHH3HArra@ys a@re n@ ot c@onfo@rmabf@le@.HHHH HHyHHHHHHHH}HHHHHzH*H\ZEZHHEH1HH SH*H\ zT.HH+EHFloa@ting@ poi@ nt s@cala@r as@sert@ion @ failf@$ed@&:HH'HH HxHHHHHHH]HHHDH}HHIAH Hމ~HHtHPHѺHH*HHtHHH5kH~*HHH;HHHHѺHVHHHDHvHHIAH Hމ~HHtHHHHDHIċPL AHL*HHtHHHHDHHËPL ALHމLHtHUPHѺHH(HHtH#HHH8HHHHѺHHHHDHHHIAH lHމ~HHtHnHHHDHXIċPL AHLHHtH HHHDHHËPL fALHމ LHtHPHѺHH<'HHtHzHH*(\(\H\H`H6H`HPHXHѺHXHHHDHHHPXXIAH HމX~HPHtHXPHѺHH+&HHtHiHH0H5H0H H,HѺH,HHHDHHH ,,IAH Hމ6,~H HtH,PHѺHHD%HHtHHHHHHH}HHHHHH[A\]UHSHH HHHtHHE EEE@HHFail@ure:@ spe@ cifi@ed a@sser@tion@ fai@ lure@$ did@( not@, occf@0ur@2.HH3HH HH]HHHFail@ure:@ exp@ ecte@d as@sert@ion @fail@ ure @$did @(not @,occuf@0r.HH2HH fHH]HHHHHHH)HcH=v HH HHHAHcHHHH*Hcú H)HcHHȾ H ~HHtHHH HH\HH}HHHHH HH []UHH}uHE< u EEE]UHSHHH}ȉuHUM}IEEHUEH։EEEt3uHcHEH HHHcHEȾ HE]E9]jEHHEH't}u3EEEHUEH HUȋEH 9]EtHH[]UHAWAVAUATSHx HHHxHpDlDhHIǸlIlEċEăHHHPHHHDžhHhHkH)HHHHHEhIhEEHHHPHHHDžhHhHkH)HHHHHEEHpt HpEȃ}LDlDIHHHDHIĸIDLL{۸ADI]ątQIcHcH9rHcHELH2IcHELHHcIcH)HMIcHȾ HLHtHTLDhDIHHHDH,IĸIDLL۸ADI]tQIcHcH9rHcHELH2IcHELHHcIcH)HMIcHȾ HLHHDl]ąt_IcHcH9rHcHEHHHh9IcHEHHHMHcIcH)HMIcHȾ H3Dh]t_IcHcH9rHcHEHHH9IcHEHHHHcIcH)HMIcHȾ HHUEH։[EHUEH։GEE9E}EEE;EEHM}IUHu}IEE}t }tE}I H Stri@ng a@sser@ tion@ fai@led:@ H HHH HfHH`HHHxH HH HѺ H5 HHHDHUIH yL LAHщLz ~HHtHHxHHHыUH PHHHDHHH P xIALHމ~HHtHPLHtH@ PD$IcH=vH HH#:IcH HH Icĺ H)IcH HȾ HHHtHH HHHѺ HdHHHDHIHL AL~HHtH0HHHDHHËzL ALHFLHtHD`IcH=vH HH:IcH HHIcĺ H)IcH HȾ HHHtHZDžE}H HHHѺ H!HHHDHIHy!L A!HщL,~HHtH"HHHDHHËP!"L ALHމLHtHID`"IcH=vH HH5:IcH HHIcĺ H)IcH HȾ HHHtHEEE9EDHMŨHc4HMŨHc@8t Ủ9E҃EtHAHDžfH@HDžPHDžDžHqHDžDžPHHH%H5CHHHHHHH5/HHHQH HHHѺ H>H@HHHѺPHHHHDH4HHHDDIAHщHL~HHtH~HHtHD$IcH=vH HH:IcH HH{Icĺ H)IcH HȾ H\HHtH.H HHHѺ HHHHDHIHyL HAHщL~HHtHHlHHH=PHHHDHUHHPxIALHމp~HHtHLHtHPЃHHHDHIċP‹HȃL AHLHHtH_PЃHHHDH>HËPЍPHȃL $ALHމQLHtHPD`IcH=vH HH:IcH HHIcĺ H)IcH HȾ HHHtHZH HHHѺ HHHHDHHHyL AHщHD~HHtHHhHHHiPHHHDHIHPxIAHL蜿~HHtHHHtH PЃHHHDHHËP‹HȃL BALHމLHtH苿PD`IcH=vH HHl:IcH HHUIcĺ H)IcH HȾ H6HHtHHpH HH蕼HHp}HHHHHFLHe[A\A]A^A_]UHH0H}HuUHEEH}tHEHH}tEHEHHUHH HHH@HHHDž5HHPDžX HDž0DžHpH8Dž@DžPHHPHHHHaHH(CHHHH HfHHcHHHH HH踺HH}HHHHHiUHH}HuHEHHEH]UHH}HEHHEH]UHH}HEHHEE]UHH}HuHEHHHEHHEHH9!ЉEE]UHH}HuHEHHEH]UHH}HEHEHEHEHE]UHH H}uUHEHڵEEUHH5EEUHA]UHSH(H}EH}t HE؋E]E9]%ݵu9]EtH([]UHHHHHHHH轸HH}HHHHHnUHSHH}uEHHHDHºHËEHMUIAH GHމE¾H߸FHHtH`H[]UHHH(H HHDžH(H`hHEH(HEH0DžADžHHuEH Dž0H0HFile@ doe@s no@ t al@read@y ex@ist.H0H HH yHHHH H0}HHHH H螶EDž H HFile@ is @alre@ ady @open@.H HHH HfHHyHHH0H }HHHH0HN_ EDž0H0HNo u@nits@ are@ ava@ilab@le f@or f@ortr@ an If@$/O@&.H0H+HH HHwHHH H0}HHHH H辱DžHHNo u@nits@ are@ ava@ilab@le f@or f@ortr@ an If@$/O@&.HH+HH HHwHHHH}HHHHHeH_HDžH(H0,HUH8Dž@DžEHHHHDžHH(Dž0DžEHH軵UHHH}uUHEH5HUHHHhdH]HxDžHhHdHEHDžpADžtHpHEUHHHhHHxDžHEHDžpHhtHpH軴EUHHHXHPLHwHhDžpHPHLHEHHEHDž`CDždH`H,EtHXE9uEEUHATSH HHHDDHHDžHHuHEH蹳HEH0E8HEHHEHDžADžHHHE~HEHtH芳EDžHHFile@ is @alre@ ady @open@.HHHH HfHHyHHHH}HHHHHjEEAHHuHEH{H;HHyDHHuȋEHѺ۱uAH뿋Eԅ~HEHtHSEEDžHHFile@ alr@eady@ exi@sts.HHHH zHHHHH}HHHHH>EEXAHHuHEHOH;HHmCHHuEHѺ诰uAH뿋Eą~HEHtH'EEDžHHFile@ doe@s no@ t al@read@y ex@ist.HH HH yHHHHH}HHHHHEEdEDžHHNo u@nits@ are@ ava@ilab@le f@or f@ortr@ an If@$/O@&.HH+HH HHwHHHH}HHHHHéDžHHNo u@nits@ are@ ava@ilab@le f@or f@ortr@ an If@$/O@&.HH+HH HHwHHHH}HHHHHjEHaHDžHHHHHH (Dž E쉅HHEH [A\]UHHHHHDž dHHpxHEHHDžBDžHHrEDž H HFile@ is @not @ asso@ciat@ed w@ith @any @ unit@$.H H)HH HfHHwHHHH }HHHHH菪EEEUHHE }crHhHDžJHEH0DžEHHCEtEEE}cEtEDžHHNo u@nits@ are@ ava@ilab@le f@or f@ortr@ an If@$/O@&.HH+HH HHwHHHH}HHHHH<EUHH'?EE]UHH}]UHH H}HEHTEEUHH H}H>EH}t HEEHUHMHEHHIEUHH H}H>EH}t HEEHUHMHEHH-EUHH}HuHUHEG>HE]UHH}HuHUHE>HE]UHHHEHH@(Hu EHH@(HLEHH@(UEЉEE==HHDž DžDžHH苩HH5H蠩HH55=H苩HH5rHpHH5[HOHHUHH}HEH(HP(H@ HH)HHHHH‰EE]UHSHHHHHH(HP(H@ HH)HHHHH‰EE9uHH(HH(cHHP(EHcHH@@HHH@0HHHHHHXHHhHH HHP(EHcHH@@HHH@0HHHHHHXHH`HH VH{HDžHH Dž( HDžDžHHDž DžPHHHH5gH1HMHHHHH5?HHHHHHH5 H¦HH艦HHHHѺ(HvHHHHѺ HQHHHAH?]~HHtH=~HHtH襓HHPXHHpHHY HHbuzH{HDžHHDžHδHDžDž0DžHH'HHE9UUHH[]UHSHHHHHHLLHDžHDž8HDž@HDžHHDžPHHpHHxHHEHHEHHEHHEHHEHHEH HEH(HEH0HEH8HEH@HEHHHEHPHEHHQ HEHH> HEHH+ HEHHHEHH`HlHыUH舣lHcH'v H`Hp(HH詣AHcH`HpHH苣Hcú(H)HcHpHȾ Hll~H`HtH0HHpHHxHPHUHPHUHPHUHP HUHP(HUHP0HUHP8HUHP@HUHPHHUHPPHUHPXHUHP`HUHPhHUHPpHHH[]UHAUATSHHHHHH@HtHHHHEHHP(HH@ HH)HHHEIIHH@(HEHEȺHNHH@8)HH@HHUHE)HHEHUHEHEHEHMHQ(HA HH)HHHHHHcHHPPHH@@HQ(HA HH)HHHHHºHHcHt-HHH?HHtHHHH9tHq(HA HH)HHHHHtHH҅t E̖2EHHDHoHuE̖HHB(HH@0Ẻ3HHP(HHx0HHpHHLHPHHL@@HL9HIHH H]3HfHDžkDžDžHHBHH5OHWHH52HBHH5qH'HH5HHH͞MLmHHP(HLP0HH@HL`IHLX@L9)J IJ4HIJ<HMH H HHH[A\A]]UHHHHHH@(HEHEHHH@8)HH@HHH@PHH@@t E(EHuEHHB(HH@0EH1HHP(HHx0HHpHHLHPHHL@@HL9HIHH H0HHDž YDžDžHH̜HH5٫HHH5v0H̜HH5H豜HH5H萜HHWHH@(HHJ@HHR0HHHHUHH}HEHHEHE]UHH}HEHHEE]UHH0HHHHHDžHHNULL@ or @unin@ itia@lize@d pr@oced@ure @ poin@$ter @(pass@,ed t@0o Pr@4oced@8ureP@HHHHlHHHHHHHHHPHHPHHPHHP HHP(HUHATSHPH}HuHEHEHUHHUHPHUHPHUHPHUHP HUHP(HEH@1HEH@ HEHHcHEHP(HEH@HEH~HEHHHHt-HHH?HHtHHHQQH9tD$HEH]tHHHHHHHD҅tH=ۖՑHHDHWHu H=褑HUHHEH@HEHE9]HEHEHcHEH@HHEH@HHHHHHHHHEH0EHcHEH@HHEH@HHHHHHHH HH莑9]EZHP[A\]UHHHEHHHu EHHHEHHUEЉEEz$t$HFHDž DžDžHHUHH5֟HpHH5HOHH5#H:HHUHSH8H}؉uHUHMHEHHEHcHEH@HHEH@HHHHHHHHHuHEHѺ H藏]HcH=vHMHEغ HH迏5HcHMHEHH觏Hcú H)HcHEؾ H莏E~HEHtHXH8[]UHH}HEHHt*HEHP(H@ HH)HHHHH‰EEE]UHSHHHHP(H@ HH)HHHHH‰EE9|HHDžDžDžHH,HH5HAHMHHH,HHHHDžDžDžHH謍HHEHcHH@HHH@HHHHHHHHHuHEHѺ HbUHMHHHaE~HEHtHgHHE9UUH[]UHAWAVAUATSHHHHHHEH1HẼHHHrẼHHcHt-HHH?HHtHHHQQH9t 0ẼtHHHHHHʅ҅t EȖ.EHHDHHuEȖHaH^EȉICHHDžDžDžHH$HH5H?HH5HHH5H HHʊHL8HH@HHH@ L%vL-wUHcHHHHH@HL5VH;vHHHHHHHHHHHI HIJ(HHHHHHL HHFHHHuHEHՉ]HcH=vZHMH5ẼHcHHHqHHHHHHHH HHHcHMH='ẼHcH/HHHHHHHHHHHHHeHcú HH)H5ẼHcHHHHHHHHHHHHcHHʾ HEą~HEHtHψEHHHu EHHH螈EHHUEЉEEHϒHDžDžDžHHއHH5HHH5HH؇HH5qHÇHH脇HHPHHNHPHKHPHHHPHEHP HBHP(HH[A\A]A^A_]UHAVAUATSHHHH@NHHPHHVNHHHpHHpHHHѺHMHHPHHM~HHtHMH@4HHHMHHPHHM~HHtHMHPH:MHH@tsHHHHѺ HMHHHHHHFHH6HM)HNSHxDž"DžpDžtHpHuLHpH5-]HLHpHQLHRHxDž#H\HDžDžpDžtHpHKHHHHѺ HKHHpHHK~HHtHKHpHKEE9H RHxDž'HHDž HDžDžtH[HDžDžpPHpHJHpH5[H KHMH8HP HɺHPHpH|HѺ HJ|HpHpHHJ|~HpHtHJHpHQJHH@tsHH`HlHѺ H-JlH`HHHHHlH`HHJHePHxDž+HtZHDžDžpDžtHpHtIHHPH\HѺ HgI\HPHpHH`I\~HPHtH`IHpH IE9UUzHHHH[]UHH@HHHDH@PHPH@PHPH@ PHP HNHDžHH@DžH HDž DžHXH(Dž0DžPHHGHHHiHHHHѺHGHHHHG~HHtHGHHHH^GHHHHWG~HHtHWGHHHHFHHHHF~HHtHFHHFH@t'HHHH HH胹)HMHDžDžDžHH'FHH5VHHEHP(EHcHEH@@HHEH@0HHHHHH袔E9]EHEЋUH([]UHHHHHt,tFu`HH@HHHbHH@HHHjfHH@HHH$GH)H5 NH:HH}HHHHH:UHSH(H}HuHUHuHEHѺ(H<UHMHEHHE~HEHtH<HEH(HP(H@ HH)HHHHH‰E9]OHEHP(EHcHEH@@HHEH@0HHHHEHHV9]EtHEHH([]UHHHhH`HhH@HEHEH}HhH@HEHEH|HhH@HEHEH|H`HhH`PH4;Hu H=f?:HhHBHDžpHEHEEEHhH@HpHHxHPHUHPHUHPHUHP HUHP(HUHP0HUHP8HUHP@rX:Hu H=>9HhHBHEHhH@HpHHxHPHUHPHUHPHUHP HUHP(HUHP0HUHP8HUHP@HUHPHHUHPPx9Hu H=>:9HhHBHEHEHEHEHEHhH@HpHHxHPHUHPHUHPHUHP HUHP(HUHP0HUHP8HUHP@HUHPHHUHPPHUHPXHUHP`HUHPhHUHPpUHAWAVAUATSHH8HEH8HP(H@ HH)HHHHH‰EHE)HEẼHHEHEẼHHcHt-HHH?HHtHHHH9t 0ẼtHHʅ҅tH=[<U7HHDH7Hu H= <$7HEHEHuH}HULMHDžHHDžPHDžXH@HpHHHxHPHEHXHELEL9)H=)"L9HHN H 8 B HHEHuH(H5%H=)!HEHQ"HEHEHt HEH4"HEHX[A\A]A^A_]UHAWAVAUATSHhH}HuHEHEHHu E(HEHP(H@ HH)HHHHH‰Ẽ}HE HEEHHEHE}IEHcHt-HHH?HHtHHH?H9t 0}tHHʅ҅tH=V%P HUHutHHDH Hu H=$ HEHEHEL8HEH@HxHEHX HEL`(HULmHEII)HEHt;H&H5&H='LH)HEHHEH9HUHEHH)HHHHHLH)HH9HEHp(HEH@ H9| HEH@ HELH)HEHp(HEH@ H9| HEH@ HHEHEHEHHELmHEII)HHUHuHiHEHE tHUHH`HEHUHL9J 0J4)HxHA HHEHHuH%H5m"H=&^HEHHHEHHEH@ HEH@ ẼHcHEHP(HEH@ẼHHcHt-HHH?HHtHHH?H9t 0ẼtHHʅ҅tH=N"HHUHHujHHDHHu H=! HHEHHEH@H}LMHMHEHHEL@ẼLcLQHC$H5#H=1%L9J J4L΋44HHEHuH#H5 H=%uHEHHEHEH@ HEH@ HEH@(HEH@tH= !HEHHu3Hu H= HHEHHEH@H6#H5"H=$HEHHUHRHJHUHEHt HEHHEHh[A\A]A^A_]UHH=/]UHHEHEHH=UHAWAVAUATSH8HHEHHP(H@ HH)HHHHH‰Ẽ}HE)HEẼHHEHEẼHHcHt-HHH?HHtHHHK7AH9t 0Ẽt HHiʅ҅tH=HUHulHHDHXHu H=HEHEL]LULEH]DžHH}HHHMHl H5p H=Y"QI9KHiLHAHƒHtHHADHHHHDtHDt  f HDt  IfHFLGHLcLmL]AM9KKHiILHiHHHAHƒHtHHADHHHHDtHDt  f HDt  IVLqLrHHH}LeLmHHcII)II9K1J(KHiI HiIHHAHƒHtHHADHHHHDtHDt  f HDt  ISHHuH H5H= HYH?HF}HA)HFẼHH?H$ẼHHcHt-HHH?HHtHHHK7AH9t 0Ẽt HHiʅ҅tH=HAHu~HHDH"Hu H=ToHH LLLHDžHH}HHHMHKH5(H= I9KHiLHAHƒHtHHADHHHHDtHDt  f HDt  IfHEHL}H]LeLL-HII)ḨHt LH)HڧHHاH9HȧHHH)HHHHHLH)HH9HuHEH9|HEHnLH)HuHEH9|HEHHNH3H4HHL- HII)HiHHuHHԦH٦)tHHHHLIM9K1J(K9HiI HiHHHHAHƒHtHHADHHHHDtHDt  f HDt  IMHEHuHJH5>H=/HEHHEHEHt HEHHEH8[A\A]A^A_]UHHwHtEHkHuHH5H=H@H&H-HfHtEHZHuHrH5oH=p`H/HH]UHH}EHEHHtBHEHP(H@ HH)HHHHH…~HEHHUHRHEE]UHATSH0HEH=pEDe DeE9HEHcHHHiHHHHHuHEHѺHHHuHEHlHMЋUHuẺDE̅~HEHtHlE܅~HEHtHTEtEHEHE&E9UUEEH0[A\]UHATSH H}HuEH}t HEЋEH=&EDe DeE9qHEHcHHHiHHEHH t"EEt HEHE"E9UUtEEH [A\]UHSH}H/H(HH(H@ HH)HHHHHHcHHHiHHUHAHƒHtHHADHHHHDtHDt  f HDt  []UHAWAVAUATSH8HE Ẽ}HHE)HEEHHEHE}IEHcHt-HHH?HHtHHHK7AH9t 0}t HHiʅ҅tH= HUHulHHDH? Hu H=q HEHEL]LULEH]DžHH}HHHMHSH5WH=x8 I9KHiLHAHƒHtHHADHHHHDtHDt  f HDt  IfH-HL='H8L%9LULmHEII)HEHtLH)HEHHEH9HUHEHH)HHHHHLH)HH9H5ɞHH9| HHELH)H5HH9| HHHEHEHEHHELmHEII)HiHUHuH HEHE)tHUHH HELUIM9K1J(K9HiI HiHHHHAHƒHtHHADHHHHDtHDt  f HDt  IMH6HuHH5 H=| H H HH)HẼHHHẼHHcHt-HHH?HHtHHHK7AH9t 0Ẽt HHiʅ҅tH=n hHHu~HHDHHu H= +H̛HɛLLL̛H͛DžHH}HHHMHH5H=eI9KHiLHAHƒHtHHADHHHHDtHDt  f HDt  If}L]H]HEL%LULcLpAM9KK1HHiI HiIHHAHƒHtHHADHHHHDtHDt  f HDt  ITHEHuH> H52 H=#HEHHEHEHt HEH~HEH8[A\A]A^A_]UHH H}HuHEHPHEHHѺHƿuHEHE9uEEUHH H}uUHEHEEUHH H}HuHUHEHHEEUHH|EEUHH H}tCEEH}t HEEEt"EHEHEEUHH-Ht-H!HP(H@ HH)HHHHH‰EEE]UHHHDž HH }HHHuE}HHHHiHHHƸ}HHHH=eHHAHƒHtHHADHHHHDtHDt  f HD  Dž H HnoneH HHH |HHHHH }HHHHHAHƒHtHHADHHHHDtHDt  f HDt  HUHHHHHHHQHH}HHHHHUHHH}HEH*UHSHHHDžHH}HHHHHHHHcH=v$HHHJHHIHcHHHHHHcúH)HcHHHȾ Hq~HHtH5HHAHƒHtHHADHHHHDtHDt  f HDt  HH[]Ð%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%i%ihVh Lh?BhY8ht.h$hhhhhh?hZhwhhhhh h*hKhhhzhphfh \hRh"Hh/>h;4hJ*hY hihx hLygAS%igRecursive call to nonrecursive procedure 'test_driver'At line 9 of file Test.f90Test.f90Recursive call to nonrecursive procedure 'test_qurt'At line 70 of file Test_math_funcs.f90Recursive call to nonrecursive procedure 'test_cbrt'At line 26 of file Test_math_funcs.f90Recursive call to nonrecursive procedure 'qurt'At line 66 of file Math_funcs.f90Recursive call to nonrecursive procedure 'cbrt'At line 38 of file Math_funcs.f90gentestAttempt to DEALLOCATE unallocated '%s'At line 430 of file TestSuite_mod.F90At line 433 of file TestSuite_mod.F90At line 436 of file TestSuite_mod.F90selfAt line 415 of file TestSuite_mod.F90Allocation would exceed memory limitInteger overflow when calculating the amount of memory to allocatetestsAt line 248 of file TestSuite_mod.F90thisAt line 541 of file TestCase_mod.F90At line 543 of file TestCase_mod.F90fixtureAt line 465 of file TestCase_mod.F90At line 476 of file TestCase_mod.F90TestCase_mod.F90At line 485 of file TestCase_mod.F90infoAt line 309 of file TestCase_mod.F90tmplistAt line 263 of file TestCase_mod.F90At line 230 of file TestCase_mod.F90TestResult_mod.F90AssertReal_mod.F90tmpstackAttempting to allocate already allocated variable '%s'At line 531 of file pFUnitException_mod.F90stackAt line 533 of file pFUnitException_mod.F90At line 535 of file pFUnitException_mod.F90At line 538 of file pFUnitException_mod.F90At line 502 of file pFUnitException_mod.F90At line 505 of file pFUnitException_mod.F90At line 506 of file pFUnitException_mod.F90At line 509 of file pFUnitException_mod.F90At line 511 of file pFUnitException_mod.F90At line 445 of file pFUnitException_mod.F90exceptionstackAt line 450 of file pFUnitException_mod.F90At line 452 of file pFUnitException_mod.F90At line 454 of file pFUnitException_mod.F90At line 429 of file pFUnitException_mod.F90trystackAt line 430 of file pFUnitException_mod.F90At line 312 of file pFUnitException_mod.F90At line 314 of file pFUnitException_mod.F90At line 317 of file pFUnitException_mod.F90At line 320 of file pFUnitException_mod.F90Report_mod.F90Assert_mod.F90IO_Utilities_mod.F90ParameterizedTestCase_mod.F90AssertInteger_mod.F90AssertString_mod.F90test itcbrtqurtnormal completion3?UUUUUU?("(/ ", i0, " /)")("(/ ", i0, ", ", i0, " /)")("(",a,i0,a,")")"(/ ",(i0,", "),i0," /)"(i0) Arrays of different length. First difference at element . Expected: but found: (a,i0,a)("(/ ", G25.17, " /)")("(/ ", G25.17, ", ", G25.17, " /)")("(",a,G25.17,a,")")"(/ ",(G25.17,", "),G25.17," /)"("(/ ", G20.10, " /)")("(/ ", G20.10, ", ", G20.10, " /)")("(",a,G20.10,a,")")(G20.10,", "),G20.10," /)"("(/ ", i0, " /)")("(/ ", i0, ", ", i0, " /)")("(",a,i0,a,")")(i0,", "),i0," /)"(G25.17)(G20.10)(i0) First difference at element . Expected: but found: delta: >  Strings of unequal length.(a,i0,a) Differences begin at position . Expected: "" but found: "(a) mkfifo olddeletenewNEWNewOLDOldALLOCATE: IER=ParameterizedTestCase_mod.F90(a,i0,a,i0,a)parameter set of .no("p")kYreports differReport_mod.F90Report:J(() failed)setUptearDownno(".")No tearDown() associated with this test case.No setUp() associated with this test case.Method not found.(i0,a,i0,a) run, failed(a,i0,a) ( severe)(" ",i0,".",i2.2," seconds")::failedno("x")(i0," failures in ",2a,":") (a)(a,a) - ("Failure in ",2a," - ",a)started Invalid mode.formattedunknown.pFUnitLogBInvalid id in TestSuite_mod::RunGeneric()zRx , 4L= 8 zRx 4  4T  zRx 4]r m 4Tr m zRx 4#  4T  zRx 4: 5 4T  4$  4  4  44  4lV  <#  4  4۶< 7 4T߷   <  x 4  zRx 4Xg  4Th5 0 <h   4i} p 4k  4<n  4tKq  4q  <9r   <$u  v <d6{   4  4  4}  4Lބ  4Ņ  4#   zRx 4^ Y 4TG B 4(W M 4G  <  x <<   4|<#  4'  4Қ  4$@] P 4\e  4D  4#  4  4<J E 4t  zRx <>.   4\,  4z m 4"  4  4<lA < <tu  < w b <&%z  h <4`(   4t+  4,0 + 4,  4.  4Ti/' " <X/B  4 <Z0   < 4   <L&9   4=  4>  4>  <40?  <tW  <@p  <ƈ  <4d  <t  <  <  <4  <tB  <4  <|M  <4f  <t~  <$  <  <4 P  <t   < d  <   <4 "  <t x7  < 2L  < `  <4 u  <t \  < "  <   <4   <t `  <   <   <4   <t 90  < D  < Y  <4`n3  <tS? * <R7 " <IV A <4_> ) <t]B - <_A , <`M 8 <4mE 0 <tr"d O <6? * <JC . <4^6 ! <trB - <: % <[ F <49 $ <t= ( <  <k  <4G  <t   <  <*  <4;   <tL*  <s]"   <Un*  <4?  <t  <  <ȱ   <4  <t~!   <_  <2  <4   <t!   <%  <58 # <4E    <tpU$  <Te#  <7u/  <4&'  <t F 1 <!   <%  <4  <t$  <  <q= ( <4n  <tI   <($   <1   <4b?   <tL   <Z   <?h   <4u   <t   <8   <   <4   <t2   <   <g   <4   <t   <8   <   <4 ^q  \ <t %}  h < 1u  ` < >  x <4!NJ|  g <t!V  k <!b  j <! o  v <4"T{  n <t"   <"}  h <"/  l <4#pn  Y <t#z  e <#r  ] <#  t <4$Sn  Y <t$r  ] <$   <$w   <4%G    <t%   <%   <%+   <4&{6   <t&MA   <&+L   <&W   <4'a   <t'l   <'}w   <';   <4(   <t(Ǘ   <(   <(Q   <4)  <t)  <)o  <)  <4*  <t*  <*E"  <*3   <4+E  <t+zW  <+Ki  <+z  <4,  <t,U  <,  <,  <4-  <t-=  <-  <-  <4.5  <t.(  <.}9  <.J  <4/Z  <t/ik  </!|  </͌  <40  <t0&  <0;  <0h  <41  <t1  <1k  <1   <42"3   $ <t2,M   > <26A   2 <2@U   F <43J>   / <t3TJ   ; <3^A   2 <3h[   L <44rO   @ <t4|c   T <4?   0 <4K   < <45#6   ' <t5P   A <5)D   5 <5-`   Q <46M<   - <t6IH   9 zRx 4b X zRx 4f  4TC   4( # 4D ? 4D ? zRx 4߁  <TW:  ( <Q5  # 4F  4  - ( <D9  $ 4  4~b ] <a  R <4ɗ  4ta  <  4] X 4$נ( # 4\Ǡ+ & 4"  4l g 4ؠI D 4<  4td _ 4ݢ$  4ɢ  zRx 4%   4T8 3 < w 4  4  4<]J E 4to  <   <v c 4,  4d}  zRx 4V  4T:"  4$   4 = 8 4  44( # zRx 4c  4TD   4,  4k f 4? : 44) $ 4l  zRx 4X S 4Tu p zRx 4( # 4T  4w  4O_ U 4vk f zRx 4  4TC > 4' " 4} x 4$b ] 44N  <l   4G B 4M H zRx 45 0 4T9 4 4  4v  <   4</ * zRx 4 ( # 4T( # zRx <K   4\  <=   <w b <   zRx 4  4Tb+ & 4U  <   __`jt~ (2<FPZdnx??????????????????????????????????????????????????????????????????End of file reached. File does not already exist. File already exists. File is already open. File is not associated with any unit. Incorrect number of arguments passed to ProcedurePointer::invoke(). No units are available for fortran I/O. none NULL or uninitialized procedure pointer passed to ProcedurePointer::invoke(). "UB`#0OSAS@dyld_stub_binderQr8rH@__gfortran_compare_stringrP@__gfortran_concat_stringrX@__gfortran_os_errorr`@__gfortran_reshape_4rh@__gfortran_runtime_errorrp@__gfortran_runtime_error_atrx@__gfortran_set_argsr@__gfortran_set_optionsr@__gfortran_shape_4r@__gfortran_size0r@__gfortran_spread_scalarr@__gfortran_st_closer@__gfortran_st_inquirer@__gfortran_st_openr@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_string_len_trimr@__gfortran_string_trimr@__gfortran_system_clock_4r@__gfortran_system_subr@__gfortran_transfer_array_writer@__gfortran_transfer_character_writer@__gfortran_transfer_integer_writer@__gfortran_transfer_real_writer@_exitr@_expr@_freer@_logr@_mallocr@_memcpyr@_memmover@_memsetr@_reallocr@_sqrt_ startT_8mainYbaseaddress_!NXArg7environ7mh_execute_headerP_^"*testmassertbaseaddress_mod_MOD_!exception_mod_MOD_!io_utilities_mod_MOD_"p%report_mod_MOD_(_math_funcs_MOD_test_case_mod_MOD_*result_mod_MOD_,suite_mod_MOD_/qurtcbrt+,ath_funcs_MOD_pis$qurtcbrt-.array_mod_MOD_areconformableinteger_mod_MOD_real_mod_MOD_string_mod_MOD_ _mod_MOD_assert /atostringrraystringssertequal_4=scalarvector_vector>Bciswithintolerance_vectornorm_firstdifference_atostring_5d4d3d2d1dscalarty|5d4d3d2d1dscalararrayvectorscalarppendssertequal_dpspint_1d_1dȻ_1drint_ 64_32_5d_r0d_r 4d_r3d_r2d_r1d_r64_5d_tol32_5d_tol 6432 0 5d_r0d_r 4d_r3d_r2d_r1d_r64_5d_tol32_5d_tol 64 32 0 5d_r 0d_r 4d_r3d_r2d_r1d_r64_5d_tol 32_5d_tol 64 32 0 64 32 0 64 32 0 64 32 0 ԉȞ64_ 32_ 5d_tol 4d_tol3d_tol2d_tol1d_tol0d_tol64 32064_ 32_ 5d_tol 4d_tol3d_tol2d_tol1d_tol0d_tol64 32064_ 32_5d_tol 4d_tol3d_tol2d_tol1d_tol0d_tol64 320 5d_tol 4d_tol3d_tol2d_tol1d_tol0d_tol64 320 5d_tol4d_tol3d_tol2d_tol1d_tol0d_tol64320 5d_tol4d_tol3d_tol2d_tol1d_tol0d_tol64320ء   ҟ   Н      64_4d_tol32_4d_tol6432064_4d_tol32_4d_tol6432064_4d_tol32_4d_tol64320643206432064320͍ȩ64320˜64320۾6432064320643206432064_3d_tol32_3d_tol6432064_3d_tol32_3d_tol64320Τ64_3d_tol32_3d_tol64320643206432064320ֆ6432064320643206432064320и64320 ײ   !!64_2d_tol32_2d_tol64320!64_2d_tol32_2d_tol64320!64_2d_tol32_2d_tol64320!64320"64320"64320"""#####$$$$$64320$64320%64320%64320%64320%64320%&&ۯ&&&&''''''64_1d_tol32_1d_tol64320Ì(64_1d_tol32_1d_tol64320(64_1d_tol32_1d_tol64320(64320(64320)64320))****+++Ã,,,,64320-64320-64320-64320-64320.64320...ѡ///000011164320164320264320 ݜ264320 264320 264320 223333333ٓ4444assert trimwhitespace failedassert equalstring 444false true 5ّ5get_!nullify!isnull!s!Δ555ame!etaddress!555exceptionraised_"clearexceptions"popexception"raiseexception"msg"any"5Ֆ555ޗ5createnamedpipe#deletefile_#is#openfile#getunit_#ɘ5ignore#basic#ՙ55open_#connected#filename#unit#555ӥ5fromfilename$new$55ervices_mod_MOD_$tubs_mod_MOD_mpi_%commworld%barrier_comm%amroot_comm%mpinumprocesses%getrank%555ŷ55comm_%s6size%rank%world7͸55arameterizedtestcase_mod_MOD_&ro'funit1c&run_&newparameterizedtestcase&setparams_&ier8lean_&ounttests_ptest&5һ555multi'uni'55cedurepointer_mod_MOD_'gname7address'i'constructfrom(5snullprocedure'nvoke'52(1(0(555address(dummy(55a)ge)deepcopy)clean_report)numlines)print)report_)ier8ssertequal_reports)ppend)5nerateexceptionreport)tline_report)5555555str*empty*s**566c*run*addtestmethod+testcase+lean_*ounttests_testcase*؉6̋6te+setup+method+stcase+ardown+66ҡ66fromaddress+_procedure+661step+_,fixture,m,6pi,ethod,66fixture,s,6etup,imple,66clean_-p-ge-s-logfailure.test.n.mode/6opprefix-ushprefix-66neratereportestresult_type-tprefix.6ummary_.etreportmode/666failed_.started.report.string.667um.ewtestresult/severe.failed/run/77Æ7ن777c/run0setelement0extendbyone0add_0testsuite_0lean_/ounttests/ʍ7_testsuite0sub07͏7generic0_0ؒ7777test0paramtest0suite0case07ۦ77arrayofsuites1empty177_MOD_pfunit_1exception_mod_MOD_1finalize1init177 g2p2e2t3deleteithentry3c3i3n5file_6etmessage2lobalexceptioncount87opindex2u2׿7shindex2t47nd3x4quals4try3_of_file67ry3opindex3hrow57stack77learall3atch477s4ncorrect_number_of_arguments7member4empty5msg44777tendexceptionstack4ception67ʁ8message5specific5generic5any58ς888u5o_7mexceptions5ll_procedure_pointer78ф8string6exception6ш88ى8stack7tatus_size6uccess799does_not_exist6exists6is_open7not_associated799:::available_units7exception7:::c7v7:::::::::::"<=rr  A 0' 111111111111111111)))))))*)*))))))))(((((((((((((((((("""""""""""""""""" ###$###$#$#####$##!!!!!!!!!!!!!!!!!!+#X" =((_k'}b  (DD((9 )J 5 ^G  J$  -b](+"lId$DX.^65 I _ x  ` `q Hs Ls Ps Xs `s hs ps  ts xs# s. s9 sD sO sZ se sp s{ s s s s s s s s s s s t t  t t  t+ t6 (tA 0tL 8tW  tI tT t_ ti ts t} t t  0 `  / 7 ?H ]H z1}$>!PrW(  1 0h e  A  <v rP/"1H~c ؐU     ]  E6 +  a ek  5  ۗ  wU 8 4'm    #D w0z M  Q 7 P   _     '* ]2  3i|wT @E$uVobL@C#HXlza//e}   X ; q- C  k HB}P oTRw{+ `  X% ٿ 7{Z m+  gJ WCyr[P8̺=% & \N   $ 3& h~  ?juD!K'NRFl"XP/õ. ad   !";! p!f ! !&G " G"C| }"7 " "` # 5S##m##E*$A`$b$$f%S 6%{ l%y %} %  &I C&- x& &c? & 'O'd''t'K&(#[(ҥ((( ( 2)< h) )q )C  * >*t***z+^K+a4+}+r+ !,W,9B,z,W,9.-Ȕc---.H:.p.>.2.`i/T=/Wj/V/@/?/S>0<C0V:n0A0g0"Y0h1nb-1gO1]t1sR1O1L1G2A(2sTP26 z23 25 2NJ 2J 3jJ %3J A3J c3oK 3UK 3-K 3K 3K  4IL H4Q q4L 4X 41Z 4R 5?Q 85Q \5R }5?55[ 5[ 5~[ 6 \ 26[ Y6u\ {6M\ 66 u67\ ,7] ^77a 7 ^ 7d 8h C8 a8! {8Q88'8O9 <9 f9 u9F 999@ : P: y: }: : :' #;S; ;z;) ; ; (< P< << < < ===Qd=f =X ==j ==o  >fo O>m s>l >j >j > >y  ?o 2?u Q?Ss l?q ?v ??w ?'x @% @2 <@ Z@6{@@ @w @؄ A̅ 8A VAҐ sA# A A A BR )B NB qBC Bc B_ B~ C &CY AC eC, CC C C C Dp 'D FD/ nD D D[ D D?  E HHHP=HHHH5H=HHdHHHHUHPHUHPHUHPHUHP HUHP(HUHP0HUHP8HUHP@HUHPHHUHPPHUHPXHU@`EHHDžEDžDžHHHUHuHEHѺdHUHMHHHE~HEHtHHHH=H=H=UHH}HuHUEH։H5Recursive call to nonrecursive procedure 'test_driver'At line 9 of file Test.f90Test.f90test itcbrtqurtnormal completionzRx , 4L= 8 1-,-"-- -------l-8--}v-n`-[- =-- =vhZ-R? -1+-! P^P  ^ R@VwZ^fh{!\}& 7';E Yp__gfortran_runtime_error_at___pfunit_MOD_pfunit_init___testsuite_mod_MOD_testsuite_empty___test_math_funcs_MOD_test_cbrt___testcase_mod_MOD_testcase1stepmethod___testsuite_mod_MOD_add_testcase___test_math_funcs_MOD_test_qurt___testresult_mod_MOD_newtestresult___testsuite_mod_MOD_run____testresult_mod_MOD_summary___gfortran_st_write__gfortran_string_trim__gfortran_transfer_character_write_free__gfortran_st_write_done___testsuite_mod_MOD_clean____testresult_mod_MOD_clean____pfunit_MOD_pfunit_finalize__gfortran_stop_string_main__gfortran_set_args__gfortran_set_optionsLC0LC1LC6_MAIN___is_recursive.0.1599_suite.1597_result.1562_options.5.1630EH_frame1Day-I/01-Test/Test_math_funcs.f90100777 0 0 3132 11767701444 11715 0 ! exercise pFUnit with simple tests of math functions ! version: $Id$ ! compiles with ! gfortran -c -std=f2008 -Wall -fcheck=all -I$PFUNIT Test_math_funcs.f90 ! use via ! use :: test_math_funcs, only: ... module test_math_funcs implicit none private ! export test_cbrt and test_qurt public :: test_cbrt public :: test_qurt ! define the functions contains ! define test_cbrt subroutine test_cbrt() ! get the kind value for 64-bit reals use, intrinsic :: iso_fortran_env, only: real64 ! get pfunit definitions use :: pfunit ! get cbrt to test use :: math_funcs, only: cbrt ! function input and function result real( real64) :: a, acb ! the executable text continue ! define the function input a = 3.0_real64 ** 3 ! compute the function result acb = cbrt( a) ! check for (reasonable) equality call assertequal( acb*acb*acb, a, tolerance= 0.0000001) ! all done return ! end of test_cbrt end subroutine test_cbrt ! define test_qurt subroutine test_qurt() ! get the kind value for 64-bit reals use, intrinsic :: iso_fortran_env, only: real64 ! get pfunit definitions use :: pfunit ! get qurt to test use :: math_funcs, only: qurt ! function input and function result real( real64) :: a, aqb ! the executable text continue ! define the function input a = 3.0_real64 ** 4 ! compute the function result aqb = qurt( a) ! check for (reasonable) equality call assertequal( aqb*aqb*aqb*aqb, a, tolerance= 0.0000001) ! all done return ! end of test_qurt end subroutine test_qurt ! end of the test module end module test_math_funcs Day-I/01-Test/test_math_funcs.mod100777 0 0 1215 11770103204 12116 0GFORTRAN module version '6' created from Test_math_funcs.f90 on Tue Jun 19 08:02:45 2012 MD5:d72f1a4f286b2b8fbbfe8de40488c53f -- If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () () () () () () () ()) () () () () () (2 'test_cbrt' 'test_math_funcs' 'test_cbrt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) 3 'test_qurt' 'test_math_funcs' 'test_qurt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) ) ('test_cbrt' 0 2 'test_qurt' 0 3) Day-I/01-Test/Test_math_funcs.o100777 0 0 3560 11777053266 11565 0@ `__text__TEXT3`__cstring__TEXT8__const__TEXTX__bss2__DATA__eh_frame__TEXT`x h h P UHH tH5H=H@T@HEHEHEEYEYEYEEHuHEAHpHUHH tH5H=H;@HEHEHEEYEYEEHuHEAHHRecursive call to nonrecursive procedure 'test_qurt'At line 70 of file Test_math_funcs.f90Recursive call to nonrecursive procedure 'test_cbrt'At line 26 of file Test_math_funcs.f903zRx 4  4T  )# - - - -L -.( - X^X ^ 8pU>"___test_math_funcs_MOD_test_qurt__gfortran_runtime_error_at___math_funcs_MOD_qurt___assertreal_mod_MOD_assertequal_r64_0d_r64_0d_tol32___test_math_funcs_MOD_test_cbrt___math_funcs_MOD_cbrtLC0LC1_is_recursive.0.1541LC4LC5_is_recursive.1.1551EH_frame1Day-I/02-Derivatives/ 40777 0 0 0 11777312757 7525 5Day-I/02-Derivatives/._f.mk100777 0 0 10000 11777310034 10611 0Mac OS X  2TEXTATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/02-Derivatives/._f_df.f90100777 0 0 10000 11777310034 11251 0Mac OS X  2TEXTATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/02-Derivatives/._test_f_df.f90100777 0 0 10000 11777310036 12312 0Mac OS X  2TEXTATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/02-Derivatives/f.mk100777 0 0 601 11777152040 10343 0#FC=gfortran -c #FC=ifort -c FC=nagfor -c #FCFLAGS=-std=f2008 -Wall -fcheck=all #FCFLAGS=-std -warn all -check all FCFLAGS=-f2008 -w=all -C=all #LD=gfortran #LD=ifort LD=nagfor LDFLAGS=${FCFLAGS} LIBS= test: f_df.o test_f_df.o ${LD} ${LDFLAGS} test_f_df.o f_df.o ${LIBS} -o test f_df.o: f_df.f90 ${FC} ${FCFLAGS} f_df.f90 test_f_df.o: f_df.f90 ${FC} ${FCFLAGS} test_f_df.f90 Day-I/02-Derivatives/f_df.f90100777 0 0 20077 11777147474 11073 0! bof ! ********************************************************************** ! Fortran 95 module f_df ! ---------------------------------------------------------------------- ! Source Control Strings ! $Id$ ! ---------------------------------------------------------------------- ! Copyright 2012 Dan Nagle ! This library is free software; you can redistribute it and/or ! modify it under the terms of the GNU Library General Public ! License as published by the Free Software Foundation; either ! version 2 of the License, or (at your option) any later version. ! This library is distributed in the hope that it will be useful, ! but WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ! Library General Public License for more details. ! You should have received a copy of the GNU Library General Public ! License along with this library; if not, write to the Free ! Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! To report bugs, suggest enhancements, or contact the Authors, ! Contact: ! Dan Nagle ! send email to dannagle@verizon.net ! or mail to 2820 Lafayette Dr. ! Boulder CO 80305 USA ! ---------------------------------------------------------------------- ! f_df description ! ---------------------------------------------------------------------- ! f_df uses ! ! f_df includes ! ! f_df constants ! f_df types ! f_df data ! f_df library ! ********************************************************************** ! f_df ! ---------------------------------------------------------------------- module f_df ! ---------------------------------------------------------------------- ! f_df uses modules use, intrinsic :: iso_fortran_env, only: real64 ! ---------------------------------------------------------------------- ! no implicit typing: require explicit declarations implicit none ! ---------------------------------------------------------------------- ! all names are private: require explicit exports private ! ---------------------------------------------------------------------- ! f_df RCS strings ! ---------------------------------------------------------------------- ! module source filename supplied by RCS character( len= *), public, parameter :: f_df_rcs_id = & '$Id$' ! ---------------------------------------------------------------------- ! f_df constants ! ---------------------------------------------------------------------- ! ---------------------------------------------------------------------- ! f_df types ! ---------------------------------------------------------------------- type, public :: f_df_t real( real64) :: f real( real64) :: df end type f_df_t ! ---------------------------------------------------------------------- ! f_df data ! ---------------------------------------------------------------------- ! ---------------------------------------------------------------------- ! f_df library ! ---------------------------------------------------------------------- public :: operator( +) interface operator( +) module procedure f_df_add module procedure f_df_add_r end interface operator( +) public :: operator( -) interface operator( -) module procedure f_df_sub module procedure f_df_sub_r end interface operator( -) public :: operator( *) interface operator( *) module procedure f_df_mul end interface operator( *) public :: operator( /) interface operator( /) module procedure f_df_div end interface operator( /) intrinsic :: cos public :: cos interface cos module procedure f_df_cos end interface cos intrinsic :: sin public :: sin interface sin module procedure f_df_sin end interface sin ! ---------------------------------------------------------------------- ! module procedures ! ---------------------------------------------------------------------- contains ! ---------------------------------------------------------------------- ! f_df + f_df function f_df_add( u, v) result( upv) type( f_df_t), intent( in) :: u type( f_df_t), intent( in) :: v type( f_df_t) :: upv ! ---------------------------------------------------------------------- continue upv% f = u% f + v% f upv% df = u% df + v% df return ! ---------------------------------------------------------------------- end function f_df_add ! ---------------------------------------------------------------------- ! f_df + r function f_df_add_r( u, v) result( upv) type( f_df_t), intent( in) :: u real( real64), intent( in) :: v type( f_df_t) :: upv ! ---------------------------------------------------------------------- continue upv% f = u% f + v upv% df = u% df return ! ---------------------------------------------------------------------- end function f_df_add_r ! ---------------------------------------------------------------------- ! f_df - f_df function f_df_sub( u, v) result( umv) type( f_df_t), intent( in) :: u type( f_df_t), intent( in) :: v type( f_df_t) :: umv ! ---------------------------------------------------------------------- continue umv% f = u% f - v% f umv% df = u% df - v% df return ! ---------------------------------------------------------------------- end function f_df_sub ! ---------------------------------------------------------------------- ! f_df -r function f_df_sub_r( u, v) result( umv) type( f_df_t), intent( in) :: u real( real64), intent( in) :: v type( f_df_t) :: umv ! ---------------------------------------------------------------------- continue umv% f = u% f - v umv% df = u% df return ! ---------------------------------------------------------------------- end function f_df_sub_r ! ---------------------------------------------------------------------- ! f_df * f_df function f_df_mul( u, v) result( uxv) type( f_df_t), intent( in) :: u type( f_df_t), intent( in) :: v type( f_df_t) :: uxv ! ---------------------------------------------------------------------- continue uxv% f = u% f * v% f uxv% df = u% df * v% f + v% df * u% f return ! ---------------------------------------------------------------------- end function f_df_mul ! ---------------------------------------------------------------------- ! f_df / f_df function f_df_div( u, v) result( uov) type( f_df_t), intent( in) :: u type( f_df_t), intent( in) :: v type( f_df_t) :: uov ! ---------------------------------------------------------------------- continue uov% f = u% f / v% f uov% df = ( u% df * v% f - v% df * u% f) / ( v% f * v% f) return ! ---------------------------------------------------------------------- end function f_df_div ! ---------------------------------------------------------------------- ! cos( f_df) function f_df_cos( u) result( cu) type( f_df_t), intent( in) :: u type( f_df_t) :: cu ! ---------------------------------------------------------------------- continue cu% f = cos( u% f) cu% df = -sin( u% df) return ! ---------------------------------------------------------------------- end function f_df_cos ! ---------------------------------------------------------------------- ! sin( f_df) function f_df_sin( u) result( su) type( f_df_t), intent( in) :: u type( f_df_t) :: su ! ---------------------------------------------------------------------- continue su% f = sin( u% f) su% df = cos( u% df) return ! ---------------------------------------------------------------------- end function f_df_sin ! ---------------------------------------------------------------------- ! f_df ! $Id$ ! ********************************************************************** ! eof end module f_df Day-I/02-Derivatives/f_df.mod100777 0 0 3772 11777152620 11224 0VH 0 0 3 0 0 0 MODULE F_DF,2 0 0 FILE 0,f_df.f90 USE ISO_FORTRAN_ENV 0,ONLY:REAL64=>REAL64 TYPE F_DF_T,1,64,16 F(0): 2,2,5,0,0,0,1,0,0,0 DF(8): 2,2,5,0,0,0,1,0,0,0 ENDTYPE PARAMETER F_DF_RCS_ID: 3,1,a,4,0,4001,1,0,0,0 = $Id$ GMODPROC +: F_DF_ADD_R GMODPROC +: F_DF_ADD GMODPROC -: F_DF_SUB_R GMODPROC -: F_DF_SUB GMODPROC *: F_DF_MUL GMODPROC /: F_DF_DIV GMODPROC COS: F_DF_COS GMODPROC SIN: F_DF_SIN PROC F_DF_ADD,2,8,0,17,0: 7,F_DF_T,b,0,0,40081,2,0,40000,0 RESULTVAR UPV,4,,F_DF_ADD: 7,F_DF_T,b,0,0,81,0,0,0,0 VAR U,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 VAR V,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 ENDPROC PROC F_DF_ADD_R,2,8,0,17,0: 7,F_DF_T,b,0,0,40081,2,0,40000,0 RESULTVAR UPV,4,,F_DF_ADD_R: 7,F_DF_T,b,0,0,81,0,0,0,0 VAR U,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 VAR V,3,,: 2,2,5,0,0,103,0,0,0,1 ENDPROC PROC F_DF_SUB,2,8,0,17,0: 7,F_DF_T,b,0,0,40081,2,0,40000,0 RESULTVAR UMV,4,,F_DF_SUB: 7,F_DF_T,b,0,0,81,0,0,0,0 VAR U,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 VAR V,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 ENDPROC PROC F_DF_SUB_R,2,8,0,17,0: 7,F_DF_T,b,0,0,40081,2,0,40000,0 RESULTVAR UMV,4,,F_DF_SUB_R: 7,F_DF_T,b,0,0,81,0,0,0,0 VAR U,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 VAR V,3,,: 2,2,5,0,0,103,0,0,0,1 ENDPROC PROC F_DF_MUL,2,8,0,17,0: 7,F_DF_T,b,0,0,40081,2,0,40000,0 RESULTVAR UXV,4,,F_DF_MUL: 7,F_DF_T,b,0,0,81,0,0,0,0 VAR U,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 VAR V,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 ENDPROC PROC F_DF_DIV,2,8,0,17,0: 7,F_DF_T,b,0,0,40081,2,0,40000,0 RESULTVAR UOV,4,,F_DF_DIV: 7,F_DF_T,b,0,0,81,0,0,0,0 VAR U,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 VAR V,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 ENDPROC PROC COS,0,6,33,17,0: 2,1,4,22,0,40000,1,0,0,0 ENDPROC PROC F_DF_COS,1,8,0,17,0: 7,F_DF_T,b,0,0,40081,2,0,40000,0 RESULTVAR CU,4,,F_DF_COS: 7,F_DF_T,b,0,0,81,0,0,0,0 VAR U,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 ENDPROC PROC F_DF_SIN,1,8,0,17,0: 7,F_DF_T,b,0,0,40081,2,0,40000,0 RESULTVAR SU,4,,F_DF_SIN: 7,F_DF_T,b,0,0,81,0,0,0,0 VAR U,3,,: 7,F_DF_T,b,0,0,103,0,0,0,1 ENDPROC PROC SIN,0,6,143,17,0: 2,1,4,97,0,40000,1,0,0,0 ENDPROC GENERIC COS: COS GENERIC SIN: SIN END Day-I/02-Derivatives/f_df.o100777 0 0 50210 11777152620 10710 0@ ;`:__text__TEXT48`X=__data__DATA@8H:J__cstring__TEXT8:__bss__DATA: __eh_frame__TEXT`9;J hJ3M P.UHHH}t4H]!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4H]nH5@0@}HHuHMEHEȋ@t4H]pH5@0@}HHuHMEHEȋ@ $< tIHEȋ@ H ]H5 }HHxHxMAHEȋ@$<u@H]oH5@0@wHHhHhwHEf@ft`HEf@H ]sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnH]SH5H=AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnH]YH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fH]H=A E0H Hlj֋H HDADAHEH@Hf@ff tnH][H5H=AE0HHHHHDIDAHEEHE@EEEEEEEEEEMH]DUHHH}t4HG!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4HGnH5@0@}HHuHMEHEȋ@t4HGpH5@0@}HHuHMEHEȋ@ $< tIHEȋ@ H GH5 }HHxHxMAHEȋ@$<u@HGoH5@0@wHHhHhwHEf@ft`HEf@H GsH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnHGSH5H=AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnHGYH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fHGH=A E0H Hlj֋H HDADAHEH@Hf@ff tnHG[H5H=AE0HHHHHDIDAHEEHE@fH~HH1fHnEEEEEEEEEEMH]UHHpH}Hut4H0!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4H0nH5@0@}HHuHMEHEȋ@t4H0pH5@0@}HHuHMEHEȋ@ $< tIHEȋ@ H 0H5 }HHxHxMAHEȋ@$<u@H0oH5@0@wHHhHhwHEf@ft`HEf@H 0sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnH0SH5H=AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnH0YH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fH0H=A E0H Hlj֋H HDADAHEH@Hf@ff tnH0[H5H=AE0HHHHHDIDAHEHXHEH@H@f@ff tnH0SH5H=AE0HHHHHDIDAHEH@H@f@fftnH0YH5H=AE0HHHHHDIDAHEH@H@f@f f $< HEH@H@f@f f fH0H=A E0HHlj֋HHDADAHEH@H@f@ff tnH0[H5H=AE0HHHHHDIDAHEHE^EHE@HEYHEHHEY\HEHEY^EEEEEEEEEEMHp]fDfDUHHpH}Hut4H!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4HnH5@0@}HHuHMEHEȋ@t4HpH5@0@}HHuHMEHEȋ@ $< tIHEȋ@ H H5 }HHxHxMAHEȋ@$<u@HoH5@0@wHHhHhwHEf@ft`HEf@H sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnHSH5H=AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnHYH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fHH=A E0H Hlj֋H HDADAHEH@Hf@ff tnH[H5H=AE0HHHHHDIDAHEHXHEH@H@f@ff tnHSH5H=AE0HHHHHDIDAHEH@H@f@fftnHYH5H=AE0HHHHHDIDAHEH@H@f@f f $< HEH@H@f@f f fHH=A E0HHlj֋HHDADAHEH@H@f@ff tnH[H5H=AE0HHHHHDIDAHEHEYEHE@HEYHEHHEYXEEEEEEEEEEMHp]@UHHpH}Hut4H!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4HnH5@0@}HHuHMEHEȋ@t4HpH5@0@}HHuHMEHEȋ@ $< tIHEȋ@ H H5 }HHxHxMAHEȋ@$<u@HoH5@0@wHHhHhwHEf@ft`HEf@H sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnHSH5H=AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnHYH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fHH=A E0H Hlj֋H HDADAHEH@Hf@ff tnH[H5H=AE0HHHHHDIDAHEHXHEH@H@f@ff tnHSH5H=AE0HHHHHDIDAHEH@H@f@fftnHYH5H=AE0HHHHHDIDAHEH@H@f@f f $<HEH@H@f@f f fHH=AE0HHlj֋HHDADAHEH@H@f@ff tnH[H5H=AE0HHHHHDIDAHEHE\EHE@EEEEEEEEEEMHp]fUHHpH}Hut4H!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4HnH5@0@}HHuHMEHEȋ@t4HpH5@0@}HHuHMEHEȋ@ $< tIHEȋ@ H H5 }HHxHxMAHEȋ@$<u@HoH5@0@wHHhHhwHEf@ft`HEf@H sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnHSH5H=AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnHYH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fHH=A E0H Hlj֋H HDADAHEH@Hf@ff tnH[H5H=AE0HHHHHDIDAHEHXHEH@H@f@ff tnHSH5H=AE0HHHHHDIDAHEH@H@f@fftnHYH5H=AE0HHHHHDIDAHEH@H@f@f f $< HEH@H@f@f f fHH=A E0HHlj֋HHDADAHEH@H@f@ff tnH[H5H=AE0HHHHHDIDAHEHE\EHE@HEH\EEEEEEEEEEMHp]fDfDUHHpH}Hut4H!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4HnH5@0@}HHuHMEHEȋ@t4HpH5@0@}HHuHMEHEȋ@ $< tIHEȋ@ H H5 }HHxHxMAHEȋ@$<u@HoH5@0@wHHhHhwHEf@ft`HEf@H sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnHSH5H=AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnHYH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fHH=A E0H Hlj֋H HDADAHEH@Hf@ff tnH[H5H=AE0HHHHHDIDAHEHXHEH@H@f@ff tnHSH5H=AE0HHHHHDIDAHEH@H@f@fftnHYH5H=AE0HHHHHDIDAHEH@H@f@f f $<HEH@H@f@f f fHH=AE0HHlj֋HHDADAHEH@H@f@ff tnH[H5H=AE0HHHHHDIDAHEHEXEHE@EEEEEEEEEEMHp]fUHHpH}Hut4H!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4HnH5@0@}HHuHMEHEȋ@t4HpH5@0@}HHuHMEHEȋ@ $< tIHEȋ@ H H5 }HHxHxMAHEȋ@$<u@HoH5@0@wHHhHhwHEf@ft`HEf@H sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnHSH5H=AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnHYH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fHH=A E0H Hlj֋H HDADAHEH@Hf@ff tnH[H5H=AE0HHHHHDIDAHEHXHEH@H@f@ff tnHSH5H=AE0HHHHHDIDAHEH@H@f@fftnHYH5H=AE0HHHHHDIDAHEH@H@f@f f $< HEH@H@f@f f fHH=A E0HHlj֋HHDADAHEH@H@f@ff tnH[H5H=AE0HHHHHDIDAHEHEXEHE@HEHXEEEEEEEEEEMHp]F_DF_Tf_df.f90F_DF:F_DF_SINF_DF_SINUF_DF:F_DF_COSF_DF_COSF_DF:F_DF_DIVF_DF_DIVVF_DF:F_DF_MULF_DF_MULF_DF:F_DF_SUB_RF_DF_SUB_RF_DF:F_DF_SUBF_DF_SUBF_DF:F_DF_ADD_RF_DF_ADD_RF_DF:F_DF_ADDF_DF_ADDzRx , ,L2 ,| , , ,  ,< ,l 771-h7 a7P7-71-6 6y61-*6 #6651-5 55Q51-54441-l4[441-33331-8313 321-2221-Z2I2/20- 2111-1111-r1a1(1/=1/=0/=001-000T0'01-/ ///1-A/ 0/.1-. ..Y.1- . .--1-r-k-Z-8-1-,,,1-7,0,,+1-+++`+1-#++*1-***0-y*m*C*1-'**)1-)))/=)/=o)/=d)^)1-B)1)%)((1-8( 1( ('1-' 'I'1-& &&&1-j& c&R&!&1-%%%%1-<%+%$1-$$$W$1-$$##1-#r#R#1-*##"0-"""1-"v"^"1-B"1"!/=!/=!/=!!1-!!!$! 1-   m 1-  1-j cR)1- 1-B;*1-V1-1-xq`01-1-o0-I=1-1-h/=O/=?/=4.1- G1-  1-a P 1-  y1-* # 1- zX1-1-WP ?1- 1-C21- 0-c1-G 61- /=/=/= ~1-b QE w1-( ! 1- 91-  1-Z S B1- 1-, 1-  o G 1-    1-s b B 1-   0-   1-w f N 1-2 !  /= /= /=  1-  u   2- .- 1-~ w f D 1-1-C<+1-l1-/1-0-yO1-3" 1-/=/={/=pj1-N=1.-2-1-^WF$1-r1-# 1-|L1-1-0-eY/1-1-/=k/=[/=PJ1-.p^p@!^@ +^*-^,'^&%^$P#^P" )^ (:8888:88;888 ;,858>;J8S9\ ;h9q!9z;*9:9;E9S98`9@80:):p 9` 290G:x9p!sh:\8:a#5R_f_df_MP_f_df_sin___NAGf90_rterr___NAGf90_procref___NAGf90_pu_bad_cdtype_line___NAGf90_sind___NAGf90_cosd_f_df_MP_f_df_cos_f_df_MP_f_df_div_f_df_MP_f_df_mul_f_df_MP_f_df_sub_r_f_df_MP_f_df_sub_f_df_MP_f_df_add_r_f_df_MP_f_df_add_f_df_DT_f_df_tHEADER_f_df_MP_f_df_sin.eh_f_df_MP_f_df_cos.eh_f_df_MP_f_df_div.eh_f_df_MP_f_df_mul.eh_f_df_MP_f_df_sub_r.eh_f_df_MP_f_df_sub.eh_f_df_MP_f_df_add_r.eh_f_df_MP_f_df_add.eh__ftf_.5798L_.str1L_.str2L_.str3L_.str4__ftf_.5869L_.str5L_.str6__ftf_.5942L_.str7L_.str8L_.str9__ftf_.6050L_.str10L_.str11__ftf_.6154L_.str12L_.str13__ftf_.6252L_.str14L_.str15__ftf_.6352L_.str16L_.str17__ftf_.6450L_.str18L_.str19L_.strEH_frame0Day-I/02-Derivatives/test100777 0 0 212314 11777152620 10561 0 H__PAGEZEROx__TEXT__text__TEXT  __stubs__TEXTTT__stub_helper__TEXT__cstring__TEXT__const__TEXTp(p__unwind_info__TEXT__eh_frame__TEXT((x__DATA __program_vars__DATA(__got__DATA(8(__nl_symbol_ptr__DATA``__la_symbol_ptr__DATApp!__data__DATA@@__bss__DATA__common__DATA H__LINKEDIT0$"0 8p P$$6Z9 /usr/lib/dyld )7q $ *  @/usr/local/lib/NAG_Fortran/libf53.dylib 8/usr/lib/libSystem.B.dylib&`HjHHH}HuHHHH9uHLUH1]lUH]JUH]:UH]<UHAVAUATSID.HOD9SĉADEH5 D9DiF$0AAIcHLLNHHLL@H@HFIPIQIHIIIpIqEEEL$AEAAtEIcHLL^McIMMAIAHFIPISIHIKMHMKEEEL$IcHLLnMcIMM\$ID$HFISIUIKIMMcMeAAMcIMMl$McIMIKICID$HqIuHQIULYM]AAAMcIMM\$IcHLHJHBID$HqIsLiMkHQISA@EaIcHLLfHHLHHH@HFLiMl$LYM\$HQIT$A@AqLcIMIuHHLHHH@IELYL^LaLfHQHVA@EiMcIMMkHHLHHH@ICLaMeHqIuHQIUAAAENIcHAHMBNIRHHBHuHLZM\ AAE)ANAAHHHL@L`MbIXIZMXMZ MhMj(AIr E9tvt8AAHHHHPHXH^LZL^LjLn HJHN(AIr@CHHHHHLXL^LiLnHQHV LaLf(AH CHHHL`LhLnIT$HVIL$HN I\$H^(AH E9CHHHHXHPHVHKHNLcLf L[L^(L^ CDHHHL`LhMkIT$ISIL$IK I\$I[(L^@CDHHHL`LhMkIT$ISIL$IK I\$I[(L^`CDHHHL`LhMkIT$ISIL$IK I\$I[(AHE9IcHHH ;IJD)7E2[A\A]A^]AuĉHcLaIIRIQHs LLHEHt4DEHN(H96H1AAGHNHH I9(tdtOt:t%t@HJHH I9~THJHH I9~DHJHH I9~4HJHH I9~$HJHH I9~HJHH I9HcIIK43HFHEI9"LHFHM)d(xHNHHr`I9~xHNHHI9~xHNHHI9~xHNHHI9~xHNHHI9lxHNHHI9UGD9t2HJHHr I9:HNHHr@I9Z!H?HELL II|$HuMcIM|$O|Mf MfE14UOA9AAG ALfHcHN3IKMkLnHQIT$LAMD$LyM|$DGE9EAt|At2IcHLHrLzM{LfLaHFHALVLQDGE`McIMIzIcHLHHHpIrLYL_HYH_LiLoAApHcHLL{McIMIzMZL[HOIOLoMoHWIWAE9A@HHLLxMcIMMbMjLhIL$IOI|$IIT$IWEXIcHLLZHrIrICID$I[I\$MkMl$AHLcIMMeI}HzM|$M{It$IsMT$MSA@HHLLxHXI]II|$IWIT$IGID$AE9AAA;DL}EE11qUHAWAVAUATSHIIHUIHYH9cL;qYHE1GAHQ L9q0&t|tbtHt.tAHZ0HQ@L9ALB0H M9AHr0H L9AHJ0H L9ALZ0H M9ALJ0H M9AMA9t|HB L9r0wrDiHP L9p0wdDiHp@L9r0wVDiHP`L9v0wHDiHL9r0w7DiHL9v0w&DiHL9r0wDiHL9v0yIcHJ E1HHULLSE$AxE9DD‰׃ApMcIMIKLcIO!MJMBMCIQHQIAHAMALAAHt5AxLcIMIsISIRHFIAHNIILVMQAEHIcHLLBMcIMMSICHBIJIHIrIpIzIxEMcIOt<ILuOt<(H[A\A]A^A_]EPIcHLLVHFIAMJLOMZL_IJHOAxLcIMI{ICHFHWIRHwIrLOMJEHIcHLLPHPISIJHOIrHwMBLGEApIcHLHJHcHN 'IyMQLRHGHAL_LYLWLQD9HLL@LLPLLX HHx(HHA0HHQ8HHq@LLIHLLAPLLQXLLY`HHyhHHApHHQxHHLLLLTLL\HH| HHT(L^ IID MML MMD MMT (LF@II|IITIID MML(HF`LLTLL\HH| HHT(HLLLLLDLLT LL\(LIID IIT MML MMD (LMM\ II| IID IIT (HH_<<H{VLLA;IcLNIK !A$K!HHBHuLjHHMl M9s&HHULL_H[A\A]A^A_]H^HJ #HULL0MAML$0M9L$AM\$PM9\$8AID$@HP0H9PAPAHXPH9X8AHppH9pXDBLL9PxDBHH9~DBLL9fDBLL9NDBHH96DBH0H9DBH Ax*19A HQH9 E1ҍGAHQ0H H9Ft|tbtHt.tAHQ0H H9AHQ0H I9AHQ0H I9AHQ0H I9AHQ0H I9AHQ0H I9ArA9HQ0HA I9DVHP0HH I9vvDVHQ0HH@I9veDVHQ0HH`I9vTDVHQ0HI9v@DVHQ0HI9v,DVHQ0HI9vDVHQ0HI9YI99E(xND9EAEDƃqEKIcHLLiMcIK LCL[LYI@IEIxI}IPIUE9qE˃t5AsHcHLLHHxH{IQIPMiMhIYIXAECMcIMM]IcHLHOHWIULIMKHYI[HqIsEASLcIMIuIEI@LFLGLNLOHNHOA[LcIMIYIyI}HCHFLCLFH{H~ECIcHLLZLjMiIKHKIsHsICHCEEKIcHLLjIcHN'IxI@HBH_I]HwIuHOIME9McIO#MrMzIL}O|(A$H[A\A]A^A_]HAArHcHHLL@M9M9HHL9L1 EXAwZMcEAALHJ&IcHHJ4'H~HFH9CAMcLHLHKHVHSHGHAHWHQH_HYAAxELHN&IcHHJ4#H~HVI9RaAMcLHLLSHSHGIBHWIRHOIJAAxcAMcLHLHHHVHPH_HYLWLQHwHqAXALHN&HcHHJ4'H~HVI9RAMcMIMMBHVIRHGI@HOIHLWMPDCAxLHN!IcHHJ4'H~HFI9B+LHHID (ID(H^IZE$AE$A<-AvvD)ǃEKEPIcHLHsIcHLHJHBHCHQHVHAHFHYH^AwtDEKEPIcHLL[IcHLLBHBHCIHIKIpIsIxI{AAIcHLL[IcHLLBHBHCIHIKIpIsIxI{AAIcHLL[IcHLLBHBHCIHIKIpIsIxI{Aw AQABHcHLL[HHLL@H@HCIHIKIpIsIxI{AQABHcHLL[HHLL@H@HCIHIKIpIsIxI{AQABHcHLL[HHLL@H@HCIHIKIpIsIxI{AALHHID (ID(HNIJA<$A<$<>A<$AM;|$ E1DGDƒAIu0I I9t|tbtHt.tAI]0I I9AIM0I I9AMM0I M9AME0I M9AIE0I I9uAIU0I I9`ARA9!IE M;}0CDRHp L;x01DRHH@L;~0DRHp`L;y0 DRHL;~0DRHL;y0DRHL;~0DRLL;y0YHL]M\(LxE1E1eLHHID (ID(HNIJA<$A<$<LHHID (ID(HNHKA<$A<$<E1E1LL1_<UHAVAUATSIH rH\1HHHHHIUHt1HJILB L9wYHJILJ I9EHHuHHw HGIMHOIEHtHxI}I}IUHt HOH9Jv0HI}IEH==H4LMU[A\A]A^]HHHtH;HwHH:IEH=~HIEIMHYHLqLa HtxHqHsHAHtaHPIUH9tKHuHHH9uL L LLċtuIEL)IEH[HH= KLMEIUHQIUHQL7I9LJ M I9I9HzHr MvMf IFI]I^IEHtLpMuI}IUHt INH9JvIMuHHHtH;HwIL2I}KH=<1觊JHB H HCL;A9HA HB HQHtGHyHzHAHtPHPIUH9t7HuHHH9uL1L2Mu8LYM]HQL"MeIUUHAWAVAUATSHIIIH HH7HEHH8tH[A\A]A^A_]þډII$HXHLLPLLHLL@ HHx(HHp0HHP8HHA@LLYHLLQPLLIXLLA`HHyhHHqpHHQxHHLLLLLLLDHH| HHT(LF IIDMM\MMT MML(LV@II| IIT IID MM\ (HF`LLLLLDHH| HHT(HLL\LLTLLL LLD(LIIT IID MM\ MMT (LMMD II| IIT IID (HH_<<H{HHQ;IO HHAHuHYI_AM<$LLHuLH[A\A]A^A_]0I$M$IBM $MiI<$OD5LGI4$Lv(I $HA H[A\A]A^A_]HAQUHAWAVAUATSH(H}LwM MnM&I}HrA]~LE1H{ AH E9eEE~WMEMo I}HJ rEUE~LE1H{ ZAH E9eEI DeE9&HUD*EHUEHL{ MoMI}HE]E~LE1H{ AH E9eEE~WMEMn I}H0EeE~LE1H{ AH E9eEI DmE9/EHE D}L]E9;EH]5EeAw-IUI;U0S-LAAD$ƃAAIU8I}PH H9t_t=tAAHQ8HqPH H9kAESHQ8LAPH L9NAESHQ8HAPH H91AESHQ8LIPH L9AESHQ8LyPH L9AESHQ8HYPH H9ACAD9|ESHQ8Hq H;QPAAHV8Hy@H;VPEZAHW8Hq`H;WPDXDPHV8HH;VPthDXDPHW8HH;WPtODXDPHV8HH;VPt6DXDPHW8HH;WPtDXDPHV8HH;VP&HIcDD7H9*AIcHHLH^HN<)IOIWHVLALCLILKHAHCAE9.HIT=IcHHIt=AIcIIMIXHN<)IwMOMHHNHKHVHSHFHCA[AA9HHcHHN(MHM9L=(AIcIIMM_IPMOLJMKHBICLBMCD[HIT5IcHHItH94IcIIHM| (O| (HHL KLIL5AUAU<0A\$D9 EAA<EBEKMcIMM|$IcHLHJHBID$HqIwHQIWLaMgD9tDEBEKIcHLLVIcHLHxL`LfHOIJLMzL_MZAAIcHLLQMcIMM\$It$HqM{MzI{IzISIRAAMcIMMWIcHLL^HNIOI{IzISIRICIBD9AHAAHcHLHwHHLLPLxLIRHVMZL^MbLfAHAAHcHLHwHHLLPLxLIRHVMZL^MbLfAHAAHcHLLgHHLLXLxLISIT$ICID$MSMT$AAEeAuIUI;U0{LAET$DփAAIU8MEPH L9t_t=tAAHQ8HqPH H9kAESHQ8LIPH L9NAESHQ8HyPH H91AESHQ8HAPH H9AESHQ8HYPH H9AESHQ8LAPH L9ACAD9ESHQ8Hq H;QPAAHV8Hy@H;VPEZAHW8Hq`H;WPDXDPHV8HH;VPthDXDPHW8HH;WPtODXDPHV8HH;VPt6DXDPHW8HH;WPtDXDPHV8HH;VP&HIcDD7H9AIcHHLLFHJ)HKHCHFHQIPLIMHHYIXAE90HIT=IcHHIt=AIcIIMMHHJ4)HNHFI@HQIQHYIYHqIqA[AA9HLcLHN(MHM9L=AIcHHLLXIPLHHzI{LJMKLBMCD[HIT5IcHHItH94IcIIHID (KD(HHH I\I\5EMAEMA<.A\$D9IDD AEBA{IcHLLbHcHLHNHFHBHqIt$HAID$HQIT$9EAAtDEBA{IcHLLZHcHLLNHFHBIIIKMaMcMQMSAIcHLLZHcHLLNHFHBIIIKMaMcMQMSAIcHLLZHcHLLNHFHBIIIKMaMcMQMS9ApGHcHLLZHHLLHH@HBIIIKMaMcMQMSApGHcHLLZHHLLHH@HBIIIKMaMcMQMSApGHcHLLZHHLLHH@HBIIIKMaMcMQMSAIcHHID(ID=(IIIPKT AMAM<5IcHHHID (ID5(HHH MLMLEEAEEA<PEeA<IUI;U0LAA|$AAIU8MMPH L9t_t=tAAHQ8HqPH H9kAESHQ8LAPH L9NAESHQ8HAPH H91AESHQ8HyPH H9AESHQ8HYPH H9AESHQ8LIPH L9ACAD9ESHQ8Hq H;QPAAHV8Hy@H;VPEZAHW8Hq`H;WPDXDPHV8HH;VPthDXDPHW8HH;WPtODXDPHV8HH;VPt6DXDPHW8HH;WPtDXDPHV8HH;VP&HIcDD7H9~AIcHHLH^HN)IHI@HFHQHSLILKLALCAE9.HIT=IcHHIt=AIcIIMIYHJ4)HNHFIALALCHQHSHqHsA[AA9HHcHHN(MHM9L=AIcHHLLYIPLIHzI{HBICLBMCD[HIT5IcHHItH94IcIIHID (KD (HHL KTIT5A]A]<0A\$D92DD AEBA{IcHLLbHcHLHHHpHrHAID$HqIt$HQIT$9EAAtDEBA{IcHLLRHcHLLHHpHrIIIJMaMbMYMZAIcHLLRHcHLLHHpHrIIIJMaMbMYMZAIcHLLRHcHLLHHpHrIIIJMaMbMYMZ9EPGIcHLL^HHLL`H@HFIT$ISIL$IKML$MKEPGIcHLL^HHLL`H@HFIT$ISIL$IKML$MKEPGIcHLLRHHLLHHpHrIIIJMaMbMYMZAIcHHML(ML=(HHI@IDEMAEMA</EeAYIUI;U05LAEL$D΃AAIU8I}PH H9t_t=tAAHQ8HqPH H9kAESHQ8LAPH L9NAESHQ8HAPH H91AESHQ8LIPH L9AESHQ8LqPH L9AESHQ8HYPH H9ACAD9ESHQ8Hq H;QPAAHV8Hy@H;VPEZAHW8Hq`H;WPDXDPHV8HH;VPthDXDPHW8HH;WPtODXDPHV8HH;VPt6DXDPHW8HH;WPtDXDPHV8HH;VP&HIcDD7H9& AIcHHLHZHN4)INMNLJHqHsLALCHAHCAE9.HIT=IcHHIt=AIcHHLLJHN)IpMpLrHNIIH^IYHFIAA[AA9HHcHHN(MHM9L=AIcIIMM^IPMNLJMKHBICLBMCD[HIT5IcHHItH94IcIIHMD (OD5(HHH ILILAuAu<0A\$D9DD AEBA{McIMMt$HcHLHJHBID$HqIvHQIVLaMf9AEAAtDEBA{IcHLLVHcHLLHL`LfIIIJMqMrMYMZAIcHLLQLcIMM\$It$HqMsMrMKMJISIRAMcIMMVHcHLL^HNINMKMJISIRICIB9TAHGLcIMIqHHLLPLpMqIRHVMZL^MbLfAHGLcIMIqHHLLPLpMqIRHVMZL^MbLfAHGLcIMMaHHLLXLpMqISIT$ICID$MSMT$AIcIII|(K|5(HHMHMLAEAE<3H([A\A]A^A_]E'AkIWI;W0GLAA|$AAIW8MOPH L9t_t=tAAHQ8HqPH H9kAESHQ8LiPH L9NAESHQ8HyPH H91AESHQ8LAPH L9AESHQ8LqPH L9AESHQ8HAPH H9ACAD9WESHQ8Hq H;QPAAHV8Hy@H;VPEZAHW8Hq`H;WPDXDPHV8HH;VPthDXDPHW8HH;WPtODXDPHV8HH;VPt6DXDPHW8HH;WPtDXDPHV8HH;VP&HIcDD7H9AIcIIMMqHJ49HNLnMiHYI^LAMFHAIFAE9.HIT?IcHHIt?AIcHHLHsHJ9LrHJHKMNLNIFHFMnLnA[AA9HHcHHN8MHM9L?AIcHHLLXIPLHHJIKLrMsLBMCD[HIT7IcHHItH94IcHHHMD(MD(IIH ILKLE7AE7A<0A\$D9DD AEBA{McIMMnLcIMIL$ID$IFHqIuHQIULaMe9EAAtDEBA{IcHLLRLcIMMNIvHrIIIJMiMjMYMZAMcIMMeHcHLLRHJIMMJML$MZM\$IBID$AMcIMIsLcIMMeMMMKMT$LVID$HFMt$Lv9E`GIcHLLYHHLLhLpLqIUISIuIsMMMKEPGMcIMMNHHLHpL`MfHNIIHVIQLnMiEXGMcIMIrHHLHHH@IBLaLfLqLvHQHVAIcIIMl(Ol(HHI@IDE7AE7A<2rE1A HAE1ҹ`IcIIHMt (Ot (IIH ItKtA]A]< IcHHHID (ID5(IIH MLOLA]A]<~IcHHHIT(IT7(HHL, OL/MLEAEA<YHMD!A HqH;q0 AET$DփAAHQ8LyPH L9t_t=tAAHQ8HqPH H9kAESHQ8LAPH L9NAESHQ8LqPH L91AESHQ8HAPH H9AESHQ8HyPH H9AESHQ8HYPH H9ACAD9ESHQ8Hq H;QPAAHV8Hy@H;VPEZAHW8Hq`H;WPDXDPHV8HH;VPthDXDPHW8HH;WPtODXDPHV8HH;VPt6DXDPHW8HH;WPtDXDPHV8HH;VP&HIcDDCH9 AIcIILMMqHLmJ)HrHJIIH^I^LFMFHFIFAE99HL}IT?AIcIILmM}HH]L IIMqMuHqIwLAMGHAIGA[AA9HHcHHLuN0MHM9L> AIcHHHMLYMpLII~I{IFICMFMCD[HH]HT3IcIILmKt H9"IcHHHHuHT(HT(IIL NtNt.DADA<A\$D9 EAA<EBEKMcILmMuIcHHEHHLxM}HqIvHQIVLaMfD9tFEBEKIcHHMLYIcHHuH~HVHQLgMcLwMsLWMSAAIcHH}LoMcILeM\$Mt$LwMSMUICIEM{M}AAMcIL]IsMcILUIJIBICLyL~LiLnHQHVD9ApAALcILuMnHHHELXL`MfI{I}MSMUM{M}APAAHcHHuL^HHHEHxHHHNLgMcLwMsLWMSExAAIcHHMHyHHHEL`LhLiIT$HWIt$HwMt$LwAAE&AIVI;V04LAE|$DAAIN8MVPH L9t_t=tAAHJ8HrPH H9kAEKHJ8LjPH L9NAEKHJ8LBPH L91AEKHJ8HzPH H9AEKHJ8LzPH L9AEKHJ8HBPH H9ACAD9EKHJ8Hr H;JPAAHN8Hz@H;NPEYAHO8Hr`H;OPDXDHHN8HH;NPthDXDHHO8HH;OPtODXDHHN8HH;NPt6DXDHHO8HH;OPtDXDHHN8HH;NP&HIcDD7H90AMcMIMM}HJ47HNH~I}LQMWHYI_HAIGAE9.IKTIcIIKLAMcLHLLiHJ7LRHzHyIZI]IBIEMzM}A[AA9IHcHHJ<0LWO9TAIcHHLLXHWLPHJIKLzM{HzI{D[HIT6IcHHILH94McLHHIt>(It(LHH =I|I|EAEA<0A\$D9EAA<EAESMcIMMoMcIMIL$ID$IGHqIuHQIULaMeD9tDEAESIcHLLZMcIMMOIwHrIIIKMiMkIyI{AAMcIMMeIcHLLZHJIMMKML$I{I|$ICID$AAIcHLHwMcIMMeMMLOM\$L^ID$HFM|$L~D9E`ABIcHLHyHHLLhLxLyIUHWIuHwMMLOEXABMcIMMOHHLHpL`MgHNIIHVIQLnMiAxABLcIMIsHHLHHH@ICLaLfLyL~HQHVAAIcIII|(K|=(IIIPKT AEAE<HHAE1ҹE1ACHAE1ҹE1A'HAE1ҹE1AIcIIMl(Ol(HHHGIDE>AE>A<rIcHHH}Ll(Ll(IIIHJL<LIcIIHH]L| (N|+(IIH HLJL DADA<.oMcLHHIT>(IT6(MIL,=K|.K|AA<IcHHHM| (M|(IIH4 MD5OD A]A]<:pE1AE1AHAE1ҹHAE1ҹ-E1AHAE1ɿUHAWAVAUATSH8HIHUIMDMdH@ u/JT*HHt*H;H:HH8[A\A]A^A_]HCHHxHHEH=LEAPHcH9]WI7HtBHUH}9HI?D'EuHGHt IEVHqLuAVi1AI}Ht$DLcHLLHHuIEIAAyuM/I}H4@EEE~LE1H{ (AH E9eM/Mt=HULH}VHI?DEuHGHt IbUHuRUHHuH}L8L}MAA)EoTH4 UH5aHFTH aHATHtaHBtbH=dL-cL}Ot=LHIHIIT$Ht5HB H9tjHH9~HB H9tPH9HRHuu5TH\LMILUNME)QAgTHHfcdHZHJH,HrHqHBH HHI $H90Hu I)|$HHH9uL L HJH#HZHYHBHHHI $H9HuvI)|$HZH ;HJHB H)HB HIHA HAI|$HyID$HtHHIL$I|$xI$Ht HqH9rv%HI $*HHH9uL*L)wHHHtH;pwHH HcLHMH9HUHBkA]IUI;U0LADSDփAAIU8MuPH L9t_t=tAAHQ8HqPH H9jAEAHQ8HyPH H9MAEAHQ8LQPH L90AEAHQ8HAPH H9AEAHQ8LYPH L9AEAHQ8LaPH L9AAA9EAHQ8Hq H;QPAAHV8Hy@H;VPEHAHW8Hq`H;WPDHD@HV8HH;VPthDHD@HW8HH;WPtODHD@HV8HH;VPt6DHD@HW8HH;WPtDHD@HV8HH;VP'HIcDب:H9RAIcHHLLRHN$)IL$Mt$LrHqIrLYMZHAIBAD91HIT=IcHHIt=AIcHHLLZHN)IJIrHrLqMsLaMcHAICEaED9HMcLHN(MZM;\=6AIcHHLLJIJLZLYMYHAIALQMQEL$HIT5IcIIKt%H93IcHHHMT (MT5(IIH MtOt%E]AE]A<-A9HEAA<EPEYIcHLLfMcIMINIFHFHQIT$LqMt$HAID$D9tDEPEYIcHLLJIcHLL@HpHrIHIIM`MaIxIyAAIcHLLqIcHLH~HVHQLgMfLGMFLOMNAAMcIMMt$IcHLLJHJIL$MAMFIyI~IAIFD9AJACLcIMIpHHLLpL`M`I~H~MNLNIVHVAJACLcIMIpHHLLpL`M`I~H~MNLNIVHVAJACLcIMIpHHLLHL`M`IyH~IAHFMqLvAAIL$HJIL$HJH=;N1~LIL$~LM$LM$IL$LRMT$HJIcHHMt(Mt(HHMZM\ AEAE</IcIIHMd (Od5(IIH ItKtEUAEUA<HAE14AE1UHALB[H [HDXH55X]XUHAL[H ZHXH5 X],UHAL [H ZHWH5W]UHALZH ZHWH5W]UHALrZH SZHWH5W]UHALFZH 'ZHWH5yW]|UHAL:ZH ZHYH YHVH5qV]tUHAWAVAUATSHIHHHHZHAHLEI9HI~NH=XHOMD LHHILH4 HHHHHI92HL)HLUALXH WXLL=ULLLUIHLUI9I9HINLHLUHHLUJ\8L+M.L3HMI_HLUI;RAJLH)LcI9L rWMYN$LHIHIOTLHIIML9IMMLH[A\A]A^A_]HCHHx~*HHHHI 6I; tdHWLPH|HL)Jvttu1ۃÍ|[11`EMAEH[A\A]]MtID$HHx9HH5QHH 2HHHH[A\A]]ÿ3ISHHH<3H~QH;:t1H THH[A\A]]Yv 82?HrLHSLHH[A\A]]*11sDUHHuH PHH HHH8]HFHHx HH$HHL7HPL;tHVS]项HS]餶H:r]UHAWAVAUATSHHIIAMC¸H9tLv't"1ۃÍT[1DL1CMAEH[A\A]A^A_]MtID$HHx:HH5OHH 2HHHH[A\A]A^A_]ò3IWHHH<3HOH;:t5H0RHH[A\A]A^A_]{v %20HrCHRLHH[A\A]A^A_]H1DL1BUHATSIHmBtmHu#HNHH HI$L![A\]HCHHx~THHHI4HNH;twHUQL[A\]颷Ht%HCHHx(HHsH[NiHAHHI4HCNH;t HPL"rGHQHL[A\]-H QUHATSIH[AtmHu#HMHH HI$L![A\]HCHHx~THHHI4HMH;twHCPL[A\]鐶Ht%HCHHx(HHsHIMiHAHHI4H1MH;t HOL"rGHOHL[A\]HO萐UHH}HuEHMHvCECEEHLH NHHE0HLjHMMEEEEM^H MMHaLH HMHU@0H@uH֊M EMEEEEEM\ #BfT 7Bf.wHEi?H TH*f.w)EEEEEEEHNHHljuHxHxDEDMHp>Hp>HQ@HpHƉ{>EHpv>EHp_>EHpN>Hp >H @H@HljO>UHH H}Pt4H?!H5?@0@}HHuHME=PHyJHHt)HiJHHH H9uHPJHHEHEHEHHE@$<u4H'?nH5=?@0@}HHuHMEF=HE@t@H>pH5>@0@HHpHp<HE@ $< tOHE@ H >H5> lHH`H`lA<HE@$<u@H->oH5C>@0@_HHPHP_@<HEf@ft`HEf@H =sH==AE0HHHωD֋DHHDCAC;HEHSHEH@Hf@ff tnHV=SH5l=H=s=AE0H8HH0H0H8D,I,D+A+;;HEH@Hf@fftnH<YH5<H=<AE0H HHHH DIDA:HEH@Hf@f f $< HEH@Hf@f f fH<H=?<A E0HHlj֋HHDADA9HEH@Hf@ff tnH;[H5;H=;AE0HHHHHDIDAq9HFH GHHHHE0HLjHMHUMH GH5EHHM@0H@H֊EMEEEEKEEEEEEEEEMH ]ÐUHHH}WKt4H^:]!H5V:@0@}HHuHMEF8KHDHHt)HDHHH H9uHDHHEHEHEHHEȋ@$<u4H9]nH59@0@}HHuHME7HEȋ@t4Hy9]pH5q9@0@}HHuHMEa7HEȋ@ $< tIHEȋ@ H "9]H5-9 }HHxHxMA6HEȋ@$<u@H8]oH58@0@wHHhHhw6HEf@ft`HEf@H }8]sH=8AE0H`Hω\֋\H`D[A[D6HEHSHEH@Hf@ff tnH7]SH57H=8AE0HPHHHHHHPDDIDDCAC5HEH@Hf@fftnHp7]YH5h7H=x7AE0H8HH0H0H8D,I,D+A+5HEH@Hf@f f $< HEH@Hf@f f fH6]H=6A E0H Hlj֋H HDADAl4HEH@Hf@ff tnH56][H5-6H==6AE0HHHHHDIDA3HE3EHE@c3EFEEEEEEEEEMH]DUHHH};Ft4H>5G!H5O5@0@}HHuHME&3EH?HHt)H?HHH H9uH?HHEHEHEHHEȋ@$<u4H4GnH54@0@}HHuHME2HEȋ@t4HY4GpH5j4@0@}HHuHMEA2HEȋ@ $< tIHEȋ@ H 4GH5&4 }HHxHxMA1HEȋ@$<u@H3GoH53@0@wHHhHhw1HEf@ft`HEf@H ]3GsH=|3AE0H`Hω\֋\H`D[A[$1HEHSHEH@Hf@ff tnH2GSH52H=2AE0HPHHHHHHPDDIDDCAC0HEH@Hf@fftnHP2GYH5a2H=X2AE0H8HH0H0H8D,I,D+A+/HEH@Hf@f f $< HEH@Hf@f f fH1GH=1A E0H Hlj֋H HDADAL/HEH@Hf@ff tnH1G[H5&1H=1AE0HHHHHDIDA.HEV.EHE@.fH~HH1fHnEYAEEEEEEEEEMH]UHHpH}Hu@t4H/0!H5"0@0@}HHuHME-@Hu:HHt)He:HHH H9uHL:HHEHEHEHHEȋ@$<u4HZ/0nH5/@0@}HHuHMEB-HEȋ@t4H/0pH5=/@0@}HHuHME,HEȋ@ $< tIHEȋ@ H .0H5. }HHxHxMA,HEȋ@$<u@Hr.0oH5.@0@wHHhHhwN,HEf@ft`HEf@H .0sH=O.AE0H`Hω\֋\H`D[A[+HEHSHEH@Hf@ff tnH-0SH5-H=-AE0HPHHHHHHPDDIDDCACI+HEH@Hf@fftnH -0YH54-H=-AE0H8HH0H0H8D,I,D+A+*HEH@Hf@f f $< HEH@Hf@f f fH`,0H=o,A E0H Hlj֋H HDADA*HEH@Hf@ff tnH+0[H5+H=+AE0HHHHHDIDA)HEHXHEH@H@f@ff tnH9+0SH5a+H=q+AE0HHHHHDIDA(HEH@H@f@fftnH*0YH5*H=*AE0HHHHHDIDAW(HEH@H@f@f f $< HEH@H@f@f f fH)0H=:*A E0HHlj֋HHDADA'HEH@H@f@ff tnHk)0[H5)H=)AE0HHHHHDIDA'HEHE^EHE@HEYHEHHEY\HEHEY^E9EEEEEEEEEMHp]fDfDUHHpH}Hu/9t4H*(!H5k(@0@}HHuHME&8H2HHt)H2HHH H9uH|2HHEHEHEHHEȋ@$<u4H'nH5'@0@}HHuHMEr%HEȋ@t4HE'pH5'@0@}HHuHME-%HEȋ@ $< tIHEȋ@ H &H5B' }HHxHxMA$HEȋ@$<u@H&oH5&@0@wHHhHhw~$HEf@ft`HEf@H I&sH=&AE0H`Hω\֋\H`D[A[$HEHSHEH@Hf@ff tnH%SH5 &H=%AE0HPHHHHHHPDDIDDCACy#HEH@Hf@fftnH<%YH5}%H=D%AE0H8HH0H0H8D,I,D+A+"HEH@Hf@f f $< HEH@Hf@f f fH$H=$A E0H Hlj֋H HDADA8"HEH@Hf@ff tnH$[H5B$H= $AE0HHHHHDIDA!HEHXHEH@H@f@ff tnHi#SH5#H=#AE0HHHHHDIDA!HEH@H@f@fftnH"YH5#H=#AE0HHHHHDIDA HEH@H@f@f f $< HEH@H@f@f f fH+"H=j"A E0HHlj֋HHDADAHEH@H@f@ff tnH![H5!H=!AE0HHHHHDIDAIHEHEYEHE@HEYHEHHEYXE1EEEEEEEEEMHp]@UHHpH}Hu1t4Hz !H5 @0@}HHuHMEb@1H*HHt)H*HHH H9uH*HHEHEHEHHEȋ@$<u4HnH52 @0@}HHuHMEHEȋ@t4HpH5@0@}HHuHME}HEȋ@ $< tIHEȋ@ H >H5 }HHxHxMAHEȋ@$<u@HoH5J@0@wHHhHhwHEf@ft`HEf@H sH=AE0H`Hω\֋\H`D[A[`HEHSHEH@Hf@ff tnHSH5sH=#AE0HPHHHHHHPDDIDDCACHEH@Hf@fftnHYH5H=AE0H8HH0H0H8D,I,D+A+:HEH@Hf@f f $< HEH@Hf@f f fHH=A E0H Hlj֋H HDADAHEH@Hf@ff tnHQ[H5H=YAE0HHHHHDIDAHEHXHEH@H@f@ff tnHSH5H=AE0HHHHHDIDAgHEH@H@f@fftnH)YH5H=aAE0HHHHHDIDAHEH@H@f@f f $<HEH@H@f@f f fH{H=AE0HHlj֋HHDADA#HEH@H@f@ff tnH[H5CH=#AE0HHHHHDIDAHEHE\EHE@EP*EEEEEEEEEMHp]fUHHpH}Hu)t4H!H5]@0@}HHuHME)He#HHt)HU#HHH H9uH<#HHEHEHEHHEȋ@$<u4HJnH5@0@}HHuHME2HEȋ@t4HpH5x@0@}HHuHMEHEȋ@ $< tIHEȋ@ H H54 }HHxHxMAHEȋ@$<u@HboH5@0@wHHhHhw>HEf@ft`HEf@H sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnHSH5H=AE0HPHHHHHHPDDIDDCAC9HEH@Hf@fftnHYH5oH=AE0H8HH0H0H8D,I,D+A+HEH@Hf@f f $< HEH@Hf@f f fHPH=_A E0H Hlj֋H HDADAHEH@Hf@ff tnH[H54H=AE0HHHHHDIDAoHEHXHEH@H@f@ff tnH)SH5H=aAE0HHHHHDIDAHEH@H@f@fftnHYH5 H=AE0HHHHHDIDAGHEH@H@f@f f $< HEH@H@f@f f fHH=*A E0HHlj֋HHDADAHEH@H@f@ff tnH[[H5H=AE0HHHHHDIDA HEHE\EHE@HEH\E"EEEEEEEEEMHp]fDfDUHHpH}Hu["t4HJ!H5@0@}HHuHME2"HHHt)HHHH H9uHHHEHEHEHHEȋ@$<u4HnH54@0@}HHuHMEHEȋ@t4HepH5@0@}HHuHMEMHEȋ@ $< tIHEȋ@ H H5 }HHxHxMA HEȋ@$<u@HoH5L@0@wHHhHhw HEf@ft`HEf@H isH=AE0H`Hω\֋\H`D[A[0 HEHSHEH@Hf@ff tnHSH5uH=AE0HPHHHHHHPDDIDDCAC HEH@Hf@fftnH\YH5H=dAE0H8HH0H0H8D,I,D+A+ HEH@Hf@f f $< HEH@Hf@f f fH H= A E0H Hlj֋H HDADAX HEH@Hf@ff tnH! [H5 H=) AE0HHHHHDIDA HEHXHEH@H@f@ff tnH SH5 H= AE0HHHHHDIDA7 HEH@H@f@fftnH YH5 H=1 AE0HHHHHDIDA HEH@H@f@f f $<HEH@H@f@f f fHK H= AE0HHlj֋HHDADAHEH@H@f@ff tnH [H5E H= AE0HHHHHDIDAiHEHEXEHE@E(EEEEEEEEEMHp]fUHHpH}Hut4H !H5_ @0@}HHuHMEH5HHt)H%HHH H9uH HHEHEHEHHEȋ@$<u4H nH5 @0@}HHuHMEHEȋ@t4HpH5z @0@}HHuHMEHEȋ@ $< tIHEȋ@ H ~H56 }HHxHxMAUHEȋ@$<u@H2oH5@0@wHHhHhwHEf@ft`HEf@H sH=AE0H`Hω\֋\H`D[A[HEHSHEH@Hf@ff tnH[SH5H=cAE0HPHHHHHHPDDIDDCAC HEH@Hf@fftnHYH5qH=AE0H8HH0H0H8D,I,D+A+zHEH@Hf@f f $< HEH@Hf@f f fH H=/A E0H Hlj֋H HDADAHEH@Hf@ff tnH[H56H=AE0HHHHHDIDA?HEHXHEH@H@f@ff tnHSH5H=1AE0HHHHHDIDAHEH@H@f@fftnHiYH5H=AE0HHHHHDIDAHEH@H@f@f f $< HEH@H@f@f f fHH=A E0HHlj֋HHDADAcHEH@H@f@ff tnH+[H5H=cAE0HHHHHDIDAHEHEXEHE@HEHXEEEEEEEEEEMHp]% % % % % % %" %$ %& %( %* %, %. %0 %2 %4 %6 %8 %: %< %> %@ %B %D hhh+hQhphhhhhhh4xhQnhndhZhPhFh<h2h(h1h>hK h_L AS%} huge_deallocate: overlapping free itemsImpossible negative allocation (please report this bug).F_DF_Twhat the cat dragged intest_f_df.f90normal exit in test_f_dfTEST_F_DF:FFXf_df.f90F_DF:F_DF_SINF_DF_SINUF_DF:F_DF_COSF_DF_COSF_DF:F_DF_DIVF_DF_DIVVF_DF:F_DF_MULF_DF_MULF_DF:F_DF_SUB_RF_DF_SUB_RF_DF:F_DF_SUBF_DF_SUBF_DF:F_DF_ADD_RF_DF_ADD_RF_DF:F_DF_ADDF_DF_ADD??|=((X @@U@ D<fx<y?} ,kSzRx ,2  ,L2  ,|z2  ,T2  zRx 42 4TCr  4*[  4m 4Ip  44s]/  4l|   ,%, ,!, ,, ,4, ,d, ,, , , , , ,$, ,T, ,, ,, 4  ,F  ,L  ,|x ,ʰ 4?  ,# 4Duf  4| 4} zRx ,H! ,LH zRx , ,L2 ,| ,@ , ,   ,< ,l `p  *4>HR\fpz`I I xP  0I I I P @H I"\B`Dppp(RARARASBppSARCQ>@dyld_stub_binderQr`rp>@___NAGf90_cosdrx>@___NAGf90_crashr>@___NAGf90_end_write_sequentialr>@___NAGf90_f90_init1_dllr>@___NAGf90_f90_init2_dllr>@___NAGf90_f90_init_dllr>@___NAGf90_freememr>@___NAGf90_getmemr>@___NAGf90_init_dllr>@___NAGf90_init_loutputr>@___NAGf90_lio_write_chr>@___NAGf90_lio_write_dr>@___NAGf90_lio_write_ir>@___NAGf90_pagecolourr>@___NAGf90_pu_bad_cdtype_liner>@___NAGf90_rtcrashr>@___NAGf90_rterrr>@___NAGf90_sindr>@___NAGf90_stop_liner>@___NAGf90_write_sequentialr>@_exitr>@_fabsr>@_getpagesizer>@_memcpy_ startJ_.fmainNXArgenvironmh_execute_headerF_ONAGf90_eprognameinitlzaopReAllocfast_deallocation_allowed90_init_df_21zaopine_ReAllocaAllocoAllocpAlloc͏aAllocoAllocpAllocѐAllocDeAllocՑAllocDeAllocllocatable_AllocDeAllocaDeAllocAllocDeAllocaDeAllocrdinary_ْAllocDeAllocAllocDeAllocointer_rocrefݓЦMP_f_df_DT_f_df_tHEADERscosdivmuladdinub_r_rcvqltail22qltail22ql2tail2< $.%^,,,,,,,,,,,,  6  H 3-YF>IIOL_Q|iy D P `   9 R Hu P       @ `   * 6 B N Z f rz݉" @F UՈgp{f-z#͇%},Y=;P5dz`p&8QJ\h|, "   0@P );OPU [o~*AXn+4?IT]hov~    ! ( 0 6 > F L T b j r z                      ! * 2 = J T a j r {                    $ / 5 > E J P V a l x                      # + 3 ; E N V [ a g n t {           [\]^_`abcdefghijklmn*,>@CDE@@[\]^_`abcdefghijklmn _rebalance_try_misc_allocate_misc_insert_huge_deallocate_misc_deallocate_maybe_coalesce_allocate_test_f_df_IP_f_dConst1.5800_pvars_first.9451___NAGf90_Check_Procref_Args0.5802___NAGf90_Check_Arg.5801___NAGf90_Check_Procref_Args1.5803___NAGf90_Check_Procref.5804___NAGf90_Check_Procref_Args0.5834___NAGf90_Check_Arg.5833___NAGf90_Check_Procref_Args1.5835___NAGf90_Check_Procref.5836_pgsize_pointer_misc_allocatable_misc_ordinary_misc_pointer_huge_allocatable_huge_ordinary_huge__ioctx_.5810__ftf_.5838__ftf_.5798__ftf_.5869__ftf_.5942__ftf_.6050__ftf_.6154__ftf_.6252__ftf_.6352__ftf_.6450_NXArgc_NXArgv___NAGf90_ReAlloc___NAGf90_aAlloc___NAGf90_aDeAlloc___NAGf90_allocatable_ql___NAGf90_allocatable_ql2___NAGf90_allocatable_tail___NAGf90_allocatable_tail2___NAGf90_fast_deallocation_allowed___NAGf90_init___NAGf90_laAlloc___NAGf90_laDeAlloc___NAGf90_line_ReAlloc___NAGf90_loAlloc___NAGf90_loDeAlloc___NAGf90_loaDeAlloc___NAGf90_lpAlloc___NAGf90_lpDeAlloc___NAGf90_lzaAlloc___NAGf90_lzoAlloc___NAGf90_lzpAlloc___NAGf90_oAlloc___NAGf90_oDeAlloc___NAGf90_oaDeAlloc___NAGf90_ordinary_ql___NAGf90_ordinary_ql2___NAGf90_ordinary_tail___NAGf90_ordinary_tail2___NAGf90_pAlloc___NAGf90_pDeAlloc___NAGf90_pointer_ql2___NAGf90_pointer_tail2___NAGf90_procref___NAGf90_zaAlloc___NAGf90_zoAlloc___NAGf90_zpAlloc___progname__mh_execute_header_environ_f90_init_f90_init1_f90_init2_f_df_DT_f_df_tHEADER_f_df_MP_f_df_add_f_df_MP_f_df_add_r_f_df_MP_f_df_cos_f_df_MP_f_df_div_f_df_MP_f_df_mul_f_df_MP_f_df_sin_f_df_MP_f_df_sub_f_df_MP_f_df_sub_r_mainstart__DefaultRuneLocale___NAGf90_cosd___NAGf90_crash___NAGf90_end_write_sequential___NAGf90_f90_init1_dll___NAGf90_f90_init2_dll___NAGf90_f90_init_dll___NAGf90_freemem___NAGf90_getmem___NAGf90_init_dll___NAGf90_init_loutput___NAGf90_lio_write_ch___NAGf90_lio_write_d___NAGf90_lio_write_i___NAGf90_pagecolour___NAGf90_pu_bad_cdtype_line___NAGf90_rtcrash___NAGf90_rterr___NAGf90_sind___NAGf90_stop_line___NAGf90_write_sequential___error___maskrune___srget___stderrp___stdinp___stdoutp___swbuf___toupper__exit_abort_access_alarm_atan_atan2_atanf_atoi_ceil_chdir_chmod_chown_clearerr_closedir_cos_cosf_cosh_coshf_ctermid_execl_execlp_execv_execve_execvp_exit_exp2_expm1_expm1f_fabs_fclose_fdopen_feof_ferror_fetestexcept_fflush_fileno_finite_floor_floorf_fmod_fmodf_fopen_fork_fprintf_fputs_fread_freopen_frexp_fseek_fseeko_fstat_ftell_ftello_ftruncate_fwrite_getc_getcwd_getegid_getenv_geteuid_getgid_getgroups_gethostname_getlogin_getpagesize_getpgrp_getpid_getppid_getrusage_gettimeofday_getuid_hypotf_isatty_islower_ldexp_link_localtime_r_log2_memchr_memcmp_memcpy_memmove_memset_mkdir_mkfifo_mkstemp_mmap_munmap_nanosleep_open_opendir_pause_pow_powf_putc_readdir_r_remainder_remainderf_rename_rewind_rewinddir_rint_rintf_rmdir_scalbnf_setenv_setgid_setpgid_setsid_setuid_setvbuf_sigaction_signal_sin_sinf_sinh_sinhf_sleep_sprintf_stat_strchr_strcmp_strcpy_strerror_sysconf_system_tan_tanf_tanh_tanhf_time_times_toupper_ttyname_umask_uname_ungetc_unlink_utime_vsnprintf_wait_waitpiddyld_stub_binderDay-I/02-Derivatives/test_f_df.f90100777 0 0 11157 11777152600 12114 0! bof ! ********************************************************************** ! Fortran 95 program test_f_df ! ---------------------------------------------------------------------- ! Source Control Strings ! $Id$ ! ---------------------------------------------------------------------- ! Copyright 2012 Dan Nagle ! All Rights Reserved ! This program is free software; you can redistribute it and/or ! modify it under the terms of the GNU General Public ! License as published by the Free Software Foundation; either ! version 2 of the License, or (at your option) any later version. ! This program is distributed in the hope that it will be useful, ! but WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ! General Public License for more details. ! You should have received a copy of the GNU General Public ! License along with this program; if not, write to the Free ! Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! To report bugs, suggest enhancements, or contact the Authors, ! Contact: ! Dan Nagle ! send email to dannagle@verizon.net ! or mail to 2820 Lafayette Dr. ! Boulder, CO 80305 USA ! ---------------------------------------------------------------------- ! test_f_df describe the program ! ---------------------------------------------------------------------- ! test_f_df uses ! processor_dependencies- describes the processor ! test_f_df includes ! ! test_f_df reads files ! test_f_df writes files ! test_f_df constants ! test_f_df types ! test_f_df data ! test_f_df library ! ********************************************************************** ! test_f_df ! ---------------------------------------------------------------------- program test_f_df ! ---------------------------------------------------------------------- ! test_f_df uses modules ! ---------------------------------------------------------------------- ! processor description use, intrinsic :: iso_fortran_env, only: real64 ! derivative type use :: f_df, only: f_df_t, sin, cos, operator( *), operator( -) ! ---------------------------------------------------------------------- ! all names are declared: require explicit declarations implicit none ! ---------------------------------------------------------------------- ! test_f_df RCS strings ! ---------------------------------------------------------------------- ! program source filename supplied by RCS character( len= *), parameter :: test_f_df_rcs_id = & '$Id$' ! ---------------------------------------------------------------------- ! test_f_df constants ! ---------------------------------------------------------------------- integer, parameter :: max_iter = 30 real( real64), parameter :: tolerance = 1.0e-10_real64 real( real64), parameter :: runaway = 1.0e10_real64 ! ---------------------------------------------------------------------- ! test_f_df types ! ---------------------------------------------------------------------- ! ---------------------------------------------------------------------- ! test_f_df data ! ---------------------------------------------------------------------- type( f_df_t) :: x, x_new type( f_df_t) :: fx integer :: i ! ---------------------------------------------------------------------- ! test_f_df text ! ---------------------------------------------------------------------- continue x = f_df_t( 1.5_real64, 1.0_real64) do i = 1, max_iter fx = f( x) x_new = x - fx% f / fx% df if( abs( x_new% f - x% f) < tolerance ) exit if( abs( x_new% f) > runaway ) exit x = x_new end do write( unit= *, fmt= *) 'what the cat dragged in', i, x_new stop 'normal exit in test_f_df' ! ---------------------------------------------------------------------- ! test_f_df library ! ---------------------------------------------------------------------- contains ! ---------------------------------------------------------------------- function f( x) result( fx) type( f_df_t), intent( in) :: x type( f_df_t) :: fx continue fx = x * cos( x) return end function f ! ---------------------------------------------------------------------- ! test_f_df ! $Id$ ! ********************************************************************** ! eof end program test_f_df Day-I/02-Derivatives/test_f_df.o100777 0 0 12404 11777152620 11752 0 x,  __text__TEXT E__const__TEXT __literal8__TEXT __data__DATA0 (__cstring__TEXT0 V0 __bss__DATA ,__eh_frame__TEXT x  h&@ PUHH}HuEHMHEEEHH HHE0HLjHMMEEEEM^H MHH HMHU@0H@uH֊MEMEEEEEM\ fT f.wHEH TH*f.w)EEEEEEEHHHljuHxHxDEDMHpHpHHpHƉEHpEHpEHpHpHHHljUHH H}t4H!H5@0@}HHuHMEHHHt)HHHH H9uHHHEHEHEHHE@$<u4HnH5@0@}HHuHMEHE@t@HpH5@0@HHpHpHE@ $< tOHE@ H H5 lHH`H`lAHE@$<u@HoH5@0@_HHPHP_HEf@ft`HEf@H sH=AE0HHHωD֋DHHDCACHEHSHEH@Hf@ff tnHSH5H=AE0H8HH0H0H8D,I,D+A+HEH@Hf@fftnHYH5H=AE0H HHHH DIDAHEH@Hf@f f $< HEH@Hf@f f fHH=A E0HHlj֋HHDADAHEH@Hf@ff tnH[H5H=AE0HHHHHDIDAHH HHHHE0HLjHMHUMH H5HHM@0H@H֊EMEEEEEEEEEEEEEMH ]??|= 0  0     F_DF_Twhat the cat dragged intest_f_df.f90normal exit in test_f_dfTEST_F_DF:FFXzRx ,! ,L `#-<=5 "- =- f-  -e ^M%- -Q @ -- k-C2-===z-^MA------- -Z%-$-=f-SL=4'!- "#$x p` X ( P^P ^ ?Mpj0z 7 O ] ( v    0 $XGj  6 Xo=$#7_main_f90_init___NAGf90_procref_f_df_MP_f_df_sub_r_fabs___NAGf90_write_sequential___NAGf90_init_loutput___NAGf90_lio_write_ch___NAGf90_lio_write_i___NAGf90_lio_write_d___NAGf90_end_write_sequential___NAGf90_stop_line___NAGf90_rterr___NAGf90_pu_bad_cdtype_line_f_df_MP_f_df_cos_f_df_MP_f_df_mul_main.eh_dConst1.5800___NAGf90_Check_Procref.5804_test_f_df_IP_f__ioctx_.5810L_.str1L_.str2L_.str3__ftf_.5838L_.str4L_.str5L_.str6___NAGf90_Check_Procref.5836___NAGf90_Check_Procref_Args0.5802___NAGf90_Check_Arg.5801L_.str___NAGf90_Check_Procref_Args1.5803___NAGf90_Check_Procref_Args0.5834___NAGf90_Check_Arg.5833___NAGf90_Check_Procref_Args1.5835EH_frame0_test_f_df_IP_f.ehDay-I/03-Transition/ 40777 0 0 0 11777312757 7373 5Day-I/03-Transition/._Run_Transitions.f90100777 0 0 10000 11777310036 13364 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/03-Transition/._transition.f90100777 0 0 10000 11777310042 12412 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/03-Transition/rt100777 0 0 123500 11777103142 10066 0 H__PAGEZERO(__TEXT__text__TEXTm__stubs__TEXT|T|__stub_helper__TEXT||__cstring__TEXTx}bx}__const__TEXTx__eh_frame__TEXTXX(__DATA__dyld__DATA8__nl_symbol_ptr__DATA88__la_symbol_ptr__DATAHpH__data__DATA__common__DATAؐ __bss2__DATAH__LINKEDIT@"0 p($` P h /usr/lib/dyld,J8lsb$ * H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&jHHH}HuHHHH9uHmASL#AS%%UHHtH5onH=nm؁HEHǸemM~f.EEUHAVAUATSHPtH5UnH=n mZE]ԃ} SEDe؃} EDm܃} EHcHt HH59nH=znlH t HH5{nH=LnZlEHcHtH5nH=n*lH t H5nH=mkEHcHt HH5nH=mkH t HH5nH=mkHHHH HHHHHHHHHLpBD9mtH5nH=n3k} EDm܅]D9etH5|nH=nj} EDe؅9]tH5=nH=nj} E]ԅHH ~H{HH={HI¸H={kjUHAVAUATSHM֋~tH55nH=fnjj~E]ԃ} EDe؃} aHCnHDž4DžDžHHiEDm܃} EHcHt HH5kH=mUiH t HH5HkH=m'iEHcHtH5`kH=mhH t H5}kH=^mhEHcHt HH5kH=+mhH t HH5kH=lkhHHHH HHHHHHHHHHoHI HHH=hD9mtH5|kH=lgu} EDm܅CHHgD9etH5 kH=Qlg} EDe؅9]tH5jH=:lXg} E]ԅK{H[A\A]A^]UHH}HuHUEH։ gH5~xgUHSHHhH`0{tH5kH=kf{HhH@HtIHhHHEH`HHEHhHP(HhH@ HH)HHH;EtEHhHP(HhH@ HH)HHPHEHHH5\kH=keHhHx0H`HHEHhHP@HhH@8HH)HHH;EtEHhHP@HhH@8HH)HHPHEHHH54kH=kceHhHHHH`HHEHhHPXHhH@PHH)HHH;EtEHhHPXHhH@PHH)HHPHEHHH5jH=ujdLHH)II)HuHUHEHAEH}AEE!EEt)HEIH5jH=kldHAEHAEE!EEt(HEAHHH5tjH=j#dHAEH;uAEE!EEt(HEAHHH5*jH=sjcHHAEH}AEE!EEt)HEIH5SjH=$jcHAEHAEE!EEt%HEAHH5 jH=iDcHAEH;UAEE!EEt%HEAHH5iH=ibHHAEH}AEE!EEt)HEIH5iH=HibHAEHAEE!EEt(HUAHHH5~iH=hebHAEH;EAEE!EEt(HUAHHH54iH=hbHHEMHEHuLEHHEHUHuHHEHEHUHEHpLxHpHǸavHĘ[]UHAWAVAUATSHHHHHutH5hH=hIauHHHEHEHHHIHHHHEHHEHHHIHxHHHEHxHEHHHHH+xHpHHHEHEHHHIHhHHHEHhHEHHHIH`HHHEH`HEHHHHHHDHI`Hu H=g_HEHhHHH+`HXHHHEHEHHHIHPHHHEHPHEHHHIHHHHHxHHHxHHHHHHDHz_Hu H=f'_HpHPHHH+HH@HHHhHhHHHIH8HHH`H8H`HHHIH0HHHXH0HXHHHHHHDH^Hu H= fI^HPH8HHH+0H(HHHHHHHHHIH HHH@H H@HHHIHHHH8HH8HHHHHHDH]Hu H=-ek]H0H HHH+HHEM̉9E\L(LhL`LXMHh!Љt,HhIH5dH=d\MM!Љt+HhAHLH5YdH=dx\ML;h!Љt+HhAHLH5dH=Yd/\MMH`!Љt,H`IH5:dH= d[MM!Љt+H`AHLH5cH=c[ML;`!Љt+H`AHLH5cH=}cS[MMHX!Љt,HXIH5cH=/c[MM!Љt+HXAHLH5icH=bZML;X!Љt+HXAHLH5 cH=bwZMɿL9VH0HJ L97H8HLL9JHPHHHL(HhL`LXLpHuH}LMHHh!Љt,HhIH5{aH=bYHH!Љt+HhAHHH56aH=GbUYHH;h!Љt+HhAHHH5`H=a YHHHIMH`!Љt,H`IH5 aH=aXMM!Љt+H`AHLH5`H=_amXML;`!Љt+H`AHLH5}`H=a$XMIMIMHX!Љt,HXIH5s`H=`WMM!Љt+HXAHLH5.`H=w`WML;X!Љt+HXAHLH5_H=.`]LTMIIL9t*MIILHH5^H=\ TL9H0HN,8HxHN$0L9XH8HN (HHN H9*JHtJ HPHHHnH@HHUHuHxHH}!ȉt)HEIH5]H=:^SHH!ȉt%HEAHH5]H=]RHH;U!ȉt%HEAHH5b]H=]RHHH}!Љt)HEIH5]H=s]IRHH!Љt(HEAHHH5`]H=1]RHH;u!Љt(HEAHHH5]H=\QHHHx!Љt,HxIH5/]H=\vQHH!Љt+HxAHHH5\H=[\1QHH;x!Љt+HxAHHH5\H=\PHHhH`LXHHh!Љt,HhIH5fXH=[PHH!Љt+HhAHHH5!XH=j[@PHH;h!Љt+HhAHHH5WH=![OHHH`!Љt,H`IH5XH=ZOHH!Љt+H`AHHH5WH=ZdOHH;`!Љt+H`AHHH5tWH=EZOHMHX!Љt,HXIH5vWH=YNMM!Љt+HXAHLH51WH=YNML;X!Љt+HXAHLH5VH=iY?NMHDž H(HDžHHDžH8HDžHHH0HDžLHHPHHHH5R_HO_HDž HDžHDžHHHHHXMHhH`LXHHh!Љt,HhIH5TH=4X MHH!Љt+HhAHHH5TH=WLHH;h!Љt+HhAHHH5]TH=W|LHHH`!Љt,H`IH5TH=XW.LHH!Љt+H`AHHH5BTH=WKHH;`!Љt+H`AHHH5SH=VKHMHX!Љt,HXIH5SH=|VRKMM!Љt+HXAHLH5SH=7V KML;X!Љt+HXAHLH5mSH=UJMHDž H(HDžHHDžH8HDžHHH0HDžLHHPHpHxHpHL=[L5[H8H0II)HPHHII)HhH`HH)HDž HDžHDžLIEHDIUHHDžLID$HID$HHHDž H(HCHHCHHDƒ!‰ȃ!Ѕt HHHDHEIHu H=PHHHDžHLLHHHHhH`LXHHh!Љt,HhIH5QPH=TpHHH!Љt+HhAHHH5 PH==T+HHH;h!Љt+HhAHHH5OH=SGHHH`!Љt,H`IH5OH=SGHH!Љt+H`AHHH5OH=aSOGHH;`!Љt+H`AHHH5_OH=SGHMHX!Љt,HXIH5aOH=RFMM!Љt+HXAHLH5OH=RsFML;X!Љt+HXAHLH5NH=HH!Љt+H`AHHH5FH=J>HH;`!Љt+H`AHHH5FH=JJ>HMHX!Љt,HXIH5FH=6J=MM!Љt+HXAHLH5`FH=I=ML;X!Љt+HXAHLH5FH=In=MHDž H(HDžHHDžH8HDžHHH0HDžLHHPHHHHL=zNL5NHDž HDž(HDž0L8IEHDIUH@HDžHLPID$HID$HHXHDž`HhHCHHCHHDƒ!‰ȃ!Ѕt HHHDH+<Hu H=C;HHDžHLLHH;HhH`LXHHh!Љt,HhIH57CH=GV;HH!Љt+HhAHHH5BH=KG;HH;h!Љt+HhAHHH5BH=G:HHH`!Љt,H`IH5BH=Fz:HH!Љt+H`AHHH5BH=oF5:HH;`!Љt+H`AHHH5EBH=&F9HMHX!Љt,HXIH5GBH=E9MM!Љt+HXAHLH5BH=EY9ML;X!Љt+HXAHLH5AH=JE9MHDž H(HDžHHDžH8HDžHHH0HDžLHHPHpHxHpHL= JL5!JHDž HDžHDžLIEHDIUHHDžLID$HID$HHHDž H(HCHHCHHDƒ!‰ȃ!Ѕt HHHDH7Hu H=5HPHtH*5HHtH5HHtH5H@HLuLmLxH@HHuH}LxHpHxLUL]H]MH}!Љt)HEIH5 ?H=@94MM!Љt(HEAHLH5>H=Y@3ML;u!Љt(HEAHLH5>H=@3MHIIMH}!Љt)HEIH5>H=?`3MM!Љt(HEAHLH5w>H=?3ML;m!Љt(HEAHLH54>H==?2MIMIMHx!Љt,HxIH5:>H=>2MM!Љt+HxAHLH5=H=><2ML;x!Љt+HxAHLH5=H=U>1MIMIHH}!Љt)HEIH5p<H=>1HH!Љt(HEAHHH5.<H==]1HH;u!Љt(HEAHHH5;H=|=1HHIH9t'HHIHH5k=H=<=0HH}!Љt)HEIH5;H=<0HH!Љt(HEAHHH5;H=<S0HH;}!Љt(HEAHHH5i;H=r<0HHIL9t*HHILHH5<H=/</MHx!Љt,HxIH5;;H=;/MM!Љt+HxAHLH5:H=;=/ML;x!Љt+HxAHLH5:H=V;.MIIL9t*MIILHH5;H=;.MH}!Љt)HEIH57H=:l.MM!Љt(HEAHLH5K7H=:*.ML;U!Љt(HEAHLH57H=I:-MIIH9t'MIIHH57H= :-MH}!Љt)HEIH57H=9b-MM!Љt(HEAHLH56H=9 -ML;]!Љt(HEAHLH56H=?9,MIIL9t*MIILHH56H=8,HH}!Љt)HEIH56H=8U,HH!Љt(HEAHHH5T6H=u8,HH;]!Љt(HEAHHH56H=28+HHIL9t*HHILHH56H=7+AM9HHIHHHpHHILIHxIHxHÿL9HPHLpIHPHN8HHL L9KJ Ht0J4JHpDž)ЉHpHHfI LHHL@L8HHH!Љt,HHIH57H=7)*HH!Љt+HHAHHH5e7H=7)HH;H!Љt+HHAHHH57H=m7)HMH@!Љt,H@IH5N7H=7M)MM!Љt+H@AHLH5 7H=6)ML;@!Љt+H@AHLH56H=6(MMH8!Љt,H8IH56H=C6q(MM!Љt+H8AHLH56H=5,(ML;8!Љt+H8AHLH5<6H=5'MAM9WHIN$(L98H HN H9J H0?HHIHHhLHH@L8L@HuH}LxMHH!Љt,HHIH5{4H=5&MM!Љt+HHAHLH564H=_5&ML;H!Љt+HHAHLH53H=5l&MHIIHH@!Љt,H@IH54H=4&HH!Љt+H@AHHH53H=w4%HH;@!Љt+H@AHHH53H=.4%HILIMH8!Љt,H8IH53H=3*%MM!Љt+H8AHLH5>3H=3$ML;8!Љt+H8AHLH52H=F3$MIMIHH}!Љt)HEIH5/H=2H$HH!Љt(HEAHHH5.H=2$HH;u!Љt(HEAHHH5.H=m2#HHIH9t'HHIHH50H=-2#HH}!Љt)HEIH5.H=1>#HH!Љt(HEAHHH5U.H=1"HH;}!Љt(HEAHHH5.H=c1"HHIL9t*HHILHH5W/H= 1v"MHx!Љt,HxIH5-H=0+"MM!Љt+HxAHLH5-H=0!ML;x!Љt+HxAHLH5V-H=G0!MIIL9t*MIILHH5.H=0Z!AM9HILhIHHIN,8H9_H HN0HPHN (L91JHpuJ HPH0HHIaHH`LHH@L8L@HuH}LxMHH!Љt,HHIH5-H=/1 MM!Љt+HHAHLH5m-H=.ML;H!Љt+HHAHLH5$-H=u.MHIIHH@!Љt,H@IH5J-H=.IHH!Љt+H@AHHH5-H=-HH;@!Љt+H@AHHH5,H=-HILIMH8!Љt,H8IH5,H=3-aMM!Љt+H8AHLH5u,H=,ML;8!Љt+H8AHLH5,,H=,MIMIHH}!Љt)HEIH5P(H=Q,HH!Љt(HEAHHH5(H=,=HH;u!Љt(HEAHHH5'H=+HHIH9t'HHIHH5K)H=+HH}!Љt)HEIH5'H=G+uHH!Љt(HEAHHH5'H=+3HH;}!Љt(HEAHHH5I'H=*HHIL9t*HHILHH5(H=*MHx!Љt,HxIH5'H=4*bMM!Љt+HxAHLH5&H=)ML;x!Љt+HxAHLH5&H=)MIIL9t*MIILHH5'H=c)AM9HIL`IHHIN,8H9_H HN0HPHN (L91JHpuJ HPH0HHIaHHXLHH@L8L@HuH}LxMHH!Љt,HHIH5&H=b(hMM!Љt+HHAHLH5&H=(#ML;H!Љt+HHAHLH5[&H='MHIIHH@!Љt,H@IH5&H=z'HH!Љt+H@AHHH5<&H=5';HH;@!Љt+H@AHHH5%H=&HILIMH8!Љt,H8IH5%H=&MM!Љt+H8AHLH5%H=M&SML;8!Љt+H8AHLH5c%H=& MIMIHH}!Љt)HEIH5!H=%HH!Љt(HEAHHH5E!H=n%tHH;u!Љt(HEAHHH5!H=+%1HHIH9t'HHIHH5"H=$HH}!Љt)HEIH5!H=$HH!Љt(HEAHHH5 H=d$jHH;}!Љt(HEAHHH5 H=!$'HHIL9t*HHILHH5!H=#MHx!Љt,HxIH5R H=#MM!Љt+HxAHLH5 H=N#TML;x!Љt+HxAHLH5H=# MIIL9t*MIILHH5 H="AM9HILXIHHIN,8H9_H HN0HPHN (L91JHpuJ HPH0HHIaHHPHHH@L8HXHHLUL]H]HHH!Љt,HHIH5 H=!HH!Љt+HHAHHH5H=x!VHH;H!Љt+HHAHHH5H=/! HHHIHH@!Љt,H@IH5H= HH!Љt+H@AHHH5oH= nHH;@!Љt+H@AHHH5&H=G %HHHIMH8!Љt,H8IH5$H=MM!Љt+H8AHLH5H=ML;8!Љt+H8AHLH5H=_=MHIIMH}!Љt)HEIH5:H= MM!Љt(HEAHLH5H=ML;U!Љt(HEAHLH5H=dMIIH9t'MIIHH5H=F$MH}!Љt)HEIH5H=MM!Љt(HEAHLH5~H=ML;]!Љt(HEAHLH5;H=|ZMIIH9t*MIIHHH5HH=9HH}!Љt)HEIH5CH= HH!Љt(HEAHHH5H= HH;]!Љt(HEAHHH5H=oM HHIH9t*HHIHHH5H=, HHHHHHPHHIIIHDžHDžHDžLIFHDIVHHDžLIEHIEHHHDž L(ID$HID$HHDƒ!‰ȃ!Ѕt HHHDHB Hu H= HHDžHHHL9HHHHGHHPHH@HGH`LHIǾL9HHLHFH L@IHFHhN 8L9CHANHJ HAJH0.HEBHHlHHHtH HpH8LuLmLeHpH0HuH}LMHXH(LUL]H]MH}!Љt)HEIH5`H=9? MM!Љt(HEAHLH5H= ML;u!Љt(HEAHLH5H= MHIIMH}!Љt)HEIH5H=`f MM!Љt(HEAHLH5H=$ ML;m!Љt(HEAHLH5H=MIMIMH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=EKML;e!Љt(HEAHLH5IH=MIMIHH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=lrHH;u!Љt(HEAHHH5PH=)/HHIH9t'HHIHH5`H=HH}!Љt)HEIH5[H=HH!Љt(HEAHHH5H=bhHH;}!Љt(HEAHHH5H=%HHIL9t*HHILHH5H=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=U[ML;M!Љt(HEAHLH5YH=MIIL9t*MIILHH5fH=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=HNML;U!Љt(HEAHLH5\H= MIIH9t'MIIHH5lH=MH}!Љt)HEIH5gH=MM!Љt(HEAHLH5%H=>DML;]!Љt(HEAHLH5H=MIIL9t*MIILHH5H=HH}!Љt)HEIH5H=syHH!Љt(HEAHHH5H=17HH;]!Љt(HEAHHH5eH=HHIL9t*HHILHH5rH=AM9HxIH8HH HxIL0IH`IH(HÿL9yHHL IHHN8HhHL L96J HEt!J4JHƒHHHI%9EtH5.H=9UEM̉\H0HtHHPHtHHpHtHuHEHtHdH[A\A]A^A_]%%%%%%%%%%%%%%hhxh7nhQdhlZhPhFh<h2h(hhGhT haLAS%Recursive call to nonrecursive procedure 'bernoulli'At line 62 of file Run_Transitions.f90Recursive call to nonrecursive procedure 'run_transitions'At line 4 of file Run_Transitions.f90Index '%ld' of dimension 1 of array 'ising' below lower bound of %ldAt line 26 of file Run_Transitions.f90Index '%ld' of dimension 1 of array 'ising' above upper bound of %ldIndex '%ld' of dimension 2 of array 'ising' below lower bound of %ldIndex '%ld' of dimension 2 of array 'ising' above upper bound of %ldIndex '%ld' of dimension 3 of array 'ising' below lower bound of %ldIndex '%ld' of dimension 3 of array 'ising' above upper bound of %ldLoop variable has been modifiedAt line 24 of file Run_Transitions.f90At line 22 of file Run_Transitions.f90At line 20 of file Run_Transitions.f90Recursive call to nonrecursive procedure 'print_ising'At line 42 of file Run_Transitions.f90Run_Transitions.f90At line 52 of file Run_Transitions.f90At line 50 of file Run_Transitions.f90At line 48 of file Run_Transitions.f90Recursive call to nonrecursive procedure 'ranf'At line 95 of file transition.f90Dimension 1 of array 'rngs' has extent %ld instead of %ldAt line 116 of file transition.f90Dimension 2 of array 'rngs' has extent %ld instead of %ldDimension 3 of array 'rngs' has extent %ld instead of %ldIndex '%ld' of dimension 1 of array 'rngs' outside of expected range (%ld:%ld)At line 111 of file transition.f90Index '%ld' of dimension 2 of array 'rngs' outside of expected range (%ld:%ld)Index '%ld' of dimension 3 of array 'rngs' outside of expected range (%ld:%ld)Recursive call to nonrecursive procedure 'transition'At line 4 of file transition.f90Memory allocation failedIndex '%ld' of dimension 1 of array 'ones' outside of expected range (%ld:%ld)At line 49 of file transition.f90Index '%ld' of dimension 2 of array 'ones' outside of expected range (%ld:%ld)Index '%ld' of dimension 3 of array 'ones' outside of expected range (%ld:%ld)At line 53 of file transition.f90Index '%ld' of dimension 1 of array 'ising' outside of expected range (%ld:%ld)Array bound mismatch for dimension 1 of array 'ising' (%ld/%ld)Index '%ld' of dimension 2 of array 'ising' outside of expected range (%ld:%ld)Array bound mismatch for dimension 2 of array 'ising' (%ld/%ld)Index '%ld' of dimension 3 of array 'ising' outside of expected range (%ld:%ld)Array bound mismatch for dimension 3 of array 'ising' (%ld/%ld)Index '%ld' of dimension 1 of array 'neighbor_counts' outside of expected range (%ld:%ld)At line 57 of file transition.f90Index '%ld' of dimension 2 of array 'neighbor_counts' outside of expected range (%ld:%ld)Index '%ld' of dimension 3 of array 'neighbor_counts' outside of expected range (%ld:%ld)At line 58 of file transition.f90At line 59 of file transition.f90At line 63 of file transition.f90Array bound mismatch for dimension 1 of array 'neighbor_counts' (%ld/%ld)Array bound mismatch for dimension 2 of array 'neighbor_counts' (%ld/%ld)Array bound mismatch for dimension 3 of array 'neighbor_counts' (%ld/%ld)Index '%ld' of dimension 1 of array 'threshold' outside of expected range (%ld:%ld)At line 67 of file transition.f90Index '%ld' of dimension 2 of array 'threshold' outside of expected range (%ld:%ld)Index '%ld' of dimension 3 of array 'threshold' outside of expected range (%ld:%ld)At line 71 of file transition.f90At line 72 of file transition.f90At line 73 of file transition.f90At line 77 of file transition.f90Index '%ld' of dimension 1 of array 'flips' outside of expected range (%ld:%ld)Array bound mismatch for dimension 1 of array 'flips' (%ld/%ld)Index '%ld' of dimension 2 of array 'flips' outside of expected range (%ld:%ld)Array bound mismatch for dimension 2 of array 'flips' (%ld/%ld)Index '%ld' of dimension 3 of array 'flips' outside of expected range (%ld:%ld)Array bound mismatch for dimension 3 of array 'flips' (%ld/%ld)At line 81 of file transition.f90At line 45 of file transition.f90 normal exit in run_transitions?zRx 4vp k 4T <k(  4S= 8 zRx 4@K > <TSa pa __ؐ||||}}}"},}6}@}J}T}^}???"UB^@dyld_stub_binderQr8rH@__gfortran_arandom_r4rP@__gfortran_cshift0_4rX@__gfortran_os_errorr`@__gfortran_random_r8rh@__gfortran_runtime_error_atrp@__gfortran_set_argsrx@__gfortran_set_optionsr@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_transfer_logical_writer@_exitr@_freer@_malloc_ startY_4main^transition_cNXArghenviron|mh_execute_headerU_progname*6cpvvء<p= .>^FSXc t |      ؐ   {%28Ncw9?EM !"#@ !" dyld_stub_binding_helper__dyld_func_lookup_bernoulli.1536_MAIN___print_ising.1538_ranf.1557_options.10.1590_p.1582_is_recursive.6.1566_is_recursive.0.1542_is_recursive.1.1547_is_recursive.45.1635_is_recursive.8.1571_NXArgc_NXArgv___progname__mh_execute_header_environ_main_transition_start__gfortran_arandom_r4__gfortran_cshift0_4__gfortran_os_error__gfortran_random_r8__gfortran_runtime_error_at__gfortran_set_args__gfortran_set_options__gfortran_st_write__gfortran_st_write_done__gfortran_stop_string__gfortran_transfer_logical_write_exit_free_mallocdyld_stub_binderDay-I/03-Transition/Run_Transitions.f90100777 0 0 1770 11777104340 13144 0 ! run the transitions example program run_transitions use, intrinsic :: iso_fortran_env, only: real64 integer, parameter :: n = 10 integer, parameter :: max_iter = 1000 real, dimension( 6), parameter :: p = [ 0.0, 0.0, 0.0, 0.5, 0.5, 0.5 ] logical, dimension( n, n, n) :: ising integer :: i, j, k continue do k = 1, n do j = 1, n do i = 1, n ising( i, j, k) = bernoulli() end do end do end do call transition( n, ising, max_iter, p) call print_ising() stop 'normal exit in run_transitions' contains ! display the array subroutine print_ising() integer :: i, j, k continue do k = 1, n do j = 1, n write( *, *) ( ising( k, j, i), i = 1, n) end do end do return end subroutine print_ising ! t/f function bernoulli() result( b) logical :: b real( real64) :: rn continue call random_number( harvest= rn) b = rn < 0.5_real64 return end function bernoulli end program run_transitions Day-I/03-Transition/transition.f90100777 0 0 4175 11774653576 12220 0 ! compute ising transitions without loops over array elements subroutine transition( n, ising, iterations, p) implicit none ! size of arrays integer, intent( in) :: n ! number of iterations to compute integer, intent( in) :: iterations ! spins logical, dimension( n, n, n), intent( in out) :: ising ! true if this spin will flip on this iteration logical, dimension( n, n, n) :: flips ! integer representations of ising integer, dimension( n, n, n) :: ones, neighbor_counts ! threshold to flip real, dimension( n, n, n) :: threshold ! probabilities of flipping per number of neighbors up/down real, intent( in) :: p( 0: 6) ! loop through iterations integer :: i ! executable code continue ! loop over iterations do i = 1, iterations ! elements of ones are zero where elements of ising are false ( = spin down) ones = 0 ! elements of ones are one where elements of ising are true ( = spin up) where( ising) ones = 1 ! neighbor_counts the number of neighbors with spin up neighbor_counts = cshift( ones, -1, 1) + cshift( ones, 1, 1) & + cshift( ones, -1, 2) + cshift( ones, 1, 2) & + cshift( ones, -1, 3) + cshift( ones, 1, 3) ! change the sense of the neighbor_counts where the spin is down where( .not. ising) neighbor_counts = 6 - neighbor_counts ! always flip spin threshold = 1.0 ! unless given probability says otherwise where( neighbor_counts == 4) threshold = p( 4) where( neighbor_counts == 5) threshold = p( 5) where( neighbor_counts == 6) threshold = p( 6) ! set flip when rn < threshold flips = ranf( n) <= threshold ! flip ising where( flips) ising = .not. ising ! end loop over iterations end do ! done return contains ! return an array of rn for use in expressions function ranf( n) result( rngs) ! size of result integer, intent( in) :: n ! result is an array real, dimension( n, n, n) :: rngs ! executable code continue ! from the intrinsic rng call random_number( harvest= rngs) ! done return end function ranf end subroutine transition Day-I/03-Transition/transition.o100777 0 0 113374 11777064736 12117 0@ s`s__text__TEXTf`0vd__cstring__TEXTfZ 0i__const__TEXT,su__bss2__DATAs__eh_frame__TEXT@suP hp>P P778UHSHHhH`tH5H=HhH@HtIHhHHEH`HHEHhHP(HhH@ HH)HHH;EtEHhHP(HhH@ HH)HHPHEHHH5H=HhHx0H`HHEHhHP@HhH@8HH)HHH;EtEHhHP@HhH@8HH)HHPHEHHH5H=HhHHHH`HHEHhHPXHhH@PHH)HHH;EtEHhHPXHhH@PHH)HHPHEHHH5H=LHH)II)HuHUHEHAEH}AEE!EEt)HEIH5H=HAEHAEE!EEt(HEAHHH5H=HAEH;uAEE!EEt(HEAHHH5H=HHAEH}AEE!EEt)HEIH5H=HAEHAEE!EEt%HEAHH5H=HAEH;UAEE!EEt%HEAHH5H=HHAEH}AEE!EEt)HEIH5H=HAEHAEE!EEt(HUAHHH5H=HAEH;EAEE!EEt(HUAHHH5H=HHEMHEHuLEHHEHUHuHHEHEHUHEHpLxHpHǸHĘ[]UHAWAVAUATSHHHHHtH5H=HHHEHEHHHIHHHHEHHEHHHIHxHHHEHxHEHHHHH+xHpHHHEHEHHHIHhHHHEHhHEHHHIH`HHHEH`HEHHHHHHDHHu H=HEHhHHH+`HXHHHEHEHHHIHPHHHEHPHEHHHIHHHHHxHHHxHHHHHHDHHu H=HpHPHHH+HH@HHHhHhHHHIH8HHH`H8H`HHHIH0HHHXH0HXHHHHHHDHHu H=HPH8HHH+0H(HHHHHHHHHIH HHH@H H@HHHIHHHH8HH8HHHHHHDHHu H=H0H HHH+HHEM̉9E\L(LhL`LXMHh!Љt,HhIH5H=MM!Љt+HhAHLH5H=ML;h!Љt+HhAHLH5H=MMH`!Љt,H`IH5H=MM!Љt+H`AHLH5H=ML;`!Љt+H`AHLH5H=MMHX!Љt,HXIH5H=MM!Љt+HXAHLH5H=ML;X!Љt+HXAHLH5H=MɿL9VH0HJ L97H8HLL9JHPHHHL(HhL`LXLpHuH}LMHHh!Љt,HhIH5H=HH!Љt+HhAHHH5H=HH;h!Љt+HhAHHH5H=HHHIMH`!Љt,H`IH5H=MM!Љt+H`AHLH5H=ML;`!Љt+H`AHLH5H=MIMIMHX!Љt,HXIH5H=MM!Љt+HXAHLH5H=ML;X!Љt+HXAHLH5H=MIMIHH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;u!Љt(HEAHHH5H=HHIH9t'HHIHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;}!Љt(HEAHHH5H=HHIL9t*HHILHH5H=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;M!Љt(HEAHLH5H=MIIL9t*MIILHH5H=L9H0HN,8HxHN$0L9XH8HN (HHN H9*JHtJ HPHHHnH@HHUHuHxHH}!ȉt)HEIH5H=HH!ȉt%HEAHH5H=HH;U!ȉt%HEAHH5H=HHH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;u!Љt(HEAHHH5H=HHHx!Љt,HxIH5H=HH!Љt+HxAHHH5H=HH;x!Љt+HxAHHH5H=HHhH`LXHHh!Љt,HhIH5H=HH!Љt+HhAHHH5H=HH;h!Љt+HhAHHH5H=HHH`!Љt,H`IH5H=HH!Љt+H`AHHH5H=HH;`!Љt+H`AHHH5H=HMHX!Љt,HXIH5H=MM!Љt+HXAHLH5H=ML;X!Љt+HXAHLH5H=MHDž H(HDžHHDžH8HDžHHH0HDžLHHPHHHH5YHYHDž HDžHDžHHHHHHhH`LXHHh!Љt,HhIH5H=HH!Љt+HhAHHH5H=HH;h!Љt+HhAHHH5H=HHH`!Љt,H`IH5H=HH!Љt+H`AHHH5H=HH;`!Љt+H`AHHH5H=HMHX!Љt,HXIH5H=MM!Љt+HXAHLH5H=ML;X!Љt+HXAHLH5H=MHDž H(HDžHHDžH8HDžHHH0HDžLHHPHpHxHpHL=pVL5iVH8H0II)HPHHII)HhH`HH)HDž HDžHDžLIEHDIUHHDžLID$HID$HHHDž H(HCHHCHHDƒ!‰ȃ!Ѕt HHHDHHu H=HHDžHLLHHHhH`LXHHh!Љt,HhIH5H=HH!Љt+HhAHHH5H=HH;h!Љt+HhAHHH5H=HHH`!Љt,H`IH5H=HH!Љt+H`AHHH5H=HH;`!Љt+H`AHHH5H=HMHX!Љt,HXIH5H=MM!Љt+HXAHLH5H=ML;X!Љt+HXAHLH5H=MHDž@ H(HDžPHXHDžHH8HDžhHpH`H0HDžLHxHPH0H8H0HL=QL5QHDž HDžHDžLIEHDIUHHDžLID$HID$HHHDžHHCHHCHHDƒ!‰ȃ!Ѕt HHHDHHu H=HHDžHLLHHHhH`LXHHh!Љt,HhIH5H=HH!Љt+HhAHHH5H=HH;h!Љt+HhAHHH5H=HHH`!Љt,H`IH5H=HH!Љt+H`AHHH5H=HH;`!Љt+H`AHHH5H=HMHX!Љt,HXIH5H=MM!Љt+HXAHLH5H=ML;X!Љt+HXAHLH5H=MHDž H(HDžHHDžH8HDž(H0H H0HDž@LHH8HPHHHHL=xML5uMHDž` HDžhHDžpLxIEHDIUHHDžLID$HID$HHHDžHHCHHCHHDƒ!‰ȃ!Ѕt HHHDHHu H=HPHDžXHPLLHHHhH`LXHHh!Љt,HhIH5H=HH!Љt+HhAHHH5H=HH;h!Љt+HhAHHH5H=HHH`!Љt,H`IH5H=HH!Љt+H`AHHH5H=HH;`!Љt+H`AHHH5H=HMHX!Љt,HXIH5H=MM!Љt+HXAHLH5H=ML;X!Љt+HXAHLH5H=MHDž H(HDžHHDžH8HDžHHH0HDžLHHPHHHHL=IL5IHDž HDž(HDž0L8IEHDIUH@HDžHLPID$HID$HHXHDž`HhHCHHCHHDƒ!‰ȃ!Ѕt HHHDHHu H=HHDžHLLHHHhH`LXHHh!Љt,HhIH5H=HH!Љt+HhAHHH5H=HH;h!Љt+HhAHHH5H=HHH`!Љt,H`IH5H=HH!Љt+H`AHHH5H=HH;`!Љt+H`AHHH5H=HMHX!Љt,HXIH5H=MM!Љt+HXAHLH5H=ML;X!Љt+HXAHLH5H=MHDž H(HDžHHDžH8HDžHHH0HDžLHHPHpHxHpHL=DL5DHDž HDžHDžLIEHDIUHHDžLID$HID$HHHDž H(HCHHCHHDƒ!‰ȃ!Ѕt HHHDHHu H=HHDžHLLHHAI9HXHIHHHIHHHIHHHIHHXHIHHHIHI@HHHHHL9MH@HHHHHHHHHHHHHHHHLIH@HLIHHLIHGHPLIùL9HAN HHHȋ4HHHȋHHHȋHPJ9HJ1HJHpBHjHIHHtHHHtHHHtHHPHtHHHtHHHtHH@HLuLmLxH@HHuH}LxHpHxLUL]H]MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;u!Љt(HEAHLH5H=MHIIMH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;m!Љt(HEAHLH5H=MIMIMHx!Љt,HxIH5H=MM!Љt+HxAHLH5H=ML;x!Љt+HxAHLH5H=MIMIHH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;u!Љt(HEAHHH5H=HHIH9t'HHIHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;}!Љt(HEAHHH5H=HHIL9t*HHILHH5H=MHx!Љt,HxIH5H=MM!Љt+HxAHLH5H=ML;x!Љt+HxAHLH5H=MIIL9t*MIILHH5H=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;U!Љt(HEAHLH5H=MIIH9t'MIIHH5H=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;]!Љt(HEAHLH5H=MIIL9t*MIILHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;]!Љt(HEAHHH5H=HHIL9t*HHILHH5H=AM9HHIHHHpHHILIHxIHxHÿL9HPHLpIHPHN8HHL L9KJ Ht0J4JHpDž)ЉHpHHfI LHHL@L8HHH!Љt,HHIH5H=HH!Љt+HHAHHH5H=HH;H!Љt+HHAHHH5H=HMH@!Љt,H@IH5H=MM!Љt+H@AHLH5H=ML;@!Љt+H@AHLH5H=MMH8!Љt,H8IH5H=MM!Љt+H8AHLH5H=ML;8!Љt+H8AHLH5H=MAM9WHIN$(L98H HN H9J H0?HHIHHhLHH@L8L@HuH}LxMHH!Љt,HHIH5H=MM!Љt+HHAHLH5H=ML;H!Љt+HHAHLH5H=MHIIHH@!Љt,H@IH5H=HH!Љt+H@AHHH5H=HH;@!Љt+H@AHHH5H=HILIMH8!Љt,H8IH5H=MM!Љt+H8AHLH5H=ML;8!Љt+H8AHLH5H=MIMIHH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;u!Љt(HEAHHH5H=HHIH9t'HHIHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;}!Љt(HEAHHH5H=HHIL9t*HHILHH5H=MHx!Љt,HxIH5H=MM!Љt+HxAHLH5H=ML;x!Љt+HxAHLH5H=MIIL9t*MIILHH5H=AM9HILhIHHIN,8H9_H HN0HPHN (L91JHpuJ HPH0HHIaHH`LHH@L8L@HuH}LxMHH!Љt,HHIH5H=MM!Љt+HHAHLH5H=ML;H!Љt+HHAHLH5H=MHIIHH@!Љt,H@IH5H=HH!Љt+H@AHHH5H=HH;@!Љt+H@AHHH5H=HILIMH8!Љt,H8IH5H=MM!Љt+H8AHLH5H=ML;8!Љt+H8AHLH5H=MIMIHH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;u!Љt(HEAHHH5H=HHIH9t'HHIHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;}!Љt(HEAHHH5H=HHIL9t*HHILHH5H=MHx!Љt,HxIH5H=MM!Љt+HxAHLH5H=ML;x!Љt+HxAHLH5H=MIIL9t*MIILHH5H=AM9HIL`IHHIN,8H9_H HN0HPHN (L91JHpuJ HPH0HHIaHHXLHH@L8L@HuH}LxMHH!Љt,HHIH5H=MM!Љt+HHAHLH5H=ML;H!Љt+HHAHLH5H=MHIIHH@!Љt,H@IH5H=HH!Љt+H@AHHH5H=HH;@!Љt+H@AHHH5H=HILIMH8!Љt,H8IH5H=MM!Љt+H8AHLH5H=ML;8!Љt+H8AHLH5H=MIMIHH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;u!Љt(HEAHHH5H=HHIH9t'HHIHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;}!Љt(HEAHHH5H=HHIL9t*HHILHH5H=MHx!Љt,HxIH5H=MM!Љt+HxAHLH5H=ML;x!Љt+HxAHLH5H=MIIL9t*MIILHH5H=AM9HILXIHHIN,8H9_H HN0HPHN (L91JHpuJ HPH0HHIaHHPHHH@L8HXHHLUL]H]HHH!Љt,HHIH5H=HH!Љt+HHAHHH5H=HH;H!Љt+HHAHHH5H=HHHIHH@!Љt,H@IH5H=HH!Љt+H@AHHH5H=HH;@!Љt+H@AHHH5H=HHHIMH8!Љt,H8IH5H=MM!Љt+H8AHLH5H=ML;8!Љt+H8AHLH5H=MHIIMH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;U!Љt(HEAHLH5H=MIIH9t'MIIHH5H=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;]!Љt(HEAHLH5H=MIIH9t*MIIHHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;]!Љt(HEAHHH5H=HHIH9t*HHIHHH5H=HHHHHHPHHIIIHDžHDžHDžLIFHDIVHHDžLIEHIEHHHDž L(ID$HID$HHDƒ!‰ȃ!Ѕt HHHDHHu H=HHDžHHHL9HHHHGHHPHH@HGH`LHIǾL9HHLHFH L@IHFHhN 8L9CHANHJ HAJH0.HEBHHlHHHtHHpH8LuLmLeHpH0HuH}LMHXH(LUL]H]MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;u!Љt(HEAHLH5H=MHIIMH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;m!Љt(HEAHLH5H=MIMIMH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;e!Љt(HEAHLH5H=MIMIHH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;u!Љt(HEAHHH5H=HHIH9t'HHIHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;}!Љt(HEAHHH5H=HHIL9t*HHILHH5H=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;M!Љt(HEAHLH5H=MIIL9t*MIILHH5H=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;U!Љt(HEAHLH5H=MIIH9t'MIIHH5H=MH}!Љt)HEIH5H=MM!Љt(HEAHLH5H=ML;]!Љt(HEAHLH5H=MIIL9t*MIILHH5H=HH}!Љt)HEIH5H=HH!Љt(HEAHHH5H=HH;]!Љt(HEAHHH5H=HHIL9t*HHILHH5H=AM9HxIH8HH HxIL0IH`IH(HÿL9yHHL IHHN8HhHL L96J HEt!J4JHƒHHHI%9EtH5H=9UEM̉\H0HtHHPHtHHpHtHHEHtHH[A\A]A^A_]Recursive call to nonrecursive procedure 'ranf'At line 95 of file transition.f90Dimension 1 of array 'rngs' has extent %ld instead of %ldAt line 116 of file transition.f90Dimension 2 of array 'rngs' has extent %ld instead of %ldDimension 3 of array 'rngs' has extent %ld instead of %ldIndex '%ld' of dimension 1 of array 'rngs' outside of expected range (%ld:%ld)At line 111 of file transition.f90Index '%ld' of dimension 2 of array 'rngs' outside of expected range (%ld:%ld)Index '%ld' of dimension 3 of array 'rngs' outside of expected range (%ld:%ld)Recursive call to nonrecursive procedure 'transition'At line 4 of file transition.f90Memory allocation failedIndex '%ld' of dimension 1 of array 'ones' outside of expected range (%ld:%ld)At line 49 of file transition.f90Index '%ld' of dimension 2 of array 'ones' outside of expected range (%ld:%ld)Index '%ld' of dimension 3 of array 'ones' outside of expected range (%ld:%ld)At line 53 of file transition.f90Index '%ld' of dimension 1 of array 'ising' outside of expected range (%ld:%ld)Array bound mismatch for dimension 1 of array 'ising' (%ld/%ld)Index '%ld' of dimension 2 of array 'ising' outside of expected range (%ld:%ld)Array bound mismatch for dimension 2 of array 'ising' (%ld/%ld)Index '%ld' of dimension 3 of array 'ising' outside of expected range (%ld:%ld)Array bound mismatch for dimension 3 of array 'ising' (%ld/%ld)Index '%ld' of dimension 1 of array 'neighbor_counts' outside of expected range (%ld:%ld)At line 57 of file transition.f90Index '%ld' of dimension 2 of array 'neighbor_counts' outside of expected range (%ld:%ld)Index '%ld' of dimension 3 of array 'neighbor_counts' outside of expected range (%ld:%ld)At line 58 of file transition.f90At line 59 of file transition.f90At line 63 of file transition.f90Array bound mismatch for dimension 1 of array 'neighbor_counts' (%ld/%ld)Array bound mismatch for dimension 2 of array 'neighbor_counts' (%ld/%ld)Array bound mismatch for dimension 3 of array 'neighbor_counts' (%ld/%ld)Index '%ld' of dimension 1 of array 'threshold' outside of expected range (%ld:%ld)At line 67 of file transition.f90Index '%ld' of dimension 2 of array 'threshold' outside of expected range (%ld:%ld)Index '%ld' of dimension 3 of array 'threshold' outside of expected range (%ld:%ld)At line 71 of file transition.f90At line 72 of file transition.f90At line 73 of file transition.f90At line 77 of file transition.f90Index '%ld' of dimension 1 of array 'flips' outside of expected range (%ld:%ld)Array bound mismatch for dimension 1 of array 'flips' (%ld/%ld)Index '%ld' of dimension 2 of array 'flips' outside of expected range (%ld:%ld)Array bound mismatch for dimension 2 of array 'flips' (%ld/%ld)Index '%ld' of dimension 3 of array 'flips' outside of expected range (%ld:%ld)Array bound mismatch for dimension 3 of array 'flips' (%ld/%ld)At line 81 of file transition.f90Loop variable has been modifiedAt line 45 of file transition.f90zRx 4K > <Ta pa f5f<-f<-f<-wf<-?f;-5f4.f33e;-)e2"e1d;-d2d0d;-d2d0kd;-ad2Zd0&d;-d2d/c;-c2c.c;-c2c.^c;-Tc2Mc.c;-c2c-b;-b2b,b;-b2b,Tb;-Jb2Cb,b;-b2aa;-a2aa;-a2xaGa;-=a26aa;-`2``;-`2`|`;-r`2k`:`;-0`2)`_;-_2__;-_2_r_;-h_2a_0_;-&_2_^;-^2^^;-^2^W^;-M^2F^^;-]2]];-]2]~];-t]2m]*];- ]2]\;-\2\\;-\2\\<- [ -Z:-ZZ=-Y;-Y+Y1Y;-Y+Y0TY;-JY+CY0Y;-Y+Y0X;-X+X/X;-X+yX.GX;-=X+6X.X;-W+W.W;-W+W-W;-vW+oW,=W;-3W+,W,V;-V+V,V;-V+V'^V;-TV+MV'V;-V+V'U;-U+U&vU;-lU+eU&1U;-'U+ U&T;-T+T$T;-T+}T$IT;-?T+8T$S;-S* S#R;-R*RR;-R*RKR;-AR*:RR;-Q*Q"Q;-Q*QzQ;-pQ*iQ8Q;-.Q*'QP;-P*P!P;-P*PpP;-fP*_P.P;-$P*PO;-O*O'O;-O*O'LO;-BO*;O'N;-N*N&N;-N*N&dN;-ZN*SN& N;-N*M$M;-M*M$|M;-rM*kM$SL;-IL)BL#L;-L)KK;-K)KK;-xK)qK7K;--K)&K"J;-J)JJ;-J)JoJ;-eJ)^J*J;- J)J!I;-I)II;-I)IeI;-[I)TII;-I)I'H;-H)H'H;-yH)rH')H;-H)H&G;-G)G&G;-G)G&AG;-7G)0G$F;-F)F$F;-F)F$E;-E(yE#GE;-=E(6ED;-D(DD;-D(DnD;-dD(]D"+D;-!D(DC;-C(CC;-C(CaC;-WC(PC!!C;-C(CB;-B(BB;-B(BHB;->B(7B'A;-A(A'A;-A(A'`A;-VA(OA&A;- A(A&@;-@(@&x@;-n@(g@$/@;-%@(@$?;-?(?$?;->%>'>;->%>'s>;-i>%b>'%>;->%>&=;-=%=&=;-=%=&I=;-?=%8=$=;-<%<$<;-<%<$W;;-M; F;;;- ; ;:;-: ::;-: ~:J:;-@: 9::;-9 99;-9 99;-x9 q9=9;-39 ,98;-8 88;-8 8x8;-n8 g838;-)8 "8#7;-7 77;-7 7b7;-X7 Q77;- 7 7"6;-6 66;-6 6O6;-E6 >6 6;-6 5!5;-5 55;-}5 v5E5;-;5 454;-4 44;-4 4c4;-Y4 R4 4;-3 33;-3 33;-z3 s303;-&3 32;-2 22;-2 22<-1<-1<-1<-1<-1<-/9-^/:-Y/M/=-w.p.-;----;--z-F-;-<-5-,;-,,,;-,,j,;-`,Y,,;-, ,+;-+++;-+}+.+9-+:-**=-**v);-l)e)-);-#))(;-(((;-((Q(;-G(@( (;-('';-''u';-k'd'0';-&''&9-&:-&&=-%%%;-%%$;-$$$;-$y$<$;-2$+$#;-###;-##`#;-V#O##;- ##";-""r"9-D":-?"3"=-]!V! ;-  q ;-g ` , ;-"  ;-;-P;-F?;-;-t;-jc9-:-=- ;-;-;-D;-:3;-;-h;-^W;-;-z9-A:;-\;-RK;- ;-;-vo;;-1*;-;-_;-UN;-;-n;-d] ;-;-;-S;-IB;- ;-;-;-U;-KD;- ;-;-zH;->7;-;-;-wp>;-4-;-;-_;-UN;- ;-w;-mf2;-(! ;-   ;- ~ J ;-@ 9 m ;-c \ $ ;-   ;-   ;-  H ;-> 7  ;-   ;-  l ;-b [ ' ;-  m :-h \ =-:-~=-:-=-:-=-5;-  }59 38-;- ;-un 6;-,% ;-;-Z;-PI ;-;-x;-ng;-;-wp;-@ :;-0) X6^X7 6^ wf{g(ghgggh`hhhs(i`iiiijhjjj0kpkklPll lmxmmn#(n(Pn-n2n7@o<oAoFpKppPpUpZp_qd`qiqnqs0rxr}rrss@s3K\Hq@__gfortran_runtime_error_at__gfortran_arandom_r4_transition__malloc__gfortran_os_error__gfortran_cshift0_4_freeLC0LC1LC2LC3LC4LC5LC6LC7LC8LC9_ranf.1557_is_recursive.8.1571LC10LC11LC12LC13LC14LC15LC16LC17LC18LC19LC20LC21LC22LC23LC24LC25LC26LC27LC30LC32LC34LC35LC36LC37LC38LC39LC40LC41LC43LC44LC45LC46LC47LC48LC49LC50LC51LC52LC53LC54LC55_is_recursive.45.1635EH_frame1Day-I/04-Fibonacci/ 40777 0 0 0 11777312757 7117 5Day-I/04-Fibonacci/._fibonacci.f90100777 0 0 10000 11777310046 11665 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/04-Fibonacci/._mismatch.f90100777 0 0 10000 11777310046 11555 0Mac OS X  2TEXTR*chATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/04-Fibonacci/fibonacci100777 0 0 43340 11775345322 11073 0H H__PAGEZERO(__TEXT00__text__TEXT  __stubs__TEXTf&`f&__stub_helper__TEXT&&__cstring__TEXTx'Ax'__const__TEXT.`.__eh_frame__TEXT / /__DATA00__dyld__DATA080__nl_symbol_ptr__DATA8080__la_symbol_ptr__DATAH0H0__common__DATA0 __bss2__DATA0H__LINKEDIT@@"0@@ @AxPBD P@D" /usr/lib/dyld?G /X$ *  H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&@BjHHH}HuHHHH9uHUASLAS%&%&UHAVAUATSHHH&tH5OH=8&HH@HtHHHHEHHP(HH@ HH)HHEоHH@HtIHHHEHEHHH?HUH?!҅t)HEIH5H=-mHHH?HH?!҅t(HUAHHH5H=*HHH?H;E!҅t(HUAHHH5[H=HPHHE HHEHEHUHEHEHEHP(H@ HH)HHHHHHHEHEHxHHP(HH@ HH)HHH9tIHHP(HH@ HH)HHPHEHHHH5H=.AHEHHH?HUH?!҅t)HEIH5.H=HHH?HH?!҅t(HUAHHH5H=tHHH?H;E!҅t(HUAHHH5H=~.HPHHDž HHDž H(HHDžHDžHHP(H@ HH)HHHHH…HHUMHEHHH?AH}H?D!׉t)HEIH5H=eHHH?AHH?D!׉t(HUAHHH5H= HHH?AH;E@@D!׉t(HUAHHH5MH=NHxHHDž@ HIHDžPHXLHHEH0H8HHHH?LXHPI9!HHH?AA HHH?HPH!D Ѕt HXHHHH?AH}H?D!׉t)HEIH5RH=SHHH?AHH?D!׉t%HEAHH5H=HHH?AH;U@@D!׉t%HEAHH5H=RHzAHIHIII?ELUI?E!EEt)HEIH5H=pIII?EII?E!EEt(HUAHHH5XH=)III?EH;EAEE!EEt(HUAHHH5 H=eLPAMMHI9AEEt.HHHHHHH5 H=IMθH9,HIN/HILH}FH}FHHEHHH?HUH?!҅t)HEIH5H=HHH?HH?!҅t(HUAHHH5H=~NHHH?H;E!҅t(HUAHHH5H=8HPHHDž@ HHDžPHXHHHDž0HDž8H0HP(H@ HH)HHHHHƒtRAHEH?t$HEHH5H=VHEBH}t$HEHH5qH=KHEHEHHH?HUH?!҅t)HEIH5\H=HHH?HH?!҅t(HUAHHH5H=brHHH?H;E!҅t(HUAHHH5H=,HPHHE LLHEHEH}HEHEHUHEHH?H}HEH9!HEH? HEH?HEH! tHEHHHH?t HH5H=dtH;}t"HEHHH5H=4DHEHHH?AHUH?D!҉҅t)HEIH5pH=HHH?AHH?D!҉҅t(HUAHHH5+H=HHH?AH;ED!҉҅t(HUAHHH5H=\lHPHHDž HIHDž H(LHEHHHHH?L(H I9!HH?AA HH?H H!D Ѕt H(HHHH?tH5H=}H;UtHEHH5H=P`HEIII?ELUI?E!EEt)HEIH5H=III?EII?E!EEt(HUAHHH5CH=III?EH;EAEE!EEt(HUAHHH5H=pLPMHDžp IIHEHELxHEH`LhHxHH?AL]HEI9A!HxH?EA HxH?AHEHD!D ؅t HEHHII?Et HH5H= H;EAEEt"HUHHH5%H=fv ILHL2HUBHH 0HE؋HEȉH=^ H[A\A]A^]UHAWAVAUATSHvtH5H= NHEHDž`HHxDžDžpDžtHpH H\HpHH HpHu HE HEHEHEtH={ HEHu`P Hu H= HEHEHDžp HEHEHDžxu!0HnH5rH= H=| H`HuJ Hu H=O H`HDžhD\EDmD9u~% HLH5H=M HEHUH9HMH9!Ʌt)HMHUIHHH5,H=} H9HMH9!Ʌt)HMHUIHHH5H=6v H9HMH9!Ʌt&HMHEIHH5H=2 H9HMH9!Ʌt&HMHEIHH5]H= HH)HHHHEHH(HP HH)HHtH5H=d HHHH?HH?!Ʌt%IйH5 H=! a HHH?HH?!Ʌt$AHHH5 H= " HHH?H9!Ʌt$AHHH5X H= HPHHDž HDžHHDžHDžpHDžxHpHP(H@ HH)HHHHHHH]H҅tH58H= IH`HtHUH HUH9HMHUHH)HHHHIHPH9HEHHEHDžxHEHHhHH`HuHH`HDžp tH`HHH`H`HHH HxDžDžpDžtHpHUH`HpHGHpH,HEHuH H5H=(HEHHEHE HEHUHEH9|HEHHEHEHUHEH9|HEHHH~ HUHEH9| HEHHHHt-HHH?HHtHHH?H9tHMHEH9|HEHHHtHH҅tH= HUHHHDHHu H= MHEHEH`H`HhHXH]LeHUL}HML9HEH9!u!HH H5 H=N HUHEIHHH5$ H=M L9HEH9!t)HUHEIHHH5 H= nL9HEL9!t)HUHEIHLH5 H= 'L9HEL9!t)HUHEIHLH5O H=x LH)HHHH)HhHEHtLH)HEHHEH9HUHEHH)HHHHHLH)HH9HuHEH9|HEHELH)HuHEH9|HEHHEHEHEHHEL}HEHH)HhHHUHuH5HEHE tHUHHHEHUHL9+HhHJ49HXHH` HH`HuHH5 H=& fH`HHDž`HDžp HEHMHQ(HA HH)HHHHHHHEHDžxHQ(HA HH)HHHHHHHHHHIHt-HHH?HHtHHH?H9tHq(HA HH)HHHHHHHHtHH҅tH=^H`HuGHHDH&Hu H=pH`HDžhD9mu!7HH5kH=tH5H=tD9uEDm̅M H=sUHH}HuHUEH։/H5$% % % % % % % % % % % % % % % % hhh9h[xhunhdhZhPhFh<h"2hI(hlhyh hLAS%Recursive call to nonrecursive procedure 'fibonacci'At line 44 of file fibonacci.f90Index '%ld' of dimension 1 of array 'f_in' outside of expected range (%ld:%ld)At line 52 of file fibonacci.f90Dimension 1 of array 'f_out' has extent %ld instead of %ldAt line 108 of file fibonacci.f90At line 60 of file fibonacci.f90At line 62 of file fibonacci.f90Index '%ld' of dimension 1 of array 'f_out' outside of expected range (%ld:%ld)Array bound mismatch for dimension 1 of array 'f_out' (%ld/%ld)At line 68 of file fibonacci.f90Index '%ld' of dimension 1 of array 'f_out' above upper bound of %ldAt line 76 of file fibonacci.f90At line 84 of file fibonacci.f90At line 92 of file fibonacci.f90Index '%ld' of dimension 1 of array 'f_out' below lower bound of %ldIndex '%ld' of dimension 1 of array 'f_in' below lower bound of %ldIndex '%ld' of dimension 1 of array 'f_in' above upper bound of %ldRecursive call to nonrecursive procedure 'display_fibonacci'At line 4 of file fibonacci.f90fibonacci.f90Integer overflow when calculating the amount of memory to allocateAllocation would exceed memory limitfibs_inAttempting to allocate already allocated variable '%s'At line 16 of file fibonacci.f90fibs_outAt line 18 of file fibonacci.f90Index '%ld' of dimension 1 of array 'fibs_out' outside of expected range (%ld:%ld)At line 22 of file fibonacci.f90Allocatable actual argument 'fibs_in' is not allocatedAttempt to DEALLOCATE unallocated '%s'At line 26 of file fibonacci.f90At line 28 of file fibonacci.f90At line 30 of file fibonacci.f90At line 32 of file fibonacci.f90At line 34 of file fibonacci.f90Loop variable has been modifiedAt line 20 of file fibonacci.f90size error in fibonaccinormal exitzRx <b O 4\  4q= 8 __0000&&&&&&'''"','6'@'J'T'^'"UB`@dyld_stub_binderQr8rH@__gfortran_os_errorrP@__gfortran_runtime_errorrX@__gfortran_runtime_error_atr`@__gfortran_set_argsrh@__gfortran_set_optionsrp@__gfortran_st_readrx@__gfortran_st_read_doner@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_transfer_array_writer@__gfortran_transfer_integerr@_exitr@_freer@_mallocr@_realloc_ startK_'mainPNXArgUenvirongmh_execute_headerG_prognamelLc]vbaaaa<  . >XF/W 0m 0 0 0 0 0)& $;Nfz@ dyld_stub_binding_helper__dyld_func_lookup_fibonacci.1554_MAIN___options.31.1738_is_recursive.17.1655_is_recursive.8.1570_NXArgc_NXArgv___progname__mh_execute_header_environ_mainstart__gfortran_os_error__gfortran_runtime_error__gfortran_runtime_error_at__gfortran_set_args__gfortran_set_options__gfortran_st_read__gfortran_st_read_done__gfortran_st_write__gfortran_st_write_done__gfortran_stop_string__gfortran_transfer_array_write__gfortran_transfer_integer_exit_free_malloc_reallocdyld_stub_binderDay-I/04-Fibonacci/fibonacci.f90100777 0 0 4260 11775366764 11463 0 ! display fibonacci numbers program display_fibonacci implicit none ! these will change size during execution integer, dimension( :), allocatable :: fibs_in, fibs_out integer :: n, i ! executable code continue ! get a maximum number to compute read( unit= *, fmt= *) n ! must start with a zero-sized array allocate( fibs_in( 0: -1)) ! the zero sized array produces a size-1 array allocate( fibs_out( 0: 0)) ! compute until n have been computed do i = 0, n ! compute the next f_n fibs_out = fibonacci( fibs_in) ! write the array so far write( unit= *, fmt= *) fibs_out ! reset the sizes deallocate( fibs_in) allocate( fibs_in( 0: ubound( fibs_out, dim= 1))) ! and copy output to input fibs_in = fibs_out deallocate( fibs_out) allocate( fibs_out( 0: size( fibs_in))) end do ! done stop 'normal exit' ! internal procedures follow contains ! compute the next fibonacci number function fibonacci( f_in) result( f_out) ! f_in is assumed to have the zeroth through nth fibonacci numbers already integer, dimension( 0: ), intent( in) :: f_in ! f_out will have one more integer, dimension( 0: size( f_in)) :: f_out ! executable code continue ! set the already computed ones in the output if( size( f_in) > 0 )then f_out( 0: ubound( f_in, dim= 1)) = f_in end if ! which fibonacci number to compute select case( size( f_in)) ! an input array of size zero means compute the fibonacci number of order zero case( 0) ! and store it in the output array at element zero f_out( 0) = 0 ! an input array of size one means compute the fibonacci number of order one case( 1) ! and store it in the output array at element one f_out( 1) = 1 ! larger input arrays allow computation from the definition case( 2: ) ! and store the new result in the last element f_out( ubound( f_out, dim= 1)) = f_in( ubound( f_in, dim= 1)) + f_in( ubound( f_in, dim= 1) - 1) ! any other input size is an error case default ! so complain and quit stop 'size error in fibonacci' end select ! done return end function fibonacci end program display_fibonacci Day-I/04-Fibonacci/fibonacci.o100777 0 0 23600 11775343636 11333 0@ `__text__TEXT`__cstring__TEXT__const__TEXT``__bss2__DATA__eh_frame__TEXT ! h"4X%( P$$%UHAVAUATSHHHtH5H=HH@HtHHHHEHHP(HH@ HH)HHEоHH@HtIHHHEHEHHH?HUH?!҅t)HEIH5H=HHH?HH?!҅t(HUAHHH5H=HHH?H;E!҅t(HUAHHH5H=HPHHE HHEHEHUHEHEHEHP(H@ HH)HHHHHHHEHEHxHHP(HH@ HH)HHH9tIHHP(HH@ HH)HHPHEHHHH5H=AHHUMHEHHH?AH}H?D!׉t)HEIH5H=HHH?AHH?D!׉t(HUAHHH5H=HHH?AH;E@@D!׉t(HUAHHH5H=HxHHDž HIHDž H(LHEHHHHH?L(H I9!HH?AA HH?H H!D Ѕt H(HHHH?AH}H?D!׉t)HEIH5H=HHH?AHH?D!׉t%HEAHH5H=HHH?AH;U@@D!׉t%HEAHH5H=HzAHIHIII?ELUI?E!EEt)HEIH5H=III?EII?E!EEt(HUAHHH5H=III?EH;EAEE!EEt(HUAHHH5H=LPAMMHI9AEEt.HHHHHHH5H=IMθH9,HIN/HILH}FH}FHHEHHH?HUH?!҅t)HEIH5H=HHH?HH?!҅t(HUAHHH5H=HHH?H;E!҅t(HUAHHH5H=HPHHDž HHDž H(HHDžHDžHHP(H@ HH)HHHHHƒtRAHEH?t$HEHH5H=HEBH}t$HEHH5H=KHEHEHHH?HUH?!҅t)HEIH5H=HHH?HH?!҅t(HUAHHH5H=HHH?H;E!҅t(HUAHHH5H=HPHHE LLHEHEH}HEHEHUHEHH?H}HEH9!HEH? HEH?HEH! tHEHHHH?t HH5H=H;}t"HEHHH5H=HEHHH?AHUH?D!҉҅t)HEIH5H=HHH?AHH?D!҉҅t(HUAHHH5H=HHH?AH;ED!҉҅t(HUAHHH5H=HPHHDž@ HIHDžPHXLHHEH0H8HHHH?LXHPI9!HHH?AA HHH?HPH!D Ѕt HXHHHH?tH5H=H;UtHEHH5H=HEIII?ELUI?E!EEt)HEIH5H=III?EII?E!EEt(HUAHHH5H=III?EH;EAEE!EEt(HUAHHH5H=LPMHDžp IIHEHELxHEH`LhHxHH?AL]HEI9A!HxH?EA HxH?AHEHD!D ؅t HEHHII?Et HH5H=H;EAEEt"HUHHH5H=ILHL2HUBHH 0HE؋HEȉH=c H[A\A]A^]UHAWAVAUATSHxtH5H=HEHHxDž DžpDžtHpHHMHpHHHpHHE HEHEHEtH=HEHuAHu H=HEHEDuEDmD9u~%}HH5H=L}HEHhHMH`LeIT$(ID$ H)MtH5H=HHHH?HH?!Ʌt%IйH5H=HHH?HH?!Ʌt$AHHH5H=HHH?H9!Ʌt$AHHH5H=HPHHDž HDžHHDžHDžpHDžxHpHP(H@ HH)HHHHHHHHDž` HDžhHDžpHxHCHHStHHHDHHu H=HPHDžXHPLHL`HEHtHEHHEH9HUHEHH)HHHHIHCH9HEHKHMHEHMHHMHMHhLeHHMHuHHEHE tHUHHHEL}H9"J HhHHPAHHPHtHD9mtH5H=D9uEDm̅HHxDžDžpDžtHpHHuHpHHpH H=0UHH}HuHUEH։H5Recursive call to nonrecursive procedure 'fibonacci'At line 30 of file fibonacci.f90Index '%ld' of dimension 1 of array 'f_in' outside of expected range (%ld:%ld)At line 38 of file fibonacci.f90Dimension 1 of array 'f_out' has extent %ld instead of %ldAt line 90 of file fibonacci.f90At line 46 of file fibonacci.f90Index '%ld' of dimension 1 of array 'f_out' outside of expected range (%ld:%ld)Array bound mismatch for dimension 1 of array 'f_out' (%ld/%ld)At line 50 of file fibonacci.f90Index '%ld' of dimension 1 of array 'f_out' above upper bound of %ldAt line 58 of file fibonacci.f90At line 66 of file fibonacci.f90At line 74 of file fibonacci.f90Index '%ld' of dimension 1 of array 'f_out' below lower bound of %ldIndex '%ld' of dimension 1 of array 'f_in' below lower bound of %ldIndex '%ld' of dimension 1 of array 'f_in' above upper bound of %ldRecursive call to nonrecursive procedure 'display_fibonacci'At line 4 of file fibonacci.f90fibonacci.f90Integer overflow when calculating the amount of memory to allocateAllocation would exceed memory limitfibsAttempting to allocate already allocated variable '%s'At line 14 of file fibonacci.f90Allocatable actual argument 'fibs' is not allocatedAt line 18 of file fibonacci.f90Memory allocation failedLoop variable has been modifiedAt line 16 of file fibonacci.f90size error in fibonaccinormal exitzRx <   4\0 4h= 8 ~ -y)-o"h(-H.-C7--(/- ,-'-1-H3-'2--i%-dX2-'-|uE'-;4'-'-r'-haZ-%-(2- &-+-0-*-iV!P'-F?2! .-  '-   '- x  '-  f '-\ U  '-   '-   '-   '-  ~ '-t m 9 '-/ (  '-   '-   '- '- }'-s l '-  '-  *'-  '- '- '- '-'-wp:'-0)'-'-W'-MF\'-RK'-'-r'-ha'-N'-D= '-F@'-6/"#^$`#^`  #^ =AEI@MhQUY]Haejo tHyp~H%0h(  L{&4cG__gfortran_runtime_error_at__gfortran_stop_string__gfortran_st_read__gfortran_transfer_integer__gfortran_st_read_done__gfortran_runtime_error_malloc__gfortran_os_error_realloc_free__gfortran_st_write__gfortran_transfer_array_write__gfortran_st_write_done_main__gfortran_set_args__gfortran_set_optionsLC0LC1LC2LC3LC4LC5LC6LC7LC8LC9LC10LC11LC12LC13LC14LC15LC16_fibonacci.1554_is_recursive.8.1570LC18LC19LC20LC21LC22LC23LC24LC25LC26LC27LC28LC29LC30_MAIN___is_recursive.16.1643_options.25.1692EH_frame1Day-I/04-Fibonacci/mismatch.f90100777 0 0 1437 11777304676 11352 0program rank_1 integer, dimension( 1000) :: a continue call rank_3( a) stop 'all done' end program rank_1 subroutine rank_3( ta, imax, jmax, kmax) ! version 1 integer, dimension( :, :, :), pointer :: pa integer, dimension( :), target :: ta continue pa( 1: imax, 1: jmax, 1: kmax) => ta return end subroutine rank_3 subroutine rank_3( a, imax, jmax, kmax) ! version 2 integer, dimension( imax, jmax, kmax) :: a continue return contains function a_idx( i, j, k) result( idx) integer, intent( in) :: i, j, k continue ! j1:k1, j2:k2, j3:k3 and s1, s2, s3 ! offset is 1+(s1 −j1) +(s2 − j2) × d1+(s3 −j3)×d2 ×d1 ! di = ki-ji+1 ! see 6.5.3.2 Array element order idx = 1 + ( i - 1) + ( j - 1)*( imax - 1) + ( k - 1)*( imax- 1)*( jmax - 1) return end function a_idx Day-I/05-rank_remapping/ 40777 0 0 0 11777312760 10232 5Day-I/05-rank_remapping/._Pointers.mk100777 0 0 10000 11777310046 12705 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/05-rank_remapping/Pointers100777 0 0 42500 11757243144 12076 0H H__PAGEZERO(__TEXT00__text__TEXT__stubs__TEXT<+6<+__stub_helper__TEXTt+lt+__cstring__TEXT+`+__const__TEXT@-@-__eh_frame__TEXT@/@/__DATA00__dyld__DATA080__nl_symbol_ptr__DATA8080 __la_symbol_ptr__DATAH0HH0 __common__DATA0 __bss2__DATA0H__LINKEDIT@@@"0@@ @0AxAC P 8C /usr/lib/dyldB&)t<"c0: $ * H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&AjHHH}HuHHHH9uH3ASL#AS%%UHHtH5H= HH(Dž0}HHhDžpDž Dž$H HH 8H5HH HHH(Dž0H}HhDžpDž Dž$H HWH 'H5vHNH H3HH(Dž0HHhDžpDž Dž$H HH KH5!HH H UHSHtH5H=bHDžHDžHDž`HDžDž\DžXDž Dž HHDž 4HHXDž`DžDžHHH H5PHHHH{HDž 6H:HXDž`DžDžHH<H H5H3H\HHHHH5HHXHHHHH5HH HHHHH5yHHHHHpHHOHDž HDž0HDž8 HDž(HDžHHDžP HDž@ H`HHDžH8H0HH)HH8HH0H(HHHHDž0HPHHHH)HHPHHHH@HHHHDžHH(HH?H8H0H9!H(H? Ѕt H0TH@HH?HPHHH9!H@H? Ѕt HHPH(HH?H8H0H9!H(H? H(H?H0H! ȅt H8H@HH?HPHHH9!H@H? H@H?HHH! ȅt HPHHDž ?HHXDž`DžDžHHxHH5oHoHHTH:HDž AHHXDž`DžDžHHH H5HHTHHHHH5HHPHHHHH5cHHHHHhHH58HGHHHH/HHHDž HDž0HDž8 HDž(HDžHHDžP HDž@ H`HHDžHDž HHHH@HHHH(H0HHHHHDž0HDž8dH(H(HHH)HHH8H0HH)HHHHIH8H0HH)HHHHIHPHHHH)HHHHHHH9ɅtHHH5H=`H(HH?H8H0H9!H(H? Ѕt H0TH(HH?H8H0H9!H(H? H(H?H0H! ȅt H8HHDž HHHXDž`DžDžHH_ H&H5vHV HH; H!HDž IHfHXDž`DžDžHH H H5H HTHHH HH5H HHHH HHg HDž HDž0HDž8 HDž(HDžHHDžP HDž@ H`HHDžHDžHHHH@HHHH(H0HHHHHDžHDžH(HHH)HHDžHDžHHHHH)HHHHHH)HHHHIHHHH)HHHHHHH8H0HH)HHHHIHPHHHH)HHHHHHH9ɅtHHH5 H=* \ HHH?HHH9!HH? Ѕt HTHHH?HHH9!HH? Ѕt HPHHH?HHH9!HH? HH?HH! ȅt HHHH?HHH9!HH? HH?HH! ȅt HH HDž RH HXDž`DžDžHHH&H5 HHHwH] HDž TH HXDž`DžDžHHH H5 HHTHHHHH5 HHPHHHHH5 HHHHHHH5[ HjHHHHRHH1HDž HDž0HDž8 HDž(HDžHHDžP HDž@ H`HHDžHDžpHH`HH@HHHH(H0HHHHhHDžHDžH(HxHhH)HhHDžHDžHHHhH)HhHDžHDžHHHHHhHH)HHhHHHH)HHHHIHHHH)HHHHHHHHHH)HHHHHHH8H0HH)HHHHIHPHHHH)HHHHHHH9ɅtHHH5@H=HxHH?HHH9!HxH? Ѕt HTHHH?HHH9!HH? Ѕt HPHHH?HHH9!HH? Ѕt HLHxHH?HHH9!HxH? HxH?HH! ȅt HHHH?HHH9!HH? HH?HH! ȅt HHHH?HHH9!HH? HH?HH! ȅt HHHDž _HhHXDž`DžDžHHBH&H5H9HHHHDž aHHXDž`DžDžHHH H5HHTHHHHH5XHHPHHHkHH5HJHLHHH2HH5HHHHHHH5HHHHHHH5KHHHHHHHf H=[UHH}HuHUEH։#H5u%%% % %%%%%hRh"Hh<>hY4hs*h hh hLiAS%YRecursive call to nonrecursive procedure 'write_identifier'At line 108 of file Pointers.f90Pointers.f90Recursive call to nonrecursive procedure 'pointers'At line 12 of file Pointers.f90Target of rank remapping is too small (%ld < %ld)At line 67 of file Pointers.f90At line 75 of file Pointers.f90At line 86 of file Pointers.f90( a)$Id: Pointers.f90,v 1.1 2012/05/23 15:30:12 dnagle Exp $GCC version 4.6.2 20111019 (prerelease)-fPIC -mmacosx-version-min=10.7.4 -mtune=core2 -Wall -std=f2008 -fcheck=allthe bounds of the original array( a, i3)lower, dim= 1 lower, dim= 2 upper, dim= 1 upper, dim= 2the bounds of the pointer arraythe bounds of the rank-1 pointer array( a, i4)the bounds of the rank-2 pointer arraythe bounds of the rank-3 pointer array lower, dim= 3 upper, dim= 3normal exitzRx 4  ,TU 47= 8 __0000t+~++++++++"UBY@dyld_stub_binderQr8rH@__gfortran_runtime_error_atrP@__gfortran_set_argsrX@__gfortran_set_optionsr`@__gfortran_st_writerh@__gfortran_st_write_donerp@__gfortran_stop_stringrx@__gfortran_transfer_character_writer@__gfortran_transfer_integer_writer@_exit_ startK_'mainPNXArgUenvirongmh_execute_headerG_prognamel%Uc]vbaaaa%<,.EM /^ 0s 0 0 0 0 0*(AX|@ dyld_stub_binding_helper__dyld_func_lookup_write_identifier.1536_MAIN___options.18.1629_is_recursive.4.1586_is_recursive.0.1538_NXArgc_NXArgv___progname__mh_execute_header_environ_mainstart__gfortran_runtime_error_at__gfortran_set_args__gfortran_set_options__gfortran_st_write__gfortran_st_write_done__gfortran_stop_string__gfortran_transfer_character_write__gfortran_transfer_integer_write_exitdyld_stub_binderDay-I/05-rank_remapping/Pointers.f90100777 0 0 7774 11757204740 12470 0 ! write diagnostic information about array pointer remapping ! compiles with ! gfortran -std=f2008 -Wall -fcheck=all Pointers.f90 -o Pointers ! executes with ! ./Pointers ! give the main program a name ! this name must match the name on the end program statement ! matching names makes error reporting more informative program pointers ! access the standard output unit and real kind value from the environment module use, intrinsic :: iso_fortran_env, only: output_unit ! require declaration of all names ! this should be your first statement after the use statement(s) ! in _every_ program, module, and external subprogram implicit none ! record the version control id of this file character( len= *), parameter :: rcs_id = & '$Id: Pointers.f90,v 1.1 2012/05/23 15:30:12 dnagle Exp $' real, dimension( 10, 10), target :: a real, dimension( :, :), pointer :: pa real, dimension( :), pointer :: p1 real, dimension( :, :), pointer :: p2 real, dimension( :, :, :), pointer :: p3 integer :: la1, la2, ua1, ua2, lp1, lp2, up1, up2, lp3, up3 ! separate declarations from executables ! (there are now a few declarations) continue ! identify the compiler and options call write_identifier() la1 = lbound( a, dim= 1) la2 = lbound( a, dim= 2) ua1 = ubound( a, dim= 1) ua2 = ubound( a, dim= 2) write( unit= output_unit, fmt= '( a)') 'the bounds of the original array' write( unit= output_unit, fmt= '( a, i3)') 'lower, dim= 1', la1, ' lower, dim= 2', la2, & ' upper, dim= 1', ua1, ' upper, dim= 2', ua2 pa( 0:, 0:) => a lp1 = lbound( pa, dim= 1) lp2 = lbound( pa, dim= 2) up1 = ubound( pa, dim= 1) up2 = ubound( pa, dim= 2) write( unit= output_unit, fmt= '( a)') 'the bounds of the pointer array' write( unit= output_unit, fmt= '( a, i3)') 'lower, dim= 1', lp1, ' lower, dim= 2', lp2, & ' upper, dim= 1', up1, ' upper, dim= 2', up2 p1( 1: size( a)) => a lp1 = lbound( p1, dim= 1) up1 = ubound( p1, dim= 1) write( unit= output_unit, fmt= '( a)') 'the bounds of the rank-1 pointer array' write( unit= output_unit, fmt= '( a, i4)') 'lower, dim= 1', lp1, ' upper, dim= 1', up1 p2( 1: 4, 1: 25) => a lp1 = lbound( p2, dim= 1) lp2 = lbound( p2, dim= 2) up1 = ubound( p2, dim= 1) up2 = ubound( p2, dim= 2) write( unit= output_unit, fmt= '( a)') 'the bounds of the rank-2 pointer array' write( unit= output_unit, fmt= '( a, i3)') 'lower, dim= 1', lp1, ' lower, dim= 2', lp2, & ' upper, dim= 1', up1, ' upper, dim= 2', up2 p3( 1: 4, 1: 5, 1: 5) => a lp1 = lbound( p3, dim= 1) lp2 = lbound( p3, dim= 2) lp3 = lbound( p3, dim= 3) up1 = ubound( p3, dim= 1) up2 = ubound( p3, dim= 2) up3 = ubound( p3, dim= 3) write( unit= output_unit, fmt= '( a)') 'the bounds of the rank-3 pointer array' write( unit= output_unit, fmt= '( a, i3)') 'lower, dim= 1', lp1, ' lower, dim= 2', lp2, & ' lower, dim= 3', lp3, ' upper, dim= 1', up1, ' upper, dim= 2', up2, ' upper, dim= 3', up3 stop 'normal exit' ! introduces internal procedures ! these procedures access names in the host via host association contains ! write the identifying header subroutine write_identifier() ! access the standard error unit from the environment module ! and the intrinsic module procedures identifying the compiler and options used use, intrinsic :: iso_fortran_env, only: error_unit, compiler_version, compiler_options ! use an explicit format to control the written line character( len= *), parameter :: string_fmt = '( a)' ! separate declarations from executables continue ! write the version id write( unit= error_unit, fmt= string_fmt) rcs_id ! write the compiler used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_version() ! write the compiler options used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_options() ! return to the main program return ! the end of the procedure end subroutine write_identifier ! the end of the program end program pointers Day-I/05-rank_remapping/Pointers.f90,v100777 0 0 10277 11757201212 12731 0head 1.1; access; symbols; locks; strict; comment @# @; 1.1 date 2012.05.23.15.30.12; author dnagle; state Exp; branches; next ; desc @pointer example @ 1.1 log @Initial revision @ text @ ! write diagnostic information about array pointer remapping ! compiles with ! gfortran -std=f2008 -Wall -fcheck=all Pointers.f90 -o Pointers ! executes with ! ./Pointers ! give the main program a name ! this name must match the name on the end program statement ! matching names makes error reporting more informative program pointers ! access the standard output unit and real kind value from the environment module use, intrinsic :: iso_fortran_env, only: output_unit ! require declaration of all names ! this should be your first statement after the use statement(s) ! in _every_ program, module, and external subprogram implicit none ! record the version control id of this file character( len= *), parameter :: rcs_id = & '$Id: Integers.f90,v 1.1 2012/05/15 14:02:42 dnagle Exp $' real, dimension( 10, 10), target :: a real, dimension( :, :), pointer :: pa real, dimension( :), pointer :: p1 real, dimension( :, :), pointer :: p2 real, dimension( :, :, :), pointer :: p3 integer :: la1, la2, ua1, ua2, lp1, lp2, up1, up2, lp3, up3 ! separate declarations from executables ! (there are now a few declarations) continue ! identify the compiler and options call write_identifier() la1 = lbound( a, dim= 1) la2 = lbound( a, dim= 2) ua1 = ubound( a, dim= 1) ua2 = ubound( a, dim= 2) write( unit= output_unit, fmt= '( a)') 'the bounds of the original array' write( unit= output_unit, fmt= '( a, i3)') 'lower, dim= 1', la1, ' lower, dim= 2', la2, & ' upper, dim= 1', ua1, ' upper, dim= 2', ua2 pa( 0:, 0:) => a lp1 = lbound( pa, dim= 1) lp2 = lbound( pa, dim= 2) up1 = ubound( pa, dim= 1) up2 = ubound( pa, dim= 2) write( unit= output_unit, fmt= '( a)') 'the bounds of the pointer array' write( unit= output_unit, fmt= '( a, i3)') 'lower, dim= 1', lp1, ' lower, dim= 2', lp2, & ' upper, dim= 1', up1, ' upper, dim= 2', up2 p1( 1: size( a)) => a lp1 = lbound( p1, dim= 1) up1 = ubound( p1, dim= 1) write( unit= output_unit, fmt= '( a)') 'the bounds of the rank-1 pointer array' write( unit= output_unit, fmt= '( a, i4)') 'lower, dim= 1', lp1, ' upper, dim= 1', up1 p2( 1: 4, 1: 25) => a lp1 = lbound( p2, dim= 1) lp2 = lbound( p2, dim= 2) up1 = ubound( p2, dim= 1) up2 = ubound( p2, dim= 2) write( unit= output_unit, fmt= '( a)') 'the bounds of the rank-2 pointer array' write( unit= output_unit, fmt= '( a, i3)') 'lower, dim= 1', lp1, ' lower, dim= 2', lp2, & ' upper, dim= 1', up1, ' upper, dim= 2', up2 p3( 1: 4, 1: 5, 1: 5) => a lp1 = lbound( p3, dim= 1) lp2 = lbound( p3, dim= 2) lp3 = lbound( p3, dim= 3) up1 = ubound( p3, dim= 1) up2 = ubound( p3, dim= 2) up3 = ubound( p3, dim= 3) write( unit= output_unit, fmt= '( a)') 'the bounds of the rank-3 pointer array' write( unit= output_unit, fmt= '( a, i3)') 'lower, dim= 1', lp1, ' lower, dim= 2', lp2, & ' lower, dim= 3', lp3, ' upper, dim= 1', up1, ' upper, dim= 2', up2, ' upper, dim= 3', up3 stop 'normal exit' ! introduces internal procedures ! these procedures access names in the host via host association contains ! write the identifying header subroutine write_identifier() ! access the standard error unit from the environment module ! and the intrinsic module procedures identifying the compiler and options used use, intrinsic :: iso_fortran_env, only: error_unit, compiler_version, compiler_options ! use an explicit format to control the written line character( len= *), parameter :: string_fmt = '( a)' ! separate declarations from executables continue ! write the version id write( unit= error_unit, fmt= string_fmt) rcs_id ! write the compiler used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_version() ! write the compiler options used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_options() ! return to the main program return ! the end of the procedure end subroutine write_identifier ! the end of the program end program pointers @ Day-I/05-rank_remapping/Pointers.mk100777 0 0 637 11756523420 12446 0 # use this compiler for the .f90 --> .o step FC=gfortran -c # use these options to the compiler FFLAGS=-std=f2008 -Wall -fcheck=all # use the compiler driver for the .o --> a.out step LD=gfortran # use these options to the linker LDFLAGS= # make this executable Pointers: Pointers.o ${LD} ${LDFLAGS} Pointers.o -o Pointers # make this object file Pointers.o: Pointers.f90 ${FC} ${FFLAGS} Pointers.f90 Day-I/05-rank_remapping/Pointers.o100777 0 0 23304 11757243144 12334 0@ `x__text__TEXTN`__cstring__TEXTP`__const__TEXT __bss2__DATAx__eh_frame__TEXT # h#`%d PUHHtH5H=HH(Dž0}HhHhDžpDž Dž$H HH 8H5)HH HHH(Dž0HHhDžpDž Dž$H HH 'H5HH HHH(Dž0HnHhDžpDž Dž$H HH KH5HH HUHSHtH5H=HDžHDžHDž`HDžDž\DžXDž Dž HHDž 4HMHXDž`DžDžHHH H5HHHHHDž 6HHXDž`DžDžHHH H5iHH\HHHHH5=HHXHHHHH5HH HHHHH5HHHHHHHHDž HDž0HDž8 HDž(HDžHHDžP HDž@ H`HHDžH8H0HH)HH8HH0H(HHHHDž0HPHHHH)HHPHHHH@HHHHDžHH(HH?H8H0H9!H(H? Ѕt H0TH@HH?HPHHH9!H@H? Ѕt HHPH(HH?H8H0H9!H(H? H(H?H0H! ȅt H8H@HH?HPHHH9!H@H? H@H?HHH! ȅt HPHHDž ?H HXDž`DžDžHHHH5HHHHHDž AHgHXDž`DžDžHHH H5(HHTHHHHH5HHPHHHHH5HHHHHHH5HHHHHHHHDž HDž0HDž8 HDž(HDžHHDžP HDž@ H`HHDžHDž HHHH@HHHH(H0HHHHHDž0HDž8dH(H(HHH)HHH8H0HH)HHHHIH8H0HH)HHHHIHPHHHH)HHHHHHH9ɅtHHH5H=H(HH?H8H0H9!H(H? Ѕt H0TH(HH?H8H0H9!H(H? H(H?H0H! ȅt H8HHDž HHHXDž`DžDžHHH&H5HHHHHDž IHHXDž`DžDžHHH H5HHTHHHHH5HHHHHHHHDž HDž0HDž8 HDž(HDžHHDžP HDž@ H`HHDžHDžHHHH@HHHH(H0HHHHHDžHDžH(HHH)HHDžHDžHHHHH)HHHHHH)HHHHIHHHH)HHHHHHH8H0HH)HHHHIHPHHHH)HHHHHHH9ɅtHHH5H=HHH?HHH9!HH? Ѕt HTHHH?HHH9!HH? Ѕt HPHHH?HHH9!HH? HH?HH! ȅt HHHH?HHH9!HH? HH?HH! ȅt HHHDž RH/ HXDž`DžDžHHH&H5P HHHHHDž TH HXDž`DžDžHHH H5K HHTHHHHH5 HHPHHHHH5 HHHHHHH5 HHHHHHHHDž HDž0HDž8 HDž(HDžHHDžP HDž@ H`HHDžHDžpHH`HH@HHHH(H0HHHHhHDžHDžH(HxHhH)HhHDžHDžHHHhH)HhHDžHDžHHHHHhHH)HHhHHHH)HHHHIHHHH)HHHHHHHHHH)HHHHHHH8H0HH)HHHHIHPHHHH)HHHHHHH9ɅtHHH5H=HxHH?HHH9!HxH? Ѕt HTHHH?HHH9!HH? Ѕt HPHHH?HHH9!HH? Ѕt HLHxHH?HHH9!HxH? HxH?HH! ȅt HHHH?HHH9!HH? HH?HH! ȅt HHHH?HHH9!HH? HH?HH! ȅt HHHDž _HHXDž`DžDžHHH&H5HHHHHDž aH1HXDž`DžDžHHH H5HHTHHHHH5HHPHHHHH5VHHLHHHHH5bHHHHHHH57HHHHHHH5HHHHHHH H=UHH}HuHUEH։H5Recursive call to nonrecursive procedure 'write_identifier'At line 108 of file Pointers.f90Pointers.f90Recursive call to nonrecursive procedure 'pointers'At line 12 of file Pointers.f90Target of rank remapping is too small (%ld < %ld)At line 67 of file Pointers.f90At line 75 of file Pointers.f90At line 86 of file Pointers.f90( a)$Id: Pointers.f90,v 1.1 2012/05/23 15:30:12 dnagle Exp $GCC version 4.6.2 20111019 (prerelease)-fPIC -mmacosx-version-min=10.7.4 -mtune=core2 -Wall -std=f2008 -fcheck=allthe bounds of the original array( a, i3)lower, dim= 1 lower, dim= 2 upper, dim= 1 upper, dim= 2the bounds of the pointer arraythe bounds of the rank-1 pointer array( a, i4)the bounds of the rank-2 pointer arraythe bounds of the rank-3 pointer array lower, dim= 3 upper, dim= 3normal exitzRx 4  ,TU 4x= 8 C ->-4 -- ------{-]-UB-$- -----cKD-5----} v1-"------w-Y-Q>- ---u -   - - -  - - z -F . ' - -  -   -  T-E-'- -----|-ta-----------t-lY-;-3 ----oW(- - ---N6/- -----T<1+-! ^X^X  ^ P|P"p',4xIZU1n__gfortran_runtime_error_at__gfortran_st_write__gfortran_transfer_character_write__gfortran_st_write_done__gfortran_transfer_integer_write__gfortran_stop_string_main__gfortran_set_args__gfortran_set_optionsLC0LC1LC2_write_identifier.1536_is_recursive.0.1538LC7LC8LC16LC17LC20LC22_MAIN___is_recursive.4.1586_options.18.1629EH_frame1Day-I/06-dim=/ 40777 0 0 0 11777312760 6104 5Day-I/06-dim=/._Intrinsics.mk100777 0 0 10000 11777310052 11076 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/06-dim=/Intrinsics100777 0 0 33410 11757247774 10307 0H H__PAGEZERO(__TEXT __text__TEXT0 v0 __stubs__TEXTZ__stub_helper__TEXT__cstring__TEXT__const__TEXT``__eh_frame__TEXT((__DATA  __dyld__DATA 8 __nl_symbol_ptr__DATA8 8 __la_symbol_ptr__DATAH xH __common__DATA  __bss2__DATA H__LINKEDIT00"000 01xh24@ PH4  /usr/lib/dyld@H,9cEm$ *0  H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&X2jHHH}HuHHHH9uHASLAS%%UHHMtH5H== %HDH(Dž0eHHhDžpDž Dž$H HH :H5CHH HHH(Dž0iHHhDžpDž Dž$H HAH 'H5H>H HHJH(Dž0mHHhDžpDž Dž$H H H KH5H H H UHAUATSHtH5H=H `E]܃}DžLDLLLHcHtH5H= HtH5H= EHHɅt HH5H=~j HɅt HH5H=P< HHHHLhLE*z8م8uٝ<<.z.t A( (2XBPLD9tH5H= LLLDLk9]tH5\H=A }E]܅ DžLLLQHK HHDžP<HDHDž Dž@DžDH@H HLH@HH LHHDžHDžHDžHDžHPHPHHHpHDžxHpH@HA H@H& L9tH5 H=h LLLLH HHDžPBHHDž Dž@DžDH@Hw H@H5 Ht HDž0HDž@HDžHHDž8HDžXHDž`HDžPHPH HDž(H HDž HDžHDžHDžH@HpHDžxHpHHzH4HpHDž0HDž@HDžHHDž8HDžXHDž`HDžPHPH HDž(H Hb HDž HDžHDžHDžHHpHDžxHpHHCH4Hp H H@HH@HH@HH@HHDžPFH HDž Dž@DžDH@HH@H5_ HHDž0HDž@HDžHHDž8HDžXHDž`HDžPHPH HDž(H HHDž HDžHDžHDžHHpHDžxHpHHH4HpHH@HHHH@HHHHDžPHH4HDž Dž@DžDH@H3H@H5H0HDž0HDž@HDžHHDž8HDžXHDž`HDžPHPH HDž(H HHDž HDžHDžHDžHHpHDžxHpHH5H4HpHH@HH2HH@HH2HHDžPIHHDž Dž@DžDH@HH@H5HHDž0HDž@HDžHHDž8HDžXHDž`HDžPHPH HDž(H H HDž HDžHDžHDžHHpHDžxHpHHH4HpHH@HHHH@H~ H=ysUHH}HuHUEH։;H5p0%%%%%%%%%%%%%%%hhh<zhZphxfh\hRhHh>h 4h**hQ h|h hLAS%Recursive call to nonrecursive procedure 'write_identifier'At line 84 of file Intrinsics.f90Intrinsics.f90Recursive call to nonrecursive procedure 'intrinsics'At line 12 of file Intrinsics.f90Index '%ld' of dimension 1 of array 'anm' below lower bound of %ldAt line 50 of file Intrinsics.f90Index '%ld' of dimension 1 of array 'anm' above upper bound of %ldIndex '%ld' of dimension 2 of array 'anm' below lower bound of %ldIndex '%ld' of dimension 2 of array 'anm' above upper bound of %ldLoop variable has been modifiedAt line 48 of file Intrinsics.f90At line 46 of file Intrinsics.f90At line 58 of file Intrinsics.f90( a)$Id: Intrinsics.f90,v 1.1 2012/05/23 15:35:54 dnagle Exp $GCC version 4.6.2 20111019 (prerelease)-fPIC -mmacosx-version-min=10.7.4 -mtune=core2 -Wall -std=f2008 -fcheck=all( i4, 7f8.4)( a, 2i4, a)the overall minimum: ( )the overall maximum: ( ( a, 7i4)the dim= 1 minimums: the dim= 1 maximums: ( a, 6i4)the dim= 2 minimums: the dim= 2 maximums: normal exit@@?zRx 4>  4T'   4= 8 __     (2<FPZdnx"UB`@dyld_stub_binderQr8rH@__gfortran_maxloc0_4_r4rP@__gfortran_maxloc1_4_r4rX@__gfortran_minloc0_4_r4r`@__gfortran_minloc1_4_r4rh@__gfortran_runtime_error_atrp@__gfortran_set_argsrx@__gfortran_set_optionsr@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_transfer_array_writer@__gfortran_transfer_character_writer@__gfortran_transfer_integer_writer@_exitr@_fmodf_ startK_'mainPNXArgUenvirongmh_execute_headerG_prognamel2c]vbAAAA<l  . EB M^ s     i0 -I]t$+@ dyld_stub_binding_helper__dyld_func_lookup_write_identifier.1536_MAIN___options.40.1689_is_recursive.4.1547_is_recursive.0.1538_NXArgc_NXArgv___progname__mh_execute_header_environ_mainstart__gfortran_maxloc0_4_r4__gfortran_maxloc1_4_r4__gfortran_minloc0_4_r4__gfortran_minloc1_4_r4__gfortran_runtime_error_at__gfortran_set_args__gfortran_set_options__gfortran_st_write__gfortran_st_write_done__gfortran_stop_string__gfortran_transfer_array_write__gfortran_transfer_character_write__gfortran_transfer_integer_write_exit_fmodfdyld_stub_binderDay-I/06-dim=/Intrinsics.f90100777 0 0 6005 11757201746 10651 0 ! write diagnostic information about array assignment ! compiles with ! gfortran -std=f2008 -Wall -fcheck=all Intrinsics.f90 -o Intrinsics ! executes with ! ./Intrinsics ! give the main program a name ! this name must match the name on the end program statement ! matching names makes error reporting more informative program intrinsics ! access the standard output unit and real kind value from the environment module use, intrinsic :: iso_fortran_env, only: output_unit ! require declaration of all names ! this should be your first statement after the use statement(s) ! in _every_ program, module, and external subprogram implicit none ! record the version control id of this file character( len= *), parameter :: rcs_id = & '$Id: Intrinsics.f90,v 1.1 2012/05/23 15:35:54 dnagle Exp $' ! set problem size integer, parameter :: n = 5, m = 7 integer :: i, j real, dimension( n, m) :: anm ! separate declarations from executables ! (there are now a few declarations) continue ! identify the compiler and options call write_identifier() ! create an array of values make_anm_rows: do j = 1, m make_anm_cols: do i = 1, n anm( i, j) = mod( real( i + j), 3.0) + 0.5 end do make_anm_cols end do make_anm_rows ! write anm write_row: do i = 1, n write( unit= output_unit, fmt= '( i4, 7f8.4)') i, anm( i, :) end do write_row ! write the functions write( unit= output_unit, fmt= '( a, 2i4, a)') 'the overall minimum: ( ', minloc( anm), ')' write( unit= output_unit, fmt= '( a, 2i4, a)') 'the overall maximum: ( ', maxloc( anm), ')' write( unit= output_unit, fmt= '( a, 7i4)') 'the dim= 1 minimums: ', minloc( anm, dim= 1) write( unit= output_unit, fmt= '( a, 7i4)') 'the dim= 1 maximums: ', maxloc( anm, dim= 1) write( unit= output_unit, fmt= '( a, 6i4)') 'the dim= 2 minimums: ', minloc( anm, dim= 2) write( unit= output_unit, fmt= '( a, 6i4)') 'the dim= 2 maximums: ', maxloc( anm, dim= 2) stop 'normal exit' ! introduces internal intrinsics ! these intrinsics access names in the host via host association contains ! write the identifying header subroutine write_identifier() ! access the standard error unit from the environment module ! and the intrinsic module intrinsics identifying the compiler and options used use, intrinsic :: iso_fortran_env, only: error_unit, compiler_version, compiler_options ! use an explicit format to control the written line character( len= *), parameter :: string_fmt = '( a)' ! separate declarations from executables continue ! write the version id write( unit= error_unit, fmt= string_fmt) rcs_id ! write the compiler used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_version() ! write the compiler options used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_options() ! return to the main program return ! the end of the procedure end subroutine write_identifier ! the end of the program end program intrinsics Day-I/06-dim=/Intrinsics.f90,v100777 0 0 6310 11757201736 11111 0head 1.1; access; symbols; locks; strict; comment @# @; 1.1 date 2012.05.23.15.35.54; author dnagle; state Exp; branches; next ; desc @intrinsic example @ 1.1 log @Initial revision @ text @ ! write diagnostic information about array assignment ! compiles with ! gfortran -std=f2008 -Wall -fcheck=all Intrinsics.f90 -o Intrinsics ! executes with ! ./Intrinsics ! give the main program a name ! this name must match the name on the end program statement ! matching names makes error reporting more informative program intrinsics ! access the standard output unit and real kind value from the environment module use, intrinsic :: iso_fortran_env, only: output_unit ! require declaration of all names ! this should be your first statement after the use statement(s) ! in _every_ program, module, and external subprogram implicit none ! record the version control id of this file character( len= *), parameter :: rcs_id = & '$Id: Integers.f90,v 1.1 2012/05/15 14:02:42 dnagle Exp $' ! set problem size integer, parameter :: n = 5, m = 7 integer :: i, j real, dimension( n, m) :: anm ! separate declarations from executables ! (there are now a few declarations) continue ! identify the compiler and options call write_identifier() ! create an array of values make_anm_rows: do j = 1, m make_anm_cols: do i = 1, n anm( i, j) = mod( real( i + j), 3.0) + 0.5 end do make_anm_cols end do make_anm_rows ! write anm write_row: do i = 1, n write( unit= output_unit, fmt= '( i4, 7f8.4)') i, anm( i, :) end do write_row ! write the functions write( unit= output_unit, fmt= '( a, 2i4, a)') 'the overall minimum: ( ', minloc( anm), ')' write( unit= output_unit, fmt= '( a, 2i4, a)') 'the overall maximum: ( ', maxloc( anm), ')' write( unit= output_unit, fmt= '( a, 7i4)') 'the dim= 1 minimums: ', minloc( anm, dim= 1) write( unit= output_unit, fmt= '( a, 7i4)') 'the dim= 1 maximums: ', maxloc( anm, dim= 1) write( unit= output_unit, fmt= '( a, 6i4)') 'the dim= 2 minimums: ', minloc( anm, dim= 2) write( unit= output_unit, fmt= '( a, 6i4)') 'the dim= 2 maximums: ', maxloc( anm, dim= 2) stop 'normal exit' ! introduces internal intrinsics ! these intrinsics access names in the host via host association contains ! write the identifying header subroutine write_identifier() ! access the standard error unit from the environment module ! and the intrinsic module intrinsics identifying the compiler and options used use, intrinsic :: iso_fortran_env, only: error_unit, compiler_version, compiler_options ! use an explicit format to control the written line character( len= *), parameter :: string_fmt = '( a)' ! separate declarations from executables continue ! write the version id write( unit= error_unit, fmt= string_fmt) rcs_id ! write the compiler used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_version() ! write the compiler options used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_options() ! return to the main program return ! the end of the procedure end subroutine write_identifier ! the end of the program end program intrinsics @ Day-I/06-dim=/Intrinsics.mk100777 0 0 655 11756725622 10652 0 # use this compiler for the .f90 --> .o step FC=gfortran -c # use these options to the compiler FFLAGS=-std=f2008 -Wall -fcheck=all # use the compiler driver for the .o --> a.out step LD=gfortran # use these options to the linker LDFLAGS= # make this executable Intrinsics: Intrinsics.o ${LD} ${LDFLAGS} Intrinsics.o -o Intrinsics # make this object file Intrinsics.o: Intrinsics.f90 ${FC} ${FFLAGS} Intrinsics.f90 Day-I/06-dim=/Intrinsics.o100777 0 0 17524 11757247774 10554 0 (ph__text__TEXT {__cstring__TEXT __const__TEXT__bss2__DATAh__literal4__TEXTP__eh_frame__TEXTX h #P PUHHtH5H=HH(Dž0eHHhDžpDž Dž$H HH :H5IHH HHH(Dž0iH HhDžpDž Dž$H HH 'H5 HH HHH(Dž0mHHhDžpDž Dž$H HH KH5HH HUHAUATSHtH5H=E]܃}DžLDLLLHcHtH5H=HtH5H=EHHɅt HH5H=HɅt HH5H=HHHHLhLE*8م8uٝ<<.z.t G((8XBPLD9tH5H=LLLDLk9]tH5H=}E]܅ DžLLLQHHHDžP<HJHDž Dž@DžDH@HHLH@HHLHHDžHDžHDžHDžHPHPHHHpHDžxHpH@HH@HL9tH5H=LLLLHHHDžPBH HDž Dž@DžDH@HH@H5 HHDž0HDž@HDžHHDž8HDžXHDž`HDžPHPH HDž(H HDž HDžHDžHDžH@HpHDžxHpHHH4HpH:HXDž`DžDžHHE]̃} HEHUH9HMH9!Ʌt)HMHUIHHH5H=-H9HMH9!Ʌt)HMHUIHHH5GH= H9HMH9!Ʌt&HMHEIHH5H=L H9HMH9!Ʌt&HMHEIHH5H=^ HH)HHɋMHcHDž HMHDžH)HHHHUHuH)HuH)HHHHHHDžHHH 9]tH5H=K u} E]̅HH HDž@ HDžPHDžXHDžHHDžhHDžpHDž`tH= H0Hu\@# Hu H= H0HDž8H0H8LPLXHhLpHHUH5 H=Pv L9.H`HL8LL9J4HHHEHHUHH]LeL]LmH0HH8HLPLXHhLpL9HEH9!Љt)HUHEIHHH5H= L9HEH9!Љt)HUHEIHHH5`H=W L9HEL9!Љt)HUHEIHLH5H=b L9HEL9!Љt)HUHEIHLH5H= LH)HHILIM9HEL9!Љt)HUHEIHLH5 H=i M9HEL9!Љt)HUHEIHLH5 H=t" M9HEL9!Љt)HUHEIHLH5< H=-M9HEL9!Љt)HUHEIHLH5 H= LL)HHILIM9HPL9!Љt/HXHPIHLH5 H=} +M9HXL9!Љt/HXHPIHLH5\ H=- M9LL)HH?HH?HH)LH)HPH9!tUHPHXLL)HH?H?HƒHH)HMI)LIHH5 H= AM9LL)HH?HH?HH)LH)HXH9!tUHPHXLL)HH?H?HƒHH)HMI)LIHH5( H= LL)HHPHHIL9t7LL)HHHHHLHH5 H= JL9HhH9!Љt/HpHhIHHH5 H=L L9HpH9!Љt/HpHhIHHH5 H= L9LH)HH?HH?H H)LH)HhH9!tUHhHpLH)HH?H?HƒHH)HMI)LIHH5! H=b L9LH)HH?HH?H H)LH)HpH9!tUHhHpLH)HH?H?HƒHH)HMI)LIHH5 H= vLH)HHHHHL9t7LH)HHHHHLHH5z H=k H)HNL)HL 8LL9hHEHHHHJ H`HLIHL9+H LJ4H 8LA LA HHHUH0HHǸ^HHDž MH HXDž`DžDžHH/H0H,H,HHHHHHHDž PHd HXDž`DžDžHHE]̃}HEHUH9HMH9!Ʌt)HMHUIHHH5H=!H9HMH9!Ʌt)HMHUIHHH5;H=tH9HMH9!Ʌt&HMHEIHH5H=0H9HMH9!Ʌt&HMHEIHH5H=RHH)HHɋMHcHDž HMHDžH)HHHHUHuH)HuH)HHHHHHDžHHH9]tH5H=/u}E]̅HHx H=mUHH}HuHUEH։5H5*% % % % % % % % % % % %" %$ %& hhxh6nhUdhwZhPhFh<h2h(h-hXh hL!AS%Recursive call to nonrecursive procedure 'write_identifier'At line 91 of file Array_Intrinsic.f90Array_Intrinsic.f90Recursive call to nonrecursive procedure 'array_intrinsic'At line 12 of file Array_Intrinsic.f90Integer overflow when calculating the amount of memory to allocateAllocation would exceed memory limitaAttempting to allocate already allocated variable '%s'At line 52 of file Array_Intrinsic.f90Index '%ld' of dimension 1 of array 'a' below lower bound of %ldAt line 57 of file Array_Intrinsic.f90Index '%ld' of dimension 1 of array 'a' above upper bound of %ldIndex '%ld' of dimension 2 of array 'a' below lower bound of %ldIndex '%ld' of dimension 2 of array 'a' above upper bound of %ldLoop variable has been modifiedAt line 56 of file Array_Intrinsic.f90At line 55 of file Array_Intrinsic.f90Index '%ld' of dimension 2 of array 'a' outside of expected range (%ld:%ld)At line 62 of file Array_Intrinsic.f90new_aAt line 65 of file Array_Intrinsic.f90Index '%ld' of dimension 1 of array 'a' outside of expected range (%ld:%ld)At line 71 of file Array_Intrinsic.f90Index '%ld' of dimension 1 of array 'new_a' outside of expected range (%ld:%ld)Array bound mismatch for dimension 1 of array 'new_a' (%ld/%ld)Index '%ld' of dimension 2 of array 'new_a' outside of expected range (%ld:%ld)Array bound mismatch for dimension 2 of array 'new_a' (%ld/%ld)At line 80 of file Array_Intrinsic.f90( a)$Id: Array_Intrinsic.f90,v 1.1 2012/05/23 15:27:40 dnagle Exp $GCC version 4.6.2 20111019 (prerelease)-fPIC -mmacosx-version-min=10.7.4 -mtune=core2 -Wall -std=f2008 -fcheck=all( "original a"/ ( 10 i4))( "is new_a allocated? ", l1)( "new size a"/ ( 20 i4))normal exitzRx 4  4TG 4)= 8 __0000''''''''''''(("UB^@dyld_stub_binderQr8rH@__gfortran_move_allocrP@__gfortran_os_errorrX@__gfortran_runtime_errorr`@__gfortran_runtime_error_atrh@__gfortran_set_argsrp@__gfortran_set_optionsrx@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_transfer_array_writer@__gfortran_transfer_character_writer@__gfortran_transfer_logical_writer@_exitr@_malloc_ startK_'mainPNXArgUenvirongmh_execute_headerG_prognamel'Mc]vbaaaa'<".EM /^ 0s 0 0 0 0 0&,@Wk@ dyld_stub_binding_helper__dyld_func_lookup_write_identifier.1536_MAIN___options.20.1654_is_recursive.4.1565_is_recursive.0.1538_NXArgc_NXArgv___progname__mh_execute_header_environ_mainstart__gfortran_move_alloc__gfortran_os_error__gfortran_runtime_error__gfortran_runtime_error_at__gfortran_set_args__gfortran_set_options__gfortran_st_write__gfortran_st_write_done__gfortran_stop_string__gfortran_transfer_array_write__gfortran_transfer_character_write__gfortran_transfer_logical_write_exit_mallocdyld_stub_binderDay-I/07-move_alloc/Array_Intrinsic.f90100777 0 0 6066 11757200764 13105 0 ! write diagnostic information about move_alloc and enlarging allocations ! compiles with ! gfortran -std=f2008 -Wall -fcheck=all Array_Intrinsic.f90 -o Array_Intrinsic ! executes with ! ./Array_Intrinsic ! give the main program a name ! this name must match the name on the end program statement ! matching names makes error reporting more informative program array_intrinsic ! access the standard output unit and real kind value from the environment module use, intrinsic :: iso_fortran_env, only: output_unit ! require declaration of all names ! this should be your first statement after the use statement(s) ! in _every_ program, module, and external subprogram implicit none ! record the version control id of this file character( len= *), parameter :: rcs_id = & '$Id: Array_Intrinsic.f90,v 1.1 2012/05/23 15:27:40 dnagle Exp $' ! label array format character( len= *), parameter :: label_array_fmt = '( a, 10i5)' ! set array size integer, parameter :: n = 10 ! declare arrays integer :: i, j integer, dimension( :, :), allocatable :: a, new_a ! separate declarations from executables ! (there are now a few declarations) continue ! identify the compiler and options call write_identifier() ! allocate a allocate( a( n, n)) ! define a define_a_rows: do j = 1, n define_a_cols: do i = 1, n a( i, j) = i*10 + j end do define_a_cols end do define_a_rows ! write all elements write( unit= output_unit, fmt= '( "original a"/ ( 10 i4))') ( a( i, :), i = 1, n) ! allocate new_a to be four times as large allocate( new_a( 2*n, 2*n)) ! define the values of new_a new_a = 0 ! define new_a with values from a any way desired new_a( ::2, ::2) = a ! move the allocation from new_a to a call move_alloc( from= new_a, to= a) ! check allocation of new_a write( unit= output_unit, fmt= '( "is new_a allocated? ", l1)') allocated( new_a) ! write all elements write( unit= output_unit, fmt= '( "new size a"/ ( 20 i4))') ( a( i, :), i = 1, 2*n) stop 'normal exit' ! introduces internal procedures ! these procedures access names in the host via host association contains ! write the identifying header subroutine write_identifier() ! access the standard error unit from the environment module ! and the intrinsic module procedures identifying the compiler and options used use, intrinsic :: iso_fortran_env, only: error_unit, compiler_version, compiler_options ! use an explicit format to control the written line character( len= *), parameter :: string_fmt = '( a)' ! separate declarations from executables continue ! write the version id write( unit= error_unit, fmt= string_fmt) rcs_id ! write the compiler used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_version() ! write the compiler options used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_options() ! return to the main program return ! the end of the procedure end subroutine write_identifier ! the end of the program end program array_intrinsic Day-I/07-move_alloc/Array_Intrinsic.f90,v100777 0 0 6372 11757200756 13350 0head 1.1; access; symbols; locks; strict; comment @# @; 1.1 date 2012.05.23.15.27.40; author dnagle; state Exp; branches; next ; desc @array intrinsic example @ 1.1 log @Initial revision @ text @ ! write diagnostic information about move_alloc and enlarging allocations ! compiles with ! gfortran -std=f2008 -Wall -fcheck=all Array_Intrinsic.f90 -o Array_Intrinsic ! executes with ! ./Array_Intrinsic ! give the main program a name ! this name must match the name on the end program statement ! matching names makes error reporting more informative program array_intrinsic ! access the standard output unit and real kind value from the environment module use, intrinsic :: iso_fortran_env, only: output_unit ! require declaration of all names ! this should be your first statement after the use statement(s) ! in _every_ program, module, and external subprogram implicit none ! record the version control id of this file character( len= *), parameter :: rcs_id = & '$Id: Integers.f90,v 1.1 2012/05/15 14:02:42 dnagle Exp $' ! label array format character( len= *), parameter :: label_array_fmt = '( a, 10i5)' ! set array size integer, parameter :: n = 10 ! declare arrays integer :: i, j integer, dimension( :, :), allocatable :: a, new_a ! separate declarations from executables ! (there are now a few declarations) continue ! identify the compiler and options call write_identifier() ! allocate a allocate( a( n, n)) ! define a define_a_rows: do j = 1, n define_a_cols: do i = 1, n a( i, j) = i*10 + j end do define_a_cols end do define_a_rows ! write all elements write( unit= output_unit, fmt= '( "original a"/ ( 10 i4))') ( a( i, :), i = 1, n) ! allocate new_a to be four times as large allocate( new_a( 2*n, 2*n)) ! define the values of new_a new_a = 0 ! define new_a with values from a any way desired new_a( ::2, ::2) = a ! move the allocation from new_a to a call move_alloc( from= new_a, to= a) ! check allocation of new_a write( unit= output_unit, fmt= '( "is new_a allocated? ", l1)') allocated( new_a) ! write all elements write( unit= output_unit, fmt= '( "new size a"/ ( 20 i4))') ( a( i, :), i = 1, 2*n) stop 'normal exit' ! introduces internal procedures ! these procedures access names in the host via host association contains ! write the identifying header subroutine write_identifier() ! access the standard error unit from the environment module ! and the intrinsic module procedures identifying the compiler and options used use, intrinsic :: iso_fortran_env, only: error_unit, compiler_version, compiler_options ! use an explicit format to control the written line character( len= *), parameter :: string_fmt = '( a)' ! separate declarations from executables continue ! write the version id write( unit= error_unit, fmt= string_fmt) rcs_id ! write the compiler used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_version() ! write the compiler options used to compile this executable write( unit= error_unit, fmt= string_fmt) compiler_options() ! return to the main program return ! the end of the procedure end subroutine write_identifier ! the end of the program end program array_intrinsic @ Day-I/07-move_alloc/Array_Intrinsic.mk100777 0 0 720 11756471172 13067 0 # use this compiler for the .f90 --> .o step FC=gfortran -c # use these options to the compiler FFLAGS=-std=f2008 -Wall -fcheck=all # use the compiler driver for the .o --> a.out step LD=gfortran # use these options to the linker LDFLAGS= # make this executable Array_Intrinsic: Array_Intrinsic.o ${LD} ${LDFLAGS} Array_Intrinsic.o -o Array_Intrinsic # make this object file Array_Intrinsic.o: Array_Intrinsic.f90 ${FC} ${FFLAGS} Array_Intrinsic.f90 Day-I/07-move_alloc/Array_Intrinsic.o100777 0 0 24124 11757240060 12751 0@ (` __text__TEXT@`__cstring__TEXT@__const__TEXT @__bss2__DATA __eh_frame__TEXT`" h#1 &4 P##$ UHHtH5H=HH(Dž0lHHhDžpDž Dž$H HH ?H5HH HHH(Dž0pHKHhDžpDž Dž$H HH 'H5LHH HHH(Dž0tHHhDžpDž Dž$H HH KH5HH HUHAWAVAUATSHtH5H=HEHDž0HE HEHE HEHEHE HE tH=HEHu<Hu H=HEHEEMȃ} ~%HH5H=Eũ} @EHHUH9҅t"HUHHH5H=HUH9҅t"HUHHH5H=UHcH}H9@@tHEHH5H=H}H9@@tHEHH5H=H}LEIHHELỦEB9utH5H=} Eu̅9MtH5H=} EMȅmHHDž >HPHXDž`DžDžHHE]̃} HEHUH9HMH9!Ʌt)HMHUIHHH5H=H9HMH9!Ʌt)HMHUIHHH5H=H9HMH9!Ʌt&HMHEIHH5H=H9HMH9!Ʌt&HMHEIHH5H=HH)HHɋMHcHDž HMHDžH)HHHHUHuH)HuH)HHHHHHDžHHH9]tH5H=u} E]̅HHHDž@ HDžPHDžXHDžHHDžhHDžpHDž`tH=H0Hu\@Hu H=H0HDž8H0H8LPLXHhLpHHH5H=L9.H`HL8LL9J4HHHEHHUHH]LeL]LmH0HH8HLPLXHhLpL9HEH9!Љt)HUHEIHHH5H=L9HEH9!Љt)HUHEIHHH5H=L9HEL9!Љt)HUHEIHLH5H=L9HEL9!Љt)HUHEIHLH5H=LH)HHILIM9HEL9!Љt)HUHEIHLH5H=M9HEL9!Љt)HUHEIHLH5H=M9HEL9!Љt)HUHEIHLH5H=M9HEL9!Љt)HUHEIHLH5H=LL)HHILIM9HPL9!Љt/HXHPIHLH5H=M9HXL9!Љt/HXHPIHLH5H=M9LL)HH?HH?HH)LH)HPH9!tUHPHXLL)HH?H?HƒHH)HMI)LIHH5H=M9LL)HH?HH?HH)LH)HXH9!tUHPHXLL)HH?H?HƒHH)HMI)LIHH5H=LL)HHPHHIL9t7LL)HHHHHLHH5H=L9HhH9!Љt/HpHhIHHH5H=L9HpH9!Љt/HpHhIHHH5H=L9LH)HH?HH?H H)LH)HhH9!tUHhHpLH)HH?H?HƒHH)HMI)LIHH5H=L9LH)HH?HH?H H)LH)HpH9!tUHhHpLH)HH?H?HƒHH)HMI)LIHH5H=LH)HHHHHL9t7LH)HHHHHLHH5H=H)HNL)HL 8LL9hHEHHHHJ H`HLIHL9+H LJ4H 8LA LA HHHUH0HHǸHHDž MH HXDž`DžDžHHH0H,H,HHHHHHHDž PHz HXDž`DžDžHHE]̃}HEHUH9HMH9!Ʌt)HMHUIHHH5H=H9HMH9!Ʌt)HMHUIHHH5H=H9HMH9!Ʌt&HMHEIHH5H=H9HMH9!Ʌt&HMHEIHH5H=HH)HHɋMHcHDž HMHDžH)HHHHUHuH)HuH)HHHHHHDžHHH9]tH5H=u}E]̅HH H=,UHH}HuHUEH։H5Recursive call to nonrecursive procedure 'write_identifier'At line 91 of file Array_Intrinsic.f90Array_Intrinsic.f90Recursive call to nonrecursive procedure 'array_intrinsic'At line 12 of file Array_Intrinsic.f90Integer overflow when calculating the amount of memory to allocateAllocation would exceed memory limitaAttempting to allocate already allocated variable '%s'At line 52 of file Array_Intrinsic.f90Index '%ld' of dimension 1 of array 'a' below lower bound of %ldAt line 57 of file Array_Intrinsic.f90Index '%ld' of dimension 1 of array 'a' above upper bound of %ldIndex '%ld' of dimension 2 of array 'a' below lower bound of %ldIndex '%ld' of dimension 2 of array 'a' above upper bound of %ldLoop variable has been modifiedAt line 56 of file Array_Intrinsic.f90At line 55 of file Array_Intrinsic.f90Index '%ld' of dimension 2 of array 'a' outside of expected range (%ld:%ld)At line 62 of file Array_Intrinsic.f90new_aAt line 65 of file Array_Intrinsic.f90Index '%ld' of dimension 1 of array 'a' outside of expected range (%ld:%ld)At line 71 of file Array_Intrinsic.f90Index '%ld' of dimension 1 of array 'new_a' outside of expected range (%ld:%ld)Array bound mismatch for dimension 1 of array 'new_a' (%ld/%ld)Index '%ld' of dimension 2 of array 'new_a' outside of expected range (%ld:%ld)Array bound mismatch for dimension 2 of array 'new_a' (%ld/%ld)At line 80 of file Array_Intrinsic.f90( a)$Id: Array_Intrinsic.f90,v 1.1 2012/05/23 15:27:40 dnagle Exp $GCC version 4.6.2 20111019 (prerelease)-fPIC -mmacosx-version-min=10.7.4 -mtune=core2 -Wall -std=f2008 -fcheck=all( "original a"/ ( 10 i4))( "is new_a allocated? ", l1)( "new size a"/ ( 20 i4))normal exitzRx 4  4TG 4p= 8 5-0)-&!(-,-+-'---'-'-t'-jc-'-#*-{t+-e/-1*-$-5'-+$'->'-4- '-  T '-J C  '-   '-   '-  s '-i b # '-   '-  s '-i b , '-"   '-   '-{ t > '-4 - '-'-'- x%-sg0-Q&-G+-'---'-'-h'-^W!'-*-oO'-E>'-'- '- X'-N G%'-  '-   %-0-q&-g- '- +-.-*-N6/+- .-*-+-.-*-T<1+'-! "^#X"^X "^ C@GKOf${(p@h@`'0X ` @(`n,U1__gfortran_runtime_error_at__gfortran_st_write__gfortran_transfer_character_write__gfortran_st_write_done__gfortran_runtime_error_malloc__gfortran_os_error__gfortran_transfer_array_write__gfortran_move_alloc__gfortran_transfer_logical_write__gfortran_stop_string_main__gfortran_set_args__gfortran_set_optionsLC0LC1LC2_write_identifier.1536_is_recursive.0.1538LC7LC8LC9LC10LC11LC12LC13LC14LC15LC16LC17LC18LC19LC20LC21LC23LC24LC25LC26LC27LC28LC29LC30LC31LC32LC35_MAIN___is_recursive.4.1565_options.20.1654EH_frame1Day-I/08-RNGs/ 40777 0 0 0 11777312760 6051 5Day-I/08-RNGs/.DS_Store100777 0 0 14004 11777307740 7655 0Bud1%  @ @ @ @ E%DSDB` @ @ @Day-I/08-RNGs/._.DS_Store100777 0 0 10000 11777310052 10050 0Mac OS X  2 ATTR;xThis resource fork intentionally left blank Day-I/08-RNGs/._find_primes.f90100777 0 0 10000 11777310054 11206 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/08-RNGs/._normalized_accumulator_type.f90100777 0 0 10000 11777310054 14513 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/08-RNGs/._test_normalized_accumulator.f90100777 0 0 10000 11777310056 14513 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/08-RNGs/find_primes100777 0 0 33300 11775611356 10413 0H H__PAGEZERO(__TEXT __text__TEXTLL__stubs__TEXTNfN__stub_helper__TEXT__cstring__TEXTpp__const__TEXT@@@__eh_frame__TEXT__DATA  __dyld__DATA 8 __nl_symbol_ptr__DATA8 8 __la_symbol_ptr__DATAH H __common__DATA  __bss2__DATA H__LINKEDIT00"000 01xX24 P 84$ /usr/lib/dyldN15d%$ *L H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&P2jHHH}HuHHHH9uHASLoAS%g %f UHH0= tH5H= HEHHDžDžDžHHNHMHHHQHMHHH6HHEEEEE*Q.z.t( EHE HEEHHEHE}IEHcHt-HHH?HHtHHH?H9t 0}tHHʅ҅tH=uHUHufHHDHHu H=HEHEHMH}HUHEH9@DHuH9@@D!Ɖu!EHbH5fH=WHMHEIHH5H=q1H9@DHuH9@@D!Ɖt&HMHEIHH5WH=(H9@DHuH9@@D!Ɖt)HMHUIHHH5 H=H9@DHuH9@@D!Ɖt)HMHUIHHH5H=PHH)HHH9H4:HEEE;EE}ЅuދEHHUH9҅t"HUHHH5H=HUH9҅t"HUHHH5H=HUHMHE]HuH}HUHEH9AELEI9AEE!EEt&HMHEIHH5H=!H9AELEI9AEE!EEt&HMHEIHH5EH=NH9AELEI9AEE!EEt)HMHUIHHH5H=H9AELEI9AEE!EEt)HMHUIHHH5H=:II)IMH9L:FEtHteHsHDžHDžDžHHHMHHHHHHEHuHH5$H=E}HEHHEUE9lH=5tUHH}HuHUEH։0H5)%\Ð%%%%%%%%%%%% % %%%%hhh9h[huzhphfh\hRhHh">hE4hn*h{ hh hLAS%Recursive call to nonrecursive procedure 'find_primes'At line 4 of file find_primes.f90find_primes.f90Integer overflow when calculating the amount of memory to allocateAllocation would exceed memory limitfactorsAttempting to allocate already allocated variable '%s'At line 40 of file find_primes.f90Index '%ld' of dimension 1 of array 'factors' outside of expected range (%ld:%ld)Index '%ld' of dimension 1 of array 'factors' below lower bound of %ldAt line 64 of file find_primes.f90Index '%ld' of dimension 1 of array 'factors' above upper bound of %ldAt line 72 of file find_primes.f90Attempt to DEALLOCATE unallocated '%s'At line 76 of file find_primes.f90normal exit in find_primeszRx ,n 4L@= 8 __    ",6@JT"UB`@dyld_stub_binderQr8rH@__gfortran_os_errorrP@__gfortran_runtime_errorrX@__gfortran_runtime_error_atr`@__gfortran_set_argsrh@__gfortran_set_optionsrp@__gfortran_st_readrx@__gfortran_st_read_doner@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_transfer_integerr@__gfortran_transfer_integer_writer@_exitr@_freer@_lroundfr@_mallocr@_sqrtf_ startK_'mainPNXArgUenvirongmh_execute_headerG_prognamel(6c]vbAAAA(< .6`F [ c k w L'?Sl @  dyld_stub_binding_helper__dyld_func_lookup_MAIN___options.8.1599_is_recursive.0.1558_NXArgc_NXArgv___progname__mh_execute_header_environ_mainstart__gfortran_os_error__gfortran_runtime_error__gfortran_runtime_error_at__gfortran_set_args__gfortran_set_options__gfortran_st_read__gfortran_st_read_done__gfortran_st_write__gfortran_st_write_done__gfortran_stop_string__gfortran_transfer_integer__gfortran_transfer_integer_write_exit_free_lroundf_malloc_sqrtfdyld_stub_binderDay-I/08-RNGs/find_primes.f90100777 0 0 2423 11775611330 10762 0 ! write all prime numbers between two limits program find_primes ! current limits and this test case integer :: n, max_n, min_n, i, max_i ! list of factors integer, dimension( :), allocatable :: factors ! executable code continue ! get the limits read( unit= *, fmt= *) min_n, max_n ! start at the low limit n = min_n ! loop until the high limit check_n: do ! test the next candidate prime n = n + 1 ! only test less than the square root max_i = nint( sqrt( real( n))) ! allocate a right-sized factors array allocate( factors( max_i), source= 0) ! initialize the candidate possible factor i = 1 ! test all possible candidate factors check_i: do ! test the next candidate factor i = i + 1 ! quit when past square root if( i > max_i ) exit check_i ! mark when an even division occurs if( mod( n, i) == 0 )then ! mark this entry factors( i) = i end if end do check_i ! primes have no factors if( all( factors == 0 ) ) write( unit= *, fmt= *) n ! remove factor array deallocate( factors) ! quit when past high limit if( n > max_n ) exit check_n end do check_n ! done stop 'normal exit in find_primes' end program find_primes Day-I/08-RNGs/normalized_accumulator_type.f90100777 0 0 5644 11777104756 14312 0! --------------------------------------------------------------------- module normalized_accumulator_type use, intrinsic :: iso_fortran_env, only: wk => real64 implicit none private ! --------------------------------------------------------------------- integer, parameter, public :: acc_wk = wk real( wk), parameter :: zero = 0.0_wk ! the accumulator has a bin for each possible exponent value type, public :: normalized_accumulator_t private real( wk), dimension( minexponent( 0.0_wk): maxexponent( 0.0_wk)) :: bins end type normalized_accumulator_t ! accumulator + real interface operator( +) module procedure add_real end interface operator( +) ! real = accumulator interface assignment( =) module procedure assign_real end interface assignment( =) ! the public face of the accumulator_t public :: initialize public :: count_magnitude public :: operator( +) public :: assignment( =) ! --------------------------------------------------------------------- ! library contains ! --------------------------------------------------------------------- ! set al the bins to zero pure subroutine initialize( a) type( normalized_accumulator_t), intent( out) :: a continue a% bins = zero return end subroutine initialize ! --------------------------------------------------------------------- ! count each bin that holds a value greater than its exponent pure function count_magnitude( a) result( c) integer :: c type( normalized_accumulator_t), intent( in) :: a integer :: i continue c = 0 scan_bins: do i = lbound( a% bins, dim= 1), ubound( a% bins, dim= 1) check: if( exponent( a% bins( i)) > i )then c = c + 1 end if check end do scan_bins return end function count_magnitude ! --------------------------------------------------------------------- ! add to the one bin with the matching exponent pure function add_real( a, r) result( s) type( normalized_accumulator_t) :: s type( normalized_accumulator_t), intent( in) :: a real( wk), intent( in) :: r integer :: i, j continue s = a i = exponent( r) s% bins( i) = s% bins( i) + r normalize: do j = exponent( s% bins( i)) if( j <= i .or. j > ubound( s% bins, dim= 1) ) exit normalize s% bins( j) = s% bins( j) + s% bins( i) s% bins( i) = zero i = j end do normalize return end function add_real ! --------------------------------------------------------------------- ! sum the bins array from small to large to calculate the real value pure subroutine assign_real( r, a) type( normalized_accumulator_t), intent( in) :: a real( wk), intent( out) :: r integer :: i continue r = zero sum_bins: do i = lbound( a% bins, dim= 1), ubound( a% bins, dim= 1) r = r + a% bins( i) end do sum_bins return end subroutine assign_real ! --------------------------------------------------------------------- end module normalized_accumulator_type Day-I/08-RNGs/normalized_accumulator_type.mod100777 0 0 5452 11777115054 14461 0GFORTRAN module version '6' created from normalized_accumulator_type.f90 on Tue Jul 10 15:10:04 2012 MD5:c12774eafe55b9910408d1c11587b8ef -- If you edit this, you'll get what you deserve. (() () (2) () () () () () () () () () () () () () () () () () () () () () () (3) ()) () () () () () (4 'acc_wk' 'normalized_accumulator_type' 'acc_wk' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 5 'count_magnitude' 'normalized_accumulator_type' 'count_magnitude' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) ( INTEGER 4 0 0 INTEGER ()) 6 0 (7) () 8 () () () 0 0) 9 'initialize' 'normalized_accumulator_type' 'initialize' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE PURE) (UNKNOWN 0 0 0 UNKNOWN ()) 10 0 (11) () 0 () () () 0 0) 12 'normalized_accumulator_t' 'normalized_accumulator_type' 'normalized_accumulator_t' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 PRIVATE_COMP) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ((13 'bins' (REAL 8 0 0 REAL ()) (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '-1021') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1024')) ( UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION) UNKNOWN-ACCESS ())) PRIVATE (() () () ()) () 0 0 24397431) 2 'add_real' 'normalized_accumulator_type' 'add_real' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (DERIVED 12 0 0 DERIVED ()) 14 0 (15 16) () 17 () () () 0 0) 3 'assign_real' 'normalized_accumulator_type' 'assign_real' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 18 0 (19 20) () 0 () () () 0 0) 11 'a' '' 'a' 10 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 12 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 7 'a' '' 'a' 6 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DERIVED 12 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 8 'c' '' 'c' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 RESULT) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 15 'a' '' 'a' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DERIVED 12 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 16 'r' '' 'r' 14 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 17 's' '' 's' 14 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 RESULT) (DERIVED 12 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 19 'r' '' 'r' 18 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 20 'a' '' 'a' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DERIVED 12 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) ) ('acc_wk' 0 4 'count_magnitude' 0 5 'initialize' 0 9 'normalized_accumulator_t' 0 12) Day-I/08-RNGs/normalized_accumulator_type.o100777 0 0 12720 11777115342 14154 0   __text__TEXT<Y__cstring__TEXT@P __bss2__DATA __eh_frame__TEXT  h!( PUHH H}HutH5H=HEHEU}EHH=Ʌt"HHH5H=H=Ʌt HH5H=HM HHEXHE9UtH5H=}EU3UHH0@HHHؿtH5H=HHHѺ?HHHؿHHEEHcHtHH5H=HtH5H=EHH=Ʌt"HHH5H=H=Ʌt HH5H=HHHؿXEHH=҅t"HHH5H=H=҅t HH5H=HHHEE;E}EHcHt"HHH5H=Ht HH5H=EHcHtHH5H=HtH5H=EHH=Ʌt"HHH5H=H=Ʌt HH5H=HHHXEHH=҅t"HHH5H=H=҅t HH5H=HHEEkHH?HHHUHSH(H}؋tH5H=EE]}EHH=҅t"HHH5H=H=҅t HH5H=HHEHEHE;E~E9]tH5H=}E]/EH([]UHHH}tH5H=HUHH=HH4HRecursive call to nonrecursive procedure 'assign_real'At line 143 of file normalized_accumulator_type.f90Index '%ld' of dimension 1 of array 'a' below lower bound of %ldAt line 156 of file normalized_accumulator_type.f90Index '%ld' of dimension 1 of array 'a' above upper bound of %ldLoop variable has been modifiedAt line 154 of file normalized_accumulator_type.f90Recursive call to nonrecursive procedure 'add_real'At line 105 of file normalized_accumulator_type.f90Index '%ld' of dimension 1 of array 's' below lower bound of %ldAt line 119 of file normalized_accumulator_type.f90Index '%ld' of dimension 1 of array 's' above upper bound of %ldAt line 123 of file normalized_accumulator_type.f90At line 127 of file normalized_accumulator_type.f90At line 129 of file normalized_accumulator_type.f90Recursive call to nonrecursive procedure 'count_magnitude'At line 76 of file normalized_accumulator_type.f90At line 89 of file normalized_accumulator_type.f90At line 87 of file normalized_accumulator_type.f90Recursive call to nonrecursive procedure 'initialize'At line 60 of file normalized_accumulator_type.f90zRx 4< 7 4TQ L 4p@ 6 48o j 2--h-L-B;- -|v -9-/(  - - o-e^ 8-.'  - - - H-*-   -  -  e-[ T .-$  -  - -|-r k^2---60-&^^X^X ^ @x0x  !@ & + 0 5@ :x ? T Y ^( c` h }    L<0x___normalized_accumulator_type_MOD_assign_real__gfortran_runtime_error_at___normalized_accumulator_type_MOD_add_real_memcpy_frexp___normalized_accumulator_type_MOD_count_magnitude___normalized_accumulator_type_MOD_initializeLC0LC1LC3LC4LC5LC6LC7_is_recursive.0.1555LC8LC9LC10LC11LC12LC13LC14LC15_is_recursive.2.1563LC16LC17LC18LC19_is_recursive.3.1571LC20LC21_is_recursive.5.1578EH_frame1Day-I/08-RNGs/primes.list100777 0 0 1303572 11775611374 10441 0 1500007 1500019 1500041 1500043 1500047 1500061 1500071 1500073 1500101 1500113 1500127 1500133 1500139 1500143 1500151 1500157 1500181 1500229 1500241 1500269 1500277 1500283 1500293 1500337 1500341 1500347 1500349 1500353 1500371 1500379 1500397 1500407 1500409 1500413 1500419 1500463 1500467 1500469 1500479 1500491 1500503 1500511 1500517 1500523 1500529 1500533 1500593 1500613 1500619 1500643 1500647 1500649 1500691 1500701 1500703 1500713 1500731 1500739 1500761 1500767 1500769 1500781 1500787 1500797 1500799 1500817 1500823 1500827 1500833 1500839 1500847 1500853 1500857 1500859 1500871 1500893 1500899 1500929 1500931 1500937 1500973 1500991 1500997 1501009 1501021 1501037 1501043 1501081 1501139 1501169 1501177 1501193 1501207 1501217 1501223 1501229 1501261 1501303 1501307 1501333 1501343 1501351 1501363 1501369 1501411 1501427 1501429 1501441 1501447 1501471 1501481 1501483 1501499 1501501 1501523 1501529 1501541 1501561 1501573 1501583 1501597 1501607 1501613 1501639 1501663 1501667 1501673 1501679 1501681 1501699 1501723 1501777 1501781 1501783 1501807 1501811 1501837 1501847 1501849 1501859 1501873 1501889 1501897 1501901 1501909 1501921 1501937 1501943 1501949 1501957 1501961 1501999 1502021 1502023 1502041 1502047 1502057 1502063 1502093 1502099 1502101 1502141 1502143 1502161 1502183 1502191 1502201 1502203 1502209 1502219 1502227 1502233 1502269 1502297 1502309 1502323 1502327 1502329 1502381 1502407 1502419 1502437 1502467 1502471 1502503 1502551 1502563 1502569 1502581 1502591 1502621 1502629 1502639 1502651 1502687 1502689 1502717 1502719 1502723 1502741 1502747 1502759 1502771 1502801 1502819 1502827 1502861 1502863 1502869 1502887 1502909 1502923 1502929 1502933 1502939 1502947 1502959 1502971 1502989 1502993 1503017 1503031 1503037 1503043 1503049 1503053 1503059 1503091 1503113 1503127 1503137 1503149 1503163 1503169 1503181 1503233 1503241 1503247 1503253 1503263 1503269 1503287 1503311 1503317 1503319 1503329 1503353 1503367 1503371 1503373 1503377 1503401 1503419 1503431 1503461 1503473 1503479 1503499 1503503 1503517 1503521 1503529 1503583 1503611 1503613 1503637 1503647 1503653 1503659 1503661 1503683 1503713 1503721 1503731 1503739 1503751 1503767 1503781 1503787 1503811 1503823 1503829 1503847 1503863 1503881 1503883 1503899 1503913 1503919 1503937 1503941 1503959 1503961 1503967 1503989 1504033 1504037 1504057 1504067 1504073 1504093 1504103 1504117 1504121 1504147 1504157 1504171 1504187 1504231 1504247 1504267 1504271 1504289 1504297 1504319 1504339 1504379 1504409 1504411 1504417 1504421 1504429 1504463 1504469 1504471 1504487 1504493 1504501 1504513 1504519 1504537 1504543 1504571 1504579 1504583 1504589 1504609 1504627 1504631 1504651 1504661 1504663 1504669 1504673 1504681 1504691 1504693 1504697 1504717 1504733 1504739 1504747 1504757 1504777 1504793 1504801 1504813 1504817 1504831 1504843 1504847 1504859 1504861 1504879 1504903 1504907 1504949 1504961 1504967 1504969 1504981 1504991 1504999 1505003 1505011 1505033 1505083 1505087 1505089 1505093 1505099 1505107 1505111 1505117 1505131 1505137 1505167 1505173 1505177 1505183 1505191 1505201 1505209 1505227 1505243 1505261 1505279 1505291 1505293 1505311 1505323 1505341 1505353 1505369 1505381 1505407 1505411 1505417 1505431 1505437 1505443 1505447 1505459 1505489 1505507 1505519 1505521 1505563 1505587 1505591 1505599 1505611 1505657 1505659 1505681 1505683 1505687 1505711 1505723 1505729 1505737 1505743 1505747 1505753 1505761 1505773 1505797 1505813 1505831 1505837 1505849 1505851 1505873 1505893 1505899 1505929 1505953 1505983 1505993 1506007 1506023 1506031 1506059 1506077 1506079 1506091 1506103 1506121 1506137 1506157 1506163 1506179 1506191 1506199 1506203 1506223 1506229 1506257 1506269 1506287 1506317 1506341 1506359 1506371 1506389 1506391 1506413 1506433 1506443 1506457 1506473 1506487 1506493 1506497 1506499 1506509 1506511 1506551 1506553 1506559 1506563 1506587 1506607 1506611 1506613 1506619 1506623 1506641 1506649 1506653 1506689 1506697 1506721 1506731 1506733 1506749 1506779 1506781 1506797 1506803 1506809 1506823 1506839 1506851 1506877 1506887 1506889 1506907 1506917 1506929 1506943 1506959 1506977 1506979 1506997 1507007 1507019 1507039 1507057 1507069 1507073 1507091 1507097 1507111 1507123 1507139 1507141 1507153 1507171 1507183 1507211 1507229 1507291 1507301 1507321 1507369 1507379 1507421 1507423 1507427 1507439 1507453 1507469 1507481 1507483 1507487 1507501 1507531 1507559 1507591 1507603 1507607 1507609 1507613 1507637 1507651 1507657 1507687 1507697 1507699 1507729 1507763 1507769 1507771 1507789 1507813 1507837 1507841 1507853 1507867 1507879 1507889 1507907 1507921 1507993 1507997 1508033 1508047 1508051 1508063 1508077 1508081 1508093 1508113 1508131 1508141 1508147 1508173 1508197 1508207 1508219 1508249 1508251 1508263 1508279 1508281 1508293 1508303 1508321 1508323 1508383 1508389 1508401 1508407 1508413 1508417 1508449 1508459 1508471 1508473 1508489 1508509 1508519 1508531 1508561 1508579 1508587 1508621 1508623 1508627 1508629 1508651 1508659 1508671 1508687 1508693 1508707 1508711 1508719 1508723 1508729 1508743 1508753 1508779 1508789 1508797 1508803 1508813 1508833 1508851 1508867 1508873 1508879 1508893 1508909 1508911 1508921 1508929 1508933 1508939 1508951 1508953 1508959 1508977 1508981 1508993 1509019 1509031 1509059 1509061 1509071 1509077 1509097 1509127 1509133 1509143 1509163 1509187 1509197 1509203 1509229 1509269 1509289 1509307 1509331 1509353 1509367 1509371 1509377 1509407 1509427 1509437 1509439 1509457 1509463 1509491 1509509 1509517 1509523 1509533 1509551 1509553 1509581 1509587 1509589 1509623 1509631 1509643 1509659 1509701 1509727 1509733 1509737 1509749 1509757 1509779 1509841 1509857 1509863 1509887 1509899 1509913 1509919 1509929 1509941 1509947 1509953 1509961 1509967 1509971 1509997 1510013 1510021 1510039 1510043 1510049 1510057 1510087 1510109 1510121 1510141 1510147 1510163 1510189 1510199 1510207 1510213 1510217 1510219 1510259 1510273 1510279 1510307 1510309 1510319 1510321 1510337 1510339 1510343 1510357 1510361 1510363 1510373 1510391 1510393 1510417 1510423 1510427 1510429 1510469 1510477 1510489 1510493 1510507 1510511 1510541 1510573 1510583 1510591 1510601 1510643 1510651 1510669 1510679 1510681 1510687 1510693 1510703 1510741 1510753 1510757 1510759 1510763 1510777 1510781 1510799 1510819 1510843 1510853 1510867 1510877 1510889 1510897 1510913 1510921 1510933 1510961 1510963 1510967 1510991 1511017 1511021 1511047 1511053 1511099 1511101 1511119 1511129 1511143 1511179 1511201 1511207 1511227 1511231 1511233 1511239 1511243 1511269 1511273 1511287 1511291 1511303 1511327 1511329 1511371 1511387 1511423 1511429 1511441 1511443 1511449 1511459 1511527 1511533 1511539 1511563 1511569 1511597 1511599 1511617 1511633 1511647 1511651 1511663 1511669 1511687 1511689 1511723 1511737 1511743 1511747 1511779 1511791 1511801 1511819 1511821 1511863 1511891 1511897 1511911 1511921 1511927 1511933 1511941 1511947 1511953 1511971 1511977 1511999 1512019 1512023 1512029 1512041 1512083 1512097 1512109 1512113 1512127 1512169 1512197 1512209 1512221 1512223 1512233 1512241 1512253 1512281 1512283 1512289 1512293 1512299 1512307 1512311 1512323 1512331 1512361 1512383 1512421 1512431 1512479 1512481 1512493 1512517 1512527 1512547 1512551 1512557 1512559 1512569 1512607 1512619 1512629 1512661 1512683 1512689 1512691 1512703 1512713 1512751 1512767 1512773 1512787 1512809 1512817 1512827 1512829 1512857 1512877 1512923 1512943 1512947 1512961 1513013 1513019 1513021 1513033 1513037 1513049 1513067 1513069 1513073 1513091 1513093 1513111 1513117 1513121 1513123 1513139 1513151 1513159 1513163 1513199 1513207 1513219 1513229 1513271 1513273 1513277 1513319 1513321 1513361 1513367 1513381 1513387 1513397 1513399 1513417 1513427 1513429 1513441 1513453 1513487 1513489 1513511 1513517 1513529 1513531 1513537 1513543 1513553 1513573 1513583 1513591 1513601 1513609 1513619 1513621 1513651 1513657 1513661 1513667 1513669 1513693 1513717 1513727 1513739 1513741 1513751 1513777 1513807 1513819 1513859 1513871 1513891 1513909 1513913 1513921 1513927 1513937 1513949 1513957 1513973 1513991 1514027 1514033 1514039 1514059 1514063 1514099 1514101 1514131 1514147 1514153 1514179 1514197 1514209 1514213 1514231 1514273 1514291 1514321 1514323 1514327 1514329 1514363 1514399 1514407 1514413 1514423 1514437 1514441 1514453 1514459 1514489 1514497 1514507 1514537 1514549 1514551 1514561 1514563 1514587 1514593 1514599 1514603 1514633 1514647 1514651 1514657 1514659 1514671 1514701 1514713 1514719 1514731 1514741 1514749 1514783 1514791 1514797 1514801 1514831 1514837 1514867 1514879 1514897 1514911 1514917 1514959 1514963 1514971 1515011 1515029 1515049 1515053 1515089 1515109 1515119 1515149 1515169 1515197 1515229 1515251 1515259 1515271 1515281 1515313 1515317 1515347 1515359 1515377 1515391 1515413 1515419 1515461 1515469 1515487 1515509 1515541 1515571 1515583 1515599 1515617 1515623 1515643 1515671 1515691 1515697 1515713 1515719 1515721 1515727 1515733 1515739 1515749 1515757 1515791 1515809 1515817 1515821 1515823 1515841 1515847 1515881 1515919 1515923 1515929 1515947 1515961 1515971 1515973 1515979 1515989 1516007 1516019 1516027 1516037 1516049 1516061 1516087 1516093 1516103 1516127 1516129 1516153 1516157 1516187 1516189 1516199 1516217 1516231 1516243 1516259 1516261 1516279 1516289 1516331 1516337 1516343 1516357 1516363 1516369 1516391 1516393 1516397 1516421 1516433 1516441 1516483 1516499 1516513 1516531 1516547 1516583 1516589 1516591 1516607 1516609 1516633 1516639 1516651 1516657 1516661 1516663 1516681 1516687 1516693 1516709 1516733 1516759 1516763 1516771 1516817 1516819 1516829 1516843 1516847 1516871 1516883 1516897 1516909 1516951 1516967 1516987 1517023 1517027 1517039 1517051 1517053 1517059 1517099 1517101 1517107 1517141 1517143 1517161 1517179 1517189 1517209 1517213 1517227 1517239 1517261 1517273 1517279 1517297 1517311 1517317 1517339 1517363 1517377 1517387 1517393 1517401 1517413 1517423 1517441 1517449 1517507 1517519 1517521 1517531 1517557 1517561 1517567 1517569 1517591 1517603 1517611 1517627 1517639 1517647 1517651 1517653 1517671 1517687 1517689 1517699 1517707 1517713 1517749 1517753 1517783 1517807 1517819 1517837 1517843 1517849 1517869 1517881 1517917 1517921 1517927 1517933 1517939 1517941 1517983 1517993 1518001 1518007 1518061 1518067 1518071 1518089 1518091 1518103 1518109 1518133 1518137 1518149 1518191 1518199 1518203 1518239 1518263 1518277 1518281 1518311 1518313 1518329 1518337 1518343 1518359 1518379 1518383 1518427 1518449 1518463 1518467 1518481 1518497 1518521 1518533 1518551 1518553 1518563 1518571 1518577 1518581 1518589 1518623 1518677 1518679 1518691 1518707 1518709 1518731 1518733 1518743 1518749 1518773 1518779 1518799 1518809 1518827 1518863 1518871 1518883 1518893 1518901 1518931 1518947 1518949 1518971 1518973 1518977 1519039 1519051 1519097 1519099 1519121 1519123 1519129 1519153 1519159 1519163 1519169 1519201 1519213 1519237 1519253 1519261 1519267 1519277 1519283 1519291 1519313 1519333 1519363 1519391 1519417 1519421 1519423 1519433 1519439 1519447 1519451 1519499 1519517 1519519 1519523 1519547 1519549 1519561 1519591 1519597 1519607 1519619 1519631 1519657 1519667 1519673 1519691 1519703 1519709 1519711 1519729 1519733 1519751 1519759 1519769 1519789 1519807 1519831 1519871 1519883 1519891 1519901 1519907 1519913 1519939 1519951 1519967 1520003 1520009 1520011 1520069 1520083 1520107 1520131 1520143 1520153 1520159 1520173 1520203 1520213 1520221 1520227 1520251 1520287 1520291 1520329 1520339 1520341 1520347 1520357 1520359 1520381 1520401 1520417 1520423 1520443 1520447 1520473 1520483 1520501 1520503 1520509 1520527 1520537 1520539 1520543 1520549 1520579 1520587 1520611 1520621 1520639 1520653 1520681 1520683 1520689 1520693 1520707 1520711 1520719 1520723 1520747 1520759 1520777 1520801 1520821 1520851 1520879 1520887 1520903 1520923 1520947 1520971 1520983 1520989 1521011 1521017 1521029 1521031 1521043 1521049 1521067 1521089 1521103 1521119 1521133 1521193 1521199 1521209 1521217 1521227 1521229 1521241 1521269 1521281 1521287 1521293 1521301 1521323 1521337 1521361 1521371 1521391 1521397 1521479 1521491 1521497 1521547 1521563 1521571 1521589 1521593 1521599 1521613 1521617 1521623 1521629 1521643 1521649 1521671 1521673 1521677 1521731 1521739 1521757 1521763 1521769 1521781 1521791 1521803 1521809 1521853 1521859 1521869 1521893 1521901 1521913 1521937 1521973 1521983 1521991 1522009 1522019 1522021 1522049 1522051 1522057 1522063 1522067 1522097 1522111 1522127 1522153 1522159 1522187 1522201 1522249 1522253 1522321 1522331 1522343 1522357 1522361 1522363 1522369 1522387 1522399 1522427 1522447 1522457 1522459 1522463 1522483 1522487 1522511 1522517 1522541 1522553 1522579 1522589 1522601 1522607 1522643 1522663 1522681 1522691 1522693 1522711 1522727 1522733 1522769 1522771 1522789 1522799 1522811 1522837 1522841 1522897 1522933 1522951 1522973 1522981 1523003 1523009 1523063 1523069 1523077 1523087 1523089 1523099 1523101 1523107 1523117 1523131 1523141 1523153 1523161 1523177 1523219 1523233 1523261 1523281 1523293 1523297 1523311 1523323 1523329 1523339 1523351 1523369 1523377 1523381 1523393 1523407 1523419 1523429 1523441 1523443 1523453 1523491 1523503 1523507 1523521 1523527 1523531 1523539 1523551 1523563 1523567 1523569 1523581 1523603 1523609 1523617 1523633 1523651 1523653 1523663 1523671 1523701 1523707 1523737 1523749 1523783 1523789 1523801 1523807 1523813 1523849 1523861 1523891 1523917 1523939 1523941 1523953 1523969 1523981 1523983 1523987 1524007 1524013 1524023 1524059 1524071 1524073 1524077 1524079 1524097 1524109 1524113 1524119 1524137 1524139 1524143 1524179 1524181 1524217 1524223 1524241 1524247 1524253 1524277 1524287 1524293 1524319 1524337 1524349 1524359 1524361 1524377 1524379 1524401 1524403 1524409 1524431 1524433 1524449 1524469 1524473 1524493 1524517 1524529 1524533 1524547 1524569 1524571 1524587 1524613 1524629 1524631 1524637 1524641 1524683 1524689 1524697 1524701 1524703 1524707 1524763 1524767 1524773 1524799 1524811 1524827 1524829 1524839 1524841 1524847 1524851 1524871 1524899 1524931 1524953 1524989 1525021 1525031 1525033 1525039 1525049 1525057 1525063 1525067 1525093 1525099 1525109 1525123 1525133 1525157 1525163 1525171 1525207 1525217 1525219 1525229 1525243 1525261 1525267 1525273 1525297 1525331 1525333 1525343 1525351 1525357 1525367 1525409 1525421 1525423 1525471 1525477 1525493 1525501 1525507 1525561 1525571 1525607 1525609 1525633 1525637 1525639 1525669 1525679 1525697 1525703 1525709 1525717 1525723 1525729 1525747 1525763 1525781 1525787 1525819 1525831 1525837 1525859 1525873 1525877 1525921 1525933 1525957 1525961 1525963 1525967 1525969 1525987 1525999 1526053 1526069 1526071 1526087 1526089 1526093 1526117 1526123 1526149 1526167 1526179 1526191 1526227 1526263 1526267 1526269 1526279 1526297 1526321 1526339 1526341 1526351 1526363 1526377 1526381 1526387 1526401 1526411 1526423 1526431 1526449 1526467 1526521 1526537 1526557 1526561 1526587 1526597 1526611 1526621 1526633 1526639 1526641 1526653 1526659 1526687 1526741 1526747 1526807 1526813 1526831 1526867 1526873 1526909 1526929 1526933 1526977 1526999 1527017 1527023 1527041 1527047 1527061 1527079 1527083 1527107 1527109 1527121 1527133 1527137 1527143 1527157 1527173 1527179 1527187 1527203 1527247 1527271 1527287 1527289 1527299 1527311 1527313 1527347 1527349 1527371 1527389 1527443 1527457 1527497 1527521 1527523 1527529 1527541 1527551 1527553 1527563 1527577 1527583 1527599 1527607 1527613 1527629 1527677 1527679 1527689 1527703 1527709 1527727 1527731 1527737 1527761 1527769 1527791 1527793 1527803 1527811 1527839 1527857 1527859 1527887 1527893 1527899 1527901 1527931 1527941 1527949 1527971 1527973 1527979 1527983 1527997 1528001 1528013 1528019 1528061 1528073 1528103 1528127 1528139 1528141 1528157 1528171 1528187 1528199 1528223 1528229 1528237 1528243 1528253 1528259 1528291 1528313 1528321 1528333 1528399 1528409 1528421 1528427 1528441 1528447 1528459 1528463 1528469 1528529 1528537 1528543 1528577 1528601 1528609 1528613 1528621 1528627 1528633 1528643 1528661 1528669 1528687 1528697 1528717 1528733 1528771 1528781 1528789 1528799 1528811 1528823 1528831 1528853 1528859 1528871 1528897 1528937 1528939 1528979 1528993 1528999 1529009 1529027 1529029 1529041 1529053 1529069 1529071 1529081 1529089 1529093 1529119 1529149 1529153 1529189 1529191 1529233 1529243 1529249 1529263 1529267 1529273 1529279 1529309 1529327 1529357 1529369 1529377 1529383 1529387 1529389 1529393 1529401 1529413 1529419 1529449 1529459 1529471 1529501 1529503 1529513 1529531 1529533 1529537 1529573 1529581 1529599 1529603 1529611 1529621 1529629 1529659 1529683 1529701 1529741 1529761 1529777 1529791 1529797 1529807 1529831 1529849 1529851 1529863 1529867 1529893 1529903 1529909 1529917 1529933 1529947 1529963 1529971 1529977 1529989 1530019 1530037 1530071 1530073 1530077 1530091 1530097 1530103 1530107 1530131 1530143 1530149 1530157 1530173 1530197 1530227 1530229 1530233 1530281 1530293 1530311 1530313 1530329 1530343 1530349 1530409 1530457 1530511 1530517 1530521 1530523 1530539 1530541 1530553 1530559 1530569 1530589 1530601 1530611 1530623 1530631 1530647 1530667 1530679 1530691 1530703 1530709 1530713 1530721 1530779 1530791 1530803 1530827 1530829 1530839 1530847 1530853 1530863 1530869 1530871 1530911 1530913 1530937 1530943 1530953 1530967 1531021 1531027 1531031 1531051 1531081 1531091 1531093 1531111 1531129 1531147 1531157 1531181 1531199 1531217 1531253 1531279 1531297 1531303 1531331 1531333 1531337 1531357 1531367 1531373 1531379 1531447 1531469 1531477 1531487 1531499 1531549 1531561 1531567 1531591 1531619 1531627 1531631 1531633 1531657 1531661 1531669 1531681 1531697 1531709 1531721 1531729 1531769 1531793 1531807 1531811 1531813 1531843 1531847 1531861 1531897 1531909 1531987 1531991 1531997 1532009 1532017 1532021 1532029 1532033 1532039 1532077 1532081 1532093 1532107 1532117 1532123 1532131 1532143 1532161 1532173 1532183 1532231 1532243 1532249 1532257 1532287 1532291 1532303 1532327 1532351 1532353 1532359 1532371 1532413 1532449 1532471 1532507 1532543 1532551 1532579 1532581 1532593 1532603 1532611 1532627 1532633 1532639 1532647 1532659 1532681 1532693 1532701 1532719 1532723 1532731 1532767 1532779 1532803 1532827 1532833 1532849 1532887 1532899 1532903 1532917 1532929 1532933 1532957 1532963 1532983 1532987 1533029 1533041 1533083 1533101 1533107 1533109 1533127 1533137 1533139 1533163 1533197 1533199 1533211 1533221 1533239 1533283 1533293 1533307 1533313 1533331 1533347 1533379 1533397 1533401 1533407 1533431 1533437 1533439 1533443 1533457 1533461 1533463 1533481 1533487 1533503 1533517 1533527 1533533 1533557 1533583 1533593 1533599 1533619 1533629 1533643 1533659 1533673 1533683 1533691 1533713 1533731 1533743 1533793 1533797 1533799 1533809 1533817 1533841 1533871 1533877 1533881 1533899 1533901 1533907 1533937 1533947 1533953 1533971 1533977 1534019 1534021 1534051 1534061 1534067 1534069 1534073 1534081 1534103 1534121 1534133 1534139 1534147 1534151 1534153 1534171 1534189 1534207 1534213 1534217 1534219 1534223 1534289 1534321 1534327 1534331 1534349 1534373 1534397 1534411 1534451 1534453 1534457 1534483 1534499 1534513 1534517 1534549 1534579 1534591 1534601 1534609 1534633 1534657 1534661 1534667 1534727 1534739 1534751 1534783 1534787 1534789 1534823 1534837 1534843 1534853 1534861 1534873 1534889 1534901 1534921 1534931 1534957 1534961 1534963 1534969 1534979 1534993 1535011 1535041 1535069 1535071 1535077 1535101 1535111 1535119 1535123 1535137 1535153 1535179 1535243 1535249 1535269 1535279 1535291 1535293 1535299 1535311 1535323 1535341 1535351 1535353 1535363 1535377 1535381 1535393 1535441 1535453 1535459 1535467 1535473 1535477 1535489 1535497 1535507 1535531 1535539 1535543 1535563 1535581 1535587 1535603 1535609 1535621 1535629 1535663 1535669 1535671 1535689 1535717 1535719 1535741 1535747 1535761 1535767 1535773 1535777 1535791 1535803 1535813 1535837 1535843 1535857 1535861 1535867 1535879 1535909 1535923 1535929 1535939 1535959 1535969 1535971 1535987 1536011 1536013 1536023 1536037 1536047 1536049 1536077 1536083 1536097 1536107 1536121 1536133 1536149 1536167 1536173 1536187 1536191 1536211 1536221 1536251 1536257 1536263 1536281 1536287 1536343 1536349 1536373 1536389 1536401 1536439 1536467 1536487 1536497 1536527 1536533 1536539 1536547 1536553 1536581 1536583 1536589 1536593 1536599 1536611 1536617 1536631 1536641 1536643 1536649 1536659 1536673 1536677 1536679 1536683 1536719 1536737 1536781 1536793 1536809 1536811 1536823 1536839 1536881 1536889 1536893 1536907 1536959 1536961 1536989 1536991 1537001 1537007 1537013 1537027 1537031 1537037 1537051 1537061 1537099 1537141 1537147 1537153 1537163 1537169 1537177 1537183 1537199 1537223 1537241 1537247 1537279 1537301 1537337 1537357 1537369 1537373 1537391 1537397 1537399 1537411 1537421 1537427 1537439 1537441 1537457 1537469 1537489 1537513 1537517 1537559 1537561 1537607 1537621 1537639 1537643 1537661 1537681 1537691 1537709 1537721 1537729 1537751 1537771 1537799 1537801 1537807 1537813 1537819 1537847 1537853 1537867 1537883 1537889 1537897 1537933 1537937 1537961 1537967 1537969 1537997 1537999 1538011 1538023 1538027 1538029 1538039 1538057 1538059 1538077 1538081 1538083 1538087 1538093 1538101 1538111 1538167 1538179 1538191 1538203 1538213 1538227 1538233 1538261 1538267 1538281 1538293 1538311 1538321 1538353 1538389 1538393 1538399 1538413 1538419 1538429 1538441 1538461 1538473 1538491 1538501 1538503 1538507 1538519 1538531 1538569 1538573 1538587 1538597 1538599 1538609 1538611 1538617 1538627 1538629 1538633 1538657 1538701 1538731 1538743 1538773 1538777 1538807 1538837 1538839 1538851 1538879 1538893 1538909 1538917 1538939 1538951 1538963 1538983 1538989 1539011 1539029 1539049 1539053 1539073 1539103 1539127 1539149 1539193 1539199 1539211 1539217 1539227 1539253 1539257 1539259 1539281 1539301 1539313 1539331 1539347 1539359 1539389 1539397 1539403 1539449 1539451 1539463 1539467 1539479 1539521 1539547 1539557 1539563 1539569 1539583 1539613 1539619 1539641 1539649 1539653 1539661 1539679 1539691 1539719 1539721 1539731 1539737 1539763 1539773 1539793 1539799 1539821 1539847 1539859 1539869 1539883 1539887 1539913 1539917 1539943 1539961 1539971 1539973 1539983 1539991 1539997 1540003 1540009 1540027 1540031 1540039 1540073 1540079 1540087 1540109 1540141 1540151 1540153 1540157 1540169 1540171 1540177 1540193 1540207 1540211 1540223 1540229 1540243 1540249 1540289 1540309 1540321 1540337 1540367 1540403 1540423 1540447 1540453 1540477 1540481 1540499 1540541 1540543 1540559 1540573 1540603 1540619 1540621 1540631 1540639 1540661 1540673 1540681 1540687 1540697 1540699 1540709 1540711 1540751 1540753 1540783 1540787 1540789 1540807 1540813 1540823 1540831 1540841 1540849 1540859 1540867 1540871 1540873 1540879 1540901 1540927 1540949 1540961 1540963 1540967 1540969 1540997 1541003 1541009 1541051 1541063 1541117 1541119 1541143 1541171 1541191 1541209 1541251 1541273 1541279 1541291 1541297 1541303 1541317 1541333 1541341 1541347 1541357 1541359 1541363 1541377 1541381 1541389 1541429 1541431 1541453 1541471 1541497 1541503 1541513 1541539 1541581 1541591 1541597 1541629 1541651 1541663 1541671 1541681 1541689 1541693 1541699 1541707 1541731 1541773 1541779 1541783 1541791 1541797 1541809 1541819 1541821 1541863 1541867 1541873 1541899 1541921 1541923 1541933 1541941 1541957 1541963 1541987 1541999 1542007 1542029 1542031 1542041 1542043 1542071 1542077 1542089 1542091 1542119 1542131 1542137 1542179 1542187 1542193 1542217 1542221 1542239 1542251 1542259 1542283 1542347 1542349 1542361 1542377 1542383 1542421 1542433 1542451 1542473 1542479 1542487 1542503 1542509 1542511 1542517 1542521 1542523 1542533 1542551 1542571 1542581 1542589 1542599 1542661 1542689 1542691 1542703 1542727 1542811 1542823 1542841 1542851 1542881 1542889 1542899 1542911 1542917 1542941 1542973 1542991 1542997 1543007 1543013 1543019 1543033 1543037 1543051 1543063 1543067 1543081 1543099 1543103 1543111 1543127 1543133 1543169 1543181 1543187 1543207 1543229 1543259 1543271 1543279 1543291 1543309 1543319 1543337 1543357 1543391 1543393 1543417 1543429 1543441 1543463 1543489 1543501 1543511 1543513 1543537 1543543 1543559 1543589 1543631 1543637 1543639 1543649 1543687 1543709 1543733 1543741 1543777 1543793 1543811 1543813 1543819 1543823 1543859 1543879 1543891 1543909 1543951 1543961 1543979 1543981 1543999 1544003 1544021 1544027 1544033 1544051 1544063 1544071 1544077 1544083 1544113 1544119 1544129 1544131 1544159 1544167 1544171 1544177 1544201 1544209 1544219 1544227 1544311 1544317 1544341 1544357 1544363 1544383 1544407 1544423 1544437 1544441 1544449 1544479 1544483 1544489 1544503 1544507 1544509 1544527 1544533 1544537 1544563 1544573 1544623 1544633 1544651 1544659 1544663 1544693 1544729 1544789 1544831 1544849 1544863 1544869 1544891 1544903 1544923 1544929 1544941 1544957 1544987 1545001 1545007 1545017 1545029 1545041 1545043 1545059 1545067 1545073 1545097 1545101 1545107 1545121 1545127 1545139 1545143 1545169 1545179 1545217 1545233 1545239 1545241 1545253 1545259 1545277 1545287 1545311 1545329 1545343 1545353 1545361 1545367 1545371 1545389 1545391 1545421 1545431 1545433 1545449 1545461 1545473 1545493 1545499 1545503 1545529 1545539 1545547 1545553 1545563 1545569 1545581 1545587 1545617 1545619 1545641 1545647 1545653 1545667 1545701 1545703 1545743 1545751 1545769 1545773 1545779 1545799 1545809 1545811 1545839 1545847 1545857 1545871 1545911 1545913 1545917 1545949 1545959 1545983 1545989 1546003 1546033 1546057 1546073 1546081 1546093 1546117 1546121 1546141 1546147 1546157 1546189 1546199 1546211 1546217 1546219 1546229 1546231 1546241 1546247 1546261 1546271 1546273 1546291 1546297 1546301 1546327 1546351 1546357 1546361 1546379 1546387 1546393 1546399 1546403 1546423 1546453 1546463 1546469 1546477 1546499 1546537 1546547 1546549 1546627 1546639 1546663 1546669 1546679 1546687 1546697 1546709 1546729 1546757 1546759 1546781 1546799 1546823 1546837 1546861 1546873 1546879 1546901 1546903 1546907 1546927 1546939 1546967 1546969 1546981 1546991 1546997 1547009 1547023 1547027 1547069 1547093 1547101 1547129 1547131 1547173 1547177 1547191 1547197 1547201 1547207 1547213 1547239 1547251 1547257 1547261 1547267 1547339 1547347 1547383 1547389 1547407 1547419 1547423 1547431 1547437 1547449 1547453 1547471 1547477 1547479 1547501 1547519 1547521 1547537 1547543 1547563 1547573 1547591 1547593 1547597 1547603 1547641 1547657 1547659 1547671 1547677 1547713 1547717 1547719 1547723 1547771 1547773 1547779 1547803 1547807 1547827 1547837 1547839 1547849 1547857 1547879 1547881 1547893 1547921 1547927 1547929 1547939 1547941 1547947 1547951 1547989 1547993 1548031 1548059 1548067 1548073 1548083 1548097 1548103 1548121 1548137 1548143 1548149 1548161 1548179 1548181 1548187 1548221 1548247 1548251 1548277 1548307 1548311 1548317 1548331 1548347 1548359 1548389 1548401 1548409 1548427 1548433 1548451 1548461 1548493 1548497 1548517 1548527 1548539 1548541 1548553 1548577 1548587 1548593 1548619 1548623 1548641 1548647 1548653 1548719 1548721 1548733 1548739 1548761 1548763 1548769 1548779 1548787 1548793 1548847 1548871 1548881 1548893 1548901 1548913 1548917 1548923 1548929 1548941 1548947 1548949 1548961 1548983 1548991 1548997 1549003 1549033 1549049 1549061 1549081 1549087 1549099 1549129 1549139 1549157 1549169 1549183 1549199 1549213 1549271 1549277 1549283 1549319 1549321 1549351 1549367 1549369 1549391 1549403 1549409 1549417 1549439 1549447 1549459 1549463 1549477 1549481 1549489 1549501 1549511 1549519 1549529 1549531 1549547 1549549 1549553 1549573 1549577 1549609 1549619 1549631 1549657 1549699 1549733 1549739 1549741 1549787 1549817 1549831 1549837 1549843 1549853 1549883 1549897 1549921 1549931 1549937 1549943 1549957 1549981 1549987 1549997 1550027 1550033 1550051 1550053 1550069 1550083 1550099 1550119 1550141 1550147 1550161 1550167 1550173 1550203 1550207 1550209 1550221 1550231 1550233 1550243 1550257 1550287 1550299 1550309 1550321 1550327 1550359 1550363 1550371 1550377 1550387 1550401 1550413 1550431 1550441 1550443 1550449 1550467 1550477 1550503 1550509 1550513 1550539 1550551 1550567 1550597 1550603 1550611 1550617 1550629 1550663 1550669 1550693 1550701 1550737 1550741 1550753 1550771 1550777 1550779 1550789 1550819 1550827 1550831 1550851 1550873 1550897 1550947 1550963 1550971 1550993 1550999 1551001 1551013 1551019 1551037 1551041 1551049 1551083 1551089 1551107 1551113 1551133 1551157 1551163 1551167 1551191 1551197 1551203 1551229 1551241 1551269 1551289 1551343 1551371 1551383 1551449 1551463 1551467 1551479 1551497 1551499 1551551 1551577 1551593 1551601 1551617 1551619 1551623 1551647 1551659 1551661 1551677 1551691 1551701 1551707 1551731 1551733 1551757 1551763 1551773 1551791 1551793 1551853 1551859 1551871 1551883 1551887 1551889 1551899 1551911 1551917 1551919 1551929 1551943 1551959 1551961 1551967 1551997 1552007 1552037 1552079 1552087 1552121 1552123 1552147 1552169 1552207 1552217 1552223 1552237 1552241 1552277 1552289 1552297 1552307 1552333 1552337 1552351 1552367 1552373 1552379 1552381 1552393 1552403 1552417 1552451 1552469 1552501 1552513 1552517 1552531 1552541 1552543 1552553 1552561 1552567 1552571 1552583 1552589 1552597 1552613 1552619 1552643 1552651 1552657 1552669 1552693 1552709 1552723 1552757 1552781 1552807 1552819 1552843 1552861 1552867 1552871 1552879 1552909 1552913 1552919 1552949 1552963 1552981 1552987 1552997 1553009 1553011 1553017 1553023 1553053 1553063 1553081 1553089 1553093 1553099 1553107 1553119 1553129 1553147 1553159 1553173 1553177 1553191 1553249 1553281 1553287 1553291 1553309 1553311 1553329 1553333 1553339 1553347 1553369 1553381 1553389 1553401 1553407 1553413 1553417 1553423 1553429 1553437 1553467 1553471 1553479 1553507 1553509 1553527 1553537 1553543 1553557 1553561 1553567 1553597 1553653 1553701 1553707 1553711 1553723 1553729 1553737 1553743 1553753 1553771 1553803 1553807 1553809 1553821 1553837 1553869 1553873 1553887 1553897 1553927 1553947 1553971 1553983 1554019 1554043 1554073 1554083 1554101 1554103 1554107 1554151 1554169 1554173 1554193 1554221 1554227 1554233 1554239 1554277 1554281 1554283 1554299 1554307 1554347 1554349 1554359 1554367 1554379 1554383 1554391 1554401 1554419 1554439 1554451 1554461 1554521 1554529 1554559 1554569 1554583 1554589 1554611 1554613 1554653 1554659 1554697 1554733 1554737 1554739 1554757 1554779 1554781 1554797 1554811 1554821 1554841 1554853 1554863 1554877 1554881 1554899 1554913 1554977 1554989 1555013 1555027 1555033 1555039 1555051 1555061 1555079 1555091 1555111 1555117 1555123 1555129 1555133 1555153 1555157 1555159 1555163 1555187 1555189 1555193 1555199 1555223 1555231 1555243 1555247 1555249 1555259 1555261 1555289 1555291 1555319 1555327 1555343 1555349 1555409 1555423 1555429 1555469 1555471 1555481 1555507 1555523 1555529 1555553 1555571 1555573 1555579 1555607 1555613 1555633 1555637 1555639 1555643 1555657 1555661 1555679 1555691 1555693 1555699 1555711 1555717 1555727 1555733 1555751 1555759 1555781 1555787 1555793 1555817 1555819 1555831 1555837 1555847 1555861 1555901 1555907 1555913 1555919 1555943 1555951 1555963 1555969 1555997 1555999 1556003 1556011 1556017 1556039 1556059 1556069 1556083 1556117 1556147 1556173 1556179 1556189 1556201 1556251 1556263 1556267 1556297 1556323 1556327 1556329 1556339 1556351 1556363 1556369 1556371 1556393 1556413 1556431 1556441 1556449 1556453 1556473 1556491 1556501 1556509 1556519 1556551 1556561 1556563 1556567 1556573 1556587 1556591 1556609 1556623 1556641 1556657 1556669 1556671 1556717 1556719 1556747 1556759 1556761 1556767 1556771 1556773 1556791 1556837 1556839 1556869 1556873 1556881 1556897 1556909 1556927 1556963 1556977 1557001 1557007 1557019 1557029 1557041 1557043 1557053 1557067 1557079 1557089 1557091 1557103 1557109 1557113 1557119 1557131 1557137 1557151 1557211 1557239 1557247 1557287 1557289 1557301 1557313 1557337 1557341 1557343 1557359 1557371 1557377 1557389 1557397 1557403 1557407 1557419 1557427 1557433 1557443 1557469 1557481 1557499 1557509 1557547 1557551 1557559 1557593 1557607 1557613 1557623 1557637 1557641 1557649 1557653 1557667 1557707 1557709 1557733 1557763 1557769 1557797 1557823 1557833 1557839 1557869 1557883 1557889 1557947 1557949 1557973 1557991 1558009 1558061 1558079 1558087 1558099 1558103 1558129 1558177 1558189 1558201 1558213 1558217 1558223 1558243 1558267 1558279 1558283 1558289 1558303 1558307 1558309 1558313 1558321 1558327 1558343 1558351 1558357 1558387 1558397 1558409 1558423 1558439 1558483 1558511 1558517 1558523 1558541 1558559 1558561 1558573 1558597 1558619 1558631 1558637 1558643 1558651 1558673 1558681 1558691 1558709 1558717 1558727 1558729 1558757 1558759 1558771 1558787 1558789 1558807 1558811 1558813 1558819 1558829 1558831 1558841 1558867 1558873 1558877 1558891 1558901 1558913 1558919 1558933 1558937 1558939 1558967 1558979 1558981 1559017 1559057 1559059 1559093 1559113 1559119 1559123 1559153 1559161 1559171 1559177 1559183 1559203 1559209 1559213 1559227 1559267 1559281 1559297 1559303 1559329 1559333 1559347 1559351 1559357 1559399 1559407 1559431 1559443 1559447 1559449 1559473 1559477 1559479 1559483 1559491 1559521 1559527 1559531 1559549 1559573 1559581 1559603 1559609 1559611 1559617 1559647 1559651 1559669 1559683 1559689 1559713 1559731 1559749 1559759 1559773 1559777 1559797 1559807 1559821 1559839 1559849 1559851 1559879 1559891 1559893 1559933 1559963 1559969 1559983 1559989 1560007 1560011 1560023 1560037 1560047 1560049 1560059 1560077 1560121 1560127 1560131 1560133 1560149 1560187 1560193 1560203 1560211 1560217 1560227 1560239 1560241 1560257 1560263 1560271 1560289 1560313 1560371 1560407 1560409 1560421 1560443 1560457 1560473 1560511 1560523 1560529 1560539 1560547 1560569 1560589 1560593 1560653 1560659 1560673 1560677 1560683 1560707 1560709 1560733 1560739 1560743 1560749 1560781 1560799 1560817 1560847 1560859 1560877 1560883 1560893 1560901 1560913 1560953 1560967 1560973 1560997 1561003 1561013 1561019 1561037 1561039 1561069 1561111 1561117 1561121 1561123 1561139 1561151 1561159 1561163 1561169 1561187 1561193 1561213 1561243 1561247 1561267 1561279 1561303 1561337 1561349 1561367 1561393 1561421 1561423 1561429 1561453 1561457 1561463 1561499 1561519 1561529 1561537 1561541 1561559 1561577 1561579 1561589 1561597 1561601 1561607 1561633 1561639 1561657 1561673 1561697 1561711 1561727 1561741 1561753 1561757 1561759 1561801 1561817 1561823 1561829 1561883 1561891 1561919 1562051 1562053 1562063 1562081 1562087 1562089 1562101 1562107 1562111 1562129 1562131 1562159 1562173 1562191 1562207 1562219 1562243 1562263 1562269 1562279 1562287 1562291 1562293 1562347 1562357 1562359 1562371 1562377 1562381 1562411 1562417 1562423 1562447 1562471 1562513 1562527 1562531 1562543 1562567 1562591 1562593 1562611 1562647 1562653 1562707 1562713 1562719 1562753 1562833 1562863 1562867 1562887 1562933 1562947 1562971 1562983 1562993 1562999 1563017 1563019 1563041 1563047 1563061 1563077 1563083 1563091 1563097 1563101 1563109 1563119 1563131 1563137 1563143 1563157 1563161 1563209 1563217 1563227 1563229 1563239 1563253 1563257 1563259 1563271 1563277 1563281 1563283 1563293 1563319 1563329 1563389 1563407 1563409 1563413 1563421 1563427 1563431 1563433 1563449 1563461 1563467 1563469 1563481 1563487 1563503 1563511 1563533 1563539 1563571 1563577 1563599 1563619 1563623 1563629 1563631 1563649 1563689 1563703 1563707 1563739 1563743 1563773 1563791 1563811 1563817 1563829 1563851 1563893 1563901 1563911 1563937 1563943 1563959 1563967 1563971 1563973 1564001 1564007 1564037 1564049 1564063 1564067 1564081 1564091 1564097 1564103 1564111 1564117 1564139 1564151 1564159 1564183 1564237 1564243 1564307 1564309 1564313 1564337 1564349 1564361 1564363 1564369 1564373 1564379 1564393 1564399 1564411 1564417 1564421 1564427 1564457 1564487 1564499 1564501 1564543 1564553 1564559 1564571 1564573 1564597 1564603 1564643 1564657 1564679 1564699 1564721 1564729 1564741 1564747 1564751 1564777 1564781 1564807 1564831 1564837 1564853 1564861 1564877 1564907 1564909 1564921 1564933 1564949 1564991 1564993 1564999 1565009 1565017 1565023 1565027 1565033 1565041 1565051 1565059 1565099 1565117 1565129 1565141 1565149 1565153 1565167 1565171 1565177 1565183 1565189 1565191 1565203 1565209 1565233 1565251 1565261 1565269 1565281 1565287 1565293 1565323 1565341 1565351 1565381 1565383 1565413 1565437 1565441 1565471 1565489 1565491 1565519 1565521 1565539 1565549 1565561 1565563 1565569 1565579 1565591 1565609 1565611 1565651 1565659 1565671 1565693 1565737 1565741 1565743 1565747 1565789 1565791 1565807 1565813 1565821 1565827 1565833 1565867 1565869 1565873 1565891 1565897 1565911 1565917 1565929 1565933 1565947 1565969 1565987 1566031 1566043 1566049 1566079 1566083 1566101 1566107 1566121 1566137 1566143 1566163 1566179 1566197 1566199 1566209 1566211 1566217 1566239 1566251 1566263 1566281 1566283 1566289 1566307 1566343 1566349 1566353 1566359 1566371 1566401 1566403 1566427 1566449 1566451 1566479 1566517 1566529 1566559 1566571 1566577 1566583 1566613 1566637 1566659 1566673 1566731 1566739 1566743 1566749 1566751 1566767 1566769 1566779 1566793 1566811 1566821 1566823 1566827 1566847 1566857 1566881 1566883 1566889 1566893 1566923 1566937 1566953 1566997 1567001 1567003 1567031 1567037 1567039 1567057 1567067 1567079 1567087 1567103 1567109 1567117 1567127 1567133 1567141 1567147 1567169 1567171 1567219 1567249 1567259 1567261 1567271 1567297 1567301 1567303 1567327 1567333 1567339 1567343 1567361 1567373 1567409 1567411 1567429 1567469 1567477 1567483 1567487 1567493 1567499 1567513 1567541 1567549 1567567 1567589 1567603 1567607 1567627 1567637 1567661 1567667 1567679 1567693 1567721 1567729 1567759 1567771 1567789 1567829 1567837 1567847 1567901 1567903 1567931 1567981 1567987 1567999 1568033 1568041 1568053 1568087 1568107 1568123 1568129 1568141 1568143 1568153 1568159 1568173 1568179 1568207 1568213 1568221 1568243 1568251 1568257 1568263 1568293 1568309 1568341 1568351 1568353 1568377 1568389 1568419 1568423 1568449 1568453 1568459 1568503 1568509 1568519 1568521 1568533 1568543 1568561 1568563 1568579 1568599 1568629 1568657 1568687 1568729 1568741 1568767 1568771 1568867 1568873 1568891 1568909 1568921 1568923 1568927 1568933 1568951 1568969 1568971 1568977 1568993 1569011 1569013 1569023 1569047 1569053 1569097 1569101 1569121 1569131 1569149 1569157 1569163 1569173 1569181 1569187 1569203 1569209 1569241 1569257 1569259 1569263 1569289 1569301 1569307 1569311 1569317 1569319 1569329 1569331 1569349 1569367 1569391 1569397 1569401 1569413 1569431 1569443 1569473 1569479 1569487 1569517 1569541 1569551 1569553 1569599 1569611 1569619 1569637 1569643 1569649 1569677 1569703 1569731 1569749 1569781 1569787 1569793 1569803 1569811 1569817 1569833 1569839 1569859 1569889 1569901 1569923 1569937 1569961 1569977 1569983 1570007 1570043 1570061 1570067 1570073 1570081 1570087 1570091 1570097 1570099 1570117 1570123 1570189 1570193 1570199 1570229 1570237 1570241 1570267 1570271 1570291 1570319 1570339 1570343 1570351 1570357 1570381 1570399 1570421 1570427 1570433 1570447 1570451 1570453 1570487 1570493 1570501 1570519 1570531 1570577 1570603 1570607 1570619 1570631 1570633 1570637 1570649 1570663 1570697 1570729 1570753 1570759 1570763 1570769 1570771 1570781 1570837 1570841 1570847 1570859 1570871 1570873 1570879 1570883 1570889 1570897 1570903 1570913 1570927 1570931 1570937 1570951 1570957 1570963 1570967 1570981 1570991 1570999 1571023 1571027 1571029 1571093 1571113 1571137 1571149 1571183 1571189 1571201 1571209 1571221 1571233 1571237 1571239 1571267 1571287 1571309 1571329 1571363 1571377 1571387 1571393 1571411 1571417 1571419 1571461 1571467 1571477 1571513 1571551 1571569 1571579 1571587 1571611 1571621 1571629 1571657 1571663 1571681 1571683 1571707 1571711 1571719 1571729 1571741 1571743 1571747 1571749 1571761 1571777 1571783 1571789 1571807 1571827 1571833 1571839 1571849 1571873 1571881 1571893 1571897 1571923 1571929 1571953 1571957 1571959 1571989 1572017 1572023 1572029 1572047 1572083 1572091 1572097 1572101 1572113 1572149 1572163 1572187 1572191 1572203 1572217 1572239 1572247 1572251 1572253 1572271 1572281 1572283 1572287 1572323 1572331 1572341 1572353 1572359 1572367 1572377 1572379 1572401 1572407 1572419 1572427 1572433 1572443 1572509 1572511 1572521 1572539 1572547 1572559 1572569 1572577 1572587 1572589 1572607 1572617 1572629 1572643 1572647 1572677 1572679 1572689 1572713 1572731 1572749 1572751 1572773 1572799 1572803 1572821 1572841 1572853 1572869 1572871 1572887 1572911 1572919 1572929 1572997 1573009 1573021 1573037 1573051 1573057 1573079 1573081 1573087 1573109 1573111 1573133 1573139 1573141 1573151 1573153 1573183 1573193 1573207 1573217 1573237 1573283 1573301 1573303 1573339 1573357 1573379 1573387 1573391 1573399 1573477 1573483 1573487 1573501 1573541 1573543 1573547 1573549 1573553 1573577 1573603 1573613 1573643 1573651 1573667 1573669 1573679 1573699 1573709 1573717 1573723 1573727 1573753 1573771 1573799 1573811 1573813 1573823 1573829 1573837 1573879 1573907 1573909 1573921 1573927 1573931 1573933 1573937 1573939 1573961 1573969 1573973 1573997 1574003 1574009 1574011 1574029 1574039 1574057 1574059 1574071 1574107 1574123 1574129 1574137 1574159 1574161 1574173 1574197 1574201 1574219 1574231 1574249 1574269 1574311 1574317 1574333 1574341 1574357 1574369 1574371 1574393 1574401 1574411 1574431 1574437 1574467 1574479 1574491 1574501 1574527 1574543 1574563 1574569 1574579 1574597 1574611 1574623 1574627 1574647 1574653 1574669 1574681 1574717 1574737 1574747 1574773 1574791 1574827 1574843 1574849 1574857 1574869 1574873 1574917 1574939 1574953 1574957 1574981 1574987 1575011 1575029 1575031 1575071 1575083 1575113 1575131 1575137 1575139 1575143 1575151 1575187 1575199 1575209 1575227 1575239 1575253 1575263 1575269 1575281 1575283 1575289 1575307 1575331 1575337 1575341 1575397 1575401 1575421 1575433 1575437 1575443 1575463 1575467 1575473 1575479 1575481 1575517 1575521 1575547 1575551 1575557 1575583 1575593 1575617 1575631 1575641 1575643 1575647 1575653 1575659 1575677 1575683 1575697 1575709 1575731 1575733 1575757 1575767 1575811 1575817 1575829 1575869 1575887 1575913 1575919 1575961 1575989 1575991 1576007 1576013 1576021 1576033 1576037 1576039 1576049 1576073 1576093 1576097 1576103 1576111 1576117 1576139 1576177 1576229 1576241 1576243 1576247 1576277 1576283 1576321 1576339 1576343 1576357 1576363 1576391 1576403 1576417 1576483 1576493 1576499 1576501 1576507 1576511 1576517 1576537 1576543 1576559 1576571 1576579 1576583 1576613 1576649 1576651 1576661 1576669 1576693 1576703 1576717 1576721 1576723 1576747 1576763 1576769 1576777 1576781 1576793 1576837 1576843 1576849 1576871 1576879 1576889 1576891 1576907 1576921 1576931 1576951 1576957 1576973 1576997 1577021 1577027 1577071 1577099 1577101 1577117 1577119 1577137 1577143 1577153 1577183 1577189 1577201 1577203 1577221 1577231 1577267 1577291 1577293 1577297 1577299 1577309 1577321 1577341 1577353 1577357 1577377 1577383 1577431 1577449 1577453 1577479 1577489 1577503 1577507 1577509 1577531 1577533 1577539 1577561 1577567 1577573 1577579 1577591 1577599 1577623 1577657 1577659 1577663 1577671 1577689 1577699 1577701 1577711 1577729 1577759 1577767 1577801 1577813 1577839 1577843 1577879 1577897 1577903 1577909 1577941 1577959 1577963 1577987 1577999 1578001 1578011 1578019 1578023 1578029 1578043 1578047 1578061 1578077 1578091 1578133 1578169 1578193 1578217 1578221 1578257 1578277 1578281 1578289 1578293 1578299 1578323 1578347 1578361 1578389 1578397 1578407 1578439 1578469 1578509 1578517 1578553 1578581 1578607 1578611 1578631 1578641 1578701 1578713 1578719 1578727 1578749 1578769 1578779 1578793 1578803 1578809 1578821 1578823 1578833 1578839 1578851 1578853 1578859 1578877 1578883 1578911 1578931 1578961 1578979 1579001 1579009 1579013 1579027 1579031 1579037 1579043 1579051 1579057 1579091 1579099 1579103 1579139 1579141 1579163 1579169 1579183 1579187 1579217 1579219 1579231 1579297 1579313 1579321 1579339 1579343 1579363 1579367 1579381 1579397 1579399 1579421 1579429 1579439 1579469 1579511 1579517 1579541 1579553 1579561 1579579 1579583 1579597 1579609 1579619 1579621 1579631 1579637 1579639 1579651 1579673 1579703 1579723 1579727 1579733 1579751 1579769 1579783 1579807 1579813 1579819 1579867 1579873 1579883 1579889 1579901 1579909 1579931 1579933 1579951 1579969 1579979 1579993 1580003 1580023 1580027 1580041 1580053 1580057 1580081 1580087 1580107 1580119 1580141 1580171 1580177 1580203 1580213 1580251 1580273 1580279 1580309 1580339 1580351 1580357 1580387 1580393 1580417 1580419 1580429 1580431 1580437 1580441 1580459 1580461 1580479 1580483 1580489 1580503 1580521 1580533 1580561 1580567 1580573 1580581 1580617 1580627 1580633 1580647 1580651 1580653 1580671 1580687 1580699 1580707 1580713 1580717 1580737 1580753 1580759 1580771 1580773 1580797 1580801 1580849 1580851 1580861 1580897 1580911 1580921 1580923 1580959 1580977 1580987 1581007 1581011 1581037 1581053 1581061 1581071 1581077 1581079 1581091 1581101 1581113 1581131 1581157 1581163 1581169 1581191 1581193 1581211 1581257 1581271 1581287 1581299 1581311 1581317 1581367 1581379 1581413 1581421 1581431 1581439 1581443 1581449 1581469 1581473 1581479 1581487 1581499 1581533 1581539 1581553 1581577 1581581 1581607 1581611 1581623 1581637 1581649 1581653 1581673 1581707 1581709 1581719 1581721 1581737 1581743 1581751 1581757 1581829 1581857 1581859 1581869 1581889 1581911 1581919 1581929 1581949 1582001 1582019 1582033 1582043 1582069 1582079 1582081 1582109 1582117 1582127 1582151 1582159 1582169 1582171 1582177 1582247 1582267 1582283 1582297 1582319 1582337 1582351 1582363 1582381 1582387 1582391 1582393 1582409 1582429 1582447 1582459 1582463 1582489 1582517 1582531 1582541 1582549 1582573 1582577 1582579 1582583 1582589 1582597 1582621 1582673 1582697 1582703 1582709 1582729 1582753 1582759 1582799 1582811 1582813 1582877 1582901 1582927 1582937 1582949 1582957 1582961 1582963 1582967 1582981 1582991 1583003 1583027 1583033 1583039 1583047 1583053 1583089 1583093 1583107 1583117 1583149 1583161 1583167 1583171 1583177 1583191 1583203 1583233 1583249 1583273 1583287 1583291 1583293 1583299 1583311 1583321 1583339 1583347 1583353 1583357 1583359 1583369 1583447 1583459 1583471 1583497 1583509 1583521 1583531 1583539 1583591 1583599 1583629 1583651 1583653 1583657 1583671 1583689 1583731 1583741 1583749 1583753 1583761 1583767 1583773 1583801 1583807 1583809 1583833 1583837 1583843 1583851 1583861 1583863 1583867 1583887 1583899 1583909 1583917 1583927 1583929 1583999 1584001 1584017 1584031 1584047 1584059 1584083 1584101 1584103 1584113 1584127 1584137 1584139 1584151 1584157 1584169 1584203 1584227 1584257 1584259 1584269 1584283 1584307 1584311 1584343 1584367 1584371 1584389 1584403 1584409 1584413 1584431 1584433 1584437 1584439 1584469 1584481 1584487 1584491 1584509 1584547 1584551 1584571 1584577 1584607 1584613 1584623 1584629 1584641 1584643 1584697 1584701 1584703 1584721 1584731 1584743 1584767 1584797 1584811 1584827 1584829 1584881 1584889 1584899 1584901 1584929 1584931 1584941 1584943 1584949 1584959 1584967 1584971 1584983 1585007 1585009 1585013 1585021 1585027 1585033 1585093 1585127 1585147 1585201 1585219 1585249 1585253 1585261 1585279 1585289 1585291 1585313 1585319 1585373 1585387 1585393 1585399 1585411 1585427 1585447 1585457 1585469 1585477 1585481 1585483 1585489 1585499 1585513 1585523 1585537 1585541 1585547 1585559 1585583 1585589 1585603 1585631 1585637 1585657 1585663 1585669 1585673 1585679 1585687 1585697 1585699 1585723 1585747 1585763 1585769 1585799 1585819 1585889 1585897 1585901 1585937 1585963 1585967 1585973 1585993 1586023 1586027 1586041 1586077 1586089 1586093 1586099 1586111 1586113 1586147 1586161 1586191 1586197 1586201 1586209 1586251 1586257 1586309 1586311 1586327 1586339 1586371 1586381 1586393 1586401 1586419 1586437 1586467 1586513 1586527 1586531 1586537 1586539 1586551 1586567 1586581 1586587 1586617 1586621 1586623 1586647 1586693 1586699 1586707 1586719 1586723 1586737 1586771 1586773 1586777 1586789 1586791 1586813 1586821 1586857 1586867 1586869 1586881 1586887 1586891 1586911 1586939 1586951 1586953 1586971 1586989 1587007 1587011 1587067 1587077 1587101 1587109 1587121 1587167 1587197 1587221 1587251 1587283 1587301 1587323 1587343 1587349 1587361 1587389 1587407 1587413 1587449 1587473 1587491 1587499 1587503 1587527 1587533 1587557 1587563 1587569 1587577 1587581 1587587 1587611 1587617 1587629 1587637 1587653 1587673 1587679 1587683 1587701 1587709 1587737 1587739 1587743 1587787 1587799 1587809 1587829 1587841 1587847 1587869 1587871 1587877 1587899 1587917 1587923 1587959 1587961 1587973 1587977 1587991 1587997 1588019 1588031 1588043 1588049 1588051 1588063 1588073 1588087 1588091 1588117 1588121 1588133 1588141 1588159 1588163 1588183 1588187 1588189 1588193 1588211 1588231 1588253 1588273 1588289 1588297 1588303 1588309 1588333 1588387 1588393 1588399 1588423 1588439 1588451 1588507 1588511 1588513 1588523 1588567 1588577 1588597 1588603 1588661 1588663 1588673 1588681 1588687 1588711 1588729 1588733 1588747 1588751 1588753 1588757 1588759 1588777 1588793 1588801 1588813 1588819 1588841 1588859 1588861 1588877 1588879 1588883 1588889 1588901 1588903 1588907 1588921 1588931 1588933 1588949 1588963 1588987 1589017 1589053 1589059 1589069 1589083 1589089 1589123 1589129 1589183 1589207 1589209 1589219 1589239 1589249 1589251 1589257 1589281 1589297 1589299 1589303 1589317 1589327 1589333 1589359 1589363 1589377 1589387 1589389 1589411 1589431 1589443 1589453 1589459 1589473 1589501 1589503 1589513 1589537 1589561 1589563 1589569 1589573 1589591 1589633 1589641 1589647 1589657 1589663 1589669 1589671 1589677 1589683 1589689 1589701 1589713 1589719 1589747 1589771 1589803 1589813 1589827 1589831 1589837 1589849 1589851 1589881 1589893 1589899 1589911 1589923 1589933 1589941 1589969 1589981 1590019 1590037 1590047 1590049 1590073 1590077 1590079 1590101 1590107 1590119 1590131 1590133 1590137 1590161 1590203 1590221 1590229 1590233 1590241 1590247 1590263 1590271 1590293 1590311 1590317 1590343 1590373 1590377 1590383 1590397 1590403 1590437 1590461 1590467 1590481 1590487 1590493 1590521 1590539 1590541 1590551 1590553 1590559 1590643 1590653 1590671 1590683 1590713 1590727 1590731 1590739 1590791 1590793 1590803 1590829 1590857 1590893 1590907 1590913 1590917 1590931 1590937 1590949 1590961 1590991 1591001 1591021 1591033 1591097 1591099 1591103 1591127 1591141 1591159 1591189 1591207 1591211 1591229 1591237 1591241 1591253 1591267 1591273 1591277 1591313 1591339 1591351 1591363 1591367 1591391 1591397 1591417 1591441 1591463 1591483 1591487 1591507 1591511 1591547 1591553 1591567 1591589 1591621 1591631 1591637 1591663 1591697 1591721 1591729 1591753 1591783 1591787 1591813 1591841 1591859 1591871 1591873 1591883 1591901 1591913 1591921 1591927 1591949 1591969 1591973 1591981 1592027 1592047 1592051 1592069 1592081 1592099 1592111 1592113 1592117 1592159 1592167 1592183 1592197 1592207 1592243 1592251 1592263 1592273 1592281 1592321 1592323 1592329 1592341 1592387 1592401 1592411 1592429 1592431 1592471 1592489 1592533 1592557 1592573 1592579 1592581 1592609 1592621 1592623 1592639 1592653 1592659 1592663 1592671 1592683 1592693 1592699 1592729 1592737 1592753 1592761 1592777 1592779 1592797 1592807 1592821 1592831 1592861 1592863 1592867 1592869 1592879 1592881 1592923 1592939 1592947 1592953 1592963 1592993 1593029 1593037 1593043 1593047 1593061 1593071 1593133 1593149 1593167 1593181 1593191 1593197 1593199 1593217 1593227 1593239 1593247 1593269 1593271 1593281 1593299 1593323 1593329 1593341 1593349 1593377 1593379 1593401 1593409 1593421 1593433 1593467 1593481 1593491 1593497 1593499 1593523 1593539 1593541 1593583 1593589 1593593 1593607 1593619 1593643 1593653 1593659 1593703 1593743 1593749 1593773 1593797 1593799 1593821 1593827 1593833 1593841 1593847 1593857 1593859 1593887 1593899 1593931 1593947 1594027 1594031 1594037 1594049 1594057 1594063 1594093 1594097 1594111 1594123 1594127 1594129 1594133 1594147 1594169 1594183 1594207 1594211 1594223 1594249 1594253 1594259 1594261 1594267 1594273 1594279 1594283 1594289 1594297 1594301 1594331 1594339 1594387 1594403 1594421 1594433 1594451 1594459 1594471 1594477 1594517 1594529 1594553 1594559 1594573 1594597 1594631 1594633 1594639 1594643 1594657 1594661 1594669 1594693 1594709 1594721 1594729 1594763 1594771 1594783 1594793 1594807 1594819 1594837 1594849 1594861 1594867 1594871 1594883 1594897 1594903 1594909 1594921 1594927 1594933 1594937 1594951 1594961 1594987 1595003 1595047 1595051 1595053 1595057 1595063 1595071 1595081 1595101 1595117 1595149 1595173 1595189 1595197 1595201 1595213 1595219 1595239 1595267 1595273 1595287 1595309 1595311 1595317 1595323 1595327 1595339 1595357 1595369 1595381 1595389 1595393 1595401 1595417 1595431 1595437 1595453 1595483 1595507 1595513 1595527 1595557 1595567 1595593 1595611 1595623 1595647 1595653 1595669 1595701 1595719 1595723 1595729 1595731 1595743 1595749 1595767 1595771 1595801 1595813 1595819 1595827 1595831 1595833 1595857 1595861 1595863 1595887 1595903 1595927 1595929 1595953 1595983 1596013 1596029 1596043 1596047 1596059 1596061 1596071 1596107 1596121 1596139 1596163 1596169 1596211 1596229 1596233 1596251 1596277 1596299 1596311 1596313 1596319 1596341 1596347 1596349 1596367 1596373 1596377 1596379 1596383 1596389 1596433 1596451 1596467 1596493 1596503 1596509 1596527 1596541 1596563 1596629 1596631 1596641 1596649 1596659 1596667 1596697 1596701 1596713 1596737 1596739 1596743 1596767 1596781 1596787 1596839 1596851 1596863 1596869 1596871 1596941 1596961 1596989 1597033 1597039 1597067 1597069 1597081 1597091 1597103 1597109 1597111 1597129 1597139 1597147 1597153 1597157 1597171 1597181 1597187 1597229 1597243 1597259 1597289 1597331 1597357 1597361 1597369 1597381 1597391 1597397 1597411 1597417 1597423 1597433 1597441 1597447 1597451 1597457 1597469 1597489 1597499 1597513 1597553 1597567 1597597 1597601 1597619 1597621 1597657 1597663 1597679 1597693 1597699 1597703 1597721 1597723 1597747 1597753 1597759 1597763 1597777 1597781 1597793 1597801 1597819 1597823 1597829 1597861 1597873 1597877 1597913 1597927 1597931 1597943 1597951 1597961 1597969 1597979 1598011 1598021 1598039 1598053 1598089 1598099 1598111 1598131 1598137 1598167 1598171 1598183 1598197 1598209 1598213 1598227 1598237 1598239 1598257 1598263 1598273 1598279 1598309 1598327 1598341 1598371 1598381 1598447 1598449 1598501 1598503 1598507 1598521 1598539 1598543 1598551 1598557 1598563 1598573 1598581 1598587 1598617 1598633 1598651 1598669 1598677 1598689 1598699 1598711 1598743 1598767 1598789 1598791 1598801 1598813 1598819 1598827 1598843 1598873 1598897 1598899 1598911 1598923 1598941 1598951 1598953 1598963 1598999 1599023 1599047 1599053 1599067 1599083 1599109 1599119 1599131 1599137 1599151 1599181 1599203 1599229 1599253 1599271 1599293 1599307 1599319 1599331 1599347 1599361 1599373 1599407 1599413 1599421 1599427 1599449 1599461 1599463 1599469 1599509 1599511 1599523 1599529 1599539 1599571 1599583 1599601 1599607 1599613 1599617 1599677 1599691 1599707 1599709 1599803 1599809 1599823 1599827 1599839 1599841 1599863 1599869 1599877 1599883 1599889 1599919 1599931 1599937 1599977 1600033 1600037 1600051 1600061 1600069 1600097 1600099 1600121 1600141 1600153 1600177 1600187 1600201 1600211 1600217 1600219 1600223 1600241 1600243 1600253 1600259 1600267 1600273 1600279 1600283 1600321 1600337 1600343 1600349 1600367 1600373 1600387 1600393 1600421 1600433 1600451 1600483 1600519 1600531 1600537 1600603 1600607 1600631 1600633 1600637 1600649 1600663 1600691 1600699 1600721 1600727 1600733 1600741 1600787 1600789 1600793 1600811 1600813 1600861 1600877 1600889 1600891 1600897 1600901 1600909 1600913 1600919 1600957 1600967 1600969 1600981 1600993 1601023 1601051 1601059 1601071 1601107 1601113 1601123 1601137 1601147 1601161 1601203 1601207 1601209 1601219 1601227 1601231 1601239 1601261 1601267 1601269 1601273 1601287 1601309 1601317 1601359 1601371 1601381 1601389 1601399 1601423 1601441 1601443 1601447 1601459 1601473 1601477 1601489 1601503 1601507 1601521 1601527 1601533 1601543 1601563 1601569 1601573 1601591 1601599 1601609 1601617 1601623 1601627 1601629 1601647 1601653 1601659 1601671 1601687 1601711 1601729 1601731 1601741 1601749 1601773 1601777 1601779 1601783 1601797 1601813 1601843 1601849 1601857 1601861 1601867 1601869 1601953 1601969 1602011 1602059 1602067 1602071 1602077 1602079 1602091 1602101 1602103 1602113 1602119 1602121 1602143 1602151 1602169 1602187 1602193 1602241 1602269 1602281 1602283 1602311 1602317 1602323 1602347 1602353 1602361 1602379 1602383 1602389 1602397 1602401 1602407 1602427 1602451 1602463 1602473 1602487 1602493 1602509 1602527 1602529 1602551 1602553 1602589 1602599 1602611 1602637 1602661 1602677 1602691 1602697 1602703 1602719 1602721 1602737 1602749 1602751 1602761 1602817 1602823 1602827 1602829 1602833 1602851 1602857 1602863 1602869 1602883 1602899 1602901 1602907 1602919 1602929 1602941 1602943 1602949 1602959 1602961 1603009 1603013 1603027 1603039 1603051 1603057 1603067 1603073 1603079 1603081 1603093 1603111 1603139 1603159 1603183 1603193 1603237 1603241 1603249 1603267 1603279 1603291 1603297 1603319 1603331 1603333 1603337 1603339 1603361 1603363 1603397 1603403 1603411 1603417 1603421 1603453 1603471 1603489 1603493 1603501 1603517 1603519 1603529 1603531 1603541 1603573 1603597 1603601 1603631 1603649 1603663 1603669 1603673 1603681 1603697 1603699 1603709 1603711 1603747 1603769 1603793 1603799 1603801 1603807 1603817 1603837 1603843 1603853 1603867 1603871 1603891 1603897 1603907 1603919 1603949 1603957 1603963 1604003 1604017 1604021 1604051 1604059 1604081 1604087 1604093 1604101 1604111 1604123 1604129 1604131 1604143 1604147 1604149 1604167 1604177 1604179 1604191 1604231 1604237 1604243 1604263 1604279 1604293 1604297 1604299 1604311 1604329 1604333 1604347 1604359 1604381 1604399 1604413 1604419 1604437 1604441 1604461 1604479 1604497 1604501 1604509 1604513 1604521 1604539 1604543 1604557 1604567 1604573 1604593 1604597 1604609 1604611 1604621 1604651 1604711 1604719 1604731 1604737 1604747 1604753 1604809 1604821 1604833 1604857 1604923 1604929 1604951 1604957 1604983 1605001 1605013 1605017 1605029 1605031 1605041 1605047 1605053 1605083 1605103 1605127 1605151 1605169 1605173 1605187 1605199 1605209 1605217 1605257 1605269 1605277 1605287 1605299 1605313 1605323 1605341 1605349 1605389 1605413 1605419 1605421 1605427 1605431 1605433 1605509 1605511 1605533 1605547 1605551 1605553 1605559 1605563 1605587 1605619 1605629 1605631 1605677 1605691 1605697 1605719 1605739 1605743 1605757 1605761 1605767 1605811 1605829 1605839 1605853 1605859 1605869 1605881 1605887 1605889 1605907 1605913 1605931 1605941 1605971 1605979 1606009 1606081 1606097 1606117 1606123 1606139 1606151 1606153 1606201 1606237 1606247 1606249 1606259 1606261 1606273 1606277 1606289 1606291 1606309 1606321 1606331 1606349 1606379 1606387 1606399 1606403 1606427 1606433 1606439 1606457 1606463 1606487 1606499 1606529 1606537 1606541 1606543 1606547 1606559 1606597 1606603 1606639 1606643 1606663 1606669 1606681 1606723 1606733 1606739 1606741 1606751 1606753 1606763 1606771 1606777 1606783 1606793 1606817 1606837 1606841 1606853 1606859 1606879 1606889 1606897 1606901 1606909 1606921 1606951 1606967 1606981 1606991 1607003 1607029 1607051 1607057 1607063 1607069 1607083 1607087 1607107 1607113 1607131 1607141 1607143 1607149 1607173 1607183 1607201 1607233 1607237 1607261 1607273 1607293 1607321 1607327 1607357 1607371 1607377 1607399 1607407 1607449 1607471 1607477 1607479 1607491 1607509 1607513 1607519 1607527 1607563 1607579 1607591 1607597 1607603 1607611 1607621 1607659 1607663 1607681 1607699 1607701 1607713 1607747 1607773 1607791 1607807 1607821 1607831 1607833 1607839 1607849 1607857 1607863 1607867 1607873 1607923 1607929 1607941 1607981 1607987 1608007 1608017 1608023 1608037 1608041 1608083 1608107 1608109 1608127 1608133 1608197 1608209 1608227 1608239 1608241 1608259 1608283 1608323 1608337 1608349 1608359 1608371 1608379 1608401 1608433 1608437 1608443 1608449 1608461 1608463 1608473 1608479 1608487 1608493 1608511 1608527 1608569 1608571 1608577 1608583 1608599 1608611 1608617 1608637 1608653 1608661 1608667 1608671 1608697 1608703 1608707 1608713 1608743 1608751 1608769 1608773 1608821 1608823 1608839 1608883 1608911 1608913 1608941 1608979 1609009 1609021 1609037 1609043 1609061 1609063 1609079 1609087 1609099 1609109 1609141 1609147 1609163 1609177 1609193 1609199 1609211 1609219 1609247 1609249 1609261 1609301 1609367 1609381 1609403 1609417 1609423 1609457 1609477 1609493 1609501 1609507 1609511 1609519 1609523 1609549 1609561 1609567 1609571 1609583 1609589 1609627 1609631 1609667 1609669 1609691 1609693 1609717 1609739 1609757 1609763 1609771 1609789 1609801 1609807 1609843 1609871 1609873 1609879 1609897 1609901 1609903 1609913 1609969 1609991 1609997 1609999 1610009 1610017 1610027 1610057 1610083 1610093 1610101 1610107 1610123 1610131 1610149 1610153 1610177 1610179 1610183 1610227 1610237 1610239 1610251 1610293 1610309 1610311 1610333 1610347 1610353 1610369 1610377 1610387 1610417 1610423 1610429 1610431 1610443 1610467 1610471 1610473 1610501 1610513 1610519 1610527 1610533 1610537 1610551 1610561 1610569 1610579 1610591 1610627 1610639 1610657 1610659 1610681 1610701 1610753 1610761 1610771 1610773 1610779 1610783 1610789 1610797 1610809 1610813 1610837 1610867 1610887 1610893 1610899 1610923 1610927 1610933 1610941 1610957 1610963 1610969 1610981 1610993 1611031 1611053 1611059 1611079 1611089 1611097 1611131 1611139 1611151 1611157 1611161 1611187 1611199 1611217 1611223 1611227 1611241 1611251 1611289 1611293 1611299 1611307 1611319 1611331 1611343 1611353 1611361 1611367 1611391 1611397 1611419 1611433 1611439 1611451 1611469 1611479 1611499 1611517 1611529 1611539 1611553 1611563 1611593 1611601 1611607 1611613 1611667 1611689 1611691 1611697 1611707 1611737 1611749 1611761 1611763 1611773 1611781 1611809 1611851 1611853 1611877 1611881 1611899 1611901 1611917 1611947 1611949 1611971 1612007 1612019 1612033 1612063 1612069 1612073 1612111 1612123 1612133 1612141 1612157 1612181 1612183 1612189 1612211 1612213 1612223 1612249 1612267 1612271 1612307 1612309 1612319 1612327 1612333 1612361 1612363 1612393 1612427 1612439 1612451 1612463 1612477 1612493 1612517 1612537 1612561 1612601 1612609 1612619 1612621 1612649 1612669 1612679 1612693 1612697 1612703 1612727 1612733 1612747 1612759 1612763 1612771 1612781 1612823 1612859 1612903 1612913 1612927 1612931 1612937 1612957 1612991 1612997 1612999 1613033 1613041 1613057 1613069 1613093 1613099 1613123 1613141 1613149 1613153 1613173 1613179 1613201 1613279 1613321 1613323 1613329 1613363 1613371 1613393 1613399 1613407 1613411 1613413 1613441 1613471 1613483 1613497 1613503 1613509 1613539 1613543 1613587 1613593 1613597 1613609 1613621 1613639 1613641 1613653 1613669 1613671 1613683 1613707 1613713 1613741 1613761 1613771 1613809 1613813 1613831 1613867 1613873 1613921 1613947 1613951 1613959 1613981 1613987 1614001 1614007 1614017 1614023 1614037 1614073 1614083 1614149 1614157 1614187 1614191 1614229 1614233 1614241 1614247 1614251 1614257 1614281 1614289 1614307 1614311 1614317 1614329 1614331 1614359 1614367 1614377 1614383 1614391 1614397 1614409 1614413 1614443 1614461 1614463 1614467 1614479 1614491 1614493 1614533 1614553 1614559 1614583 1614589 1614593 1614619 1614629 1614631 1614637 1614647 1614649 1614659 1614661 1614671 1614707 1614719 1614721 1614733 1614757 1614787 1614793 1614803 1614817 1614859 1614863 1614871 1614911 1614913 1614917 1614929 1614947 1614961 1614973 1614989 1615001 1615021 1615027 1615043 1615049 1615067 1615073 1615079 1615121 1615139 1615151 1615157 1615177 1615181 1615183 1615199 1615223 1615231 1615253 1615279 1615307 1615331 1615333 1615337 1615351 1615363 1615403 1615421 1615433 1615447 1615477 1615483 1615487 1615499 1615501 1615511 1615529 1615541 1615591 1615613 1615631 1615633 1615637 1615643 1615651 1615657 1615661 1615673 1615693 1615699 1615717 1615723 1615739 1615763 1615777 1615781 1615837 1615841 1615843 1615847 1615849 1615853 1615871 1615891 1615919 1615921 1615949 1615963 1615981 1615987 1616009 1616029 1616033 1616039 1616047 1616057 1616063 1616077 1616099 1616113 1616119 1616161 1616171 1616183 1616201 1616221 1616227 1616231 1616269 1616281 1616291 1616297 1616347 1616359 1616401 1616429 1616437 1616443 1616453 1616473 1616491 1616497 1616519 1616533 1616543 1616551 1616569 1616597 1616603 1616609 1616611 1616617 1616621 1616623 1616627 1616633 1616639 1616651 1616669 1616677 1616687 1616689 1616711 1616723 1616749 1616801 1616803 1616807 1616809 1616821 1616827 1616833 1616851 1616861 1616891 1616897 1616899 1616939 1616947 1616963 1616983 1617019 1617029 1617037 1617043 1617047 1617079 1617103 1617137 1617139 1617149 1617211 1617247 1617251 1617269 1617277 1617283 1617289 1617311 1617347 1617349 1617373 1617391 1617433 1617437 1617439 1617443 1617463 1617493 1617503 1617509 1617523 1617541 1617547 1617557 1617563 1617569 1617589 1617619 1617647 1617661 1617689 1617691 1617697 1617727 1617739 1617743 1617757 1617767 1617769 1617773 1617779 1617809 1617817 1617827 1617871 1617883 1617893 1617923 1617929 1617943 1617949 1617971 1617977 1617989 1618003 1618007 1618033 1618039 1618049 1618051 1618079 1618081 1618087 1618091 1618093 1618129 1618139 1618153 1618181 1618187 1618189 1618207 1618217 1618223 1618241 1618261 1618271 1618277 1618291 1618307 1618319 1618327 1618333 1618367 1618369 1618373 1618387 1618399 1618411 1618433 1618453 1618457 1618459 1618471 1618481 1618489 1618501 1618517 1618531 1618537 1618549 1618559 1618601 1618613 1618619 1618627 1618637 1618663 1618679 1618681 1618703 1618739 1618741 1618769 1618777 1618807 1618817 1618823 1618829 1618831 1618849 1618853 1618891 1618909 1618931 1618937 1618943 1618957 1618963 1618973 1618979 1619021 1619053 1619069 1619071 1619087 1619113 1619119 1619153 1619159 1619171 1619179 1619207 1619209 1619227 1619239 1619243 1619249 1619257 1619281 1619287 1619311 1619327 1619329 1619339 1619341 1619353 1619381 1619383 1619417 1619419 1619473 1619507 1619531 1619549 1619551 1619557 1619561 1619593 1619599 1619603 1619633 1619647 1619663 1619669 1619671 1619677 1619687 1619689 1619699 1619713 1619741 1619747 1619753 1619759 1619773 1619791 1619831 1619837 1619857 1619861 1619887 1619899 1619903 1619909 1619929 1619941 1619957 1619983 1619987 1620001 1620013 1620019 1620041 1620071 1620103 1620107 1620121 1620133 1620161 1620209 1620217 1620233 1620239 1620247 1620251 1620257 1620271 1620319 1620329 1620331 1620337 1620347 1620371 1620379 1620391 1620403 1620413 1620431 1620439 1620449 1620461 1620467 1620469 1620497 1620517 1620523 1620539 1620547 1620551 1620569 1620571 1620589 1620611 1620613 1620617 1620629 1620631 1620667 1620677 1620679 1620733 1620739 1620743 1620769 1620803 1620811 1620823 1620841 1620881 1620887 1620893 1620917 1620923 1620929 1620961 1620973 1620977 1620989 1621019 1621031 1621033 1621043 1621049 1621079 1621093 1621097 1621127 1621133 1621141 1621153 1621163 1621177 1621219 1621231 1621237 1621241 1621259 1621283 1621309 1621349 1621351 1621357 1621363 1621369 1621381 1621391 1621397 1621421 1621423 1621439 1621457 1621469 1621471 1621481 1621489 1621519 1621537 1621541 1621559 1621583 1621597 1621619 1621621 1621637 1621639 1621643 1621657 1621667 1621679 1621699 1621717 1621721 1621723 1621727 1621729 1621751 1621769 1621771 1621793 1621819 1621843 1621849 1621861 1621871 1621877 1621909 1621931 1621933 1621979 1621993 1622009 1622039 1622041 1622053 1622059 1622063 1622077 1622081 1622141 1622143 1622149 1622189 1622207 1622209 1622233 1622263 1622273 1622287 1622297 1622311 1622333 1622359 1622377 1622407 1622419 1622431 1622437 1622449 1622471 1622473 1622479 1622483 1622549 1622557 1622573 1622587 1622591 1622597 1622609 1622617 1622639 1622641 1622659 1622669 1622671 1622681 1622693 1622707 1622711 1622729 1622743 1622749 1622773 1622779 1622791 1622813 1622827 1622833 1622839 1622849 1622861 1622867 1622879 1622917 1622947 1622953 1622977 1622981 1622987 1623023 1623029 1623047 1623053 1623059 1623071 1623077 1623091 1623107 1623137 1623157 1623161 1623163 1623169 1623173 1623197 1623203 1623229 1623233 1623263 1623269 1623283 1623287 1623289 1623299 1623319 1623361 1623367 1623403 1623421 1623431 1623437 1623451 1623463 1623467 1623473 1623487 1623533 1623539 1623553 1623599 1623631 1623647 1623667 1623679 1623701 1623707 1623733 1623763 1623767 1623781 1623793 1623799 1623827 1623829 1623833 1623847 1623859 1623863 1623883 1623901 1623907 1623917 1623929 1623931 1623943 1623977 1623989 1624009 1624019 1624037 1624057 1624069 1624081 1624111 1624141 1624151 1624159 1624169 1624171 1624193 1624199 1624201 1624213 1624223 1624241 1624277 1624279 1624309 1624321 1624327 1624331 1624349 1624351 1624361 1624373 1624387 1624417 1624423 1624429 1624453 1624471 1624487 1624501 1624507 1624523 1624529 1624573 1624589 1624591 1624603 1624607 1624627 1624661 1624663 1624681 1624687 1624691 1624699 1624717 1624729 1624757 1624807 1624811 1624813 1624829 1624849 1624913 1624933 1624943 1624963 1624967 1624969 1624991 1624993 1625017 1625021 1625027 1625059 1625123 1625147 1625153 1625167 1625171 1625177 1625179 1625201 1625207 1625209 1625227 1625257 1625263 1625287 1625297 1625303 1625311 1625321 1625329 1625339 1625347 1625359 1625383 1625417 1625419 1625453 1625461 1625471 1625483 1625497 1625501 1625513 1625539 1625543 1625551 1625573 1625581 1625587 1625629 1625647 1625677 1625699 1625707 1625717 1625719 1625747 1625749 1625759 1625791 1625803 1625807 1625809 1625821 1625831 1625837 1625839 1625843 1625851 1625861 1625867 1625879 1625903 1625909 1625927 1625933 1625951 1625969 1625977 1625989 1625993 1626013 1626017 1626047 1626071 1626073 1626083 1626089 1626091 1626109 1626127 1626133 1626137 1626143 1626173 1626181 1626193 1626197 1626211 1626227 1626239 1626259 1626263 1626269 1626277 1626281 1626283 1626301 1626311 1626319 1626329 1626337 1626371 1626377 1626379 1626431 1626433 1626437 1626451 1626461 1626467 1626479 1626481 1626487 1626497 1626503 1626589 1626613 1626617 1626619 1626637 1626649 1626673 1626701 1626707 1626739 1626749 1626763 1626769 1626773 1626791 1626803 1626817 1626829 1626881 1626887 1626893 1626901 1626923 1626943 1626949 1626953 1626959 1626971 1626979 1626983 1627007 1627013 1627033 1627051 1627057 1627061 1627063 1627069 1627079 1627099 1627111 1627117 1627123 1627127 1627133 1627147 1627169 1627177 1627193 1627201 1627237 1627247 1627253 1627267 1627309 1627333 1627337 1627357 1627361 1627403 1627429 1627441 1627459 1627481 1627487 1627489 1627501 1627513 1627523 1627537 1627553 1627573 1627579 1627583 1627601 1627603 1627607 1627609 1627627 1627643 1627649 1627651 1627669 1627693 1627723 1627727 1627729 1627739 1627763 1627771 1627781 1627783 1627793 1627807 1627819 1627831 1627837 1627849 1627853 1627859 1627861 1627867 1627877 1627883 1627919 1627943 1627979 1627981 1628051 1628057 1628059 1628063 1628071 1628093 1628117 1628131 1628149 1628153 1628161 1628171 1628173 1628177 1628183 1628191 1628197 1628203 1628227 1628261 1628279 1628293 1628299 1628309 1628317 1628323 1628329 1628353 1628359 1628369 1628381 1628383 1628387 1628401 1628441 1628467 1628477 1628489 1628491 1628507 1628551 1628567 1628579 1628587 1628591 1628593 1628603 1628621 1628633 1628689 1628701 1628729 1628747 1628773 1628779 1628801 1628839 1628857 1628867 1628873 1628881 1628897 1628909 1628917 1628933 1628947 1628983 1628987 1628989 1629007 1629011 1629013 1629031 1629071 1629077 1629083 1629091 1629101 1629107 1629109 1629119 1629137 1629149 1629163 1629169 1629197 1629203 1629209 1629211 1629233 1629253 1629259 1629281 1629293 1629317 1629319 1629337 1629359 1629361 1629367 1629377 1629409 1629427 1629431 1629449 1629451 1629457 1629469 1629479 1629541 1629547 1629557 1629559 1629581 1629583 1629587 1629599 1629601 1629623 1629643 1629647 1629653 1629673 1629689 1629721 1629731 1629767 1629809 1629851 1629853 1629869 1629893 1629899 1629919 1629923 1629937 1629983 1629997 1630019 1630021 1630049 1630051 1630091 1630093 1630117 1630127 1630129 1630133 1630141 1630159 1630169 1630193 1630199 1630243 1630247 1630253 1630261 1630273 1630303 1630357 1630361 1630367 1630379 1630381 1630393 1630399 1630403 1630411 1630423 1630427 1630429 1630441 1630451 1630457 1630459 1630463 1630471 1630483 1630501 1630543 1630547 1630549 1630597 1630619 1630621 1630633 1630663 1630669 1630721 1630763 1630771 1630777 1630781 1630801 1630813 1630829 1630841 1630843 1630859 1630891 1630897 1630913 1630919 1630927 1630933 1630943 1630987 1631023 1631027 1631029 1631051 1631053 1631057 1631059 1631101 1631117 1631143 1631153 1631159 1631171 1631177 1631191 1631209 1631243 1631257 1631261 1631263 1631297 1631299 1631309 1631341 1631351 1631363 1631369 1631407 1631447 1631471 1631489 1631491 1631503 1631519 1631521 1631537 1631543 1631557 1631573 1631579 1631611 1631629 1631633 1631639 1631647 1631657 1631659 1631683 1631723 1631731 1631741 1631761 1631771 1631783 1631797 1631821 1631837 1631843 1631869 1631879 1631897 1631899 1631911 1631921 1631939 1631951 1631957 1631969 1631989 1632013 1632019 1632031 1632041 1632047 1632079 1632101 1632109 1632121 1632133 1632139 1632143 1632167 1632173 1632179 1632193 1632199 1632209 1632227 1632259 1632307 1632311 1632313 1632317 1632341 1632359 1632383 1632427 1632431 1632437 1632457 1632467 1632469 1632473 1632479 1632481 1632487 1632509 1632523 1632557 1632569 1632571 1632599 1632611 1632619 1632623 1632637 1632647 1632649 1632679 1632691 1632703 1632749 1632751 1632767 1632769 1632779 1632781 1632797 1632809 1632817 1632821 1632853 1632871 1632881 1632887 1632893 1632899 1632913 1632919 1632941 1632949 1632979 1632997 1633007 1633033 1633039 1633043 1633057 1633067 1633081 1633103 1633117 1633123 1633127 1633129 1633133 1633157 1633169 1633171 1633187 1633201 1633211 1633223 1633231 1633237 1633243 1633249 1633267 1633277 1633319 1633321 1633337 1633339 1633361 1633363 1633369 1633403 1633409 1633447 1633459 1633531 1633549 1633553 1633559 1633561 1633573 1633589 1633603 1633609 1633627 1633633 1633679 1633691 1633693 1633703 1633711 1633729 1633741 1633747 1633757 1633777 1633787 1633789 1633811 1633817 1633823 1633837 1633843 1633847 1633873 1633903 1633913 1633939 1633949 1633967 1633987 1633991 1633993 1634011 1634027 1634047 1634051 1634053 1634069 1634071 1634089 1634099 1634107 1634117 1634141 1634153 1634167 1634177 1634183 1634201 1634203 1634231 1634233 1634239 1634257 1634267 1634279 1634291 1634293 1634309 1634317 1634333 1634341 1634371 1634393 1634407 1634417 1634441 1634443 1634447 1634453 1634461 1634471 1634489 1634497 1634531 1634557 1634569 1634579 1634593 1634597 1634603 1634609 1634657 1634681 1634683 1634687 1634693 1634719 1634753 1634761 1634767 1634791 1634797 1634803 1634819 1634833 1634837 1634849 1634869 1634879 1634881 1634911 1634923 1634929 1634939 1634947 1634951 1634953 1634959 1634987 1635013 1635031 1635037 1635041 1635061 1635079 1635091 1635119 1635133 1635143 1635163 1635169 1635173 1635181 1635187 1635199 1635217 1635229 1635241 1635287 1635299 1635307 1635313 1635317 1635329 1635341 1635353 1635371 1635373 1635377 1635401 1635479 1635497 1635499 1635503 1635509 1635541 1635547 1635551 1635559 1635563 1635583 1635607 1635611 1635619 1635631 1635637 1635649 1635661 1635703 1635713 1635721 1635727 1635761 1635773 1635811 1635817 1635827 1635863 1635889 1635899 1635913 1635937 1635943 1635947 1635971 1635973 1635983 1636001 1636007 1636009 1636039 1636043 1636049 1636067 1636069 1636079 1636091 1636111 1636121 1636139 1636157 1636181 1636189 1636213 1636231 1636237 1636249 1636277 1636291 1636303 1636331 1636333 1636339 1636343 1636363 1636367 1636373 1636379 1636391 1636423 1636457 1636463 1636469 1636501 1636513 1636529 1636541 1636543 1636549 1636553 1636561 1636571 1636577 1636619 1636627 1636637 1636651 1636667 1636669 1636697 1636699 1636711 1636721 1636729 1636741 1636751 1636757 1636759 1636781 1636787 1636819 1636823 1636849 1636867 1636871 1636883 1636891 1636909 1636919 1636927 1636931 1636937 1636951 1636961 1636969 1636997 1637029 1637087 1637093 1637147 1637161 1637177 1637183 1637197 1637221 1637239 1637243 1637261 1637299 1637357 1637371 1637381 1637407 1637429 1637437 1637459 1637479 1637497 1637501 1637521 1637539 1637549 1637551 1637563 1637599 1637611 1637617 1637633 1637639 1637641 1637677 1637683 1637687 1637693 1637707 1637711 1637719 1637723 1637737 1637759 1637773 1637777 1637813 1637851 1637863 1637887 1637927 1637963 1637983 1638011 1638019 1638023 1638031 1638053 1638059 1638061 1638067 1638089 1638097 1638107 1638121 1638127 1638139 1638149 1638167 1638191 1638209 1638211 1638251 1638269 1638311 1638331 1638347 1638349 1638353 1638431 1638463 1638473 1638487 1638547 1638551 1638563 1638569 1638583 1638599 1638641 1638649 1638653 1638673 1638677 1638683 1638701 1638719 1638733 1638743 1638797 1638799 1638809 1638821 1638869 1638899 1638907 1638913 1638929 1638943 1638947 1638977 1638983 1638991 1639019 1639061 1639067 1639081 1639087 1639091 1639097 1639147 1639151 1639153 1639159 1639193 1639199 1639201 1639217 1639223 1639229 1639241 1639243 1639271 1639307 1639349 1639357 1639367 1639381 1639387 1639409 1639427 1639459 1639471 1639481 1639493 1639511 1639513 1639577 1639579 1639597 1639607 1639609 1639613 1639663 1639699 1639711 1639717 1639723 1639733 1639751 1639763 1639789 1639793 1639811 1639817 1639823 1639829 1639849 1639853 1639861 1639879 1639889 1639901 1639907 1639919 1639927 1639949 1639987 1639991 1639999 1640017 1640021 1640033 1640053 1640057 1640059 1640071 1640077 1640083 1640131 1640147 1640167 1640183 1640189 1640201 1640207 1640231 1640263 1640267 1640273 1640281 1640299 1640311 1640323 1640333 1640393 1640399 1640423 1640447 1640461 1640467 1640497 1640503 1640519 1640531 1640539 1640549 1640557 1640599 1640609 1640621 1640623 1640633 1640641 1640657 1640663 1640677 1640689 1640701 1640729 1640741 1640753 1640761 1640773 1640803 1640809 1640819 1640833 1640851 1640869 1640879 1640887 1640927 1640929 1640939 1640941 1640953 1640971 1641007 1641043 1641053 1641077 1641089 1641091 1641103 1641131 1641137 1641161 1641217 1641229 1641253 1641281 1641301 1641323 1641329 1641359 1641361 1641373 1641377 1641379 1641389 1641403 1641407 1641457 1641473 1641509 1641539 1641559 1641583 1641587 1641589 1641593 1641613 1641617 1641623 1641631 1641637 1641641 1641659 1641709 1641713 1641721 1641737 1641751 1641797 1641799 1641811 1641817 1641821 1641833 1641841 1641863 1641881 1641889 1641907 1641917 1641929 1641931 1641953 1641971 1642021 1642031 1642033 1642049 1642051 1642057 1642079 1642093 1642117 1642141 1642153 1642187 1642211 1642231 1642243 1642247 1642259 1642273 1642279 1642283 1642297 1642309 1642313 1642327 1642339 1642363 1642373 1642397 1642423 1642441 1642447 1642451 1642463 1642481 1642483 1642513 1642517 1642519 1642549 1642559 1642567 1642579 1642601 1642631 1642633 1642649 1642657 1642661 1642679 1642699 1642709 1642717 1642723 1642741 1642769 1642777 1642787 1642801 1642807 1642811 1642813 1642831 1642843 1642847 1642853 1642859 1642903 1642909 1642919 1642939 1642943 1642951 1642997 1643003 1643021 1643027 1643039 1643069 1643077 1643099 1643123 1643129 1643137 1643141 1643171 1643179 1643197 1643219 1643221 1643231 1643233 1643251 1643269 1643273 1643293 1643311 1643347 1643351 1643357 1643363 1643387 1643423 1643431 1643461 1643491 1643497 1643501 1643513 1643539 1643581 1643591 1643597 1643599 1643617 1643623 1643639 1643641 1643659 1643669 1643683 1643687 1643693 1643701 1643717 1643729 1643743 1643773 1643779 1643791 1643797 1643801 1643809 1643819 1643821 1643827 1643839 1643843 1643857 1643867 1643869 1643881 1643891 1643893 1643959 1643963 1643969 1643987 1643989 1644001 1644031 1644061 1644067 1644073 1644079 1644103 1644143 1644163 1644173 1644193 1644197 1644199 1644217 1644221 1644229 1644233 1644283 1644287 1644299 1644311 1644341 1644347 1644361 1644367 1644371 1644373 1644413 1644421 1644437 1644439 1644451 1644491 1644493 1644497 1644547 1644571 1644593 1644607 1644611 1644623 1644637 1644641 1644653 1644667 1644673 1644689 1644691 1644703 1644719 1644751 1644757 1644781 1644791 1644817 1644823 1644871 1644883 1644893 1644899 1644901 1644931 1644943 1644947 1644949 1644989 1644991 1644997 1645003 1645009 1645019 1645087 1645093 1645099 1645123 1645129 1645151 1645157 1645169 1645183 1645187 1645211 1645249 1645253 1645291 1645327 1645337 1645349 1645363 1645367 1645409 1645417 1645421 1645429 1645433 1645439 1645459 1645463 1645477 1645487 1645499 1645529 1645537 1645543 1645559 1645561 1645601 1645603 1645607 1645613 1645643 1645661 1645667 1645669 1645681 1645691 1645727 1645729 1645733 1645747 1645757 1645769 1645771 1645801 1645829 1645843 1645849 1645867 1645873 1645879 1645901 1645907 1645909 1645927 1645933 1645937 1645939 1645961 1645967 1645979 1645999 1646017 1646023 1646033 1646101 1646107 1646111 1646143 1646147 1646149 1646153 1646171 1646173 1646189 1646209 1646219 1646221 1646237 1646261 1646287 1646291 1646299 1646303 1646311 1646321 1646347 1646357 1646371 1646377 1646383 1646387 1646413 1646423 1646443 1646461 1646473 1646479 1646497 1646509 1646527 1646543 1646563 1646581 1646609 1646629 1646633 1646641 1646647 1646669 1646677 1646681 1646717 1646719 1646737 1646741 1646747 1646783 1646797 1646819 1646839 1646849 1646861 1646893 1646899 1646903 1646921 1646923 1646933 1646947 1646951 1646959 1646971 1646989 1647001 1647013 1647031 1647047 1647059 1647067 1647083 1647097 1647101 1647119 1647127 1647137 1647161 1647179 1647193 1647227 1647241 1647251 1647253 1647299 1647307 1647311 1647323 1647353 1647361 1647377 1647379 1647383 1647389 1647407 1647439 1647469 1647473 1647497 1647523 1647551 1647553 1647563 1647599 1647601 1647617 1647649 1647673 1647677 1647689 1647707 1647719 1647727 1647761 1647769 1647781 1647797 1647847 1647853 1647857 1647859 1647871 1647887 1647911 1647917 1647931 1647937 1647941 1647949 1647953 1647959 1647977 1648001 1648021 1648039 1648057 1648063 1648067 1648069 1648081 1648181 1648187 1648217 1648223 1648237 1648253 1648259 1648261 1648277 1648289 1648291 1648349 1648379 1648391 1648417 1648429 1648441 1648453 1648481 1648483 1648499 1648513 1648523 1648529 1648531 1648553 1648567 1648579 1648583 1648589 1648601 1648613 1648697 1648723 1648739 1648753 1648771 1648781 1648789 1648793 1648811 1648817 1648837 1648879 1648909 1648919 1648943 1648951 1648963 1648987 1649003 1649023 1649059 1649099 1649101 1649111 1649129 1649147 1649149 1649161 1649171 1649173 1649213 1649237 1649243 1649251 1649267 1649287 1649299 1649303 1649309 1649311 1649327 1649341 1649359 1649363 1649369 1649377 1649381 1649393 1649411 1649419 1649429 1649443 1649449 1649489 1649507 1649521 1649533 1649539 1649567 1649587 1649591 1649597 1649611 1649621 1649639 1649647 1649651 1649657 1649671 1649677 1649689 1649693 1649707 1649737 1649743 1649759 1649771 1649773 1649783 1649797 1649801 1649803 1649807 1649819 1649831 1649861 1649863 1649887 1649917 1649927 1649959 1649981 1649987 1649993 1650001 1650023 1650031 1650041 1650059 1650079 1650083 1650091 1650097 1650101 1650107 1650109 1650133 1650137 1650157 1650167 1650179 1650191 1650199 1650221 1650263 1650281 1650287 1650293 1650301 1650317 1650331 1650349 1650353 1650371 1650379 1650401 1650413 1650427 1650437 1650463 1650487 1650491 1650521 1650529 1650553 1650557 1650563 1650569 1650577 1650589 1650601 1650611 1650613 1650617 1650629 1650637 1650647 1650659 1650667 1650673 1650703 1650743 1650757 1650763 1650769 1650793 1650823 1650877 1650881 1650889 1650907 1650911 1650923 1650931 1650937 1650949 1650959 1650983 1650991 1651007 1651019 1651033 1651073 1651093 1651151 1651163 1651171 1651183 1651201 1651207 1651211 1651213 1651219 1651229 1651259 1651267 1651283 1651291 1651297 1651313 1651343 1651361 1651369 1651379 1651387 1651409 1651411 1651457 1651471 1651477 1651493 1651511 1651513 1651541 1651547 1651553 1651571 1651589 1651591 1651597 1651609 1651621 1651667 1651681 1651691 1651693 1651723 1651747 1651757 1651781 1651787 1651801 1651829 1651843 1651847 1651861 1651877 1651891 1651921 1651943 1651961 1651981 1652011 1652033 1652039 1652047 1652051 1652081 1652089 1652129 1652137 1652141 1652171 1652237 1652243 1652263 1652267 1652279 1652291 1652317 1652347 1652351 1652353 1652359 1652363 1652369 1652377 1652407 1652419 1652459 1652479 1652489 1652491 1652503 1652509 1652513 1652543 1652569 1652591 1652597 1652611 1652617 1652627 1652671 1652687 1652701 1652719 1652731 1652737 1652741 1652747 1652771 1652773 1652789 1652801 1652821 1652831 1652837 1652839 1652843 1652863 1652869 1652873 1652879 1652881 1652887 1652891 1652897 1652899 1652909 1652921 1652923 1652929 1652933 1652947 1652993 1653007 1653011 1653023 1653031 1653059 1653061 1653083 1653101 1653103 1653107 1653109 1653149 1653167 1653181 1653191 1653193 1653227 1653251 1653259 1653287 1653293 1653313 1653317 1653329 1653331 1653341 1653343 1653347 1653383 1653389 1653409 1653427 1653433 1653439 1653451 1653469 1653473 1653497 1653499 1653503 1653511 1653517 1653521 1653541 1653557 1653583 1653599 1653611 1653623 1653643 1653671 1653679 1653689 1653697 1653721 1653731 1653739 1653749 1653763 1653767 1653791 1653853 1653901 1653917 1653919 1653923 1653929 1653959 1653973 1653989 1653997 1654013 1654019 1654021 1654027 1654031 1654033 1654039 1654043 1654057 1654111 1654123 1654127 1654153 1654157 1654171 1654193 1654199 1654201 1654217 1654223 1654231 1654241 1654267 1654271 1654291 1654313 1654319 1654337 1654343 1654351 1654357 1654361 1654369 1654397 1654403 1654427 1654441 1654519 1654531 1654547 1654561 1654567 1654573 1654579 1654649 1654651 1654663 1654673 1654693 1654703 1654717 1654721 1654727 1654733 1654739 1654787 1654789 1654799 1654817 1654841 1654853 1654859 1654871 1654879 1654889 1654897 1654903 1654921 1654931 1654963 1654979 1654981 1654987 1655021 1655023 1655029 1655039 1655051 1655077 1655089 1655099 1655123 1655131 1655141 1655153 1655167 1655177 1655179 1655189 1655197 1655201 1655207 1655209 1655231 1655237 1655249 1655257 1655263 1655279 1655281 1655309 1655317 1655321 1655323 1655327 1655377 1655389 1655393 1655419 1655449 1655461 1655473 1655483 1655497 1655509 1655531 1655551 1655557 1655569 1655573 1655587 1655593 1655597 1655623 1655627 1655653 1655659 1655663 1655671 1655677 1655683 1655707 1655807 1655809 1655821 1655827 1655873 1655891 1655893 1655897 1655909 1655921 1655939 1655947 1655959 1655963 1655981 1655999 1656007 1656013 1656019 1656043 1656047 1656049 1656073 1656079 1656101 1656107 1656119 1656121 1656131 1656163 1656167 1656169 1656199 1656203 1656209 1656223 1656227 1656229 1656247 1656251 1656257 1656283 1656301 1656311 1656313 1656323 1656367 1656383 1656427 1656491 1656517 1656521 1656533 1656541 1656559 1656563 1656583 1656587 1656593 1656607 1656617 1656631 1656647 1656649 1656659 1656673 1656679 1656689 1656719 1656761 1656773 1656791 1656793 1656827 1656829 1656839 1656841 1656847 1656869 1656877 1656883 1656887 1656899 1656901 1656911 1656917 1656931 1656937 1656947 1656953 1656979 1656997 1657001 1657013 1657021 1657037 1657039 1657049 1657067 1657087 1657093 1657099 1657121 1657129 1657153 1657157 1657169 1657181 1657189 1657207 1657213 1657231 1657247 1657277 1657283 1657303 1657339 1657399 1657421 1657429 1657441 1657451 1657459 1657463 1657519 1657561 1657571 1657573 1657583 1657603 1657609 1657627 1657631 1657639 1657651 1657661 1657673 1657697 1657699 1657729 1657741 1657783 1657793 1657801 1657811 1657861 1657867 1657871 1657889 1657897 1657927 1657937 1657939 1657949 1657963 1657987 1658009 1658023 1658029 1658039 1658051 1658053 1658089 1658101 1658119 1658147 1658161 1658201 1658203 1658213 1658233 1658243 1658273 1658291 1658309 1658311 1658353 1658359 1658383 1658387 1658389 1658411 1658413 1658417 1658429 1658441 1658443 1658471 1658479 1658483 1658497 1658509 1658513 1658533 1658561 1658611 1658617 1658623 1658627 1658669 1658711 1658749 1658753 1658759 1658801 1658807 1658827 1658837 1658849 1658857 1658869 1658873 1658893 1658927 1658941 1658957 1658963 1658971 1658977 1658989 1658999 1659011 1659029 1659041 1659067 1659083 1659101 1659103 1659107 1659109 1659131 1659169 1659181 1659187 1659211 1659223 1659233 1659239 1659263 1659269 1659277 1659299 1659323 1659347 1659349 1659373 1659401 1659407 1659431 1659443 1659451 1659457 1659491 1659527 1659533 1659547 1659551 1659569 1659571 1659587 1659613 1659629 1659643 1659649 1659653 1659661 1659667 1659673 1659683 1659719 1659731 1659737 1659787 1659797 1659809 1659811 1659817 1659851 1659877 1659881 1659883 1659893 1659913 1659919 1659971 1659997 1660007 1660037 1660039 1660063 1660069 1660073 1660097 1660103 1660111 1660121 1660133 1660177 1660189 1660199 1660207 1660229 1660231 1660247 1660259 1660261 1660283 1660289 1660297 1660357 1660367 1660387 1660409 1660411 1660423 1660433 1660457 1660469 1660471 1660489 1660493 1660499 1660507 1660517 1660553 1660559 1660573 1660601 1660609 1660661 1660663 1660667 1660691 1660697 1660699 1660709 1660721 1660723 1660727 1660739 1660741 1660751 1660783 1660793 1660837 1660843 1660871 1660873 1660889 1660921 1660943 1660957 1660963 1661003 1661021 1661029 1661059 1661063 1661069 1661111 1661117 1661123 1661137 1661141 1661159 1661161 1661173 1661237 1661243 1661249 1661251 1661273 1661281 1661293 1661311 1661327 1661333 1661347 1661353 1661431 1661437 1661441 1661447 1661479 1661489 1661503 1661519 1661549 1661557 1661567 1661587 1661599 1661623 1661629 1661641 1661659 1661663 1661669 1661677 1661713 1661731 1661741 1661789 1661813 1661827 1661831 1661833 1661839 1661851 1661857 1661861 1661887 1661893 1661899 1661917 1661939 1661953 1661969 1661977 1661983 1662007 1662013 1662029 1662041 1662083 1662103 1662119 1662121 1662149 1662161 1662163 1662191 1662211 1662217 1662223 1662229 1662257 1662281 1662293 1662307 1662319 1662341 1662347 1662361 1662377 1662383 1662389 1662403 1662439 1662449 1662457 1662467 1662487 1662491 1662503 1662517 1662527 1662547 1662553 1662559 1662571 1662581 1662589 1662593 1662611 1662629 1662631 1662637 1662641 1662643 1662653 1662667 1662697 1662701 1662707 1662733 1662737 1662751 1662757 1662761 1662779 1662781 1662803 1662833 1662839 1662841 1662851 1662863 1662883 1662893 1662901 1662929 1662943 1662953 1662959 1662961 1662977 1662979 1663009 1663027 1663031 1663073 1663091 1663099 1663117 1663133 1663147 1663157 1663169 1663183 1663217 1663219 1663223 1663267 1663273 1663289 1663301 1663303 1663309 1663327 1663349 1663351 1663373 1663379 1663381 1663391 1663397 1663457 1663463 1663477 1663481 1663513 1663517 1663523 1663537 1663547 1663549 1663579 1663589 1663609 1663619 1663681 1663687 1663693 1663703 1663709 1663721 1663747 1663763 1663771 1663777 1663789 1663793 1663813 1663861 1663867 1663873 1663877 1663891 1663913 1663919 1663951 1663967 1663973 1663997 1664009 1664017 1664021 1664053 1664063 1664071 1664083 1664101 1664123 1664227 1664251 1664261 1664279 1664287 1664291 1664353 1664387 1664407 1664417 1664431 1664437 1664447 1664459 1664461 1664501 1664543 1664549 1664557 1664561 1664563 1664569 1664627 1664633 1664651 1664653 1664681 1664701 1664711 1664713 1664771 1664797 1664801 1664807 1664821 1664833 1664849 1664857 1664863 1664867 1664869 1664893 1664903 1664909 1664941 1664959 1664987 1665007 1665023 1665029 1665043 1665061 1665067 1665071 1665073 1665091 1665107 1665109 1665121 1665137 1665143 1665149 1665161 1665173 1665197 1665211 1665221 1665233 1665247 1665263 1665271 1665277 1665311 1665317 1665343 1665421 1665427 1665437 1665451 1665467 1665479 1665493 1665523 1665527 1665529 1665533 1665563 1665569 1665571 1665577 1665581 1665583 1665611 1665619 1665623 1665647 1665649 1665659 1665679 1665689 1665701 1665709 1665757 1665761 1665767 1665823 1665827 1665841 1665869 1665877 1665889 1665899 1665907 1665919 1665929 1665931 1665941 1665943 1665967 1665973 1665997 1666003 1666019 1666037 1666039 1666043 1666061 1666081 1666111 1666127 1666139 1666151 1666177 1666201 1666211 1666213 1666237 1666261 1666271 1666279 1666297 1666303 1666307 1666309 1666321 1666339 1666351 1666361 1666387 1666393 1666397 1666403 1666409 1666417 1666421 1666429 1666447 1666477 1666481 1666487 1666499 1666507 1666519 1666523 1666531 1666541 1666559 1666589 1666597 1666607 1666619 1666627 1666657 1666711 1666727 1666729 1666733 1666757 1666771 1666781 1666783 1666789 1666793 1666807 1666811 1666823 1666843 1666853 1666871 1666897 1666909 1666913 1666919 1666933 1666939 1666943 1666991 1666999 1667033 1667047 1667051 1667053 1667077 1667131 1667143 1667147 1667179 1667189 1667209 1667213 1667227 1667233 1667243 1667249 1667251 1667279 1667287 1667291 1667311 1667321 1667329 1667353 1667357 1667359 1667363 1667389 1667401 1667417 1667423 1667441 1667443 1667447 1667461 1667473 1667489 1667507 1667509 1667537 1667543 1667551 1667579 1667597 1667599 1667609 1667623 1667629 1667639 1667641 1667647 1667651 1667663 1667689 1667693 1667711 1667723 1667741 1667747 1667749 1667773 1667777 1667779 1667789 1667791 1667821 1667833 1667837 1667843 1667851 1667863 1667867 1667873 1667881 1667899 1667917 1667933 1667947 1667951 1667957 1667959 1667969 1668001 1668011 1668019 1668031 1668053 1668061 1668083 1668089 1668113 1668119 1668131 1668133 1668137 1668197 1668211 1668229 1668241 1668253 1668299 1668301 1668307 1668313 1668319 1668323 1668347 1668361 1668379 1668427 1668437 1668449 1668467 1668473 1668479 1668481 1668503 1668509 1668517 1668521 1668539 1668551 1668553 1668587 1668593 1668617 1668619 1668629 1668647 1668649 1668679 1668683 1668721 1668727 1668739 1668743 1668757 1668773 1668791 1668803 1668833 1668847 1668869 1668883 1668889 1668911 1668913 1668929 1668943 1668971 1668983 1669027 1669049 1669061 1669091 1669097 1669099 1669103 1669121 1669127 1669141 1669147 1669163 1669177 1669193 1669201 1669219 1669223 1669231 1669237 1669243 1669249 1669253 1669259 1669279 1669289 1669301 1669309 1669313 1669331 1669351 1669357 1669361 1669391 1669399 1669427 1669433 1669441 1669453 1669463 1669469 1669471 1669489 1669513 1669537 1669541 1669543 1669571 1669579 1669589 1669597 1669627 1669637 1669649 1669651 1669687 1669697 1669727 1669741 1669747 1669751 1669763 1669781 1669783 1669793 1669799 1669813 1669817 1669861 1669873 1669879 1669883 1669897 1669931 1669933 1669937 1669951 1669963 1669979 1669999 1670003 1670017 1670057 1670059 1670089 1670093 1670129 1670161 1670171 1670183 1670213 1670269 1670281 1670287 1670303 1670327 1670341 1670353 1670359 1670399 1670407 1670411 1670413 1670419 1670447 1670477 1670489 1670491 1670503 1670519 1670527 1670531 1670533 1670551 1670561 1670563 1670567 1670569 1670579 1670597 1670623 1670629 1670633 1670639 1670653 1670657 1670659 1670687 1670717 1670723 1670741 1670761 1670783 1670813 1670819 1670827 1670831 1670833 1670857 1670863 1670887 1670891 1670899 1670923 1670953 1670959 1670971 1670983 1671041 1671053 1671073 1671077 1671097 1671101 1671121 1671133 1671139 1671161 1671191 1671199 1671209 1671211 1671223 1671227 1671277 1671289 1671311 1671337 1671343 1671347 1671349 1671359 1671379 1671421 1671431 1671437 1671443 1671451 1671463 1671493 1671497 1671511 1671517 1671521 1671577 1671581 1671599 1671619 1671629 1671641 1671643 1671671 1671679 1671689 1671707 1671713 1671727 1671731 1671739 1671757 1671781 1671907 1671941 1671947 1671961 1671977 1671983 1671997 1672003 1672009 1672037 1672051 1672063 1672079 1672081 1672087 1672091 1672117 1672129 1672199 1672219 1672243 1672271 1672301 1672331 1672337 1672339 1672379 1672381 1672393 1672421 1672423 1672441 1672453 1672457 1672469 1672471 1672487 1672499 1672501 1672507 1672519 1672523 1672529 1672549 1672553 1672603 1672607 1672609 1672631 1672637 1672639 1672651 1672663 1672747 1672751 1672753 1672771 1672787 1672799 1672849 1672861 1672873 1672889 1672897 1672901 1672921 1672927 1672939 1672949 1672961 1672963 1672967 1672999 1673011 1673017 1673027 1673053 1673069 1673071 1673081 1673099 1673107 1673131 1673137 1673167 1673171 1673179 1673183 1673207 1673209 1673237 1673249 1673279 1673281 1673297 1673317 1673339 1673377 1673381 1673389 1673393 1673401 1673407 1673437 1673447 1673453 1673461 1673489 1673509 1673513 1673519 1673527 1673543 1673563 1673569 1673591 1673627 1673629 1673663 1673669 1673681 1673713 1673719 1673723 1673731 1673741 1673747 1673753 1673759 1673797 1673807 1673809 1673813 1673827 1673831 1673839 1673849 1673857 1673897 1673923 1673927 1673933 1673941 1673951 1673953 1673981 1673983 1673993 1674011 1674047 1674053 1674067 1674073 1674107 1674133 1674151 1674157 1674161 1674163 1674181 1674203 1674209 1674259 1674269 1674271 1674289 1674301 1674319 1674329 1674353 1674371 1674391 1674433 1674437 1674457 1674461 1674473 1674503 1674523 1674539 1674557 1674559 1674577 1674581 1674587 1674593 1674599 1674601 1674613 1674623 1674637 1674643 1674649 1674667 1674683 1674703 1674733 1674737 1674763 1674767 1674769 1674787 1674797 1674817 1674821 1674847 1674887 1674889 1674901 1674913 1674917 1674919 1674931 1674941 1674947 1674949 1674971 1674989 1674991 1674997 1675001 1675007 1675013 1675039 1675049 1675057 1675073 1675087 1675109 1675111 1675117 1675133 1675139 1675181 1675183 1675199 1675213 1675217 1675259 1675273 1675279 1675283 1675291 1675307 1675321 1675327 1675339 1675351 1675361 1675369 1675379 1675393 1675411 1675441 1675447 1675459 1675463 1675507 1675561 1675567 1675577 1675579 1675589 1675607 1675613 1675627 1675631 1675637 1675679 1675697 1675703 1675717 1675721 1675733 1675747 1675759 1675763 1675769 1675771 1675787 1675789 1675799 1675801 1675831 1675847 1675859 1675867 1675873 1675931 1675937 1675943 1675951 1675963 1675967 1675981 1675991 1676023 1676027 1676029 1676041 1676053 1676069 1676071 1676083 1676111 1676167 1676173 1676221 1676243 1676261 1676267 1676281 1676303 1676321 1676333 1676347 1676383 1676393 1676413 1676417 1676431 1676453 1676471 1676473 1676497 1676501 1676533 1676551 1676561 1676569 1676593 1676599 1676611 1676621 1676627 1676629 1676641 1676651 1676663 1676687 1676711 1676713 1676749 1676767 1676771 1676783 1676813 1676827 1676833 1676837 1676869 1676879 1676887 1676891 1676893 1676911 1676923 1676947 1676963 1676971 1676981 1676993 1677001 1677019 1677031 1677037 1677047 1677083 1677089 1677113 1677121 1677133 1677163 1677167 1677191 1677197 1677199 1677209 1677217 1677251 1677253 1677281 1677283 1677287 1677323 1677329 1677337 1677343 1677349 1677353 1677359 1677443 1677451 1677457 1677461 1677463 1677499 1677521 1677523 1677527 1677539 1677569 1677583 1677589 1677593 1677631 1677667 1677673 1677703 1677707 1677721 1677727 1677733 1677743 1677773 1677779 1677787 1677791 1677811 1677847 1677857 1677877 1677887 1677899 1677941 1677961 1677971 1677997 1678009 1678013 1678021 1678031 1678037 1678067 1678069 1678073 1678091 1678093 1678111 1678129 1678133 1678151 1678153 1678181 1678199 1678207 1678217 1678219 1678231 1678249 1678267 1678277 1678301 1678319 1678321 1678331 1678337 1678349 1678361 1678363 1678367 1678381 1678399 1678409 1678421 1678423 1678429 1678459 1678463 1678507 1678531 1678543 1678553 1678571 1678577 1678601 1678603 1678613 1678627 1678639 1678657 1678673 1678679 1678687 1678693 1678697 1678711 1678717 1678739 1678751 1678753 1678757 1678759 1678769 1678771 1678777 1678837 1678843 1678847 1678861 1678871 1678877 1678879 1678883 1678889 1678891 1678921 1678951 1678961 1678979 1678993 1679009 1679017 1679033 1679057 1679059 1679077 1679099 1679101 1679113 1679123 1679131 1679143 1679159 1679189 1679203 1679213 1679233 1679261 1679267 1679273 1679281 1679287 1679291 1679297 1679323 1679329 1679333 1679351 1679371 1679383 1679417 1679443 1679459 1679471 1679473 1679479 1679501 1679521 1679533 1679539 1679599 1679603 1679609 1679627 1679633 1679641 1679653 1679659 1679669 1679681 1679683 1679687 1679693 1679701 1679723 1679773 1679779 1679801 1679807 1679831 1679833 1679849 1679857 1679863 1679903 1679917 1679939 1679959 1679963 1679981 1680013 1680023 1680071 1680079 1680089 1680101 1680103 1680121 1680131 1680149 1680167 1680179 1680181 1680191 1680247 1680253 1680269 1680271 1680277 1680313 1680317 1680319 1680323 1680359 1680361 1680373 1680377 1680401 1680407 1680421 1680431 1680439 1680457 1680461 1680491 1680509 1680527 1680529 1680551 1680557 1680583 1680589 1680593 1680617 1680643 1680647 1680659 1680689 1680697 1680703 1680709 1680743 1680761 1680779 1680787 1680793 1680803 1680821 1680823 1680839 1680859 1680871 1680881 1680893 1680901 1680907 1680919 1680929 1680961 1680967 1680979 1680983 1681003 1681007 1681027 1681033 1681061 1681073 1681091 1681103 1681129 1681151 1681157 1681187 1681193 1681201 1681219 1681241 1681247 1681259 1681261 1681271 1681279 1681289 1681307 1681321 1681349 1681363 1681397 1681403 1681411 1681423 1681469 1681501 1681513 1681517 1681541 1681571 1681573 1681579 1681591 1681597 1681619 1681621 1681639 1681649 1681651 1681661 1681679 1681703 1681711 1681717 1681721 1681723 1681787 1681807 1681817 1681837 1681853 1681871 1681873 1681877 1681879 1681891 1681903 1681907 1681931 1681957 1681973 1681991 1682017 1682047 1682069 1682081 1682101 1682111 1682119 1682123 1682143 1682159 1682179 1682207 1682237 1682249 1682251 1682257 1682281 1682287 1682293 1682311 1682333 1682363 1682383 1682389 1682399 1682407 1682413 1682423 1682449 1682477 1682479 1682489 1682509 1682521 1682531 1682537 1682539 1682543 1682557 1682561 1682567 1682573 1682581 1682627 1682663 1682669 1682671 1682693 1682701 1682713 1682717 1682753 1682801 1682809 1682827 1682831 1682833 1682843 1682867 1682893 1682911 1682939 1682951 1682987 1682999 1683007 1683013 1683029 1683037 1683041 1683043 1683049 1683053 1683067 1683089 1683103 1683113 1683169 1683223 1683233 1683239 1683251 1683259 1683271 1683293 1683299 1683313 1683317 1683359 1683373 1683397 1683403 1683433 1683467 1683469 1683491 1683497 1683503 1683523 1683553 1683581 1683589 1683601 1683631 1683637 1683667 1683673 1683679 1683691 1683719 1683733 1683749 1683767 1683779 1683817 1683839 1683841 1683887 1683949 1683971 1683977 1684019 1684031 1684063 1684079 1684091 1684097 1684099 1684127 1684169 1684171 1684187 1684223 1684229 1684231 1684237 1684247 1684259 1684283 1684289 1684297 1684301 1684303 1684307 1684327 1684337 1684373 1684379 1684387 1684399 1684409 1684427 1684477 1684481 1684489 1684511 1684531 1684537 1684549 1684561 1684577 1684591 1684607 1684609 1684667 1684679 1684691 1684693 1684703 1684733 1684741 1684763 1684769 1684777 1684789 1684801 1684829 1684843 1684861 1684867 1684873 1684877 1684883 1684919 1684937 1684951 1684973 1684979 1684993 1684999 1685011 1685039 1685051 1685071 1685077 1685087 1685093 1685107 1685111 1685113 1685119 1685153 1685171 1685179 1685207 1685209 1685221 1685231 1685267 1685269 1685273 1685297 1685317 1685323 1685381 1685399 1685407 1685419 1685423 1685429 1685441 1685443 1685447 1685449 1685459 1685473 1685477 1685479 1685483 1685503 1685521 1685527 1685543 1685549 1685573 1685581 1685591 1685599 1685617 1685627 1685681 1685701 1685707 1685711 1685713 1685731 1685759 1685767 1685773 1685777 1685779 1685809 1685819 1685821 1685833 1685837 1685861 1685863 1685869 1685881 1685897 1685911 1685917 1685933 1685951 1685953 1685963 1685977 1685989 1686017 1686029 1686049 1686067 1686071 1686109 1686119 1686133 1686137 1686143 1686149 1686169 1686173 1686197 1686203 1686229 1686239 1686257 1686259 1686271 1686287 1686319 1686329 1686341 1686343 1686353 1686367 1686389 1686403 1686409 1686439 1686449 1686473 1686479 1686491 1686511 1686527 1686547 1686551 1686563 1686569 1686583 1686593 1686631 1686637 1686647 1686661 1686667 1686673 1686677 1686683 1686697 1686701 1686703 1686743 1686749 1686779 1686823 1686827 1686851 1686857 1686871 1686907 1686913 1686931 1686943 1686967 1686973 1686983 1687009 1687033 1687039 1687057 1687061 1687087 1687111 1687117 1687129 1687139 1687151 1687157 1687171 1687177 1687183 1687187 1687193 1687247 1687289 1687297 1687319 1687327 1687331 1687339 1687373 1687381 1687393 1687421 1687451 1687453 1687489 1687507 1687531 1687549 1687559 1687571 1687583 1687591 1687603 1687613 1687627 1687633 1687643 1687657 1687661 1687667 1687669 1687729 1687739 1687757 1687759 1687781 1687783 1687799 1687801 1687823 1687831 1687837 1687843 1687849 1687853 1687859 1687909 1687937 1687949 1687963 1687969 1687991 1687999 1688041 1688047 1688069 1688077 1688081 1688101 1688123 1688143 1688147 1688153 1688161 1688173 1688179 1688189 1688201 1688213 1688231 1688237 1688243 1688261 1688263 1688279 1688299 1688311 1688317 1688327 1688329 1688341 1688363 1688369 1688371 1688387 1688411 1688413 1688443 1688471 1688497 1688509 1688543 1688573 1688579 1688623 1688629 1688651 1688657 1688669 1688677 1688681 1688741 1688759 1688773 1688789 1688803 1688809 1688837 1688857 1688861 1688887 1688893 1688903 1688909 1688917 1688923 1688927 1688969 1688971 1688977 1688987 1689031 1689049 1689053 1689067 1689071 1689109 1689113 1689167 1689197 1689199 1689211 1689217 1689253 1689263 1689277 1689287 1689319 1689343 1689353 1689367 1689377 1689379 1689397 1689431 1689437 1689451 1689497 1689503 1689521 1689533 1689551 1689553 1689601 1689607 1689617 1689641 1689659 1689661 1689703 1689707 1689713 1689719 1689739 1689757 1689763 1689767 1689773 1689781 1689829 1689847 1689869 1689881 1689893 1689907 1689911 1689913 1689923 1689929 1689931 1689967 1690009 1690019 1690043 1690057 1690067 1690079 1690081 1690097 1690099 1690103 1690121 1690153 1690187 1690189 1690193 1690211 1690217 1690219 1690229 1690231 1690253 1690267 1690277 1690303 1690309 1690313 1690319 1690349 1690357 1690387 1690393 1690421 1690427 1690433 1690441 1690483 1690519 1690529 1690537 1690547 1690571 1690573 1690597 1690603 1690609 1690621 1690651 1690669 1690673 1690681 1690687 1690691 1690693 1690727 1690739 1690757 1690781 1690783 1690811 1690831 1690847 1690849 1690853 1690883 1690901 1690933 1690967 1690993 1691003 1691023 1691033 1691051 1691069 1691087 1691093 1691099 1691101 1691113 1691119 1691141 1691161 1691189 1691219 1691227 1691231 1691237 1691243 1691257 1691269 1691273 1691293 1691297 1691303 1691321 1691359 1691369 1691387 1691401 1691411 1691413 1691419 1691423 1691429 1691441 1691461 1691479 1691507 1691519 1691527 1691531 1691533 1691561 1691567 1691593 1691611 1691621 1691633 1691647 1691659 1691681 1691689 1691693 1691737 1691747 1691759 1691771 1691803 1691821 1691827 1691839 1691843 1691849 1691861 1691863 1691867 1691869 1691897 1691917 1691927 1691933 1691939 1691983 1692013 1692017 1692023 1692043 1692049 1692059 1692071 1692091 1692107 1692137 1692139 1692149 1692161 1692167 1692181 1692191 1692199 1692203 1692217 1692221 1692233 1692239 1692241 1692247 1692253 1692283 1692293 1692337 1692377 1692407 1692413 1692421 1692433 1692461 1692473 1692479 1692499 1692511 1692541 1692563 1692583 1692589 1692629 1692637 1692641 1692667 1692679 1692683 1692697 1692709 1692721 1692727 1692737 1692749 1692763 1692791 1692827 1692829 1692839 1692857 1692863 1692871 1692883 1692907 1692917 1692947 1692949 1692959 1692967 1692983 1692989 1693001 1693031 1693051 1693067 1693073 1693091 1693093 1693103 1693129 1693169 1693171 1693187 1693201 1693249 1693267 1693271 1693273 1693277 1693303 1693309 1693327 1693331 1693333 1693343 1693357 1693361 1693411 1693427 1693429 1693441 1693493 1693501 1693511 1693529 1693537 1693541 1693553 1693577 1693579 1693583 1693607 1693613 1693621 1693631 1693633 1693639 1693649 1693661 1693663 1693667 1693691 1693711 1693729 1693753 1693763 1693777 1693807 1693817 1693841 1693859 1693883 1693889 1693891 1693921 1693943 1693957 1693987 1694023 1694027 1694029 1694051 1694081 1694083 1694089 1694123 1694129 1694141 1694159 1694167 1694171 1694177 1694191 1694197 1694207 1694213 1694221 1694227 1694233 1694239 1694263 1694281 1694291 1694309 1694311 1694327 1694351 1694353 1694359 1694369 1694377 1694393 1694423 1694443 1694447 1694449 1694467 1694503 1694507 1694513 1694521 1694533 1694551 1694573 1694599 1694603 1694621 1694647 1694681 1694689 1694701 1694717 1694723 1694729 1694761 1694767 1694779 1694809 1694821 1694831 1694837 1694851 1694879 1694897 1694909 1694921 1694929 1694941 1694977 1694989 1695041 1695061 1695073 1695091 1695107 1695131 1695139 1695143 1695157 1695163 1695191 1695209 1695233 1695259 1695283 1695289 1695293 1695319 1695329 1695341 1695347 1695349 1695401 1695403 1695413 1695433 1695437 1695439 1695457 1695467 1695481 1695493 1695509 1695511 1695527 1695553 1695559 1695581 1695593 1695611 1695623 1695641 1695643 1695653 1695671 1695691 1695697 1695709 1695737 1695751 1695761 1695763 1695779 1695781 1695797 1695809 1695817 1695823 1695839 1695847 1695853 1695871 1695887 1695899 1695913 1695929 1695961 1695989 1696001 1696021 1696027 1696033 1696069 1696081 1696099 1696109 1696127 1696153 1696157 1696169 1696193 1696199 1696207 1696213 1696231 1696237 1696241 1696249 1696259 1696283 1696291 1696313 1696327 1696333 1696363 1696369 1696391 1696417 1696421 1696423 1696439 1696451 1696459 1696463 1696493 1696501 1696511 1696517 1696523 1696543 1696547 1696571 1696577 1696579 1696589 1696601 1696609 1696649 1696657 1696691 1696693 1696697 1696711 1696729 1696801 1696811 1696859 1696861 1696879 1696883 1696943 1696951 1696969 1696973 1696979 1697027 1697039 1697041 1697053 1697057 1697063 1697071 1697077 1697083 1697107 1697149 1697159 1697173 1697191 1697197 1697231 1697243 1697257 1697261 1697287 1697291 1697299 1697309 1697317 1697321 1697347 1697351 1697357 1697383 1697389 1697401 1697407 1697411 1697413 1697419 1697453 1697459 1697461 1697471 1697477 1697491 1697503 1697519 1697533 1697551 1697581 1697587 1697621 1697623 1697627 1697651 1697677 1697701 1697719 1697723 1697737 1697741 1697743 1697753 1697767 1697771 1697797 1697803 1697827 1697833 1697867 1697869 1697873 1697881 1697887 1697903 1697953 1697957 1697959 1697987 1697989 1698001 1698007 1698013 1698023 1698029 1698043 1698061 1698071 1698077 1698089 1698101 1698119 1698121 1698127 1698131 1698133 1698139 1698167 1698217 1698227 1698233 1698241 1698247 1698253 1698259 1698271 1698289 1698311 1698313 1698349 1698377 1698379 1698409 1698413 1698427 1698449 1698461 1698469 1698497 1698509 1698511 1698539 1698553 1698569 1698607 1698611 1698643 1698647 1698679 1698689 1698701 1698709 1698713 1698727 1698751 1698773 1698797 1698799 1698821 1698833 1698857 1698859 1698869 1698871 1698877 1698881 1698883 1698913 1698943 1698947 1698953 1698967 1698971 1699001 1699007 1699039 1699043 1699063 1699067 1699069 1699073 1699091 1699109 1699111 1699129 1699153 1699157 1699177 1699193 1699213 1699219 1699223 1699237 1699249 1699279 1699289 1699297 1699301 1699307 1699319 1699331 1699333 1699349 1699361 1699381 1699391 1699393 1699421 1699427 1699457 1699469 1699471 1699499 1699501 1699517 1699543 1699547 1699571 1699597 1699619 1699627 1699639 1699651 1699667 1699679 1699681 1699703 1699717 1699727 1699739 1699741 1699781 1699783 1699787 1699793 1699799 1699801 1699829 1699837 1699853 1699871 1699877 1699879 1699897 1699921 1699933 1699937 1699939 1699969 1699993 1700021 1700047 1700053 1700059 1700077 1700087 1700099 1700107 1700129 1700141 1700143 1700161 1700173 1700189 1700197 1700219 1700233 1700267 1700269 1700287 1700297 1700327 1700339 1700341 1700353 1700359 1700371 1700383 1700423 1700431 1700437 1700441 1700471 1700477 1700513 1700533 1700549 1700563 1700591 1700593 1700603 1700609 1700617 1700627 1700651 1700659 1700669 1700683 1700687 1700719 1700723 1700729 1700749 1700759 1700761 1700767 1700771 1700801 1700807 1700813 1700819 1700849 1700851 1700917 1700921 1700981 1700983 1700987 1701017 1701019 1701023 1701041 1701043 1701047 1701059 1701061 1701079 1701101 1701121 1701137 1701151 1701179 1701181 1701199 1701233 1701239 1701263 1701269 1701277 1701289 1701299 1701307 1701313 1701361 1701367 1701389 1701391 1701397 1701433 1701437 1701439 1701449 1701461 1701487 1701493 1701503 1701509 1701521 1701523 1701527 1701533 1701571 1701577 1701589 1701607 1701613 1701617 1701629 1701641 1701643 1701647 1701653 1701709 1701719 1701727 1701731 1701743 1701757 1701761 1701767 1701803 1701809 1701827 1701829 1701841 1701851 1701857 1701859 1701871 1701877 1701881 1701899 1701901 1701911 1701913 1701967 1701971 1701979 1701991 1702009 1702013 1702061 1702079 1702087 1702093 1702109 1702121 1702133 1702139 1702171 1702177 1702189 1702219 1702237 1702243 1702249 1702291 1702313 1702319 1702321 1702339 1702369 1702373 1702409 1702417 1702423 1702429 1702507 1702511 1702523 1702543 1702549 1702553 1702573 1702577 1702627 1702637 1702639 1702643 1702661 1702663 1702697 1702709 1702711 1702717 1702721 1702739 1702741 1702747 1702751 1702781 1702783 1702801 1702807 1702817 1702819 1702823 1702849 1702867 1702879 1702891 1702901 1702903 1702927 1702931 1702933 1702949 1702963 1702969 1702991 1702993 1703041 1703063 1703071 1703089 1703113 1703123 1703159 1703183 1703203 1703227 1703231 1703237 1703267 1703269 1703287 1703291 1703297 1703323 1703381 1703399 1703413 1703437 1703447 1703453 1703461 1703467 1703479 1703501 1703557 1703563 1703573 1703593 1703599 1703627 1703651 1703683 1703687 1703693 1703707 1703717 1703719 1703731 1703773 1703783 1703809 1703833 1703843 1703851 1703857 1703899 1703903 1703941 1703957 1703963 1703983 1703993 1704023 1704041 1704067 1704077 1704103 1704119 1704121 1704137 1704149 1704161 1704169 1704181 1704187 1704203 1704211 1704217 1704229 1704251 1704271 1704289 1704299 1704343 1704347 1704371 1704377 1704397 1704407 1704421 1704431 1704449 1704463 1704487 1704499 1704511 1704517 1704529 1704551 1704559 1704587 1704589 1704601 1704611 1704613 1704671 1704673 1704679 1704683 1704713 1704727 1704751 1704757 1704763 1704793 1704799 1704803 1704809 1704841 1704847 1704877 1704887 1704893 1704919 1704929 1704931 1704943 1704953 1704961 1704971 1704979 1704991 1705001 1705009 1705021 1705051 1705097 1705103 1705111 1705127 1705129 1705139 1705141 1705153 1705157 1705181 1705189 1705199 1705211 1705241 1705247 1705267 1705271 1705273 1705303 1705309 1705331 1705339 1705369 1705387 1705393 1705397 1705399 1705409 1705433 1705447 1705463 1705481 1705493 1705549 1705579 1705591 1705597 1705601 1705637 1705667 1705679 1705721 1705747 1705757 1705799 1705807 1705813 1705817 1705819 1705829 1705843 1705849 1705859 1705861 1705871 1705883 1705889 1705897 1705903 1705931 1705943 1705973 1705997 1706009 1706057 1706063 1706077 1706087 1706113 1706129 1706141 1706153 1706167 1706179 1706191 1706213 1706227 1706233 1706249 1706251 1706281 1706291 1706293 1706311 1706317 1706323 1706363 1706381 1706387 1706399 1706417 1706437 1706449 1706459 1706473 1706483 1706489 1706491 1706501 1706527 1706533 1706539 1706567 1706569 1706591 1706603 1706629 1706633 1706641 1706651 1706657 1706659 1706687 1706689 1706701 1706741 1706743 1706777 1706791 1706797 1706801 1706821 1706843 1706849 1706857 1706863 1706867 1706869 1706897 1706927 1706951 1706977 1706981 1706989 1707067 1707071 1707073 1707107 1707113 1707119 1707127 1707137 1707161 1707163 1707179 1707197 1707253 1707257 1707301 1707331 1707341 1707347 1707353 1707367 1707371 1707379 1707389 1707403 1707413 1707421 1707437 1707443 1707457 1707467 1707499 1707509 1707521 1707523 1707529 1707533 1707539 1707551 1707577 1707581 1707611 1707617 1707631 1707647 1707649 1707707 1707709 1707733 1707737 1707757 1707767 1707779 1707787 1707791 1707833 1707851 1707863 1707869 1707887 1707889 1707899 1707907 1707913 1707919 1707931 1707941 1707943 1707947 1707977 1707983 1708009 1708033 1708037 1708039 1708051 1708067 1708079 1708087 1708103 1708159 1708163 1708169 1708181 1708207 1708219 1708229 1708247 1708283 1708307 1708321 1708339 1708351 1708363 1708373 1708387 1708391 1708397 1708409 1708411 1708439 1708453 1708457 1708493 1708507 1708513 1708523 1708529 1708541 1708543 1708571 1708573 1708579 1708607 1708621 1708639 1708649 1708657 1708669 1708703 1708717 1708741 1708769 1708781 1708783 1708799 1708807 1708829 1708853 1708859 1708871 1708909 1708939 1708943 1708951 1708961 1708963 1708979 1708981 1708991 1708997 1709009 1709017 1709033 1709047 1709077 1709087 1709093 1709131 1709137 1709143 1709161 1709189 1709203 1709209 1709233 1709243 1709251 1709261 1709263 1709269 1709287 1709317 1709321 1709327 1709339 1709341 1709353 1709359 1709377 1709387 1709443 1709453 1709473 1709479 1709483 1709489 1709497 1709501 1709507 1709509 1709527 1709593 1709599 1709611 1709633 1709663 1709671 1709689 1709693 1709699 1709711 1709713 1709749 1709767 1709783 1709789 1709837 1709861 1709863 1709909 1709923 1709933 1709941 1709951 1709959 1709963 1709969 1709971 1709989 1709993 1709999 1710011 1710017 1710061 1710077 1710083 1710091 1710097 1710131 1710139 1710161 1710167 1710179 1710193 1710197 1710199 1710221 1710229 1710253 1710263 1710287 1710299 1710307 1710311 1710337 1710341 1710343 1710347 1710383 1710389 1710403 1710407 1710409 1710413 1710419 1710431 1710439 1710493 1710517 1710529 1710539 1710593 1710601 1710607 1710613 1710617 1710619 1710629 1710647 1710661 1710677 1710689 1710691 1710697 1710701 1710757 1710767 1710781 1710791 1710799 1710833 1710851 1710853 1710857 1710869 1710871 1710881 1710923 1710937 1710953 1710959 1710997 1711019 1711043 1711049 1711051 1711069 1711081 1711091 1711093 1711097 1711103 1711117 1711123 1711153 1711163 1711181 1711189 1711207 1711277 1711279 1711289 1711291 1711327 1711351 1711379 1711397 1711399 1711427 1711447 1711459 1711471 1711481 1711487 1711511 1711517 1711519 1711547 1711553 1711561 1711573 1711613 1711621 1711639 1711643 1711651 1711669 1711673 1711687 1711753 1711763 1711793 1711799 1711811 1711813 1711817 1711819 1711859 1711889 1711891 1711901 1711909 1711921 1711937 1711949 1711961 1711967 1711973 1711979 1711981 1711993 1712017 1712047 1712057 1712077 1712129 1712141 1712149 1712153 1712171 1712173 1712177 1712197 1712203 1712213 1712219 1712231 1712237 1712267 1712287 1712311 1712329 1712339 1712353 1712369 1712371 1712383 1712387 1712401 1712407 1712411 1712437 1712467 1712497 1712509 1712519 1712531 1712549 1712551 1712567 1712569 1712617 1712621 1712629 1712639 1712707 1712743 1712747 1712759 1712761 1712771 1712791 1712807 1712813 1712839 1712861 1712881 1712891 1712899 1712917 1712927 1712929 1712933 1712951 1712969 1712981 1712987 1713007 1713043 1713071 1713083 1713121 1713133 1713167 1713181 1713221 1713223 1713227 1713251 1713281 1713289 1713317 1713319 1713329 1713343 1713353 1713373 1713389 1713403 1713449 1713457 1713469 1713493 1713497 1713511 1713521 1713541 1713557 1713559 1713599 1713601 1713637 1713641 1713671 1713683 1713689 1713709 1713713 1713737 1713749 1713763 1713769 1713779 1713791 1713797 1713809 1713823 1713847 1713853 1713863 1713883 1713913 1713919 1713931 1713941 1713977 1713979 1713989 1713997 1714003 1714049 1714057 1714067 1714091 1714117 1714133 1714147 1714151 1714157 1714159 1714171 1714177 1714183 1714187 1714189 1714211 1714241 1714253 1714261 1714289 1714327 1714369 1714387 1714403 1714409 1714411 1714417 1714421 1714423 1714439 1714441 1714457 1714477 1714483 1714499 1714507 1714519 1714529 1714547 1714577 1714591 1714621 1714631 1714633 1714639 1714651 1714663 1714667 1714723 1714729 1714747 1714751 1714759 1714777 1714787 1714789 1714793 1714813 1714819 1714831 1714837 1714849 1714859 1714861 1714871 1714891 1714901 1714919 1714931 1714939 1714957 1714963 1715033 1715039 1715047 1715059 1715099 1715107 1715117 1715123 1715143 1715167 1715177 1715213 1715237 1715243 1715269 1715293 1715309 1715341 1715353 1715369 1715387 1715393 1715407 1715411 1715429 1715449 1715459 1715471 1715473 1715479 1715489 1715507 1715513 1715533 1715537 1715561 1715569 1715599 1715603 1715617 1715621 1715627 1715683 1715711 1715713 1715717 1715723 1715729 1715737 1715741 1715761 1715767 1715771 1715783 1715789 1715797 1715807 1715821 1715849 1715851 1715867 1715873 1715887 1715899 1715911 1715927 1715971 1715983 1716037 1716041 1716047 1716049 1716059 1716079 1716089 1716103 1716107 1716109 1716139 1716149 1716163 1716181 1716203 1716217 1716241 1716263 1716271 1716277 1716287 1716311 1716313 1716317 1716343 1716359 1716361 1716367 1716389 1716391 1716397 1716401 1716413 1716419 1716427 1716443 1716457 1716469 1716497 1716499 1716509 1716521 1716529 1716551 1716557 1716577 1716599 1716613 1716619 1716623 1716647 1716653 1716661 1716667 1716683 1716691 1716703 1716733 1716751 1716761 1716787 1716791 1716797 1716839 1716853 1716889 1716893 1716901 1716917 1716931 1716937 1716941 1716943 1716971 1716991 1717007 1717043 1717063 1717081 1717099 1717117 1717129 1717139 1717151 1717169 1717181 1717217 1717229 1717237 1717241 1717283 1717297 1717321 1717337 1717343 1717349 1717361 1717363 1717379 1717393 1717399 1717439 1717447 1717451 1717477 1717489 1717501 1717517 1717553 1717567 1717591 1717603 1717609 1717621 1717627 1717631 1717637 1717669 1717673 1717687 1717739 1717747 1717787 1717817 1717829 1717853 1717861 1717913 1717951 1717957 1717973 1717981 1717993 1718011 1718027 1718029 1718033 1718039 1718053 1718069 1718083 1718107 1718131 1718137 1718141 1718153 1718159 1718177 1718191 1718203 1718219 1718251 1718267 1718281 1718287 1718291 1718293 1718333 1718357 1718369 1718371 1718383 1718389 1718393 1718401 1718407 1718429 1718441 1718447 1718449 1718459 1718467 1718471 1718473 1718477 1718489 1718503 1718551 1718557 1718567 1718573 1718593 1718599 1718653 1718663 1718669 1718693 1718699 1718701 1718707 1718711 1718713 1718719 1718723 1718747 1718749 1718771 1718789 1718791 1718807 1718861 1718863 1718867 1718869 1718879 1718881 1718891 1718923 1718929 1718933 1718947 1718971 1719001 1719049 1719059 1719143 1719187 1719197 1719203 1719209 1719217 1719233 1719239 1719241 1719271 1719293 1719299 1719301 1719317 1719337 1719343 1719359 1719409 1719413 1719433 1719451 1719469 1719491 1719493 1719517 1719541 1719547 1719551 1719583 1719607 1719611 1719623 1719629 1719643 1719647 1719659 1719667 1719701 1719719 1719721 1719743 1719749 1719763 1719799 1719829 1719841 1719853 1719857 1719859 1719863 1719869 1719877 1719901 1719919 1719923 1719931 1719943 1719947 1719967 1719983 1719989 1720003 1720031 1720039 1720049 1720057 1720063 1720109 1720123 1720133 1720151 1720157 1720163 1720171 1720177 1720181 1720183 1720189 1720211 1720217 1720219 1720223 1720231 1720273 1720289 1720291 1720297 1720307 1720321 1720339 1720361 1720363 1720379 1720399 1720421 1720427 1720429 1720457 1720471 1720513 1720517 1720549 1720591 1720597 1720603 1720613 1720619 1720633 1720639 1720643 1720669 1720679 1720703 1720709 1720711 1720769 1720777 1720781 1720787 1720799 1720843 1720847 1720867 1720897 1720909 1720931 1720933 1720937 1720949 1720951 1720973 1720991 1721003 1721009 1721011 1721023 1721081 1721123 1721143 1721147 1721149 1721183 1721197 1721201 1721227 1721243 1721257 1721261 1721273 1721299 1721323 1721327 1721339 1721347 1721371 1721383 1721407 1721417 1721441 1721449 1721453 1721477 1721497 1721501 1721507 1721509 1721513 1721521 1721543 1721557 1721567 1721569 1721579 1721593 1721633 1721639 1721651 1721659 1721683 1721689 1721693 1721717 1721719 1721729 1721749 1721767 1721773 1721779 1721807 1721809 1721827 1721831 1721857 1721887 1721891 1721893 1721899 1721903 1721911 1721921 1721927 1721983 1722013 1722029 1722031 1722037 1722053 1722067 1722073 1722089 1722113 1722131 1722137 1722163 1722173 1722181 1722187 1722191 1722199 1722209 1722211 1722241 1722251 1722283 1722307 1722319 1722323 1722359 1722373 1722377 1722419 1722431 1722443 1722449 1722463 1722481 1722529 1722551 1722557 1722563 1722587 1722599 1722601 1722607 1722619 1722647 1722649 1722653 1722667 1722713 1722719 1722731 1722737 1722739 1722751 1722793 1722821 1722829 1722839 1722857 1722869 1722883 1722893 1722923 1722937 1722983 1722989 1722991 1723003 1723027 1723031 1723037 1723063 1723109 1723147 1723177 1723193 1723219 1723223 1723231 1723247 1723277 1723291 1723303 1723327 1723333 1723339 1723361 1723369 1723417 1723451 1723453 1723481 1723487 1723489 1723523 1723541 1723573 1723577 1723583 1723609 1723619 1723621 1723627 1723637 1723639 1723651 1723669 1723721 1723723 1723727 1723747 1723751 1723769 1723801 1723807 1723811 1723823 1723837 1723853 1723861 1723903 1723957 1723961 1723973 1723991 1724027 1724029 1724033 1724059 1724083 1724113 1724131 1724147 1724153 1724183 1724201 1724209 1724221 1724227 1724263 1724273 1724299 1724309 1724321 1724329 1724339 1724347 1724351 1724357 1724363 1724389 1724399 1724407 1724413 1724417 1724423 1724441 1724447 1724449 1724453 1724473 1724483 1724507 1724509 1724537 1724551 1724557 1724579 1724581 1724587 1724617 1724627 1724641 1724651 1724663 1724669 1724677 1724683 1724689 1724699 1724713 1724741 1724743 1724761 1724783 1724791 1724813 1724819 1724843 1724857 1724861 1724887 1724893 1724923 1724927 1724929 1724969 1724971 1724981 1724999 1725011 1725013 1725071 1725077 1725079 1725083 1725089 1725091 1725121 1725127 1725133 1725151 1725173 1725179 1725197 1725221 1725223 1725233 1725247 1725259 1725287 1725301 1725307 1725343 1725359 1725379 1725389 1725419 1725463 1725469 1725481 1725497 1725499 1725509 1725527 1725539 1725541 1725557 1725583 1725593 1725617 1725641 1725671 1725683 1725697 1725707 1725743 1725767 1725781 1725811 1725821 1725833 1725859 1725869 1725907 1725923 1725929 1725931 1725937 1725947 1725953 1725961 1725967 1725991 1726003 1726009 1726031 1726033 1726037 1726079 1726091 1726103 1726139 1726147 1726159 1726171 1726189 1726199 1726201 1726211 1726217 1726237 1726253 1726259 1726267 1726273 1726289 1726303 1726313 1726327 1726339 1726343 1726349 1726363 1726379 1726409 1726411 1726429 1726433 1726441 1726447 1726453 1726471 1726477 1726481 1726489 1726513 1726561 1726567 1726577 1726591 1726597 1726601 1726603 1726609 1726643 1726651 1726661 1726667 1726691 1726693 1726729 1726757 1726759 1726787 1726811 1726841 1726859 1726883 1726897 1726903 1726913 1726919 1726927 1726931 1726937 1726939 1726943 1726951 1726957 1726969 1726993 1726997 1727021 1727023 1727029 1727051 1727057 1727069 1727071 1727101 1727113 1727129 1727137 1727161 1727179 1727189 1727191 1727221 1727261 1727263 1727273 1727287 1727291 1727293 1727317 1727321 1727329 1727339 1727377 1727381 1727393 1727417 1727437 1727441 1727483 1727491 1727503 1727513 1727521 1727527 1727533 1727563 1727569 1727573 1727587 1727597 1727623 1727639 1727653 1727669 1727683 1727701 1727711 1727717 1727743 1727749 1727771 1727773 1727777 1727779 1727797 1727813 1727819 1727827 1727839 1727851 1727881 1727903 1727911 1727923 1727939 1727941 1727951 1727969 1727987 1727989 1728017 1728019 1728043 1728061 1728071 1728091 1728119 1728121 1728149 1728163 1728179 1728193 1728229 1728247 1728253 1728257 1728269 1728317 1728319 1728323 1728329 1728341 1728361 1728403 1728409 1728439 1728451 1728457 1728481 1728511 1728527 1728539 1728541 1728547 1728581 1728583 1728593 1728659 1728689 1728691 1728697 1728733 1728737 1728739 1728761 1728767 1728773 1728809 1728821 1728823 1728827 1728871 1728889 1728907 1728911 1728949 1728953 1728959 1728967 1728971 1728977 1728983 1728997 1729001 1729033 1729037 1729043 1729051 1729103 1729109 1729127 1729129 1729141 1729153 1729157 1729187 1729193 1729207 1729229 1729237 1729249 1729253 1729261 1729279 1729283 1729307 1729309 1729327 1729333 1729363 1729369 1729373 1729379 1729391 1729433 1729447 1729457 1729477 1729487 1729493 1729499 1729517 1729523 1729543 1729591 1729621 1729633 1729681 1729687 1729697 1729709 1729711 1729723 1729727 1729747 1729757 1729759 1729771 1729789 1729799 1729813 1729823 1729829 1729841 1729843 1729877 1729891 1729901 1729909 1729921 1729927 1729943 1729957 1729961 1730041 1730063 1730081 1730087 1730089 1730101 1730119 1730147 1730149 1730153 1730167 1730171 1730177 1730207 1730213 1730237 1730263 1730299 1730303 1730317 1730353 1730357 1730371 1730429 1730431 1730437 1730441 1730461 1730471 1730473 1730507 1730551 1730567 1730579 1730581 1730591 1730623 1730657 1730671 1730683 1730693 1730713 1730717 1730723 1730741 1730779 1730789 1730791 1730797 1730809 1730831 1730849 1730851 1730863 1730867 1730873 1730887 1730891 1730899 1730917 1730921 1730929 1730941 1730959 1730983 1730999 1731007 1731013 1731053 1731073 1731083 1731091 1731113 1731167 1731179 1731181 1731199 1731209 1731221 1731227 1731251 1731253 1731287 1731311 1731313 1731349 1731361 1731377 1731383 1731397 1731407 1731421 1731437 1731449 1731479 1731491 1731493 1731497 1731511 1731539 1731551 1731559 1731571 1731589 1731593 1731617 1731643 1731659 1731701 1731703 1731721 1731731 1731733 1731767 1731823 1731853 1731857 1731871 1731887 1731893 1731913 1731929 1731931 1731937 1731941 1731949 1731953 1731971 1731979 1731991 1732037 1732039 1732043 1732051 1732057 1732109 1732117 1732139 1732193 1732219 1732231 1732253 1732261 1732267 1732271 1732273 1732277 1732301 1732307 1732319 1732321 1732327 1732331 1732333 1732343 1732361 1732369 1732387 1732397 1732399 1732421 1732447 1732457 1732463 1732469 1732483 1732499 1732501 1732519 1732529 1732531 1732579 1732597 1732609 1732631 1732649 1732669 1732681 1732697 1732723 1732727 1732763 1732777 1732799 1732811 1732817 1732831 1732847 1732859 1732867 1732873 1732879 1732883 1732891 1732901 1732903 1732909 1732921 1732961 1732967 1732979 1732987 1733003 1733021 1733033 1733041 1733057 1733063 1733077 1733087 1733101 1733113 1733129 1733141 1733143 1733159 1733177 1733183 1733197 1733213 1733227 1733231 1733267 1733273 1733279 1733297 1733309 1733311 1733321 1733327 1733353 1733363 1733383 1733393 1733399 1733449 1733519 1733527 1733539 1733549 1733569 1733581 1733623 1733639 1733647 1733651 1733653 1733659 1733663 1733701 1733713 1733723 1733729 1733741 1733777 1733791 1733801 1733827 1733843 1733869 1733873 1733899 1733903 1733909 1733911 1733917 1733929 1733981 1733989 1733999 1734011 1734023 1734037 1734041 1734043 1734049 1734067 1734071 1734097 1734101 1734121 1734133 1734143 1734151 1734167 1734179 1734193 1734197 1734203 1734247 1734277 1734281 1734311 1734349 1734353 1734367 1734371 1734373 1734401 1734427 1734431 1734463 1734497 1734503 1734511 1734533 1734547 1734559 1734583 1734589 1734599 1734611 1734641 1734647 1734673 1734709 1734713 1734721 1734727 1734737 1734739 1734763 1734767 1734769 1734787 1734793 1734797 1734827 1734841 1734869 1734883 1734899 1734907 1734917 1734937 1734973 1734989 1735001 1735009 1735033 1735043 1735049 1735067 1735103 1735109 1735117 1735121 1735159 1735183 1735199 1735211 1735259 1735271 1735277 1735291 1735301 1735313 1735333 1735339 1735361 1735369 1735397 1735399 1735421 1735423 1735463 1735469 1735477 1735499 1735507 1735519 1735529 1735541 1735549 1735553 1735579 1735627 1735651 1735661 1735673 1735681 1735687 1735703 1735733 1735739 1735753 1735771 1735807 1735813 1735823 1735829 1735831 1735843 1735847 1735849 1735871 1735883 1735889 1735913 1735919 1735931 1735933 1735961 1735967 1735997 1736029 1736051 1736071 1736099 1736101 1736131 1736149 1736153 1736173 1736177 1736179 1736191 1736197 1736213 1736219 1736221 1736233 1736237 1736257 1736269 1736281 1736303 1736347 1736369 1736387 1736389 1736393 1736417 1736419 1736437 1736453 1736459 1736461 1736519 1736531 1736557 1736563 1736599 1736617 1736621 1736639 1736653 1736671 1736677 1736681 1736687 1736689 1736701 1736711 1736729 1736759 1736767 1736789 1736797 1736821 1736827 1736831 1736849 1736851 1736879 1736881 1736921 1736927 1736939 1736951 1736963 1736971 1736981 1736989 1736993 1737007 1737017 1737031 1737041 1737049 1737053 1737059 1737079 1737089 1737101 1737103 1737161 1737199 1737221 1737257 1737269 1737311 1737317 1737331 1737371 1737391 1737401 1737403 1737413 1737427 1737431 1737433 1737479 1737497 1737517 1737521 1737523 1737529 1737551 1737559 1737563 1737599 1737611 1737613 1737623 1737647 1737653 1737661 1737667 1737677 1737679 1737691 1737733 1737739 1737761 1737773 1737793 1737809 1737821 1737863 1737871 1737887 1737899 1737959 1737979 1737991 1738003 1738019 1738021 1738039 1738043 1738049 1738067 1738117 1738127 1738129 1738141 1738153 1738157 1738169 1738171 1738183 1738207 1738211 1738273 1738283 1738307 1738313 1738327 1738343 1738357 1738379 1738381 1738391 1738411 1738417 1738421 1738423 1738427 1738433 1738459 1738487 1738493 1738543 1738549 1738567 1738571 1738589 1738591 1738603 1738609 1738613 1738621 1738651 1738657 1738661 1738669 1738691 1738699 1738703 1738727 1738733 1738739 1738783 1738799 1738813 1738819 1738831 1738837 1738843 1738873 1738901 1738903 1738909 1738921 1738931 1738943 1738951 1738967 1738969 1738973 1738987 1738991 1738993 1739009 1739021 1739039 1739041 1739057 1739063 1739147 1739167 1739173 1739189 1739197 1739201 1739207 1739209 1739233 1739239 1739251 1739291 1739303 1739347 1739351 1739357 1739359 1739377 1739383 1739399 1739401 1739411 1739417 1739443 1739447 1739453 1739461 1739471 1739473 1739483 1739533 1739539 1739557 1739561 1739579 1739581 1739587 1739599 1739603 1739609 1739641 1739653 1739657 1739669 1739677 1739687 1739693 1739719 1739723 1739741 1739747 1739767 1739791 1739807 1739821 1739827 1739833 1739839 1739867 1739869 1739879 1739891 1739897 1739911 1739921 1739951 1739957 1739977 1739981 1740041 1740047 1740049 1740097 1740113 1740119 1740121 1740143 1740169 1740173 1740181 1740187 1740197 1740199 1740209 1740223 1740241 1740251 1740257 1740259 1740283 1740289 1740293 1740301 1740317 1740337 1740353 1740359 1740367 1740373 1740379 1740421 1740437 1740439 1740451 1740461 1740481 1740499 1740503 1740521 1740523 1740527 1740581 1740589 1740611 1740623 1740631 1740649 1740689 1740691 1740701 1740703 1740721 1740731 1740763 1740779 1740787 1740793 1740811 1740821 1740829 1740853 1740857 1740877 1740881 1740911 1740917 1740931 1740943 1740971 1741007 1741013 1741037 1741049 1741063 1741079 1741099 1741111 1741127 1741151 1741153 1741163 1741171 1741213 1741231 1741241 1741249 1741273 1741291 1741319 1741321 1741339 1741351 1741373 1741379 1741381 1741387 1741409 1741427 1741447 1741451 1741459 1741469 1741477 1741511 1741517 1741529 1741541 1741547 1741573 1741603 1741609 1741613 1741651 1741657 1741687 1741693 1741697 1741699 1741723 1741741 1741757 1741781 1741793 1741807 1741811 1741841 1741877 1741879 1741891 1741897 1741903 1741913 1741969 1741979 1742017 1742021 1742033 1742051 1742063 1742077 1742101 1742161 1742171 1742173 1742179 1742197 1742249 1742261 1742297 1742303 1742309 1742339 1742359 1742369 1742383 1742387 1742393 1742401 1742413 1742423 1742443 1742453 1742467 1742473 1742497 1742501 1742513 1742527 1742537 1742539 1742563 1742579 1742591 1742593 1742617 1742647 1742659 1742669 1742677 1742681 1742701 1742707 1742711 1742723 1742731 1742753 1742771 1742773 1742791 1742809 1742843 1742861 1742893 1742899 1742903 1742941 1742947 1742969 1742971 1742989 1742999 1743013 1743017 1743023 1743031 1743047 1743059 1743067 1743113 1743127 1743143 1743149 1743179 1743221 1743229 1743233 1743241 1743271 1743283 1743317 1743341 1743353 1743359 1743397 1743419 1743433 1743437 1743457 1743461 1743463 1743473 1743487 1743491 1743517 1743523 1743527 1743529 1743557 1743569 1743589 1743593 1743601 1743613 1743629 1743631 1743641 1743659 1743661 1743671 1743701 1743713 1743727 1743737 1743739 1743761 1743793 1743803 1743811 1743823 1743827 1743829 1743851 1743869 1743871 1743881 1743919 1743923 1743941 1743971 1744007 1744009 1744027 1744049 1744063 1744087 1744097 1744103 1744111 1744139 1744151 1744187 1744213 1744231 1744243 1744247 1744261 1744273 1744279 1744289 1744307 1744313 1744331 1744357 1744361 1744363 1744367 1744397 1744423 1744429 1744433 1744441 1744469 1744493 1744507 1744517 1744531 1744543 1744549 1744559 1744579 1744583 1744597 1744609 1744621 1744643 1744657 1744663 1744679 1744697 1744709 1744723 1744733 1744753 1744777 1744793 1744801 1744817 1744819 1744859 1744871 1744877 1744891 1744927 1744991 1744993 1745011 1745039 1745057 1745077 1745087 1745111 1745113 1745137 1745141 1745143 1745147 1745153 1745173 1745197 1745213 1745231 1745239 1745257 1745281 1745297 1745311 1745333 1745351 1745353 1745371 1745389 1745431 1745437 1745453 1745459 1745461 1745467 1745479 1745489 1745501 1745519 1745537 1745561 1745581 1745593 1745599 1745621 1745629 1745647 1745669 1745687 1745693 1745699 1745707 1745717 1745729 1745741 1745749 1745753 1745761 1745773 1745789 1745803 1745813 1745831 1745839 1745851 1745879 1745897 1745911 1745921 1745923 1745927 1745957 1745969 1745971 1746007 1746023 1746029 1746037 1746109 1746127 1746139 1746167 1746169 1746179 1746181 1746193 1746203 1746209 1746211 1746259 1746263 1746281 1746287 1746299 1746301 1746307 1746317 1746331 1746337 1746343 1746383 1746389 1746397 1746401 1746419 1746421 1746439 1746443 1746449 1746463 1746497 1746517 1746533 1746539 1746541 1746557 1746581 1746587 1746599 1746601 1746607 1746629 1746637 1746649 1746673 1746677 1746683 1746697 1746707 1746713 1746737 1746743 1746751 1746761 1746763 1746779 1746821 1746847 1746859 1746883 1746893 1746907 1746911 1746923 1746929 1746947 1746949 1746967 1746973 1746991 1747001 1747003 1747007 1747013 1747027 1747033 1747043 1747061 1747063 1747079 1747087 1747099 1747117 1747121 1747153 1747169 1747171 1747181 1747201 1747217 1747231 1747237 1747247 1747271 1747289 1747301 1747303 1747307 1747313 1747327 1747331 1747363 1747367 1747387 1747429 1747433 1747441 1747483 1747489 1747513 1747519 1747531 1747541 1747573 1747579 1747591 1747607 1747619 1747633 1747643 1747661 1747699 1747721 1747723 1747727 1747729 1747763 1747783 1747799 1747847 1747877 1747891 1747903 1747939 1747951 1747969 1747979 1747987 1748003 1748009 1748027 1748029 1748039 1748041 1748051 1748053 1748083 1748107 1748113 1748119 1748129 1748137 1748143 1748167 1748177 1748179 1748189 1748237 1748239 1748261 1748267 1748269 1748291 1748333 1748339 1748359 1748377 1748401 1748407 1748419 1748441 1748459 1748471 1748473 1748477 1748479 1748489 1748491 1748503 1748519 1748563 1748587 1748599 1748611 1748623 1748639 1748647 1748653 1748699 1748707 1748711 1748723 1748737 1748743 1748749 1748777 1748783 1748797 1748833 1748843 1748849 1748863 1748881 1748891 1748899 1748911 1748933 1748941 1748951 1748959 1748963 1748993 1749001 1749023 1749029 1749031 1749047 1749049 1749067 1749071 1749073 1749089 1749091 1749107 1749119 1749133 1749149 1749151 1749157 1749179 1749191 1749211 1749217 1749221 1749229 1749233 1749239 1749247 1749257 1749259 1749263 1749269 1749271 1749277 1749281 1749287 1749313 1749329 1749337 1749359 1749373 1749383 1749389 1749413 1749431 1749439 1749443 1749457 1749467 1749469 1749491 1749493 1749497 1749499 1749509 1749529 1749533 1749569 1749581 1749611 1749617 1749641 1749647 1749673 1749697 1749701 1749703 1749731 1749749 1749779 1749833 1749851 1749859 1749877 1749887 1749899 1749911 1749941 1749949 1749959 1749961 1749967 1749991 1750009 1750013 1750037 1750061 1750069 1750081 1750103 1750123 1750127 1750129 1750141 1750153 1750159 1750169 1750181 1750183 1750193 1750253 1750267 1750271 1750283 1750289 1750297 1750319 1750351 1750361 1750379 1750381 1750391 1750409 1750423 1750447 1750453 1750459 1750493 1750499 1750501 1750513 1750519 1750523 1750531 1750549 1750579 1750583 1750591 1750597 1750607 1750621 1750631 1750657 1750669 1750673 1750681 1750687 1750699 1750733 1750747 1750751 1750769 1750807 1750811 1750871 1750873 1750901 1750909 1750913 1750919 1750927 1750937 1750979 1750981 1750999 1751011 1751023 1751033 1751039 1751041 1751047 1751053 1751063 1751083 1751093 1751117 1751131 1751143 1751149 1751177 1751207 1751213 1751231 1751273 1751291 1751293 1751311 1751327 1751333 1751353 1751377 1751411 1751413 1751419 1751437 1751443 1751467 1751507 1751551 1751557 1751567 1751569 1751573 1751579 1751587 1751599 1751623 1751627 1751639 1751647 1751653 1751671 1751683 1751689 1751693 1751699 1751707 1751719 1751741 1751753 1751767 1751773 1751791 1751801 1751821 1751837 1751851 1751879 1751891 1751923 1751929 1751941 1751947 1751993 1752001 1752007 1752011 1752013 1752029 1752031 1752077 1752097 1752119 1752131 1752137 1752181 1752187 1752193 1752197 1752211 1752221 1752227 1752229 1752239 1752253 1752263 1752269 1752271 1752307 1752319 1752323 1752341 1752353 1752371 1752397 1752403 1752407 1752419 1752437 1752449 1752467 1752481 1752497 1752521 1752529 1752539 1752563 1752599 1752601 1752607 1752613 1752629 1752631 1752643 1752659 1752679 1752691 1752701 1752703 1752719 1752721 1752749 1752757 1752781 1752799 1752811 1752823 1752827 1752841 1752851 1752857 1752871 1752889 1752893 1752901 1752913 1752917 1752923 1752937 1752941 1752943 1752953 1752977 1752979 1752983 1753007 1753013 1753039 1753049 1753051 1753069 1753093 1753109 1753139 1753151 1753177 1753181 1753229 1753243 1753249 1753289 1753291 1753309 1753343 1753373 1753379 1753403 1753417 1753439 1753441 1753459 1753471 1753481 1753513 1753517 1753519 1753537 1753547 1753553 1753559 1753561 1753579 1753597 1753603 1753607 1753613 1753637 1753649 1753651 1753673 1753691 1753733 1753747 1753753 1753769 1753777 1753789 1753799 1753831 1753849 1753853 1753867 1753877 1753883 1753889 1753897 1753901 1753903 1753931 1753943 1753951 1753963 1753967 1753979 1753981 1753991 1754033 1754063 1754113 1754143 1754147 1754153 1754171 1754173 1754189 1754209 1754231 1754237 1754273 1754287 1754293 1754303 1754309 1754323 1754359 1754377 1754381 1754387 1754407 1754411 1754419 1754437 1754447 1754453 1754461 1754491 1754497 1754527 1754531 1754549 1754561 1754567 1754579 1754581 1754591 1754609 1754617 1754629 1754639 1754653 1754659 1754681 1754699 1754713 1754729 1754743 1754749 1754801 1754803 1754843 1754849 1754861 1754867 1754891 1754899 1754911 1754939 1754953 1754957 1754971 1755023 1755037 1755041 1755043 1755059 1755101 1755113 1755133 1755161 1755179 1755181 1755197 1755209 1755241 1755253 1755263 1755287 1755319 1755331 1755343 1755359 1755371 1755401 1755421 1755443 1755451 1755487 1755491 1755493 1755503 1755511 1755517 1755527 1755553 1755563 1755569 1755571 1755583 1755587 1755599 1755629 1755643 1755653 1755697 1755701 1755707 1755713 1755727 1755739 1755749 1755757 1755769 1755773 1755799 1755821 1755823 1755827 1755829 1755839 1755851 1755877 1755883 1755893 1755911 1755937 1755953 1755959 1756009 1756021 1756063 1756093 1756109 1756127 1756141 1756171 1756177 1756187 1756199 1756207 1756213 1756229 1756231 1756259 1756267 1756273 1756309 1756319 1756331 1756333 1756357 1756361 1756369 1756393 1756397 1756409 1756463 1756471 1756483 1756499 1756511 1756519 1756523 1756541 1756549 1756567 1756591 1756597 1756613 1756633 1756639 1756663 1756687 1756691 1756697 1756709 1756747 1756787 1756789 1756793 1756817 1756819 1756823 1756837 1756877 1756883 1756903 1756913 1756919 1756921 1756927 1756939 1756943 1756957 1756969 1756991 1756999 1757033 1757057 1757071 1757083 1757087 1757089 1757143 1757153 1757191 1757201 1757221 1757233 1757237 1757257 1757267 1757309 1757311 1757323 1757339 1757347 1757351 1757363 1757387 1757401 1757411 1757417 1757447 1757449 1757467 1757479 1757491 1757521 1757527 1757531 1757549 1757597 1757617 1757653 1757663 1757677 1757687 1757699 1757741 1757771 1757779 1757801 1757809 1757813 1757827 1757849 1757863 1757869 1757881 1757887 1757897 1757911 1757923 1757927 1757939 1757963 1757971 1757983 1757989 1757993 1757999 1758007 1758019 1758073 1758101 1758131 1758139 1758149 1758161 1758179 1758187 1758193 1758209 1758221 1758233 1758247 1758257 1758269 1758283 1758287 1758301 1758307 1758311 1758329 1758347 1758359 1758371 1758389 1758391 1758397 1758401 1758403 1758433 1758437 1758439 1758443 1758503 1758527 1758539 1758541 1758553 1758623 1758629 1758641 1758689 1758709 1758719 1758727 1758737 1758739 1758761 1758781 1758793 1758797 1758839 1758851 1758857 1758863 1758877 1758893 1758899 1758923 1758929 1758947 1758959 1758983 1758989 1758997 1759003 1759049 1759097 1759103 1759129 1759133 1759159 1759171 1759181 1759213 1759223 1759231 1759249 1759271 1759283 1759291 1759333 1759337 1759349 1759361 1759363 1759379 1759397 1759399 1759427 1759453 1759463 1759469 1759481 1759489 1759493 1759507 1759543 1759553 1759561 1759573 1759579 1759607 1759627 1759643 1759649 1759651 1759663 1759669 1759673 1759711 1759717 1759729 1759763 1759787 1759847 1759867 1759909 1759921 1759939 1759943 1759969 1759987 1759991 1760021 1760047 1760069 1760071 1760081 1760113 1760117 1760131 1760159 1760173 1760203 1760221 1760233 1760261 1760267 1760279 1760281 1760287 1760309 1760327 1760359 1760371 1760389 1760419 1760431 1760449 1760467 1760477 1760491 1760527 1760533 1760557 1760567 1760569 1760593 1760599 1760609 1760641 1760657 1760659 1760669 1760699 1760701 1760723 1760743 1760747 1760753 1760767 1760777 1760779 1760783 1760797 1760813 1760849 1760873 1760881 1760897 1760917 1760921 1760923 1760947 1760953 1760959 1760981 1761029 1761049 1761059 1761077 1761101 1761103 1761107 1761127 1761139 1761161 1761169 1761173 1761187 1761289 1761299 1761301 1761307 1761337 1761367 1761371 1761379 1761407 1761413 1761437 1761449 1761467 1761493 1761503 1761517 1761527 1761553 1761583 1761601 1761611 1761629 1761671 1761677 1761689 1761691 1761703 1761733 1761751 1761757 1761763 1761787 1761797 1761817 1761821 1761827 1761833 1761847 1761853 1761857 1761883 1761901 1761911 1761919 1761941 1761943 1761959 1761973 1761989 1762031 1762039 1762049 1762073 1762087 1762129 1762141 1762157 1762177 1762207 1762213 1762217 1762247 1762259 1762261 1762279 1762297 1762309 1762333 1762361 1762391 1762399 1762427 1762429 1762451 1762457 1762471 1762477 1762499 1762511 1762517 1762531 1762561 1762571 1762583 1762589 1762601 1762603 1762609 1762619 1762627 1762637 1762661 1762681 1762693 1762711 1762721 1762751 1762771 1762777 1762793 1762843 1762853 1762897 1762903 1762907 1762909 1762919 1762921 1762931 1762933 1762963 1762987 1762993 1763011 1763057 1763081 1763089 1763093 1763131 1763137 1763147 1763149 1763159 1763173 1763191 1763207 1763231 1763243 1763263 1763269 1763273 1763297 1763303 1763323 1763381 1763401 1763407 1763413 1763417 1763423 1763429 1763431 1763453 1763459 1763477 1763491 1763513 1763539 1763543 1763549 1763551 1763579 1763603 1763611 1763623 1763627 1763639 1763651 1763677 1763701 1763717 1763719 1763747 1763759 1763803 1763813 1763821 1763843 1763849 1763851 1763857 1763873 1763887 1763897 1763911 1763921 1763929 1763953 1763959 1763963 1763969 1763977 1763981 1764001 1764013 1764029 1764047 1764053 1764067 1764071 1764089 1764097 1764101 1764127 1764151 1764173 1764187 1764193 1764199 1764221 1764223 1764227 1764229 1764251 1764253 1764263 1764281 1764289 1764293 1764299 1764313 1764319 1764349 1764377 1764391 1764407 1764431 1764437 1764449 1764457 1764461 1764463 1764479 1764487 1764541 1764557 1764559 1764577 1764589 1764611 1764619 1764661 1764667 1764671 1764683 1764691 1764727 1764731 1764733 1764743 1764757 1764779 1764809 1764811 1764817 1764823 1764839 1764871 1764877 1764881 1764887 1764899 1764901 1764949 1764977 1764979 1765013 1765033 1765051 1765061 1765063 1765079 1765087 1765121 1765123 1765129 1765139 1765147 1765163 1765187 1765207 1765277 1765289 1765301 1765343 1765349 1765363 1765369 1765403 1765417 1765429 1765469 1765507 1765513 1765541 1765553 1765559 1765567 1765573 1765579 1765597 1765609 1765619 1765627 1765639 1765657 1765661 1765679 1765697 1765703 1765741 1765759 1765769 1765787 1765789 1765817 1765823 1765831 1765843 1765861 1765873 1765877 1765891 1765901 1765913 1765949 1765957 1765969 1765979 1765987 1765997 1765999 1766003 1766021 1766041 1766057 1766087 1766099 1766117 1766123 1766137 1766153 1766159 1766161 1766173 1766179 1766201 1766209 1766227 1766231 1766243 1766251 1766279 1766291 1766309 1766327 1766333 1766353 1766357 1766363 1766399 1766441 1766447 1766459 1766461 1766507 1766509 1766533 1766537 1766539 1766573 1766579 1766581 1766587 1766603 1766617 1766627 1766629 1766663 1766689 1766701 1766707 1766717 1766719 1766729 1766747 1766749 1766761 1766773 1766801 1766803 1766879 1766881 1766899 1766903 1766911 1766939 1766971 1767001 1767011 1767023 1767037 1767041 1767043 1767053 1767071 1767079 1767089 1767091 1767121 1767131 1767137 1767149 1767187 1767203 1767211 1767229 1767239 1767281 1767307 1767313 1767317 1767329 1767331 1767373 1767383 1767397 1767401 1767407 1767419 1767421 1767427 1767449 1767461 1767487 1767499 1767503 1767509 1767517 1767523 1767539 1767553 1767559 1767569 1767593 1767611 1767617 1767641 1767679 1767683 1767691 1767697 1767707 1767737 1767739 1767751 1767763 1767767 1767781 1767809 1767833 1767863 1767877 1767889 1767907 1767911 1767917 1767919 1767923 1767937 1767943 1767947 1767959 1767973 1767979 1768001 1768003 1768037 1768057 1768069 1768127 1768141 1768157 1768181 1768199 1768223 1768229 1768231 1768241 1768243 1768253 1768303 1768313 1768321 1768339 1768343 1768367 1768373 1768379 1768381 1768399 1768411 1768421 1768423 1768433 1768439 1768441 1768471 1768477 1768499 1768517 1768523 1768537 1768541 1768553 1768583 1768589 1768597 1768607 1768609 1768619 1768639 1768651 1768661 1768667 1768673 1768709 1768721 1768727 1768747 1768757 1768759 1768771 1768787 1768801 1768831 1768849 1768853 1768873 1768903 1768927 1768937 1768951 1768967 1768973 1768993 1769017 1769023 1769041 1769069 1769093 1769099 1769101 1769111 1769113 1769129 1769153 1769161 1769167 1769171 1769189 1769197 1769227 1769239 1769281 1769291 1769293 1769297 1769323 1769329 1769333 1769357 1769371 1769399 1769401 1769423 1769431 1769441 1769473 1769501 1769507 1769531 1769539 1769543 1769563 1769591 1769623 1769627 1769633 1769639 1769687 1769701 1769737 1769741 1769749 1769771 1769777 1769791 1769813 1769839 1769851 1769863 1769881 1769891 1769893 1769897 1769909 1769917 1769927 1769947 1769981 1769987 1770001 1770029 1770053 1770061 1770071 1770077 1770089 1770113 1770127 1770143 1770151 1770157 1770163 1770169 1770187 1770199 1770217 1770221 1770233 1770239 1770259 1770271 1770277 1770313 1770331 1770337 1770409 1770427 1770437 1770449 1770463 1770481 1770491 1770493 1770497 1770511 1770521 1770539 1770547 1770551 1770557 1770583 1770589 1770617 1770679 1770683 1770707 1770719 1770739 1770757 1770763 1770773 1770787 1770799 1770817 1770829 1770841 1770851 1770859 1770871 1770883 1770887 1770893 1770911 1770919 1770949 1770961 1770973 1770983 1770991 1770997 1771027 1771031 1771039 1771051 1771057 1771087 1771093 1771097 1771103 1771139 1771151 1771157 1771169 1771177 1771183 1771193 1771201 1771223 1771261 1771271 1771283 1771327 1771337 1771361 1771373 1771387 1771397 1771411 1771421 1771423 1771453 1771457 1771459 1771463 1771481 1771489 1771493 1771507 1771531 1771543 1771559 1771607 1771613 1771633 1771657 1771673 1771687 1771717 1771741 1771747 1771751 1771787 1771793 1771799 1771849 1771877 1771879 1771937 1771963 1771981 1771993 1771999 1772003 1772011 1772033 1772047 1772077 1772087 1772101 1772107 1772119 1772167 1772201 1772209 1772213 1772227 1772237 1772249 1772273 1772291 1772293 1772297 1772317 1772327 1772333 1772341 1772359 1772387 1772399 1772401 1772423 1772461 1772467 1772473 1772483 1772497 1772501 1772531 1772557 1772569 1772579 1772581 1772591 1772593 1772597 1772609 1772623 1772629 1772647 1772677 1772711 1772713 1772723 1772737 1772747 1772759 1772767 1772783 1772801 1772809 1772819 1772851 1772867 1772873 1772893 1772923 1772959 1772971 1772987 1772989 1772993 1773007 1773017 1773029 1773041 1773059 1773067 1773071 1773131 1773143 1773157 1773173 1773179 1773181 1773203 1773227 1773229 1773241 1773259 1773271 1773281 1773283 1773307 1773319 1773337 1773349 1773361 1773371 1773377 1773397 1773407 1773413 1773419 1773439 1773469 1773487 1773511 1773523 1773571 1773581 1773587 1773589 1773601 1773613 1773637 1773641 1773643 1773649 1773671 1773677 1773679 1773683 1773689 1773703 1773713 1773719 1773721 1773749 1773767 1773781 1773791 1773799 1773803 1773823 1773841 1773847 1773853 1773869 1773881 1773883 1773887 1773907 1773911 1773917 1773923 1773949 1773971 1773977 1773979 1773997 1774007 1774009 1774021 1774027 1774043 1774061 1774067 1774117 1774121 1774139 1774159 1774169 1774177 1774183 1774207 1774217 1774247 1774259 1774271 1774301 1774303 1774313 1774321 1774327 1774337 1774349 1774363 1774369 1774373 1774403 1774433 1774447 1774453 1774463 1774489 1774499 1774517 1774523 1774529 1774541 1774547 1774559 1774583 1774601 1774609 1774621 1774637 1774639 1774649 1774667 1774691 1774697 1774699 1774723 1774741 1774757 1774769 1774777 1774813 1774819 1774823 1774859 1774879 1774901 1774909 1774921 1774937 1774939 1774951 1774957 1774973 1774991 1775009 1775017 1775041 1775063 1775069 1775171 1775173 1775183 1775201 1775203 1775219 1775231 1775243 1775261 1775269 1775273 1775281 1775309 1775317 1775329 1775353 1775359 1775387 1775399 1775419 1775441 1775471 1775483 1775489 1775491 1775503 1775533 1775537 1775549 1775551 1775563 1775573 1775591 1775597 1775611 1775629 1775647 1775663 1775671 1775687 1775689 1775717 1775729 1775731 1775737 1775743 1775747 1775777 1775783 1775819 1775831 1775843 1775867 1775869 1775881 1775887 1775903 1775909 1775927 1775933 1775953 1775981 1776011 1776013 1776023 1776031 1776053 1776067 1776091 1776097 1776113 1776119 1776133 1776149 1776169 1776193 1776197 1776209 1776223 1776227 1776239 1776241 1776251 1776263 1776277 1776289 1776301 1776311 1776317 1776319 1776323 1776389 1776403 1776419 1776421 1776433 1776457 1776461 1776469 1776493 1776499 1776539 1776581 1776587 1776617 1776623 1776637 1776659 1776673 1776683 1776701 1776739 1776751 1776757 1776767 1776779 1776787 1776791 1776793 1776821 1776833 1776839 1776847 1776881 1776913 1776923 1776941 1776953 1776961 1776967 1776989 1776997 1777007 1777031 1777043 1777057 1777067 1777079 1777081 1777093 1777103 1777109 1777121 1777133 1777169 1777213 1777219 1777247 1777267 1777289 1777313 1777339 1777351 1777379 1777403 1777411 1777423 1777427 1777441 1777453 1777459 1777481 1777483 1777487 1777513 1777541 1777543 1777547 1777553 1777609 1777661 1777687 1777691 1777703 1777717 1777733 1777751 1777753 1777771 1777781 1777799 1777807 1777823 1777859 1777861 1777871 1777879 1777891 1777907 1777927 1777931 1777933 1777939 1777957 1777973 1777981 1778003 1778009 1778011 1778027 1778033 1778041 1778059 1778069 1778071 1778099 1778111 1778137 1778141 1778159 1778171 1778177 1778197 1778209 1778213 1778219 1778221 1778239 1778243 1778261 1778263 1778279 1778299 1778303 1778317 1778321 1778323 1778341 1778347 1778393 1778411 1778417 1778423 1778443 1778453 1778459 1778461 1778471 1778473 1778477 1778531 1778537 1778549 1778551 1778561 1778593 1778597 1778611 1778633 1778639 1778663 1778677 1778683 1778719 1778729 1778731 1778743 1778747 1778753 1778759 1778801 1778807 1778813 1778851 1778857 1778869 1778879 1778899 1778921 1778927 1778929 1778963 1778971 1778977 1778983 1778993 1779007 1779013 1779017 1779053 1779097 1779109 1779131 1779133 1779137 1779149 1779161 1779163 1779191 1779223 1779227 1779241 1779247 1779269 1779287 1779289 1779299 1779301 1779311 1779329 1779341 1779347 1779361 1779403 1779409 1779443 1779451 1779457 1779461 1779497 1779511 1779529 1779541 1779571 1779601 1779607 1779619 1779623 1779647 1779649 1779677 1779683 1779689 1779691 1779703 1779709 1779761 1779779 1779821 1779823 1779829 1779847 1779857 1779871 1779881 1779889 1779893 1779913 1779931 1779941 1779961 1779983 1780001 1780003 1780007 1780013 1780021 1780027 1780061 1780067 1780069 1780081 1780099 1780127 1780133 1780147 1780151 1780169 1780171 1780187 1780201 1780231 1780253 1780271 1780277 1780283 1780301 1780307 1780309 1780321 1780333 1780349 1780351 1780367 1780379 1780381 1780399 1780411 1780439 1780447 1780459 1780463 1780469 1780481 1780483 1780487 1780489 1780517 1780523 1780549 1780573 1780577 1780579 1780601 1780607 1780613 1780619 1780627 1780633 1780643 1780663 1780703 1780711 1780717 1780771 1780777 1780787 1780799 1780817 1780829 1780837 1780873 1780879 1780901 1780939 1780943 1780957 1780967 1780969 1781009 1781027 1781029 1781047 1781053 1781057 1781063 1781089 1781099 1781113 1781119 1781173 1781203 1781233 1781239 1781287 1781293 1781309 1781317 1781321 1781341 1781357 1781359 1781363 1781369 1781393 1781399 1781407 1781449 1781453 1781467 1781503 1781509 1781519 1781531 1781537 1781543 1781551 1781561 1781567 1781569 1781581 1781609 1781621 1781641 1781653 1781669 1781677 1781693 1781699 1781707 1781743 1781771 1781777 1781779 1781783 1781803 1781827 1781831 1781837 1781851 1781863 1781873 1781881 1781893 1781903 1781921 1781939 1781981 1782043 1782061 1782071 1782083 1782103 1782113 1782139 1782167 1782169 1782173 1782197 1782199 1782203 1782211 1782239 1782241 1782269 1782271 1782281 1782289 1782301 1782329 1782373 1782377 1782379 1782413 1782461 1782463 1782493 1782497 1782499 1782503 1782509 1782511 1782527 1782533 1782551 1782553 1782559 1782563 1782577 1782589 1782607 1782611 1782619 1782629 1782647 1782667 1782679 1782689 1782709 1782743 1782769 1782791 1782797 1782811 1782817 1782829 1782839 1782863 1782883 1782887 1782901 1782917 1782929 1782931 1782947 1782959 1782961 1782971 1782997 1783009 1783037 1783043 1783051 1783069 1783073 1783087 1783099 1783129 1783139 1783163 1783189 1783193 1783211 1783219 1783237 1783241 1783261 1783273 1783277 1783319 1783333 1783361 1783373 1783387 1783391 1783409 1783423 1783427 1783429 1783447 1783469 1783477 1783493 1783499 1783501 1783517 1783519 1783531 1783543 1783553 1783571 1783577 1783601 1783619 1783643 1783667 1783669 1783693 1783699 1783711 1783723 1783729 1783751 1783781 1783783 1783799 1783801 1783813 1783829 1783841 1783843 1783867 1783879 1783883 1783889 1783897 1783907 1783921 1783933 1783937 1783981 1784021 1784023 1784053 1784137 1784171 1784173 1784191 1784203 1784213 1784227 1784231 1784239 1784243 1784257 1784273 1784281 1784287 1784291 1784297 1784327 1784333 1784353 1784389 1784401 1784429 1784441 1784459 1784527 1784533 1784551 1784557 1784561 1784567 1784579 1784581 1784599 1784603 1784611 1784617 1784633 1784641 1784647 1784659 1784683 1784693 1784707 1784719 1784723 1784737 1784743 1784753 1784767 1784773 1784789 1784807 1784833 1784873 1784891 1784903 1784911 1784929 1784941 1784957 1784963 1784977 1784989 1785001 1785019 1785023 1785029 1785041 1785071 1785079 1785097 1785101 1785103 1785109 1785143 1785149 1785151 1785209 1785227 1785241 1785253 1785257 1785293 1785313 1785319 1785331 1785337 1785347 1785367 1785401 1785419 1785431 1785439 1785457 1785473 1785481 1785491 1785503 1785541 1785557 1785587 1785593 1785599 1785613 1785643 1785647 1785683 1785689 1785691 1785701 1785709 1785713 1785727 1785761 1785769 1785779 1785793 1785803 1785811 1785821 1785851 1785853 1785857 1785869 1785913 1785947 1785961 1785977 1786021 1786039 1786079 1786087 1786093 1786097 1786117 1786121 1786129 1786159 1786193 1786201 1786217 1786219 1786223 1786229 1786261 1786271 1786277 1786283 1786327 1786331 1786333 1786339 1786357 1786363 1786381 1786391 1786439 1786441 1786451 1786457 1786459 1786469 1786483 1786489 1786501 1786511 1786541 1786553 1786583 1786591 1786597 1786613 1786621 1786637 1786639 1786667 1786679 1786691 1786699 1786711 1786721 1786727 1786753 1786769 1786781 1786787 1786831 1786843 1786861 1786867 1786909 1786913 1786937 1786943 1786949 1786963 1786973 1786979 1786997 1787011 1787021 1787029 1787033 1787039 1787041 1787087 1787089 1787101 1787129 1787143 1787161 1787167 1787173 1787179 1787189 1787237 1787249 1787251 1787267 1787281 1787293 1787309 1787323 1787333 1787339 1787341 1787347 1787351 1787369 1787377 1787393 1787407 1787417 1787437 1787447 1787453 1787459 1787479 1787509 1787519 1787521 1787557 1787561 1787573 1787587 1787603 1787633 1787651 1787659 1787663 1787683 1787699 1787701 1787707 1787717 1787719 1787741 1787783 1787827 1787831 1787837 1787861 1787869 1787893 1787899 1787911 1787923 1787953 1788011 1788013 1788023 1788037 1788041 1788067 1788097 1788103 1788139 1788151 1788187 1788191 1788211 1788217 1788221 1788229 1788239 1788253 1788257 1788263 1788271 1788313 1788331 1788341 1788361 1788373 1788377 1788433 1788439 1788443 1788473 1788487 1788497 1788509 1788511 1788529 1788539 1788547 1788551 1788571 1788601 1788613 1788623 1788629 1788637 1788649 1788653 1788659 1788667 1788673 1788727 1788739 1788763 1788767 1788769 1788827 1788847 1788863 1788881 1788901 1788911 1788931 1788937 1788949 1788973 1788991 1789001 1789003 1789027 1789033 1789037 1789091 1789093 1789153 1789159 1789163 1789169 1789181 1789201 1789217 1789219 1789223 1789247 1789261 1789309 1789343 1789349 1789367 1789373 1789391 1789399 1789427 1789433 1789451 1789457 1789481 1789483 1789493 1789499 1789517 1789519 1789559 1789583 1789597 1789603 1789621 1789649 1789681 1789687 1789693 1789721 1789751 1789769 1789783 1789787 1789829 1789849 1789867 1789891 1789897 1789919 1789927 1789951 1789973 1789979 1789987 1789993 1789999 1790029 1790051 1790053 1790059 1790071 1790077 1790081 1790111 1790137 1790149 1790203 1790209 1790213 1790221 1790231 1790233 1790263 1790279 1790291 1790293 1790303 1790309 1790311 1790323 1790339 1790353 1790357 1790359 1790363 1790401 1790417 1790419 1790443 1790479 1790483 1790501 1790507 1790521 1790531 1790539 1790557 1790561 1790587 1790599 1790603 1790611 1790623 1790641 1790647 1790651 1790669 1790671 1790683 1790707 1790713 1790743 1790749 1790753 1790759 1790771 1790783 1790791 1790809 1790819 1790857 1790863 1790869 1790879 1790897 1790917 1790939 1790951 1790969 1790989 1791017 1791019 1791037 1791043 1791047 1791077 1791089 1791091 1791113 1791121 1791161 1791169 1791173 1791191 1791193 1791203 1791221 1791247 1791269 1791277 1791289 1791319 1791323 1791329 1791343 1791371 1791403 1791407 1791421 1791431 1791451 1791457 1791463 1791473 1791487 1791497 1791523 1791541 1791551 1791553 1791563 1791599 1791617 1791623 1791637 1791679 1791683 1791689 1791697 1791701 1791709 1791731 1791733 1791737 1791739 1791773 1791787 1791791 1791793 1791847 1791857 1791863 1791883 1791899 1791901 1791941 1791943 1791961 1791967 1791973 1791989 1791991 1792013 1792027 1792031 1792033 1792039 1792051 1792073 1792093 1792103 1792117 1792121 1792129 1792139 1792159 1792163 1792177 1792201 1792207 1792237 1792247 1792249 1792267 1792277 1792279 1792309 1792313 1792319 1792331 1792337 1792339 1792379 1792381 1792387 1792409 1792423 1792433 1792477 1792489 1792493 1792501 1792507 1792523 1792543 1792547 1792559 1792579 1792591 1792601 1792603 1792621 1792663 1792673 1792691 1792709 1792711 1792753 1792757 1792759 1792771 1792787 1792789 1792793 1792849 1792891 1792913 1792927 1792933 1792957 1792979 1792981 1792991 1793017 1793023 1793047 1793059 1793081 1793101 1793107 1793117 1793119 1793123 1793137 1793147 1793153 1793161 1793171 1793173 1793179 1793203 1793219 1793227 1793237 1793251 1793263 1793303 1793321 1793329 1793357 1793359 1793369 1793383 1793387 1793399 1793417 1793419 1793459 1793479 1793497 1793503 1793507 1793569 1793579 1793591 1793599 1793611 1793633 1793639 1793647 1793663 1793669 1793699 1793717 1793719 1793731 1793761 1793767 1793773 1793819 1793833 1793843 1793863 1793887 1793921 1793927 1793929 1793941 1793947 1793963 1793971 1793983 1793989 1794007 1794017 1794029 1794041 1794049 1794053 1794083 1794127 1794137 1794179 1794181 1794203 1794217 1794223 1794229 1794239 1794257 1794269 1794271 1794277 1794293 1794301 1794313 1794323 1794343 1794349 1794361 1794371 1794427 1794431 1794439 1794517 1794521 1794523 1794539 1794547 1794557 1794587 1794589 1794599 1794619 1794623 1794647 1794649 1794659 1794671 1794677 1794679 1794697 1794703 1794719 1794731 1794733 1794757 1794761 1794763 1794769 1794773 1794787 1794811 1794817 1794823 1794829 1794841 1794893 1794913 1794929 1794941 1794967 1794973 1794983 1795007 1795009 1795033 1795039 1795043 1795049 1795061 1795067 1795091 1795099 1795109 1795133 1795141 1795151 1795153 1795181 1795201 1795223 1795229 1795247 1795271 1795273 1795279 1795307 1795327 1795331 1795333 1795337 1795363 1795369 1795411 1795439 1795483 1795487 1795511 1795517 1795529 1795531 1795537 1795543 1795559 1795561 1795571 1795583 1795601 1795603 1795621 1795627 1795639 1795649 1795663 1795669 1795687 1795697 1795699 1795733 1795763 1795769 1795777 1795793 1795811 1795813 1795837 1795847 1795853 1795867 1795877 1795889 1795891 1795921 1795951 1795957 1795961 1795967 1795979 1795987 1795991 1796009 1796021 1796059 1796071 1796099 1796107 1796111 1796129 1796131 1796143 1796147 1796167 1796177 1796183 1796189 1796191 1796219 1796227 1796269 1796281 1796309 1796321 1796341 1796351 1796363 1796413 1796437 1796477 1796479 1796489 1796503 1796519 1796527 1796567 1796573 1796581 1796591 1796617 1796657 1796671 1796677 1796693 1796699 1796759 1796761 1796777 1796779 1796801 1796803 1796819 1796833 1796843 1796863 1796897 1796911 1796941 1796947 1796953 1796959 1796983 1796987 1797011 1797017 1797031 1797049 1797067 1797097 1797109 1797161 1797167 1797181 1797193 1797203 1797209 1797227 1797239 1797241 1797277 1797281 1797293 1797307 1797319 1797331 1797337 1797371 1797373 1797377 1797379 1797407 1797413 1797437 1797463 1797469 1797503 1797539 1797541 1797547 1797581 1797589 1797617 1797637 1797641 1797667 1797673 1797751 1797769 1797773 1797779 1797781 1797821 1797823 1797827 1797833 1797839 1797847 1797857 1797877 1797893 1797911 1797947 1797953 1797967 1798001 1798003 1798009 1798021 1798033 1798037 1798051 1798057 1798081 1798109 1798123 1798127 1798129 1798133 1798151 1798157 1798171 1798177 1798183 1798187 1798189 1798201 1798207 1798211 1798241 1798253 1798271 1798273 1798289 1798309 1798327 1798333 1798351 1798367 1798387 1798409 1798421 1798427 1798429 1798441 1798451 1798457 1798469 1798487 1798519 1798523 1798529 1798543 1798571 1798591 1798603 1798613 1798619 1798631 1798633 1798637 1798639 1798649 1798679 1798697 1798703 1798717 1798721 1798723 1798729 1798739 1798747 1798759 1798763 1798781 1798801 1798813 1798817 1798861 1798871 1798891 1798897 1798913 1798919 1798921 1798931 1798943 1798963 1798967 1798987 1798997 1798999 1799003 1799009 1799011 1799041 1799071 1799081 1799089 1799099 1799107 1799117 1799123 1799137 1799141 1799153 1799173 1799177 1799179 1799219 1799227 1799233 1799251 1799261 1799269 1799279 1799309 1799311 1799381 1799393 1799407 1799417 1799423 1799453 1799477 1799503 1799521 1799527 1799533 1799549 1799563 1799573 1799579 1799591 1799599 1799617 1799621 1799627 1799639 1799701 1799713 1799731 1799741 1799753 1799761 1799783 1799797 1799801 1799803 1799839 1799843 1799849 1799867 1799881 1799887 1799923 1799929 1799951 1799969 1799983 1799999 1800017 1800037 1800047 1800067 1800083 1800091 1800103 1800119 1800121 1800137 1800157 1800167 1800179 1800191 1800199 1800209 1800221 1800257 1800259 1800277 1800301 1800311 1800313 1800341 1800343 1800361 1800377 1800389 1800397 1800401 1800413 1800431 1800451 1800473 1800493 1800499 1800529 1800541 1800551 1800553 1800563 1800577 1800593 1800599 1800613 1800619 1800637 1800641 1800677 1800707 1800709 1800713 1800719 1800727 1800731 1800767 1800787 1800803 1800809 1800811 1800823 1800829 1800833 1800853 1800859 1800863 1800889 1800907 1800913 1800937 1800949 1800959 1800961 1800973 1800979 1801003 1801013 1801021 1801039 1801073 1801091 1801109 1801117 1801187 1801207 1801213 1801223 1801229 1801237 1801259 1801273 1801297 1801309 1801339 1801357 1801361 1801363 1801403 1801411 1801433 1801453 1801469 1801477 1801489 1801517 1801529 1801531 1801549 1801577 1801589 1801601 1801619 1801669 1801673 1801691 1801717 1801727 1801733 1801747 1801759 1801769 1801771 1801777 1801781 1801817 1801819 1801823 1801853 1801867 1801871 1801873 1801897 1801901 1801907 1801913 1801927 1801931 1801967 1801997 1802029 1802039 1802057 1802077 1802081 1802083 1802107 1802113 1802117 1802137 1802149 1802189 1802197 1802219 1802231 1802239 1802261 1802267 1802279 1802287 1802293 1802327 1802347 1802363 1802393 1802407 1802419 1802491 1802503 1802513 1802519 1802531 1802597 1802599 1802609 1802621 1802641 1802651 1802653 1802657 1802659 1802683 1802687 1802693 1802699 1802707 1802711 1802719 1802737 1802753 1802791 1802797 1802803 1802821 1802837 1802839 1802897 1802909 1802923 1802989 1803001 1803023 1803029 1803031 1803059 1803077 1803079 1803089 1803097 1803101 1803103 1803127 1803149 1803163 1803167 1803169 1803203 1803209 1803211 1803227 1803251 1803253 1803259 1803293 1803299 1803317 1803323 1803337 1803349 1803353 1803371 1803379 1803383 1803419 1803421 1803449 1803457 1803469 1803493 1803497 1803509 1803511 1803517 1803523 1803533 1803541 1803551 1803553 1803563 1803569 1803577 1803583 1803629 1803647 1803667 1803671 1803677 1803679 1803691 1803701 1803743 1803761 1803799 1803811 1803817 1803863 1803881 1803889 1803947 1803973 1804007 1804013 1804037 1804063 1804073 1804079 1804093 1804129 1804133 1804139 1804199 1804207 1804213 1804219 1804249 1804267 1804273 1804303 1804307 1804321 1804349 1804381 1804391 1804399 1804403 1804421 1804433 1804447 1804459 1804463 1804469 1804477 1804489 1804493 1804501 1804507 1804513 1804529 1804547 1804549 1804559 1804577 1804609 1804613 1804619 1804631 1804643 1804657 1804687 1804709 1804711 1804763 1804793 1804799 1804801 1804813 1804819 1804841 1804871 1804919 1804921 1804927 1804937 1804939 1804951 1804961 1804963 1804973 1804991 1804993 1804997 1805003 1805039 1805053 1805059 1805081 1805087 1805093 1805117 1805123 1805137 1805143 1805147 1805203 1805227 1805231 1805239 1805261 1805263 1805299 1805303 1805327 1805357 1805359 1805369 1805371 1805381 1805393 1805413 1805473 1805483 1805491 1805497 1805501 1805521 1805537 1805549 1805561 1805579 1805581 1805591 1805593 1805597 1805603 1805633 1805641 1805651 1805653 1805663 1805677 1805701 1805729 1805747 1805761 1805767 1805773 1805789 1805819 1805821 1805827 1805833 1805857 1805863 1805873 1805879 1805887 1805897 1805911 1805941 1805963 1805989 1806001 1806011 1806017 1806023 1806031 1806041 1806059 1806061 1806089 1806107 1806113 1806137 1806143 1806151 1806191 1806193 1806209 1806221 1806223 1806227 1806241 1806247 1806251 1806263 1806269 1806281 1806313 1806331 1806341 1806347 1806353 1806361 1806373 1806379 1806383 1806407 1806421 1806461 1806479 1806487 1806491 1806499 1806503 1806509 1806527 1806533 1806551 1806557 1806569 1806589 1806617 1806631 1806643 1806683 1806689 1806697 1806703 1806713 1806733 1806769 1806781 1806797 1806803 1806839 1806841 1806859 1806863 1806869 1806877 1806887 1806899 1806901 1806941 1806943 1806953 1806971 1806977 1807027 1807037 1807061 1807063 1807067 1807093 1807097 1807121 1807129 1807153 1807171 1807177 1807187 1807189 1807199 1807213 1807231 1807237 1807243 1807249 1807277 1807297 1807301 1807313 1807327 1807357 1807361 1807387 1807391 1807397 1807439 1807453 1807469 1807493 1807499 1807511 1807513 1807537 1807543 1807549 1807571 1807577 1807607 1807609 1807633 1807643 1807691 1807693 1807697 1807711 1807723 1807733 1807759 1807769 1807781 1807807 1807811 1807829 1807837 1807853 1807867 1807891 1807903 1807909 1807913 1807921 1807943 1807957 1807963 1807969 1807987 1807997 1807999 1808003 1808017 1808029 1808033 1808039 1808041 1808071 1808077 1808083 1808089 1808117 1808119 1808161 1808167 1808207 1808243 1808269 1808281 1808293 1808297 1808309 1808327 1808377 1808399 1808431 1808453 1808459 1808479 1808489 1808491 1808497 1808501 1808507 1808539 1808549 1808557 1808561 1808567 1808581 1808617 1808627 1808669 1808683 1808687 1808699 1808707 1808713 1808761 1808767 1808773 1808801 1808803 1808813 1808831 1808839 1808843 1808869 1808887 1808921 1808923 1808951 1808959 1808969 1808977 1808981 1808993 1809029 1809079 1809083 1809091 1809097 1809113 1809121 1809133 1809149 1809163 1809167 1809169 1809173 1809193 1809209 1809211 1809217 1809221 1809229 1809233 1809271 1809277 1809287 1809299 1809319 1809323 1809331 1809349 1809373 1809383 1809391 1809403 1809413 1809419 1809421 1809449 1809461 1809481 1809487 1809491 1809517 1809523 1809527 1809529 1809539 1809551 1809553 1809557 1809581 1809583 1809601 1809631 1809671 1809673 1809683 1809751 1809757 1809763 1809767 1809793 1809799 1809823 1809833 1809851 1809853 1809859 1809881 1809887 1809901 1809911 1809917 1809937 1809949 1809953 1809967 1809971 1809979 1809991 1810001 1810013 1810033 1810043 1810057 1810063 1810069 1810087 1810097 1810129 1810153 1810199 1810213 1810217 1810219 1810241 1810243 1810247 1810253 1810271 1810283 1810309 1810337 1810357 1810363 1810397 1810409 1810421 1810423 1810433 1810439 1810451 1810469 1810477 1810481 1810507 1810511 1810531 1810553 1810561 1810573 1810577 1810579 1810597 1810603 1810607 1810609 1810649 1810667 1810693 1810709 1810723 1810733 1810747 1810751 1810771 1810799 1810819 1810867 1810877 1810889 1810931 1810933 1810937 1810967 1810969 1810973 1810979 1810981 1810999 1811041 1811053 1811059 1811071 1811081 1811083 1811107 1811119 1811141 1811167 1811179 1811209 1811219 1811287 1811291 1811297 1811321 1811323 1811347 1811353 1811357 1811371 1811377 1811387 1811389 1811413 1811431 1811443 1811473 1811489 1811507 1811519 1811527 1811533 1811539 1811561 1811567 1811569 1811603 1811627 1811647 1811651 1811657 1811681 1811683 1811723 1811731 1811737 1811743 1811759 1811767 1811791 1811819 1811827 1811837 1811851 1811867 1811893 1811899 1811903 1811923 1811939 1811959 1811983 1811987 1811993 1812037 1812053 1812059 1812061 1812073 1812089 1812091 1812103 1812121 1812131 1812137 1812157 1812199 1812227 1812233 1812263 1812269 1812271 1812301 1812311 1812341 1812347 1812359 1812361 1812379 1812383 1812401 1812403 1812409 1812431 1812439 1812443 1812449 1812457 1812509 1812511 1812527 1812541 1812553 1812563 1812571 1812589 1812611 1812623 1812661 1812673 1812677 1812683 1812689 1812721 1812749 1812763 1812773 1812793 1812817 1812821 1812823 1812827 1812851 1812869 1812871 1812907 1812917 1812947 1812949 1812959 1812983 1812989 1813001 1813003 1813039 1813073 1813081 1813121 1813139 1813157 1813177 1813211 1813219 1813223 1813277 1813291 1813313 1813319 1813321 1813327 1813337 1813351 1813367 1813369 1813387 1813391 1813421 1813429 1813447 1813459 1813477 1813499 1813517 1813523 1813547 1813561 1813579 1813583 1813597 1813613 1813627 1813639 1813667 1813673 1813681 1813699 1813729 1813739 1813741 1813751 1813789 1813793 1813813 1813817 1813829 1813843 1813853 1813897 1813901 1813913 1813937 1813939 1813943 1813961 1813969 1813991 1813993 1814003 1814011 1814023 1814039 1814047 1814051 1814069 1814083 1814107 1814117 1814119 1814129 1814143 1814161 1814167 1814179 1814233 1814237 1814261 1814279 1814311 1814339 1814347 1814357 1814363 1814377 1814381 1814383 1814413 1814429 1814431 1814453 1814459 1814467 1814473 1814507 1814509 1814531 1814543 1814569 1814573 1814581 1814599 1814609 1814611 1814639 1814641 1814651 1814653 1814669 1814693 1814713 1814719 1814737 1814749 1814753 1814759 1814777 1814803 1814807 1814809 1814819 1814821 1814843 1814851 1814909 1814921 1814927 1814929 1814951 1814983 1814993 1815001 1815007 1815043 1815053 1815061 1815083 1815101 1815103 1815131 1815179 1815199 1815217 1815221 1815223 1815251 1815259 1815269 1815271 1815287 1815301 1815323 1815337 1815343 1815347 1815349 1815353 1815361 1815377 1815383 1815389 1815397 1815403 1815427 1815449 1815461 1815467 1815491 1815497 1815509 1815523 1815533 1815547 1815557 1815559 1815587 1815599 1815629 1815631 1815637 1815647 1815673 1815691 1815703 1815707 1815731 1815733 1815739 1815799 1815809 1815817 1815823 1815839 1815841 1815859 1815871 1815881 1815883 1815899 1815907 1815911 1815917 1815941 1815943 1815959 1815977 1816007 1816027 1816051 1816063 1816069 1816091 1816099 1816117 1816121 1816141 1816147 1816159 1816187 1816189 1816193 1816207 1816211 1816237 1816247 1816253 1816261 1816271 1816279 1816301 1816337 1816387 1816403 1816411 1816421 1816429 1816439 1816453 1816489 1816511 1816523 1816543 1816553 1816559 1816567 1816583 1816613 1816627 1816643 1816651 1816679 1816699 1816729 1816769 1816777 1816783 1816813 1816831 1816849 1816853 1816861 1816901 1816933 1816949 1816957 1816963 1816979 1816987 1817009 1817041 1817063 1817077 1817083 1817087 1817093 1817099 1817131 1817149 1817159 1817177 1817197 1817213 1817261 1817267 1817269 1817273 1817279 1817281 1817303 1817311 1817327 1817341 1817383 1817393 1817399 1817411 1817447 1817449 1817471 1817507 1817513 1817533 1817539 1817549 1817581 1817603 1817611 1817663 1817677 1817687 1817689 1817701 1817707 1817737 1817771 1817779 1817791 1817801 1817821 1817833 1817839 1817843 1817873 1817891 1817909 1817947 1817969 1817987 1817999 1818013 1818017 1818023 1818049 1818067 1818077 1818079 1818107 1818109 1818151 1818161 1818163 1818199 1818209 1818221 1818233 1818241 1818277 1818293 1818307 1818317 1818331 1818347 1818353 1818373 1818379 1818407 1818409 1818413 1818419 1818431 1818437 1818451 1818457 1818469 1818499 1818521 1818527 1818529 1818533 1818539 1818559 1818569 1818577 1818611 1818617 1818631 1818647 1818667 1818689 1818703 1818721 1818727 1818743 1818769 1818781 1818787 1818799 1818833 1818871 1818919 1818923 1818931 1818937 1818977 1818979 1818989 1818991 1819007 1819043 1819057 1819061 1819063 1819067 1819109 1819123 1819151 1819157 1819183 1819189 1819217 1819261 1819271 1819273 1819283 1819333 1819339 1819343 1819361 1819381 1819387 1819393 1819397 1819409 1819423 1819471 1819481 1819487 1819513 1819523 1819541 1819577 1819583 1819591 1819603 1819637 1819651 1819667 1819679 1819693 1819709 1819711 1819723 1819729 1819739 1819747 1819751 1819757 1819759 1819781 1819819 1819841 1819843 1819847 1819849 1819871 1819879 1819891 1819913 1819931 1819933 1819957 1819999 1820009 1820023 1820033 1820047 1820051 1820087 1820089 1820111 1820123 1820129 1820153 1820171 1820201 1820213 1820237 1820249 1820261 1820267 1820279 1820281 1820293 1820303 1820311 1820339 1820341 1820347 1820353 1820387 1820389 1820407 1820419 1820431 1820449 1820461 1820471 1820501 1820509 1820521 1820527 1820549 1820551 1820557 1820573 1820579 1820597 1820617 1820629 1820633 1820641 1820647 1820669 1820671 1820677 1820699 1820701 1820711 1820737 1820743 1820747 1820759 1820773 1820783 1820809 1820813 1820821 1820837 1820843 1820857 1820869 1820891 1820899 1820927 1820947 1820957 1820969 1820977 1820983 1820999 1821013 1821019 1821037 1821067 1821101 1821107 1821121 1821137 1821139 1821151 1821167 1821181 1821191 1821233 1821257 1821263 1821289 1821311 1821319 1821331 1821353 1821371 1821373 1821377 1821401 1821409 1821427 1821433 1821481 1821487 1821497 1821509 1821541 1821551 1821553 1821571 1821583 1821613 1821641 1821649 1821679 1821691 1821707 1821709 1821713 1821731 1821733 1821749 1821763 1821779 1821791 1821821 1821847 1821857 1821871 1821877 1821893 1821913 1821923 1821943 1821959 1821997 1822003 1822013 1822019 1822021 1822027 1822063 1822091 1822109 1822123 1822147 1822169 1822181 1822187 1822189 1822207 1822217 1822229 1822241 1822259 1822277 1822307 1822319 1822321 1822367 1822391 1822393 1822411 1822427 1822439 1822441 1822463 1822477 1822481 1822487 1822493 1822501 1822517 1822529 1822547 1822549 1822559 1822571 1822633 1822637 1822649 1822661 1822663 1822669 1822673 1822693 1822703 1822781 1822787 1822811 1822823 1822837 1822867 1822871 1822903 1822907 1822939 1822943 1822963 1822967 1822981 1822999 1823009 1823011 1823021 1823033 1823047 1823051 1823053 1823057 1823077 1823093 1823099 1823117 1823119 1823123 1823149 1823153 1823179 1823189 1823191 1823197 1823207 1823219 1823231 1823257 1823281 1823287 1823291 1823293 1823303 1823357 1823377 1823383 1823401 1823407 1823413 1823429 1823431 1823443 1823447 1823483 1823489 1823531 1823533 1823537 1823543 1823567 1823579 1823581 1823599 1823603 1823609 1823617 1823621 1823659 1823663 1823669 1823671 1823681 1823683 1823687 1823713 1823719 1823729 1823737 1823771 1823779 1823797 1823813 1823827 1823837 1823849 1823863 1823903 1823911 1823953 1823957 1823963 1823993 1823999 1824001 1824007 1824037 1824041 1824047 1824073 1824077 1824113 1824139 1824143 1824167 1824169 1824227 1824239 1824259 1824269 1824271 1824281 1824289 1824307 1824331 1824341 1824349 1824353 1824367 1824371 1824373 1824379 1824391 1824397 1824401 1824409 1824421 1824451 1824461 1824463 1824467 1824479 1824481 1824499 1824523 1824539 1824577 1824583 1824601 1824607 1824617 1824649 1824673 1824677 1824679 1824689 1824701 1824707 1824721 1824727 1824731 1824743 1824749 1824761 1824773 1824827 1824829 1824839 1824841 1824847 1824857 1824859 1824871 1824881 1824887 1824917 1824919 1824943 1824947 1824959 1824971 1824973 1824989 1824997 1825003 1825039 1825079 1825081 1825129 1825139 1825141 1825157 1825163 1825169 1825177 1825183 1825193 1825207 1825217 1825261 1825277 1825297 1825309 1825319 1825331 1825333 1825337 1825357 1825379 1825381 1825391 1825403 1825429 1825451 1825457 1825459 1825489 1825493 1825513 1825517 1825531 1825553 1825591 1825597 1825601 1825627 1825631 1825661 1825667 1825673 1825679 1825687 1825693 1825699 1825711 1825723 1825739 1825757 1825781 1825787 1825819 1825829 1825861 1825867 1825871 1825883 1825891 1825897 1825933 1825937 1825963 1825969 1826003 1826023 1826047 1826051 1826059 1826063 1826093 1826107 1826113 1826119 1826129 1826137 1826141 1826161 1826171 1826173 1826183 1826189 1826197 1826207 1826239 1826257 1826281 1826291 1826311 1826323 1826329 1826371 1826389 1826399 1826411 1826417 1826423 1826443 1826459 1826477 1826491 1826501 1826519 1826521 1826537 1826543 1826549 1826557 1826563 1826567 1826609 1826611 1826639 1826651 1826659 1826687 1826689 1826711 1826723 1826743 1826753 1826761 1826771 1826777 1826807 1826819 1826849 1826863 1826873 1826879 1826887 1826893 1826897 1826899 1826917 1826933 1826947 1826969 1826977 1826987 1826999 1827017 1827071 1827101 1827103 1827107 1827127 1827139 1827151 1827179 1827181 1827193 1827197 1827209 1827227 1827229 1827253 1827257 1827269 1827271 1827277 1827283 1827307 1827311 1827337 1827341 1827361 1827367 1827379 1827389 1827421 1827431 1827479 1827487 1827509 1827533 1827563 1827583 1827589 1827593 1827613 1827647 1827659 1827673 1827697 1827703 1827731 1827733 1827737 1827751 1827757 1827767 1827773 1827779 1827799 1827803 1827809 1827817 1827829 1827863 1827869 1827901 1827929 1827937 1827949 1827953 1827983 1828003 1828019 1828051 1828069 1828093 1828117 1828121 1828153 1828193 1828217 1828223 1828243 1828249 1828259 1828271 1828273 1828279 1828283 1828291 1828301 1828303 1828319 1828331 1828361 1828373 1828381 1828397 1828399 1828423 1828433 1828439 1828451 1828471 1828481 1828487 1828499 1828501 1828507 1828517 1828531 1828543 1828549 1828583 1828591 1828601 1828609 1828627 1828633 1828637 1828649 1828663 1828667 1828669 1828681 1828691 1828703 1828709 1828727 1828759 1828763 1828781 1828789 1828793 1828829 1828831 1828847 1828867 1828901 1828903 1828933 1828973 1828993 1828999 1829011 1829017 1829027 1829041 1829057 1829089 1829119 1829137 1829141 1829143 1829171 1829197 1829203 1829209 1829221 1829227 1829249 1829257 1829281 1829293 1829299 1829309 1829389 1829417 1829441 1829449 1829459 1829473 1829479 1829483 1829497 1829501 1829519 1829533 1829537 1829549 1829551 1829563 1829579 1829587 1829609 1829617 1829621 1829623 1829629 1829647 1829671 1829683 1829699 1829701 1829717 1829743 1829747 1829753 1829759 1829771 1829777 1829797 1829801 1829803 1829827 1829831 1829843 1829873 1829879 1829911 1829923 1829959 1829963 1830011 1830013 1830029 1830047 1830053 1830071 1830077 1830079 1830083 1830089 1830113 1830119 1830163 1830181 1830211 1830223 1830253 1830263 1830287 1830307 1830319 1830331 1830337 1830341 1830343 1830347 1830349 1830379 1830391 1830401 1830419 1830421 1830431 1830443 1830469 1830481 1830511 1830523 1830533 1830539 1830557 1830559 1830571 1830583 1830589 1830599 1830613 1830617 1830623 1830629 1830637 1830659 1830677 1830701 1830733 1830739 1830749 1830757 1830817 1830833 1830839 1830863 1830887 1830889 1830901 1830911 1830923 1830931 1830943 1830967 1830971 1830977 1831001 1831003 1831009 1831013 1831021 1831033 1831051 1831079 1831103 1831111 1831127 1831129 1831133 1831153 1831169 1831171 1831187 1831211 1831243 1831253 1831267 1831273 1831289 1831307 1831331 1831339 1831343 1831369 1831373 1831381 1831399 1831411 1831441 1831447 1831451 1831469 1831477 1831481 1831483 1831493 1831507 1831517 1831523 1831589 1831591 1831601 1831633 1831667 1831673 1831679 1831681 1831693 1831703 1831723 1831741 1831747 1831751 1831783 1831787 1831799 1831807 1831811 1831831 1831849 1831853 1831861 1831867 1831877 1831909 1831913 1831933 1831939 1831967 1831969 1831979 1831987 1831993 1832011 1832029 1832057 1832063 1832071 1832093 1832099 1832119 1832123 1832137 1832143 1832147 1832177 1832179 1832183 1832197 1832213 1832219 1832221 1832239 1832251 1832261 1832279 1832291 1832293 1832309 1832329 1832333 1832353 1832371 1832377 1832381 1832393 1832407 1832419 1832459 1832461 1832471 1832477 1832497 1832513 1832543 1832561 1832629 1832641 1832653 1832657 1832669 1832681 1832693 1832707 1832711 1832791 1832819 1832833 1832839 1832851 1832861 1832863 1832881 1832927 1832933 1832947 1832969 1832977 1832983 1833001 1833019 1833023 1833067 1833079 1833089 1833113 1833121 1833131 1833137 1833157 1833163 1833173 1833179 1833257 1833259 1833269 1833317 1833319 1833341 1833343 1833347 1833383 1833389 1833401 1833427 1833431 1833437 1833439 1833451 1833457 1833473 1833487 1833509 1833521 1833523 1833527 1833529 1833551 1833571 1833581 1833613 1833631 1833647 1833653 1833673 1833677 1833679 1833697 1833701 1833731 1833737 1833749 1833751 1833761 1833763 1833781 1833787 1833803 1833809 1833817 1833851 1833863 1833883 1833911 1833919 1833947 1833961 1833983 1834031 1834033 1834037 1834039 1834067 1834069 1834099 1834109 1834111 1834117 1834139 1834141 1834153 1834159 1834193 1834199 1834207 1834229 1834237 1834243 1834253 1834303 1834307 1834309 1834321 1834333 1834373 1834397 1834403 1834421 1834429 1834433 1834439 1834447 1834451 1834477 1834501 1834513 1834523 1834597 1834601 1834603 1834607 1834619 1834631 1834639 1834643 1834663 1834667 1834669 1834717 1834727 1834741 1834747 1834751 1834753 1834757 1834783 1834799 1834813 1834831 1834879 1834883 1834901 1834907 1834909 1834919 1834967 1834969 1834981 1834991 1834993 1834999 1835003 1835017 1835027 1835051 1835081 1835083 1835087 1835117 1835129 1835131 1835161 1835177 1835189 1835227 1835257 1835263 1835291 1835297 1835299 1835321 1835329 1835333 1835359 1835363 1835399 1835401 1835411 1835413 1835453 1835461 1835467 1835501 1835527 1835557 1835569 1835573 1835591 1835593 1835633 1835651 1835657 1835689 1835737 1835741 1835753 1835767 1835797 1835809 1835819 1835839 1835861 1835863 1835879 1835909 1835921 1835923 1835941 1835947 1835957 1835969 1835993 1836011 1836031 1836041 1836047 1836053 1836059 1836061 1836073 1836091 1836151 1836157 1836239 1836259 1836271 1836277 1836287 1836299 1836301 1836319 1836379 1836383 1836413 1836427 1836433 1836437 1836449 1836451 1836467 1836473 1836479 1836511 1836517 1836539 1836553 1836563 1836581 1836623 1836641 1836647 1836689 1836691 1836727 1836733 1836761 1836763 1836797 1836811 1836827 1836839 1836853 1836911 1836929 1836931 1836937 1836943 1836949 1836959 1836971 1836973 1836979 1837007 1837009 1837027 1837061 1837067 1837097 1837103 1837117 1837123 1837127 1837151 1837159 1837181 1837189 1837223 1837249 1837271 1837273 1837289 1837313 1837349 1837361 1837379 1837387 1837391 1837393 1837397 1837399 1837427 1837453 1837477 1837481 1837489 1837529 1837541 1837573 1837601 1837607 1837621 1837639 1837657 1837663 1837681 1837687 1837709 1837727 1837729 1837733 1837739 1837741 1837763 1837789 1837831 1837837 1837867 1837873 1837879 1837903 1837919 1837931 1837937 1837943 1837961 1837967 1837973 1837981 1838033 1838047 1838051 1838063 1838069 1838087 1838101 1838131 1838141 1838143 1838167 1838173 1838191 1838203 1838209 1838233 1838237 1838257 1838297 1838299 1838327 1838341 1838371 1838377 1838401 1838407 1838423 1838429 1838453 1838461 1838519 1838521 1838527 1838531 1838549 1838569 1838587 1838591 1838621 1838659 1838671 1838693 1838717 1838719 1838741 1838743 1838747 1838761 1838773 1838791 1838807 1838813 1838819 1838843 1838869 1838909 1838911 1838923 1838933 1838957 1838983 1838987 1838989 1838999 1839001 1839059 1839073 1839091 1839121 1839127 1839133 1839169 1839203 1839221 1839283 1839293 1839317 1839329 1839347 1839353 1839359 1839361 1839373 1839377 1839401 1839413 1839427 1839433 1839449 1839457 1839463 1839469 1839473 1839479 1839491 1839493 1839511 1839559 1839589 1839601 1839611 1839631 1839647 1839653 1839659 1839667 1839671 1839697 1839727 1839737 1839743 1839763 1839767 1839769 1839787 1839809 1839833 1839853 1839857 1839907 1839911 1839913 1839919 1839923 1839947 1839949 1839953 1839967 1839983 1839991 1839997 1840019 1840031 1840043 1840049 1840051 1840057 1840073 1840087 1840109 1840117 1840123 1840171 1840183 1840219 1840231 1840259 1840261 1840297 1840313 1840327 1840331 1840337 1840351 1840393 1840429 1840441 1840453 1840457 1840459 1840469 1840493 1840519 1840537 1840541 1840561 1840577 1840591 1840603 1840633 1840649 1840651 1840669 1840673 1840679 1840697 1840703 1840711 1840723 1840733 1840747 1840771 1840781 1840789 1840829 1840843 1840847 1840871 1840877 1840921 1840939 1840957 1840961 1840973 1841003 1841011 1841039 1841057 1841069 1841071 1841087 1841089 1841107 1841111 1841113 1841141 1841153 1841171 1841201 1841221 1841237 1841249 1841251 1841261 1841267 1841291 1841293 1841299 1841317 1841327 1841339 1841377 1841383 1841387 1841401 1841429 1841443 1841447 1841473 1841479 1841513 1841519 1841531 1841557 1841579 1841599 1841603 1841621 1841639 1841641 1841657 1841659 1841681 1841699 1841701 1841711 1841713 1841759 1841779 1841783 1841821 1841837 1841849 1841857 1841869 1841891 1841911 1841923 1841929 1841941 1841947 1841951 1841969 1842011 1842023 1842041 1842067 1842073 1842079 1842083 1842097 1842101 1842131 1842133 1842151 1842161 1842173 1842187 1842199 1842229 1842233 1842251 1842263 1842287 1842289 1842293 1842311 1842317 1842329 1842349 1842377 1842391 1842413 1842419 1842431 1842469 1842473 1842479 1842481 1842493 1842497 1842509 1842523 1842527 1842539 1842551 1842557 1842569 1842583 1842587 1842611 1842619 1842641 1842661 1842667 1842703 1842719 1842727 1842767 1842769 1842779 1842781 1842793 1842803 1842809 1842811 1842839 1842847 1842853 1842877 1842887 1842889 1842899 1842901 1842913 1842931 1842941 1842949 1842961 1842977 1842989 1843003 1843027 1843033 1843063 1843067 1843087 1843091 1843099 1843111 1843117 1843129 1843139 1843141 1843147 1843159 1843169 1843183 1843189 1843201 1843207 1843213 1843217 1843241 1843253 1843273 1843277 1843313 1843321 1843349 1843357 1843421 1843423 1843433 1843447 1843487 1843489 1843493 1843511 1843537 1843547 1843549 1843561 1843571 1843579 1843591 1843607 1843619 1843631 1843643 1843649 1843687 1843697 1843753 1843757 1843771 1843783 1843789 1843801 1843823 1843843 1843859 1843867 1843889 1843901 1843909 1843943 1843949 1843967 1843981 1843993 1843997 1843999 1844021 1844027 1844033 1844039 1844077 1844093 1844099 1844111 1844119 1844123 1844131 1844153 1844179 1844189 1844201 1844207 1844243 1844257 1844263 1844287 1844291 1844299 1844317 1844329 1844333 1844341 1844357 1844369 1844377 1844383 1844411 1844417 1844441 1844473 1844477 1844497 1844503 1844519 1844527 1844537 1844567 1844569 1844581 1844617 1844641 1844659 1844677 1844681 1844683 1844707 1844723 1844737 1844741 1844747 1844749 1844813 1844819 1844827 1844837 1844863 1844867 1844897 1844917 1844923 1844939 1844963 1844971 1844977 1844981 1844987 1845017 1845023 1845029 1845047 1845049 1845073 1845119 1845133 1845139 1845143 1845149 1845157 1845161 1845167 1845187 1845199 1845209 1845211 1845229 1845271 1845289 1845293 1845307 1845317 1845331 1845353 1845373 1845379 1845419 1845421 1845427 1845457 1845463 1845491 1845499 1845509 1845521 1845539 1845541 1845551 1845559 1845563 1845577 1845581 1845583 1845601 1845611 1845637 1845713 1845719 1845721 1845731 1845751 1845757 1845769 1845791 1845827 1845829 1845841 1845881 1845901 1845913 1845919 1845931 1845941 1845959 1846001 1846037 1846057 1846063 1846067 1846073 1846079 1846093 1846099 1846121 1846129 1846139 1846153 1846157 1846171 1846177 1846181 1846219 1846223 1846231 1846241 1846253 1846261 1846283 1846289 1846297 1846321 1846331 1846333 1846357 1846367 1846373 1846379 1846393 1846399 1846441 1846457 1846469 1846487 1846511 1846529 1846541 1846547 1846561 1846567 1846571 1846609 1846613 1846619 1846631 1846643 1846657 1846673 1846703 1846711 1846729 1846751 1846769 1846777 1846811 1846837 1846843 1846847 1846849 1846861 1846879 1846903 1846909 1846913 1846921 1846939 1846951 1846963 1846967 1846993 1847023 1847051 1847071 1847093 1847117 1847129 1847143 1847149 1847179 1847221 1847233 1847239 1847243 1847267 1847273 1847281 1847297 1847303 1847309 1847327 1847333 1847341 1847347 1847353 1847357 1847359 1847369 1847381 1847393 1847401 1847413 1847423 1847431 1847471 1847473 1847477 1847513 1847537 1847539 1847563 1847591 1847603 1847609 1847623 1847627 1847641 1847647 1847653 1847687 1847689 1847701 1847737 1847767 1847777 1847779 1847789 1847803 1847809 1847827 1847831 1847861 1847863 1847869 1847887 1847897 1847903 1847929 1847933 1847969 1847971 1847983 1847999 1848013 1848023 1848029 1848031 1848043 1848103 1848107 1848151 1848167 1848169 1848193 1848221 1848227 1848233 1848241 1848247 1848277 1848281 1848289 1848311 1848323 1848331 1848337 1848347 1848367 1848397 1848439 1848443 1848449 1848467 1848503 1848551 1848569 1848577 1848589 1848593 1848599 1848607 1848617 1848641 1848667 1848673 1848677 1848697 1848713 1848751 1848773 1848787 1848811 1848823 1848827 1848841 1848859 1848863 1848877 1848907 1848919 1848923 1848929 1848943 1848949 1848983 1848997 1849013 1849021 1849037 1849049 1849051 1849063 1849079 1849087 1849091 1849097 1849103 1849109 1849147 1849151 1849171 1849187 1849189 1849201 1849207 1849217 1849229 1849231 1849241 1849259 1849271 1849273 1849279 1849283 1849291 1849319 1849333 1849349 1849357 1849381 1849391 1849399 1849423 1849433 1849439 1849451 1849457 1849483 1849487 1849493 1849511 1849513 1849577 1849579 1849609 1849643 1849663 1849681 1849691 1849699 1849711 1849721 1849723 1849733 1849751 1849759 1849811 1849829 1849831 1849843 1849847 1849849 1849853 1849877 1849909 1849919 1849921 1849933 1849979 1850021 1850029 1850033 1850041 1850053 1850089 1850119 1850129 1850131 1850141 1850159 1850179 1850227 1850243 1850257 1850267 1850269 1850279 1850293 1850309 1850341 1850347 1850357 1850369 1850413 1850423 1850441 1850447 1850489 1850491 1850503 1850509 1850521 1850561 1850573 1850587 1850593 1850609 1850633 1850687 1850689 1850701 1850749 1850759 1850767 1850789 1850803 1850831 1850837 1850839 1850843 1850887 1850939 1850941 1850951 1850969 1850987 1851019 1851023 1851029 1851043 1851071 1851077 1851089 1851097 1851119 1851127 1851133 1851139 1851163 1851173 1851203 1851217 1851253 1851259 1851271 1851287 1851299 1851301 1851313 1851319 1851329 1851337 1851349 1851359 1851371 1851373 1851391 1851401 1851403 1851407 1851433 1851457 1851463 1851469 1851491 1851503 1851511 1851539 1851541 1851547 1851557 1851559 1851571 1851581 1851587 1851611 1851637 1851643 1851649 1851667 1851671 1851677 1851701 1851719 1851727 1851749 1851757 1851761 1851763 1851769 1851779 1851781 1851803 1851809 1851821 1851841 1851851 1851859 1851869 1851877 1851901 1851907 1851917 1851919 1851931 1851953 1851973 1851991 1852003 1852009 1852013 1852049 1852051 1852057 1852073 1852079 1852087 1852091 1852111 1852153 1852159 1852163 1852171 1852181 1852189 1852211 1852217 1852241 1852243 1852247 1852261 1852271 1852273 1852283 1852289 1852307 1852327 1852363 1852373 1852393 1852427 1852429 1852447 1852451 1852457 1852469 1852493 1852511 1852523 1852559 1852579 1852597 1852601 1852621 1852637 1852649 1852663 1852679 1852681 1852687 1852699 1852703 1852727 1852771 1852789 1852793 1852817 1852819 1852843 1852859 1852909 1852951 1852957 1852969 1852973 1852987 1853011 1853053 1853063 1853081 1853083 1853107 1853161 1853167 1853177 1853183 1853191 1853207 1853209 1853231 1853239 1853263 1853281 1853309 1853321 1853329 1853333 1853339 1853377 1853381 1853387 1853399 1853443 1853447 1853461 1853471 1853479 1853483 1853497 1853503 1853513 1853549 1853557 1853563 1853581 1853587 1853591 1853611 1853617 1853627 1853641 1853647 1853669 1853671 1853701 1853711 1853713 1853723 1853743 1853749 1853759 1853771 1853779 1853791 1853801 1853807 1853809 1853857 1853861 1853879 1853927 1853939 1853947 1853977 1853987 1854011 1854019 1854029 1854067 1854089 1854101 1854109 1854113 1854119 1854131 1854157 1854163 1854179 1854187 1854211 1854221 1854227 1854233 1854247 1854257 1854269 1854271 1854277 1854299 1854313 1854317 1854331 1854337 1854341 1854353 1854373 1854379 1854383 1854407 1854409 1854439 1854487 1854491 1854497 1854527 1854529 1854563 1854599 1854607 1854613 1854617 1854623 1854653 1854659 1854661 1854673 1854679 1854689 1854701 1854703 1854709 1854731 1854739 1854763 1854779 1854781 1854791 1854793 1854833 1854851 1854859 1854863 1854883 1854889 1854893 1854899 1854907 1854911 1854917 1854943 1854971 1854991 1854997 1855001 1855013 1855031 1855033 1855039 1855093 1855097 1855099 1855109 1855123 1855153 1855169 1855171 1855187 1855207 1855211 1855219 1855229 1855237 1855247 1855253 1855267 1855279 1855303 1855307 1855313 1855327 1855349 1855361 1855393 1855411 1855421 1855423 1855457 1855463 1855501 1855517 1855519 1855523 1855531 1855541 1855549 1855577 1855589 1855591 1855603 1855613 1855621 1855627 1855649 1855687 1855697 1855723 1855729 1855741 1855747 1855757 1855759 1855769 1855807 1855811 1855813 1855817 1855823 1855849 1855853 1855891 1855921 1855927 1855933 1855949 1855951 1855961 1855969 1855979 1855981 1855993 1855999 1856003 1856017 1856021 1856027 1856033 1856039 1856059 1856069 1856083 1856089 1856119 1856137 1856147 1856149 1856159 1856191 1856201 1856207 1856221 1856227 1856233 1856237 1856269 1856287 1856293 1856297 1856303 1856333 1856339 1856347 1856363 1856411 1856419 1856441 1856443 1856507 1856513 1856581 1856599 1856639 1856651 1856713 1856719 1856747 1856753 1856759 1856773 1856801 1856819 1856821 1856837 1856843 1856857 1856861 1856891 1856903 1856909 1856917 1856941 1856947 1856963 1856969 1856971 1856983 1856989 1856999 1857001 1857049 1857091 1857101 1857109 1857113 1857139 1857151 1857157 1857161 1857169 1857197 1857203 1857209 1857217 1857257 1857281 1857283 1857287 1857293 1857313 1857343 1857347 1857353 1857371 1857377 1857391 1857407 1857439 1857461 1857473 1857481 1857509 1857517 1857521 1857533 1857547 1857553 1857577 1857589 1857593 1857599 1857617 1857671 1857673 1857677 1857679 1857689 1857701 1857707 1857719 1857731 1857761 1857767 1857773 1857797 1857803 1857829 1857859 1857887 1857893 1857899 1857929 1857931 1857941 1857949 1857959 1857967 1857971 1857979 1858007 1858033 1858057 1858061 1858081 1858091 1858093 1858133 1858139 1858163 1858169 1858183 1858187 1858189 1858201 1858211 1858217 1858249 1858261 1858267 1858279 1858303 1858309 1858313 1858319 1858343 1858369 1858403 1858421 1858433 1858459 1858529 1858531 1858537 1858541 1858553 1858573 1858579 1858583 1858603 1858613 1858631 1858643 1858651 1858663 1858669 1858691 1858693 1858711 1858721 1858733 1858739 1858741 1858757 1858807 1858819 1858823 1858849 1858861 1858867 1858873 1858889 1858891 1858919 1858921 1858931 1858937 1858957 1858973 1859009 1859023 1859041 1859057 1859071 1859083 1859087 1859111 1859119 1859141 1859167 1859173 1859177 1859197 1859201 1859203 1859233 1859243 1859269 1859279 1859281 1859311 1859323 1859327 1859329 1859353 1859369 1859387 1859441 1859453 1859467 1859471 1859479 1859489 1859491 1859497 1859513 1859519 1859521 1859531 1859537 1859551 1859563 1859569 1859603 1859609 1859617 1859629 1859633 1859639 1859651 1859653 1859677 1859687 1859699 1859771 1859779 1859813 1859827 1859831 1859843 1859863 1859881 1859899 1859911 1859917 1859927 1859971 1859983 1859999 1860007 1860013 1860017 1860037 1860059 1860071 1860083 1860097 1860109 1860127 1860139 1860143 1860163 1860179 1860181 1860193 1860197 1860251 1860253 1860277 1860281 1860289 1860301 1860337 1860343 1860359 1860373 1860377 1860407 1860421 1860427 1860431 1860449 1860479 1860503 1860517 1860533 1860559 1860569 1860571 1860581 1860583 1860629 1860637 1860641 1860643 1860647 1860659 1860679 1860707 1860709 1860721 1860731 1860737 1860743 1860757 1860763 1860799 1860821 1860829 1860847 1860851 1860853 1860857 1860869 1860877 1860893 1860923 1860941 1860967 1860977 1860979 1860983 1861001 1861009 1861019 1861021 1861033 1861039 1861061 1861081 1861103 1861121 1861141 1861151 1861157 1861187 1861219 1861253 1861261 1861267 1861303 1861309 1861331 1861337 1861339 1861351 1861397 1861403 1861417 1861469 1861471 1861493 1861501 1861511 1861543 1861547 1861567 1861579 1861583 1861589 1861591 1861621 1861631 1861637 1861649 1861661 1861663 1861697 1861709 1861711 1861747 1861751 1861757 1861759 1861787 1861807 1861817 1861831 1861859 1861861 1861879 1861889 1861897 1861913 1861921 1861927 1861961 1861973 1861991 1862009 1862017 1862023 1862033 1862087 1862101 1862111 1862123 1862141 1862153 1862213 1862219 1862221 1862227 1862233 1862243 1862249 1862251 1862279 1862297 1862317 1862347 1862359 1862381 1862383 1862407 1862411 1862417 1862429 1862447 1862477 1862489 1862501 1862519 1862521 1862561 1862587 1862591 1862593 1862611 1862621 1862633 1862647 1862659 1862669 1862683 1862687 1862711 1862737 1862761 1862797 1862837 1862857 1862869 1862881 1862891 1862909 1862923 1862933 1862941 1862953 1862957 1862981 1862983 1863011 1863041 1863049 1863053 1863067 1863073 1863077 1863089 1863091 1863097 1863107 1863151 1863157 1863181 1863223 1863229 1863241 1863247 1863263 1863269 1863271 1863307 1863313 1863331 1863347 1863361 1863371 1863377 1863401 1863403 1863413 1863451 1863457 1863461 1863473 1863479 1863481 1863493 1863497 1863509 1863517 1863527 1863541 1863559 1863581 1863583 1863593 1863601 1863607 1863613 1863637 1863647 1863649 1863671 1863677 1863683 1863707 1863721 1863731 1863769 1863779 1863787 1863811 1863839 1863853 1863857 1863871 1863877 1863889 1863893 1863899 1863913 1863923 1863929 1863941 1863971 1863997 1864001 1864003 1864039 1864043 1864069 1864087 1864111 1864117 1864151 1864153 1864189 1864217 1864241 1864253 1864259 1864267 1864297 1864307 1864361 1864363 1864391 1864399 1864417 1864427 1864453 1864463 1864469 1864483 1864507 1864517 1864529 1864547 1864549 1864553 1864559 1864567 1864571 1864589 1864591 1864601 1864649 1864657 1864661 1864691 1864693 1864703 1864711 1864739 1864769 1864783 1864789 1864801 1864823 1864847 1864853 1864859 1864861 1864871 1864873 1864879 1864897 1864901 1864921 1864939 1864979 1864987 1865011 1865023 1865027 1865057 1865063 1865069 1865081 1865107 1865119 1865137 1865141 1865147 1865159 1865161 1865179 1865203 1865221 1865233 1865243 1865261 1865263 1865267 1865299 1865321 1865327 1865329 1865333 1865341 1865371 1865389 1865399 1865411 1865417 1865419 1865431 1865443 1865447 1865453 1865467 1865471 1865489 1865491 1865509 1865527 1865533 1865537 1865543 1865551 1865561 1865569 1865573 1865579 1865587 1865603 1865609 1865659 1865671 1865681 1865687 1865693 1865711 1865719 1865729 1865791 1865821 1865827 1865837 1865839 1865849 1865863 1865881 1865887 1865893 1865911 1865917 1865939 1865957 1865959 1865987 1865999 1866001 1866019 1866031 1866037 1866043 1866049 1866083 1866091 1866101 1866113 1866127 1866131 1866143 1866191 1866203 1866211 1866223 1866233 1866239 1866247 1866251 1866269 1866281 1866283 1866301 1866307 1866331 1866341 1866343 1866349 1866367 1866373 1866409 1866437 1866439 1866451 1866457 1866461 1866467 1866499 1866517 1866521 1866547 1866551 1866569 1866577 1866593 1866637 1866649 1866659 1866677 1866679 1866721 1866737 1866751 1866757 1866779 1866827 1866833 1866847 1866857 1866859 1866863 1866869 1866871 1866877 1866901 1866941 1866961 1866967 1866971 1866973 1866989 1867001 1867003 1867009 1867013 1867039 1867051 1867069 1867079 1867109 1867123 1867147 1867157 1867183 1867193 1867211 1867213 1867219 1867231 1867237 1867241 1867249 1867253 1867259 1867303 1867319 1867321 1867337 1867343 1867351 1867367 1867373 1867421 1867423 1867429 1867469 1867477 1867553 1867573 1867597 1867601 1867609 1867631 1867651 1867693 1867709 1867711 1867717 1867727 1867729 1867751 1867753 1867769 1867771 1867783 1867787 1867799 1867813 1867819 1867823 1867847 1867849 1867867 1867883 1867897 1867907 1867913 1867927 1867949 1867951 1867969 1867973 1867979 1867993 1868017 1868033 1868039 1868051 1868057 1868059 1868063 1868107 1868149 1868159 1868173 1868179 1868183 1868189 1868201 1868231 1868239 1868257 1868261 1868287 1868291 1868309 1868333 1868371 1868381 1868387 1868407 1868423 1868443 1868459 1868483 1868501 1868513 1868519 1868527 1868533 1868549 1868561 1868567 1868569 1868591 1868599 1868617 1868627 1868639 1868641 1868663 1868677 1868687 1868693 1868701 1868717 1868719 1868723 1868747 1868749 1868753 1868777 1868807 1868813 1868837 1868843 1868851 1868863 1868879 1868917 1868947 1868983 1868987 1868989 1869029 1869041 1869053 1869071 1869073 1869097 1869113 1869139 1869169 1869173 1869181 1869191 1869193 1869199 1869209 1869221 1869227 1869251 1869271 1869293 1869299 1869319 1869341 1869379 1869383 1869389 1869403 1869407 1869419 1869433 1869443 1869449 1869487 1869521 1869529 1869547 1869551 1869563 1869577 1869617 1869631 1869649 1869691 1869709 1869719 1869731 1869737 1869757 1869761 1869793 1869823 1869839 1869853 1869859 1869871 1869929 1869947 1869953 1869971 1869991 1870019 1870021 1870049 1870067 1870079 1870097 1870103 1870111 1870117 1870129 1870139 1870147 1870159 1870163 1870207 1870213 1870223 1870229 1870247 1870249 1870259 1870279 1870307 1870327 1870343 1870361 1870369 1870373 1870381 1870399 1870403 1870411 1870433 1870441 1870469 1870499 1870507 1870511 1870541 1870577 1870591 1870597 1870601 1870619 1870639 1870643 1870651 1870667 1870669 1870709 1870711 1870717 1870723 1870733 1870777 1870783 1870787 1870793 1870807 1870829 1870853 1870859 1870861 1870879 1870907 1870919 1870927 1870933 1870951 1870961 1870991 1871017 1871021 1871029 1871039 1871057 1871081 1871083 1871099 1871113 1871137 1871147 1871153 1871171 1871183 1871213 1871249 1871263 1871279 1871293 1871321 1871327 1871339 1871351 1871383 1871413 1871417 1871437 1871447 1871449 1871459 1871461 1871473 1871477 1871491 1871503 1871509 1871531 1871543 1871549 1871561 1871591 1871603 1871621 1871627 1871629 1871641 1871651 1871669 1871677 1871693 1871699 1871711 1871713 1871743 1871777 1871783 1871789 1871813 1871827 1871839 1871843 1871851 1871879 1871917 1871923 1871927 1871929 1871951 1871957 1871981 1871983 1872001 1872007 1872043 1872049 1872097 1872109 1872113 1872137 1872149 1872173 1872217 1872229 1872239 1872253 1872259 1872271 1872281 1872287 1872289 1872301 1872313 1872319 1872323 1872337 1872389 1872419 1872421 1872427 1872461 1872463 1872473 1872491 1872503 1872529 1872547 1872553 1872557 1872569 1872581 1872587 1872589 1872623 1872631 1872667 1872671 1872691 1872713 1872721 1872727 1872743 1872751 1872763 1872769 1872799 1872817 1872841 1872847 1872859 1872889 1872911 1872919 1872929 1872943 1872953 1872971 1873013 1873019 1873021 1873031 1873049 1873057 1873093 1873099 1873121 1873133 1873141 1873147 1873159 1873163 1873171 1873181 1873211 1873217 1873219 1873231 1873271 1873283 1873297 1873307 1873321 1873337 1873357 1873367 1873379 1873409 1873411 1873433 1873441 1873471 1873499 1873507 1873513 1873517 1873523 1873541 1873549 1873567 1873583 1873589 1873607 1873633 1873637 1873657 1873679 1873681 1873687 1873699 1873721 1873727 1873769 1873771 1873783 1873831 1873849 1873867 1873877 1873889 1873967 1873969 1873979 1874003 1874021 1874039 1874051 1874083 1874099 1874101 1874107 1874111 1874143 1874153 1874177 1874189 1874207 1874209 1874261 1874263 1874303 1874311 1874317 1874351 1874377 1874387 1874399 1874417 1874441 1874443 1874449 1874461 1874491 1874503 1874513 1874527 1874549 1874599 1874603 1874611 1874623 1874627 1874629 1874633 1874657 1874659 1874669 1874699 1874723 1874729 1874759 1874767 1874791 1874797 1874819 1874833 1874837 1874839 1874857 1874869 1874881 1874893 1874903 1874921 1874923 1874941 1874953 1874959 1874987 1874993 1875007 1875011 1875037 1875043 1875059 1875061 1875067 1875073 1875077 1875103 1875109 1875131 1875143 1875149 1875161 1875163 1875173 1875179 1875191 1875229 1875233 1875239 1875241 1875277 1875311 1875317 1875331 1875337 1875361 1875371 1875373 1875403 1875427 1875431 1875439 1875449 1875451 1875479 1875481 1875487 1875499 1875521 1875529 1875541 1875553 1875557 1875569 1875583 1875611 1875619 1875677 1875683 1875707 1875743 1875751 1875773 1875793 1875803 1875821 1875833 1875859 1875869 1875877 1875893 1875901 1875943 1875947 1875953 1875959 1875971 1875977 1875983 1875989 1875997 1876009 1876019 1876057 1876073 1876081 1876093 1876109 1876123 1876129 1876157 1876163 1876169 1876181 1876183 1876187 1876211 1876223 1876241 1876247 1876249 1876261 1876267 1876289 1876291 1876309 1876327 1876331 1876333 1876339 1876367 1876373 1876379 1876403 1876417 1876451 1876453 1876481 1876499 1876507 1876513 1876517 1876519 1876541 1876549 1876559 1876597 1876607 1876627 1876631 1876643 1876657 1876669 1876697 1876703 1876711 1876717 1876733 1876741 1876747 1876781 1876807 1876829 1876841 1876859 1876949 1876951 1876999 1877003 1877009 1877011 1877017 1877023 1877033 1877041 1877059 1877069 1877077 1877087 1877107 1877111 1877137 1877147 1877159 1877171 1877177 1877179 1877189 1877209 1877221 1877231 1877233 1877243 1877261 1877279 1877297 1877299 1877303 1877347 1877353 1877357 1877363 1877389 1877399 1877401 1877443 1877459 1877461 1877471 1877479 1877483 1877501 1877503 1877521 1877573 1877609 1877621 1877669 1877671 1877683 1877693 1877717 1877723 1877741 1877753 1877761 1877773 1877797 1877801 1877819 1877833 1877839 1877857 1877873 1877891 1877917 1877933 1877951 1877959 1877977 1877983 1878013 1878043 1878047 1878049 1878053 1878059 1878061 1878089 1878091 1878119 1878139 1878181 1878187 1878193 1878199 1878209 1878221 1878223 1878229 1878257 1878263 1878277 1878281 1878287 1878293 1878299 1878319 1878323 1878353 1878367 1878389 1878403 1878419 1878421 1878431 1878439 1878451 1878463 1878491 1878493 1878553 1878557 1878559 1878563 1878577 1878581 1878593 1878623 1878629 1878641 1878659 1878677 1878683 1878689 1878697 1878733 1878757 1878769 1878781 1878791 1878803 1878827 1878839 1878841 1878869 1878883 1878887 1878889 1878911 1878913 1878931 1878949 1878977 1878979 1878991 1879049 1879067 1879069 1879079 1879099 1879103 1879109 1879121 1879151 1879187 1879211 1879243 1879253 1879279 1879291 1879301 1879351 1879357 1879363 1879379 1879387 1879391 1879421 1879429 1879439 1879453 1879459 1879463 1879477 1879511 1879517 1879523 1879543 1879567 1879589 1879597 1879601 1879607 1879621 1879643 1879663 1879723 1879729 1879781 1879789 1879807 1879811 1879817 1879847 1879849 1879873 1879897 1879901 1879909 1879921 1879931 1879937 1879939 1879949 1879961 1879967 1880017 1880023 1880027 1880093 1880111 1880117 1880129 1880159 1880167 1880189 1880201 1880209 1880233 1880257 1880267 1880287 1880309 1880321 1880323 1880327 1880339 1880341 1880357 1880363 1880369 1880381 1880401 1880413 1880441 1880467 1880497 1880509 1880513 1880521 1880537 1880551 1880561 1880573 1880581 1880597 1880603 1880633 1880647 1880653 1880657 1880663 1880689 1880701 1880707 1880729 1880741 1880789 1880803 1880807 1880819 1880831 1880833 1880839 1880843 1880849 1880869 1880881 1880887 1880899 1880903 1880909 1880929 1880933 1880939 1880941 1880947 1880951 1880959 1880971 1880993 1881031 1881037 1881041 1881071 1881079 1881083 1881109 1881119 1881127 1881151 1881157 1881161 1881163 1881181 1881197 1881199 1881211 1881221 1881223 1881241 1881263 1881277 1881289 1881307 1881311 1881329 1881343 1881349 1881389 1881391 1881401 1881403 1881419 1881431 1881461 1881463 1881479 1881493 1881499 1881511 1881521 1881533 1881559 1881587 1881601 1881617 1881619 1881631 1881641 1881697 1881749 1881751 1881757 1881767 1881769 1881787 1881799 1881811 1881821 1881823 1881851 1881853 1881863 1881881 1881889 1881899 1881907 1881937 1881949 1881961 1881983 1881989 1882009 1882031 1882037 1882039 1882051 1882063 1882073 1882081 1882099 1882117 1882141 1882147 1882163 1882169 1882171 1882183 1882207 1882211 1882229 1882247 1882253 1882259 1882271 1882313 1882319 1882327 1882367 1882369 1882403 1882409 1882417 1882421 1882429 1882453 1882457 1882459 1882469 1882471 1882519 1882541 1882561 1882579 1882589 1882607 1882667 1882681 1882703 1882717 1882721 1882747 1882781 1882787 1882823 1882861 1882877 1882891 1882921 1882939 1882963 1882997 1883003 1883017 1883023 1883027 1883047 1883051 1883053 1883087 1883113 1883129 1883153 1883177 1883183 1883191 1883197 1883201 1883207 1883213 1883227 1883237 1883257 1883267 1883279 1883293 1883317 1883341 1883351 1883359 1883363 1883369 1883377 1883381 1883383 1883389 1883393 1883407 1883429 1883459 1883471 1883477 1883491 1883501 1883503 1883513 1883533 1883551 1883573 1883599 1883611 1883621 1883627 1883639 1883647 1883659 1883669 1883671 1883689 1883699 1883731 1883737 1883743 1883759 1883773 1883857 1883879 1883881 1883939 1883941 1883969 1883971 1883989 1883993 1884007 1884011 1884013 1884053 1884061 1884083 1884109 1884119 1884121 1884133 1884193 1884199 1884209 1884221 1884227 1884247 1884293 1884313 1884341 1884343 1884347 1884353 1884359 1884409 1884427 1884437 1884451 1884461 1884469 1884479 1884481 1884503 1884517 1884523 1884527 1884529 1884539 1884563 1884577 1884587 1884593 1884599 1884601 1884607 1884611 1884677 1884679 1884713 1884721 1884731 1884749 1884791 1884793 1884803 1884809 1884821 1884829 1884833 1884853 1884877 1884881 1884887 1884889 1884901 1884907 1884917 1884923 1884947 1884973 1885007 1885021 1885033 1885043 1885069 1885151 1885153 1885159 1885171 1885183 1885201 1885207 1885243 1885253 1885259 1885267 1885271 1885277 1885291 1885307 1885309 1885321 1885339 1885349 1885363 1885381 1885391 1885393 1885423 1885439 1885459 1885469 1885489 1885501 1885519 1885523 1885529 1885553 1885561 1885567 1885573 1885577 1885601 1885603 1885607 1885613 1885619 1885627 1885633 1885649 1885673 1885703 1885711 1885717 1885729 1885733 1885753 1885757 1885789 1885801 1885811 1885847 1885859 1885867 1885879 1885907 1885909 1885913 1885943 1885979 1885981 1885991 1885993 1886011 1886021 1886029 1886047 1886051 1886081 1886107 1886113 1886119 1886153 1886173 1886179 1886197 1886231 1886233 1886237 1886243 1886267 1886279 1886293 1886317 1886327 1886329 1886347 1886351 1886389 1886411 1886413 1886447 1886449 1886459 1886471 1886503 1886509 1886513 1886527 1886543 1886557 1886561 1886569 1886611 1886623 1886657 1886659 1886663 1886671 1886693 1886699 1886701 1886723 1886743 1886749 1886777 1886783 1886809 1886821 1886849 1886867 1886869 1886887 1886891 1886903 1886917 1886923 1886957 1886981 1886993 1886999 1887013 1887019 1887029 1887049 1887071 1887079 1887091 1887103 1887113 1887131 1887133 1887143 1887161 1887167 1887169 1887181 1887199 1887209 1887211 1887217 1887229 1887247 1887253 1887283 1887307 1887341 1887359 1887409 1887419 1887421 1887433 1887437 1887443 1887451 1887463 1887499 1887511 1887521 1887539 1887563 1887569 1887577 1887607 1887617 1887619 1887637 1887643 1887659 1887667 1887671 1887713 1887719 1887727 1887737 1887749 1887757 1887773 1887797 1887803 1887811 1887857 1887877 1887883 1887917 1887923 1887947 1887967 1888031 1888043 1888063 1888069 1888079 1888097 1888121 1888123 1888129 1888151 1888157 1888169 1888171 1888189 1888193 1888199 1888213 1888217 1888223 1888247 1888253 1888267 1888279 1888283 1888301 1888307 1888331 1888349 1888351 1888361 1888399 1888409 1888421 1888441 1888457 1888463 1888483 1888487 1888559 1888561 1888571 1888597 1888609 1888633 1888651 1888673 1888723 1888727 1888753 1888759 1888763 1888769 1888793 1888807 1888837 1888841 1888849 1888879 1888897 1888907 1888919 1888927 1888933 1888963 1888979 1888981 1889009 1889011 1889029 1889039 1889051 1889053 1889077 1889081 1889087 1889099 1889101 1889117 1889131 1889143 1889177 1889191 1889201 1889213 1889219 1889221 1889267 1889273 1889287 1889309 1889311 1889317 1889347 1889351 1889359 1889369 1889383 1889387 1889389 1889399 1889401 1889411 1889423 1889429 1889441 1889453 1889471 1889477 1889483 1889491 1889497 1889501 1889509 1889521 1889527 1889539 1889551 1889561 1889579 1889603 1889617 1889621 1889647 1889651 1889653 1889677 1889689 1889707 1889717 1889743 1889747 1889753 1889761 1889801 1889803 1889819 1889831 1889957 1889969 1889981 1889999 1890019 1890023 1890029 1890037 1890041 1890079 1890089 1890103 1890107 1890113 1890121 1890149 1890167 1890173 1890193 1890211 1890221 1890227 1890241 1890257 1890269 1890277 1890283 1890289 1890299 1890313 1890319 1890331 1890337 1890373 1890379 1890389 1890397 1890401 1890403 1890467 1890479 1890487 1890509 1890521 1890523 1890527 1890529 1890541 1890547 1890571 1890593 1890599 1890601 1890611 1890617 1890631 1890641 1890643 1890677 1890697 1890701 1890719 1890731 1890743 1890769 1890793 1890799 1890809 1890827 1890851 1890869 1890877 1890901 1890913 1890923 1890953 1890997 1891007 1891027 1891039 1891049 1891069 1891073 1891103 1891111 1891133 1891147 1891163 1891171 1891187 1891189 1891213 1891223 1891243 1891249 1891273 1891277 1891283 1891291 1891297 1891303 1891319 1891333 1891361 1891367 1891381 1891387 1891391 1891429 1891433 1891447 1891457 1891489 1891499 1891501 1891529 1891537 1891541 1891567 1891579 1891601 1891619 1891627 1891639 1891657 1891661 1891663 1891667 1891679 1891711 1891739 1891753 1891789 1891807 1891829 1891843 1891859 1891861 1891889 1891907 1891909 1891927 1891933 1891949 1891951 1891969 1891987 1891991 1891997 1892017 1892021 1892029 1892057 1892089 1892113 1892119 1892123 1892161 1892167 1892171 1892183 1892197 1892203 1892239 1892249 1892257 1892299 1892309 1892311 1892329 1892353 1892357 1892383 1892399 1892413 1892431 1892441 1892461 1892477 1892489 1892497 1892503 1892507 1892531 1892537 1892551 1892563 1892591 1892599 1892617 1892621 1892629 1892633 1892651 1892663 1892669 1892677 1892687 1892699 1892701 1892713 1892719 1892749 1892753 1892771 1892773 1892777 1892783 1892827 1892833 1892843 1892857 1892861 1892867 1892879 1892887 1892893 1892911 1892921 1892927 1892977 1892983 1892999 1893029 1893049 1893071 1893083 1893131 1893163 1893173 1893181 1893187 1893191 1893193 1893197 1893209 1893211 1893223 1893277 1893289 1893299 1893317 1893329 1893347 1893349 1893361 1893371 1893373 1893377 1893391 1893403 1893413 1893427 1893431 1893457 1893467 1893469 1893473 1893481 1893517 1893527 1893533 1893539 1893581 1893587 1893589 1893599 1893607 1893643 1893701 1893707 1893713 1893719 1893733 1893737 1893757 1893779 1893781 1893799 1893809 1893823 1893877 1893887 1893911 1893917 1893929 1893937 1893949 1893967 1893971 1893973 1893979 1894001 1894003 1894033 1894037 1894043 1894049 1894051 1894063 1894099 1894103 1894117 1894121 1894127 1894163 1894171 1894181 1894213 1894229 1894247 1894253 1894267 1894271 1894283 1894307 1894337 1894339 1894369 1894381 1894393 1894397 1894411 1894439 1894481 1894489 1894577 1894583 1894601 1894603 1894609 1894631 1894639 1894643 1894663 1894687 1894691 1894727 1894729 1894741 1894757 1894787 1894793 1894811 1894817 1894853 1894859 1894873 1894883 1894913 1894931 1894933 1894969 1895009 1895011 1895017 1895027 1895051 1895057 1895071 1895081 1895083 1895093 1895099 1895119 1895129 1895141 1895167 1895189 1895191 1895207 1895219 1895233 1895239 1895249 1895261 1895263 1895273 1895287 1895317 1895321 1895351 1895357 1895359 1895479 1895489 1895501 1895507 1895513 1895521 1895533 1895539 1895563 1895567 1895581 1895587 1895599 1895603 1895609 1895623 1895627 1895633 1895657 1895693 1895711 1895713 1895749 1895753 1895767 1895779 1895797 1895809 1895833 1895851 1895869 1895893 1895903 1895909 1895939 1895981 1895989 1896001 1896017 1896019 1896023 1896031 1896043 1896047 1896071 1896077 1896091 1896101 1896109 1896133 1896149 1896151 1896157 1896161 1896173 1896199 1896203 1896211 1896221 1896227 1896229 1896241 1896247 1896259 1896263 1896269 1896313 1896317 1896331 1896341 1896353 1896407 1896413 1896421 1896431 1896443 1896451 1896463 1896473 1896527 1896529 1896547 1896563 1896577 1896581 1896593 1896607 1896617 1896647 1896659 1896667 1896677 1896683 1896689 1896721 1896737 1896761 1896767 1896781 1896823 1896847 1896871 1896883 1896887 1896889 1896893 1896899 1896901 1896959 1896989 1896991 1897001 1897009 1897037 1897057 1897069 1897073 1897079 1897087 1897097 1897099 1897121 1897127 1897139 1897141 1897163 1897171 1897177 1897199 1897219 1897229 1897237 1897243 1897277 1897279 1897327 1897361 1897367 1897403 1897409 1897429 1897459 1897481 1897517 1897529 1897537 1897561 1897573 1897583 1897589 1897601 1897627 1897639 1897667 1897669 1897681 1897691 1897703 1897711 1897717 1897729 1897733 1897741 1897751 1897787 1897793 1897801 1897807 1897823 1897843 1897871 1897939 1897943 1897949 1897957 1897969 1897979 1897991 1898009 1898011 1898023 1898027 1898047 1898051 1898053 1898069 1898077 1898087 1898107 1898123 1898131 1898153 1898179 1898201 1898209 1898227 1898243 1898249 1898257 1898279 1898297 1898317 1898353 1898363 1898371 1898383 1898389 1898417 1898419 1898431 1898447 1898467 1898483 1898521 1898527 1898539 1898549 1898557 1898563 1898569 1898573 1898591 1898593 1898609 1898621 1898629 1898641 1898681 1898693 1898711 1898737 1898749 1898759 1898761 1898773 1898783 1898801 1898807 1898861 1898863 1898867 1898873 1898881 1898887 1898893 1898921 1898959 1898977 1898983 1899017 1899047 1899049 1899059 1899077 1899083 1899089 1899101 1899109 1899119 1899137 1899167 1899187 1899193 1899197 1899199 1899253 1899263 1899281 1899301 1899307 1899311 1899323 1899341 1899343 1899347 1899371 1899377 1899419 1899421 1899437 1899473 1899481 1899497 1899503 1899509 1899511 1899523 1899589 1899637 1899641 1899647 1899659 1899661 1899673 1899683 1899701 1899707 1899721 1899757 1899769 1899797 1899809 1899827 1899847 1899901 1899907 1899917 1899923 1899929 1899949 1899983 Day-I/08-RNGs/test100777 0 0 106530 11777121346 7116 08 H__PAGEZERO(__TEXT``__text__TEXT 9 __stubs__TEXTNGNG__stub_helper__TEXTGG__cstring__TEXTII__const__TEXTZZ__eh_frame__TEXT@]@]__DATA``{` __dyld__DATA`8`__nl_symbol_ptr__DATA8`8`__la_symbol_ptr__DATAH`H`__data__DATA a a__bss2__DATAp(__bss5__DATAqJ{__bss3__DATA{__common__DATA{ H__LINKEDIT{X "0 Ђ> P #ȇ6 /usr/lib/dyld@4u $ *  H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&ЃjHHH}HuHHHH9uH 29ASL;AS%3R%2RUHH H}HubtH5;H=0;b9bHEHHEHEHHEHHEHUHbUHATSHlbtH5;H=<;8DbHY;HxDžHLHDžDžpDžtHpH8Hp'H5KH8HpH8H:HxDž HKHDžDžpDžtHpH:8HpKH5mKH=8HpH8HEHǸ7HDžHDžHDž'HDžHBaHpHDžxHpH5>KH[ E]}@BEHH҅t HH59H= ::7H=@B҅t @BHH5/:H=9 7L`JH9]tH5+:H=D:6}@BE]5HEHǸy6E]}dHDžHDžHDž@BHDžH[HpHDžxEHH҅t HH59H= :6Hd҅t dHH5:H=95UHcHɅtH52:H=95HdɅtdH5W:H=9z5HJHHHHHH`HHHpHHHDžHDžHDž@BHDžH%HpHDžxHpH9]tH588H=94}dE]7HEHǸ4fWHdHP`XH J^fWHdHP`\YXH If(^f(Qf.zf.t f(|4fH~HfWHdHPՐXH ^I^EfWUHdHPՐ\YXH "If(^f(Qf.zf.t f(3fH~HEM\M^EMHfT H^XM\M^EHb5HxDžTHFHDž<DžpDžtHpH2HHpHH2HHpHH2HpH{2H4HxDžVH,FHDžDDžpDžtHpH"2HMHpHH12HMHpHH2HpH1H,4HxDžXHEHDžEDžpDžtHpH1HMHpHH1HpH5EHr1HXHpHH`1HpH5EH91HpH1H[3HxDžYHSEHDž4DžpDžtHpH0HMHpHH0HpH0HEHǸH0EM\EEM\EEM\EEM\EH2HxDždHDHDž2DžpDžtHpH/HMHpHH/HMHpHH/HpH/H1HxDžeHQDHDž$DžpDžtHpHG/HMHpHHV/HMHpHH;/HpH/ H=C.UHAVAUATSHpHxXtH53H=,4.WHxH@HtHHxHHEHxHP(HxH@ HH)HHHEIIHEHH}!ʉ҅t)HEIH53H= 4-HH!ʉ҅t(HUAHHH53H=3-HH;E!ʉ҅t(HUAHHH5>3H=3i-HHEHHEHEHUHDžpHDžxHpHP(H@ HH)HHHHHHHEHEHHHHHHDHE-Hu H=3,HEHEHH}!ʉ҅t)HEIH5V2H=2,HH!ʉ҅t(HUAHHH52H=2?,HH;E!ʉ҅t(HUAHHH51H=j2+HHDžPHHDž`HhHXHDž@HDžHH@HP(H@ HH)HHHHHHHEHEHHHHHHDH+Hu H=1I+HEHEHH}!ʉ҅t)HEIH51H=1+HH!ʉ҅t(HUAHHH5s1H=1*HH;E!ʉ҅t(HUAHHH501H=y1*HHDžHDžHHDžHEHHDžHHǸ*HUHEHH}!Ʌt)HEIH50H=1)HH!Ʌt%HEAHH5O0H=0)HH;U!Ʌt%HEAHH50H=0b)HHIH@@H}@@!t)HEIH5z0H=;0 )H@@H@@!t(HUAHHH540H=/(H@@H;E@@!t(HUAHHH5/H=/(HHIH9@@t'HHHHH5/H=l/>(HEHH}!Ʌt)HEIH5-H=#/'HH!Ʌt(HUAHHH5-H=.'HH;E!Ʌt(HUAHHH5E-H=.p'HHDžHHDžHHHDžHDžHHH(H@ HH)HHHHH*ȸH9)HpHxHMY,ȍyHM acc_wk implicit none ! --------------------------------------------------------------------- real( wk), parameter :: zero = 0.0_wk real( wk), dimension( 1: 1000000) :: addends real( wk), dimension( 1: 10000) :: junk real( wk), dimension( 1: 100) :: totals, total_accs real( wk) :: total_ave, total_sd, acc_ave, acc_sd, sd_proportion, ave_proportion, ulps real :: time_start, time_initialize, time_run, time_report, time_all integer :: i ! --------------------------------------------------------------------- continue write( unit= output_unit, fmt= '( a)') compiler_version() write( unit= output_unit, fmt= '( a)') compiler_options() call cpu_time( time_start) ! start the rng call warm_rng( junk, output_unit) ! --------------------------------------------------------------------- ! get some numbers to add fill_gaussian: do i = lbound( addends, dim= 1), ubound( addends, dim= 1) addends( i) = gaussian() end do fill_gaussian call cpu_time( time_initialize) ! run a bunch of sums fill_totals: do i = lbound( totals, dim= 1), ubound( totals, dim= 1) ! compute sums call run_sums( addends, totals( i), total_accs( i)) call reorder( addends) end do fill_totals call cpu_time( time_run) ! --------------------------------------------------------------------- ! make simple statistics total_ave = sum( totals) / real( size( totals), wk) total_sd = sqrt( sum( (totals - total_ave)**2) / real( size( totals) - 1, wk)) acc_ave = sum( total_accs) / real( size( total_accs), wk) acc_sd = sqrt( sum( (total_accs - acc_ave)**2) / real( size( total_accs) - 1, wk)) ave_proportion = ( total_ave - acc_ave) / acc_ave ulps = abs( ave_proportion) / epsilon( ave_proportion) sd_proportion = ( total_sd - acc_sd) / acc_sd ! --------------------------------------------------------------------- ! report write( unit= *, fmt= '( "sum average: ", es26.17/ "standard deviation: ", es26.17)') total_ave, total_sd write( unit= *, fmt= '( "accumulator average: ", es26.17/ "standard deviation: ", es26.17)') acc_ave, acc_sd write( unit= *, fmt= '( "proportional sum ave - accumulator ave: ", en26.17, a, en26.17, a)') ave_proportion, ' (', ulps, ')' write( unit= *, fmt= '( "proportional sum sd - accumulator sd: ", en26.17)') sd_proportion call cpu_time( time_report) ! report time used time_all = time_report - time_start time_report = time_report - time_run time_run = time_run - time_initialize time_initialize = time_initialize - time_start write( unit= *, fmt= '( "cpu time"/ "initialize: ", f8.3/ "run: ", f8.3)') time_initialize, time_run write( unit= *, fmt= '( "report: ", f8.3/ "total: ", f8.3)') time_report, time_all stop 'normal exit' ! --------------------------------------------------------------------- ! end of execution-- internal procedures below contains ! --------------------------------------------------------------------- ! seed the rng from the clock and consume size( buffer) rns subroutine warm_rng( buffer, log_unit) real( wk), dimension( :), intent( out) :: buffer integer, optional, intent( in) :: log_unit integer, dimension( *), parameter :: p1 = & [ 1500007, 1500019, 1500041, 1500043, 1500047, 1500061, 1500071, 1500073, 1500101, 1500113, & 1500127, 1500133, 1500139, 1500143, 1500151, 1500157, 1500181, 1500229, 1500241, 1500269, & 1500277, 1500283, 1500293, 1500337, 1500341, 1500347, 1500349, 1500353, 1500371, 1500379, & 1500397, 1500407, 1500409, 1500413, 1500419, 1500463, 1500467, 1500469, 1500479, 1500491, & 1500503, 1500511, 1500517, 1500523, 1500529, 1500533, 1500593, 1500613, 1500619, 1500643, & 1500647, 1500649, 1500691, 1500701, 1500703, 1500713, 1500731, 1500739, 1500761, 1500767, & 1500769, 1500781, 1500787, 1500797, 1500799, 1500817, 1500823, 1500827, 1500833, 1500839, & 1500847, 1500853, 1500857, 1500859, 1500871, 1500893, 1500899, 1500929, 1500931, 1500937, & 1500973, 1500991, 1500997, 1501009, 1501021, 1501037, 1501043, 1501081, 1501139, 1501169, & 1501177, 1501193, 1501207, 1501217, 1501223, 1501229, 1501261, 1501303, 1501307, 1501333, & 1501343, 1501351, 1501363, 1501369, 1501411, 1501427, 1501429, 1501441, 1501447, 1501471, & 1501481, 1501483, 1501499, 1501501, 1501523, 1501529, 1501541, 1501561, 1501573, 1501583, & 1501597, 1501607, 1501613, 1501639, 1501663, 1501667, 1501673, 1501679, 1501681, 1501699, & 1501723, 1501777, 1501781, 1501783, 1501807, 1501811, 1501837, 1501847, 1501849, 1501859, & 1501873, 1501889, 1501897, 1501901, 1501909, 1501921, 1501937, 1501943, 1501949, 1501957, & 1501961, 1501999, 1502021, 1502023, 1502041, 1502047, 1502057, 1502063, 1502093, 1502099, & 1502101, 1502141, 1502143, 1502161, 1502183, 1502191, 1502201, 1502203, 1502209, 1502219, & 1502227, 1502233, 1502269, 1502297, 1502309, 1502323, 1502327, 1502329, 1502381, 1502407, & 1502419, 1502437, 1502467, 1502471, 1502503, 1502551, 1502563, 1502569, 1502581, 1502591, & 1502621, 1502629, 1502639, 1502651, 1502687, 1502689, 1502717, 1502719, 1502723, 1502741 ] integer, dimension( *), parameter :: p2 = & [ 1502747, 1502759, 1502771, 1502801, 1502819, 1502827, 1502861, 1502863, 1502869, 1502887, & 1502909, 1502923, 1502929, 1502933, 1502939, 1502947, 1502959, 1502971, 1502989, 1502993, & 1503017, 1503031, 1503037, 1503043, 1503049, 1503053, 1503059, 1503091, 1503113, 1503127, & 1503137, 1503149, 1503163, 1503169, 1503181, 1503233, 1503241, 1503247, 1503253, 1503263, & 1503269, 1503287, 1503311, 1503317, 1503319, 1503329, 1503353, 1503367, 1503371, 1503373, & 1503377, 1503401, 1503419, 1503431, 1503461, 1503473, 1503479, 1503499, 1503503, 1503517, & 1503521, 1503529, 1503583, 1503611, 1503613, 1503637, 1503647, 1503653, 1503659, 1503661, & 1503683, 1503713, 1503721, 1503731, 1503739, 1503751, 1503767, 1503781, 1503787, 1503811, & 1503823, 1503829, 1503847, 1503863, 1503881, 1503883, 1503899, 1503913, 1503919, 1503937, & 1503941, 1503959, 1503961, 1503967, 1503989, 1504033, 1504037, 1504057, 1504067, 1504073, & 1504093, 1504103, 1504117, 1504121, 1504147, 1504157, 1504171, 1504187, 1504231, 1504247, & 1504267, 1504271, 1504289, 1504297, 1504319, 1504339, 1504379, 1504409, 1504411, 1504417, & 1504421, 1504429, 1504463, 1504469, 1504471, 1504487, 1504493, 1504501, 1504513, 1504519, & 1504537, 1504543, 1504571, 1504579, 1504583, 1504589, 1504609, 1504627, 1504631, 1504651, & 1504661, 1504663, 1504669, 1504673, 1504681, 1504691, 1504693, 1504697, 1504717, 1504733, & 1504739, 1504747, 1504757, 1504777, 1504793, 1504801, 1504813, 1504817, 1504831, 1504843, & 1504847, 1504859, 1504861, 1504879, 1504903, 1504907, 1504949, 1504961, 1504967, 1504969, & 1504981, 1504991, 1504999, 1505003, 1505011, 1505033, 1505083, 1505087, 1505089, 1505093, & 1505099, 1505107, 1505111, 1505117, 1505131, 1505137, 1505167, 1505173, 1505177, 1505183, & 1505191, 1505201, 1505209, 1505227, 1505243, 1505261, 1505279, 1505291, 1505293, 1505311 ] integer, dimension( *), parameter :: p3 = & [ 1505323, 1505341, 1505353, 1505369, 1505381, 1505407, 1505411, 1505417, 1505431, 1505437, & 1505443, 1505447, 1505459, 1505489, 1505507, 1505519, 1505521, 1505563, 1505587, 1505591, & 1505599, 1505611, 1505657, 1505659, 1505681, 1505683, 1505687, 1505711, 1505723, 1505729, & 1505737, 1505743, 1505747, 1505753, 1505761, 1505773, 1505797, 1505813, 1505831, 1505837, & 1505849, 1505851, 1505873, 1505893, 1505899, 1505929, 1505953, 1505983, 1505993, 1506007, & 1506023, 1506031, 1506059, 1506077, 1506079, 1506091, 1506103, 1506121, 1506137, 1506157, & 1506163, 1506179, 1506191, 1506199, 1506203, 1506223, 1506229, 1506257, 1506269, 1506287, & 1506317, 1506341, 1506359, 1506371, 1506389, 1506391, 1506413, 1506433, 1506443, 1506457, & 1506473, 1506487, 1506493, 1506497, 1506499, 1506509, 1506511, 1506551, 1506553, 1506559, & 1506563, 1506587, 1506607, 1506611, 1506613, 1506619, 1506623, 1506641, 1506649, 1506653, & 1506689, 1506697, 1506721, 1506731, 1506733, 1506749, 1506779, 1506781, 1506797, 1506803, & 1506809, 1506823, 1506839, 1506851, 1506877, 1506887, 1506889, 1506907, 1506917, 1506929, & 1506943, 1506959, 1506977, 1506979, 1506997, 1507007, 1507019, 1507039, 1507057, 1507069, & 1507073, 1507091, 1507097, 1507111, 1507123, 1507139, 1507141, 1507153, 1507171, 1507183, & 1507211, 1507229, 1507291, 1507301, 1507321, 1507369, 1507379, 1507421, 1507423, 1507427, & 1507439, 1507453, 1507469, 1507481, 1507483, 1507487, 1507501, 1507531, 1507559, 1507591, & 1507603, 1507607, 1507609, 1507613, 1507637, 1507651, 1507657, 1507687, 1507697, 1507699, & 1507729, 1507763, 1507769, 1507771, 1507789, 1507813, 1507837, 1507841, 1507853, 1507867, & 1507879, 1507889, 1507907, 1507921, 1507993, 1507997, 1508033, 1508047, 1508051, 1508063, & 1508077, 1508081, 1508093, 1508113, 1508131, 1508141, 1508147, 1508173, 1508197, 1508207 ] integer, dimension( *), parameter :: p4 = & [ 1508219, 1508249, 1508251, 1508263, 1508279, 1508281, 1508293, 1508303, 1508321, 1508323, & 1508383, 1508389, 1508401, 1508407, 1508413, 1508417, 1508449, 1508459, 1508471, 1508473, & 1508489, 1508509, 1508519, 1508531, 1508561, 1508579, 1508587, 1508621, 1508623, 1508627, & 1508629, 1508651, 1508659, 1508671, 1508687, 1508693, 1508707, 1508711, 1508719, 1508723, & 1508729, 1508743, 1508753, 1508779, 1508789, 1508797, 1508803, 1508813, 1508833, 1508851, & 1508867, 1508873, 1508879, 1508893, 1508909, 1508911, 1508921, 1508929, 1508933, 1508939, & 1508951, 1508953, 1508959, 1508977, 1508981, 1508993, 1509019, 1509031, 1509059, 1509061, & 1509071, 1509077, 1509097, 1509127, 1509133, 1509143, 1509163, 1509187, 1509197, 1509203, & 1509229, 1509269, 1509289, 1509307, 1509331, 1509353, 1509367, 1509371, 1509377, 1509407, & 1509427, 1509437, 1509439, 1509457, 1509463, 1509491, 1509509, 1509517, 1509523, 1509533, & 1509551, 1509553, 1509581, 1509587, 1509589, 1509623, 1509631, 1509643, 1509659, 1509701, & 1509727, 1509733, 1509737, 1509749, 1509757, 1509779, 1509841, 1509857, 1509863, 1509887, & 1509899, 1509913, 1509919, 1509929, 1509941, 1509947, 1509953, 1509961, 1509967, 1509971, & 1509997, 1510013, 1510021, 1510039, 1510043, 1510049, 1510057, 1510087, 1510109, 1510121, & 1510141, 1510147, 1510163, 1510189, 1510199, 1510207, 1510213, 1510217, 1510219, 1510259, & 1510273, 1510279, 1510307, 1510309, 1510319, 1510321, 1510337, 1510339, 1510343, 1510357, & 1510361, 1510363, 1510373, 1510391, 1510393, 1510417, 1510423, 1510427, 1510429, 1510469, & 1510477, 1510489, 1510493, 1510507, 1510511, 1510541, 1510573, 1510583, 1510591, 1510601, & 1510643, 1510651, 1510669, 1510679, 1510681, 1510687, 1510693, 1510703, 1510741, 1510753, & 1510757, 1510759, 1510763, 1510777, 1510781, 1510799, 1510819, 1510843, 1510853, 1510867 ] integer, dimension( *), parameter :: p5 = & [ 1510877, 1510889, 1510897, 1510913, 1510921, 1510933, 1510961, 1510963, 1510967, 1510991, & 1511017, 1511021, 1511047, 1511053, 1511099, 1511101, 1511119, 1511129, 1511143, 1511179, & 1511201, 1511207, 1511227, 1511231, 1511233, 1511239, 1511243, 1511269, 1511273, 1511287, & 1511291, 1511303, 1511327, 1511329, 1511371, 1511387, 1511423, 1511429, 1511441, 1511443, & 1511449, 1511459, 1511527, 1511533, 1511539, 1511563, 1511569, 1511597, 1511599, 1511617, & 1511633, 1511647, 1511651, 1511663, 1511669, 1511687, 1511689, 1511723, 1511737, 1511743, & 1511747, 1511779, 1511791, 1511801, 1511819, 1511821, 1511863, 1511891, 1511897, 1511911, & 1511921, 1511927, 1511933, 1511941, 1511947, 1511953, 1511971, 1511977, 1511999, 1512019, & 1512023, 1512029, 1512041, 1512083, 1512097, 1512109, 1512113, 1512127, 1512169, 1512197, & 1512209, 1512221, 1512223, 1512233, 1512241, 1512253, 1512281, 1512283, 1512289, 1512293, & 1512299, 1512307, 1512311, 1512323, 1512331, 1512361, 1512383, 1512421, 1512431, 1512479, & 1512481, 1512493, 1512517, 1512527, 1512547, 1512551, 1512557, 1512559, 1512569, 1512607, & 1512619, 1512629, 1512661, 1512683, 1512689, 1512691, 1512703, 1512713, 1512751, 1512767, & 1512773, 1512787, 1512809, 1512817, 1512827, 1512829, 1512857, 1512877, 1512923, 1512943, & 1512947, 1512961, 1513013, 1513019, 1513021, 1513033, 1513037, 1513049, 1513067, 1513069, & 1513073, 1513091, 1513093, 1513111, 1513117, 1513121, 1513123, 1513139, 1513151, 1513159, & 1513163, 1513199, 1513207, 1513219, 1513229, 1513271, 1513273, 1513277, 1513319, 1513321, & 1513361, 1513367, 1513381, 1513387, 1513397, 1513399, 1513417, 1513427, 1513429, 1513441, & 1513453, 1513487, 1513489, 1513511, 1513517, 1513529, 1513531, 1513537, 1513543, 1513553, & 1513573, 1513583, 1513591, 1513601, 1513609, 1513619, 1513621, 1513651, 1513657, 1513661 ] integer, dimension( *), parameter :: primes = [ p5, p4, p3, p2, p1 ] integer, dimension( :), allocatable :: seed integer :: seed_size, astat, rtc, scr_unit integer, dimension( 8) :: dt_values continue ! get the seed size and allocate the seed array call random_seed( size= seed_size) allocate( seed( seed_size), stat= astat) allocate_error: if( astat > 0 )then stop 'allocate rng seed error' end if allocate_error ! get the date and time values array to fudge a seed call date_and_time( values= dt_values) dt_values = ( dt_values( 1: 8) + dt_values( 8: 1: -1))**2 ! use the real time clock to further mix the seed call system_clock( count= rtc) even_odd: if( iand( rtc, 1) == 1 )then dt_values( 1: 8: 2) = dt_values( 1: 8: 2) + rtc else even_odd dt_values( 2: 8: 2) = dt_values( 2: 8: 2) + rtc end if even_odd ! setting the seed depends on whether the seed array is larger than the time array dt_v_seed_size: if( size( seed) > size( dt_values) )then seed( 1: size( dt_values)) = dt_values seed( size( dt_values) + 1: ) = primes( dt_values( 7) + size( dt_values) + 1: dt_values( 7) + size( seed) ) else dt_v_seed_size seed = dt_values( 1: size( seed)) end if dt_v_seed_size ! log the seed if asked log_seed: if( present( log_unit) )then write( unit= log_unit, fmt= '( a, i0, a/ (6i12))') 'seed (size ', seed_size, ')', seed end if log_seed ! set the seed call random_seed( put= seed) deallocate( seed) ! throw away a bunch of rns to get things warmed call random_number( harvest= buffer) open( newunit= scr_unit, status= 'scratch', form= 'unformatted') write( unit= scr_unit) buffer close( unit= scr_unit, status= 'delete') return end subroutine warm_rng ! --------------------------------------------------------------------- ! sum the addends via addition and the accumulator variable pure subroutine run_sums( addends, total, total_acc) real( wk), dimension( :), intent( in) :: addends real( wk), intent( out) :: total, total_acc type( normalized_accumulator_t) :: acc integer :: i continue ! initialize the accumulators total = zero call initialize( acc) ! loop through the array adding numbers sum_total: do i = lbound( addends, dim= 1), ubound( addends, dim= 1) total = total + addends( i) acc = acc + addends( i) end do sum_total total_acc = acc return end subroutine run_sums ! --------------------------------------------------------------------- ! gaussian() is based on the gasdev procedure of Numerical Recipes function gaussian( mu, sigma) result( g) real( wk) :: g real( wk), optional :: mu real( wk), optional :: sigma real( wk), parameter :: zero = 0.0_wk real( wk), parameter :: one = 1.0_wk real( wk), parameter :: two = 2.0_wk real( wk), dimension( 1: 2) :: v real( wk) :: fac, rsq real( wk), save :: g_save logical, save :: make_more = .true. continue ! gaussian numbers are made two at a time need_make_more: if( make_more )then ! must have a pair in ( 0, 1) in_zero_one: do call random_number( harvest= v) v = two * v - one rsq = v( 1)**2 + v( 2)**2 if( rsq > zero .and. rsq < one ) exit in_zero_one end do in_zero_one fac = sqrt( -two * log( rsq) / rsq) ! save one for next time and use the other g_save = v( 1) * fac g = v( 2) * fac make_more = .false. else need_make_more ! use the one saved last time g = g_save make_more = .true. end if need_make_more ! if have standard deviation, use it set_sigma: if( present( sigma) )then g = g * sigma end if set_sigma ! if have mean, use it set_mu: if( present( mu) )then g = g + mu end if set_mu return end function gaussian ! --------------------------------------------------------------------- ! use the rng to reorder the addends subroutine reorder( a) real( wk), dimension( :), intent( in out) :: a real( wk), dimension( 1: size( a)) :: rns integer, dimension( 1: size( a)) :: r_idx integer :: i continue ! make a random index set for the index of a call random_number( harvest= rns) r_idx = int( rns * real( size( a), wk)) + 1 ! swap elements of a- it doesn't matter if some are swapped more than once reorder_swap: do i = lbound( a, dim= 1), ubound( a, dim= 1) in_bounds: if( r_idx( i) >= lbound( a, dim= 1) .and. r_idx( i) <= ubound( a, dim= 1) )then call swap( a( i), a( r_idx( i)) ) end if in_bounds end do reorder_swap return end subroutine reorder ! --------------------------------------------------------------------- ! swap a and b pure subroutine swap( a, b) real( wk), intent( in out) :: a, b real( wk) :: t continue t = a a = b b = t return end subroutine swap ! --------------------------------------------------------------------- end program test_accumulator Day-I/09-new-types/ 40777 0 0 0 11777312761 7175 5Day-I/09-new-types/.DS_Store100777 0 0 14004 11777307120 10770 0Bud1 ocblobakaIlocblobA(aka.f90Ilocblob(cocoIlocblob9(coco.incIlocblob( coco_pg.htmlIlocblobstandard_functions.modIlocblob1( stdfunc.f90IlocblobA stdfunc.fppIlocblob stdfunc.oIlocblob9testIlocblobtest_boolean.f90Ilocblob1type_boolean.modIlocblobAtype_rational.modIlocblob typebool.f90Ilocblob9  @ @ @ @ E DSDB ` @ @ @Day-I/09-new-types/._.DS_Store100777 0 0 10000 11777310056 11177 0Mac OS X  2 ATTR;xThis resource fork intentionally left blank Day-I/09-new-types/._aka.f90100777 0 0 10000 11777310062 10565 0Mac OS X  2TEXTATTR;  &com.apple.quarantineFcom.apple.TextEncodingfaU5)com.apple.metadata:kMDItemDownloadedDateV%com.apple.metadata:kMDItemWhereFroms0001;4ffafa20;Safari;|com.apple.SafariUTF-8;134217984bplist003A1 bplist00_'http://www.daniellnagle.com/pub/aka.f90 4This resource fork intentionally left blank Day-I/09-new-types/._coco.inc100777 0 0 10000 11777310062 11127 0Mac OS X  2TEXTATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/09-new-types/._coco_pg.html100777 0 0 10000 11777310062 12010 0Mac OS X  2TEXTJyWsATTR;com.apple.TextEncodingISO-8859-1;513This resource fork intentionally left blank Day-I/09-new-types/._stdfunc.fpp100777 0 0 10000 11777310062 11666 0Mac OS X  2TEXTATTR;  &com.apple.quarantineFcom.apple.TextEncodingfaU5)com.apple.metadata:kMDItemDownloadedDateZ%com.apple.metadata:kMDItemWhereFroms0001;4ffb0fc6;Safari;|com.apple.SafariUTF-8;134217984bplist003AGF bplist00_+http://www.daniellnagle.com/pub/stdfunc.fpp 8This resource fork intentionally left blank Day-I/09-new-types/._test_boolean.f90100777 0 0 10000 11777310062 12507 0Mac OS X  2TEXT!RchATTR;com.apple.TextEncodingUTF-8;134217984This resource fork intentionally left blank Day-I/09-new-types/._typebool.f90100777 0 0 10000 11777310070 11665 0Mac OS X  2TEXTATTR;j&com.apple.quarantinecom.apple.TextEncodingfa%5)com.apple.metadata:kMDItemDownloadedDate0001;4ffae502;Safari;|com.apple.SafariUTF-8;134217984bplist003A+: This resource fork intentionally left blank Day-I/09-new-types/aka100777 0 0 121300 11776602436 10011 0 H__PAGEZERO(__TEXTpp__text__TEXT $8 __stubs__TEXTDD__stub_helper__TEXTlE lE__cstring__TEXTxFAxF__const__TEXT` `__eh_frame__TEXTaax__DATApp__dyld__DATAp8p__nl_symbol_ptr__DATA8p8p__la_symbol_ptr__DATAHpHp__data__DATA q  q__pu_bss2__DATA@r__common__DATAHr __bss2__DATAhrH__LINKEDIT0""0 8x8 PBBH4 /usr/lib/dyld~On6>iZ$ *  H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&`jHHH}HuHHHH9uH[8ASL AS%c%cUHH OetH5R9H=z97'eHz9HDžDžDžHH7H(H51SH7HHd7H9HDžDžDžHH#7HH5RH 7HH6H8HDžDžDžHH6HH5RH6HH6HK8HDžDžDžHHY6HH5KRHV6HH56H7HDžDžDžHH5HH5H7HDžHQH(Dž0 DžDžHH5HH5QH5HH5QHt5HHS5H7HDžHOQH(Dž0 DžDžHH4HH5QH4H H5QH4HH4Hl6HDžHPH(Dž0 DžDžHHb4HH5PH_4H H5uPHD4HH#4H5HDžHPH(Dž0 DžDžHH3HH5PH3H H5OH3HH3H<5HDžHOH(Dž0 DžDžHH23HH5wOH/3HH5]OH3HH2H4HDžDžDžHH2HH2HW4HDžDžDžHHe2H H5NHb2HHA2H3HDžDžDžHH1HMHHH1HH1ERRRRRDH0HDžDžDžHH.HMHHH.HH.HUHEHH\,HJ0HDžDžDžHHL.HMHHH[.HH(.HUHEHH,H/HDžDžDžHH-HMHHH-HH-HUHEHH\*HP/HDž DžDžHHR-HMHHHU-HH.-HMHEHH'H.HDž#DžDžHH,HMHHH,HH,Hi.HDž$HEH@DžHHDž DžHHH(Dž0DžPHH3,HMHHHB,HH,HUHEHH*Eʃb<HHHcHH=>DHUHEHH)H,-HDž/DžDžHH:+HMHHH[+HH+ HUHEHHE*H,HDž2DžDžHH*HMHHH*HH*HUHEHH'H2,HDž5DžDžHH@*HMHHHU*HH*HMHEкHHg%H+HDž8DžDžHH)HMHHH)HH)HUHEHH(H3+HDž;HEH(Dž0 DžDžHH))HMHHH2)HH)H*HDžIDžDžHH(HH56EH(HH(H=+E(UHH}HuHUEH։K(H5E@(QUHH0H}HuЋVtH5)H= *'`VHE؋EHEЋEHEЋUHE؋U2VUHH H}VtH5)H=*'UE EUUHAUATSHH8UtH5)H=+*/'UAHDžPIHDž`HDžhHDžXHEH@HDžHLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDH&Hu H=U)6&HpHDžxM9LINHpH8HHy&H9HpTHHpHtH:&HEIHEHEHEHEHpHDžxHHpH)L Ј HݸHHpTHHEIHEHEHEHEHpHDžxHMHUHH)HHHºH9HNºHHIHpHEHHF%EEE/SHĸ[A\A]]UHSH8H}HuHUȋStH5'H='z$RHE؋HEЋ։HEȋӉ!EERH8[]UHH0H}HuHUHMLE؋tRtH5'H='#LRHMHEH}HUHuIH##RUHSH(H}HuЋRtH5'H='#QHEЋ1)ʃ4x1)кӉ1)кӉHU؋!ЅEEoQH([]UHSH(H}HuЋMQtH5L'H='"%QHE؋HEЋӉ؃EEPH([]UHSH(H}HuЋPtH5G'H='d"PHE؋HEЋ!ЉEEPH([]UHSH(H}HuЋePtH5<'H=u'!=PHE؋HEЋ ЉEEPH([]UHH`H}HuHUOtH50'H=i'}!OHE1‰U)E} } u)HEEHEEUHEUHEHEmHE_HE0HE 1)ʃ*x1)Љ1)ЉEHE0HE 1)ʃ*x1)Љ1)ЉEHE0HE1)ʃ*x1)Љ1)ЉEHE0HE1)ʃ*x1)Љ1)ЉEUE HEUE HEn}d}ZHE0HE 1)ʃ*x1)Љ1)ЉEHE0HE 1)ʃ*x1)Љ1)ЉEHE0HE1)ʃ*x1)Љ1)ЉEHE0HE1)ʃ*x1)Љ1)ЉEUE HEUE HELUHHPH}HuHUeLtH5$H=M$=LHEyEEHEuHEEЋEHEHEȋ0HE )ȉ1)ʃ*x1)Љ1)ЉEHE0HE؉1)ʃ*x1)Љ1)ЉEUE ЉEHE u HEȋEEEKUHHPH}HuHUJtH5#H=N#JHEyEEHEuHEȋEЋEHEHEȋ0HE1)ʃ*x1)Љ1)ЉEHE0HE 1)ʃ*x1)Љ1)ЉEUE ЉEHE u HEEEEIUHH0H}HuHU؋ItH5 "H=Y"5qIHE؋HEHEΉEEFIUHH H}Hu*ItH5"H=V"IHE0HE1)ʃ*x1)Љ1)ЉEEHUHH H}HtH5!H='"3gHHEw~HEHH҅t HH5 "H=R"H ҅t HH5S"H=$"HHHFEEEGUHH H}GtH5B"H={"WGHEw~HEHH҅t HH5]"H=" H ҅t HH5"H=x"HHH#EEEEFUHH H}FtH5"H="{FHEHEHH҅t HH5; H="H ҅t HH5 H=^"HHHDEHE1)HH҅t HH5 H=*"H ҅t HH5+!H=!`HHHCEEEgEUHSH(H}HuЋJEtH5!H=!"EHE؋HEЋt~ ӉÉ ؉ӉˉЉEEDH([]UHH H}HuDtH5!H=!yDHE0HE1)ʃ*x1)Љ1)ЉEEBDUHH0H}HuЋ&DtH5y!H=!CHE؋HEЋ1ЉEHEHEHEHEECUHH0H}؋CtH5a!H=!fCHE؋EE%EE%""""EE%DDDDEE%EEuUMȉEE%EE%EEE%EEuUMȉEEEEBUHH0H}؋BtH5 H=!uBHE؋EE%EE%""""EE%DDDDEE%EEuUMȉEE%EE%EEE%EEuUMȉEE%EEAUHH H}AtH5M H= AHEE}uE EE%u EEeE%uEeE%uEeE%3333uEe3333E%UUUUuEEEE@UHH H}@tH5H= @HEE}uE EEfu EEeE%uEeE%uEeE%̅uEe̋E%uEEEE?UHH0H}Hu?tH5DH=u?HEHUU܉}܉EE?UHH H}Hur?tH5=H=nBJ?HEHE‰EE+?UHH H}Hu?tH5>H=o>HEHE)ȉEE>UHH H}Hu>tH5<H=m>HEHEЉEEc>UHH H}HuG>tH5>H=o#>HEHE9EE=UHH H}Hu=tH5:H=k=HEHE9EE=UHH H}Huw=tH56H=g[O=HEHE9EE+=UHH H}Hu=tH52H=c<HEHE9EE<UHH H}Hu<tH5.H=_<HEHE9EE[<UHH H}Hu?<tH5*H=[/<HEHE9EE;UHH H}Hu;tH5&H=W ;HEHE1ЉEE;UHH H}Huu;tH5(H=Ym M;HEHE1ЉEE-;UHH H}Hu;tH5(H=Y :HEHE1ЉEE:UHH0H}HuHU؋:tH5&H=W :HEHE؋!HEHE؋! ȉEEQ:UHH H}9:tH5H=Q= :HEЉEE9UHH H}9tH5,H=] 9HEЉEE9UHH H}Hu9tH54H=e ]9HEHE1ЉEE?9UHH H}Hu#9tH56H=g3 8HEHE ЉEE8UHH H}Hu8tH58H=i 8HEHE!ЉEE{8UHH H}c8tH5>H=w{ ;8HE؉EE#8UHH H} 8tH5RH=' 7HEEE7UHAUATSH(H}؉uHUȋ7tH5TH= 7AAM9H]SLHHDH Hu H= z HM9LINĺHHIHMHHH LHvHEغHH 1LHEHH LH)LHEؾ H 6H([A\A]]UHH H}6tH5H=t6H9HNºHHIHEHMHHEEE16UHH H}6tH5H=A5H9HNºHHIHEHMHHyEEE5fnUHH H}5tH5qH=j5H9HNºHHIHEHMHHEEE'5UHH0H}؉uԋ 5tH5OH=<4}t-EHAHHkH5jH=;H9HNºHHIHEHMHH9EEEf4UHH0H}؋N4tH5MH=~&4H9HNºHHIHEHMHHEEE3UHH0H}؋3tH5.H=_3H9HNºHHIHEHMHH;EEE`3UHH0H}؋H3tH5H=@ 3H9HNºHHIHEHMHHEEE2UHH0H}HuU܋2tH5H=2}t-EHAHH-H5,H=H9HNºHHIHEHMHHHEU2UHAUATSH(H}HuЉŰ1tH5H=81}t-EHAHHgH5fH=oAAM9H]SLHHDH1Hu H=HM9LINĺHHIHMHHHLHvHEغHH1LHEHHLH)LHEؾ H0H([A\A]]UHH H}Hu0tH5H=0H9HNºHHIHEHMHH(HEU=0UHH H}Hu!0tH5xH=m/H9HNºHHIHEHMHHUHE/UHH H}Hu/tH5UH=r/H9HNºHHIHEHMHH"HEU//UHH H}Hu/tH52H=cg.H9HNºHHIHEHMHHUHE.UHH H}Hu.tH5H=@d.H9HNºHHIHEHMHHHEU!.UHH H}Hu.tH5H=a-H9HNºHHIHEHMHHUHE-%n+%p+%r+%t+%v+%x+%z+%|+%~+%+%+%+%+%+%+%+%+%+%+%+%+%+%+%+%+hhh4hNhphhhhhhh8h]zhphfh\hRh Hh@>hf4hs*h hh hL)AS%)Recursive call to nonrecursive procedure 'aka'At line 94 of file aka.f90aka.f90Recursive call to nonrecursive procedure 'boolean_swap'At line 2376 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_bit_size'At line 2356 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_rev_endian'At line 2322 of file typebool.f90Memory allocation failedRecursive call to nonrecursive procedure 'boolean_ibits'At line 2296 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_mvbits'At line 2272 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_bztest'At line 2246 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_btest'At line 2224 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ibclr'At line 2202 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ibset'At line 2180 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_dshftc'At line 2110 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_dshftr'At line 2055 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_dshftl'At line 2000 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ishftc'At line 1978 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ishft'At line 1956 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_maskr'At line 1918 of file typebool.f90Index '%ld' of dimension 1 of array 'right_mask' below lower bound of %ldAt line 1934 of file typebool.f90Index '%ld' of dimension 1 of array 'right_mask' above upper bound of %ldRecursive call to nonrecursive procedure 'boolean_maskl'At line 1884 of file typebool.f90Index '%ld' of dimension 1 of array 'left_mask' below lower bound of %ldAt line 1900 of file typebool.f90Index '%ld' of dimension 1 of array 'left_mask' above upper bound of %ldRecursive call to nonrecursive procedure 'boolean_mask'At line 1846 of file typebool.f90At line 1862 of file typebool.f90At line 1866 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_rotate'At line 1820 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_shift'At line 1798 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_hamd'At line 1778 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_poppar'At line 1740 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_popcnt'At line 1694 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_lastz'At line 1632 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_leadz'At line 1572 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_div'At line 1548 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_mul'At line 1528 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_sub'At line 1508 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_add'At line 1488 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_lt'At line 1464 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_le'At line 1444 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_gt'At line 1424 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ge'At line 1404 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ne'At line 1384 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_eq'At line 1364 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_neqv'At line 1340 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_eqv'At line 1320 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_xor'At line 1300 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_csmg'At line 1276 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_compl'At line 1256 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_not'At line 1236 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_eor'At line 1216 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_or'At line 1196 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_and'At line 1176 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_minus'At line 1152 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_plus'At line 1132 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_char'At line 1108 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_logical'At line 1088 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_real'At line 1068 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_int'At line 1048 of file typebool.f90Recursive call to nonrecursive procedure 'char_bool'At line 1028 of file typebool.f90cActual string length is shorter than the declared one for dummy argument '%s' (%ld/%ld)Recursive call to nonrecursive procedure 'logical_bool'At line 1008 of file typebool.f90Recursive call to nonrecursive procedure 'single_bool'At line 988 of file typebool.f90Recursive call to nonrecursive procedure 'int_bool'At line 968 of file typebool.f90Recursive call to nonrecursive procedure 'c_to_b'At line 942 of file typebool.f90Recursive call to nonrecursive procedure 'b_to_c'At line 920 of file typebool.f90Recursive call to nonrecursive procedure 'l_to_b'At line 898 of file typebool.f90Recursive call to nonrecursive procedure 'b_to_l'At line 876 of file typebool.f90Recursive call to nonrecursive procedure 'r_to_b'At line 854 of file typebool.f90Recursive call to nonrecursive procedure 'b_to_r'At line 832 of file typebool.f90Recursive call to nonrecursive procedure 'i_to_b'At line 810 of file typebool.f90Recursive call to nonrecursive procedure 'b_to_i'At line 788 of file typebool.f90$Source: D:/LF95/Utilities/rcs/Aka.f90 $$Revision: 1.2 $$State: Release $$Date: 1999/04/16 17:22:07 $( 1x, a, a) r - reali - integerl - logicalc - characterb - bitsyou have: you want: yes( z8) ( 1x, z8.8) garbled input- aka quitsnormal exit in akazRx ,y 4LQ= 8 zRx 4>n i 4TtP K <   4 y 4Nu p 4<  4tm c 4=s i 4xq g 4  4Tg b 4,] X 4Qo j 4  44  4l  43| w 4w x 4  4L$| w 4h  4!  4  4,  4dAg b 4p_ Z 4b ] 4 ^ Y 4Dd _ 4|d _ 4?d _ 4kd _ 4$d _ 4\d _ 4^ Y 4` [ 4=^ Y 4<cv q 4tT O 4T O 4^ Y 4 ^ Y 4T %^ Y 4 KT O 4 gR M <    4< V z 4t  ~ 4  z 4 /  4  z 4T  z 4 B z 4   < P  B 4< " ~ 4t m ~ 4  ~ 4  ~ 4 N ~ 4T  ~ __HrPrXr`rlEvEEEEEEEEEEEEEEF FF F*F4F>FHFRF\F????"UB`@dyld_stub_binderQr8rH@__gfortran_ishftc4rP@__gfortran_mvbits_i4rX@__gfortran_os_errorr`@__gfortran_runtime_error_atrh@__gfortran_set_argsrp@__gfortran_set_optionsrx@__gfortran_st_readr@__gfortran_st_read_doner@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_transfer_characterr@__gfortran_transfer_character_writer@__gfortran_transfer_integerr@__gfortran_transfer_integer_writer@__gfortran_transfer_logicalr@__gfortran_transfer_logical_writer@__gfortran_transfer_realr@__gfortran_transfer_real_writer@_exitr@_freer@_mallocr@_memcpyr@_memmover@_memset_ startE_)mainJNXArgenvironmh_execute_headerA_O9type_boolean_MOD_oprognamebclsingle_boolirall_oolean__to_sbrimdhamdplagnexorcorwaphiftub9it_sizeztesttest:eotatev_endianal:bshftntitsclrset@vbitsaskulinusABCDEshftivcrlFMPcRSrlUVX[\]oplusparcnt^`astzetogicalbadzdffgddndhiitejkeotlqvqormvmnosmgomplharppqrrstuuwxyhar_bool_to_bzogical_bool_to_beft_mask|}nt_bool_to_b~clriƒń_to_bight_maskȅˆ·шsetclearcv<=nPumsqo|g_b^dddddd^`^vTT^^^TR  . 6aG hr\ lrr pr tr xr |r r r r  r" r8 rN rd rz r r r r r r r r* r@ rV rl r r r r r r r r r2 rH r^ rt r s s s s s s s$ s: sP $sf (s| ,s 0s 4s 8s KCY14y9,!+!:$y8F8g 31#(&!96/E7O5nW5.M"3 " <4 )V y)y 41 4 2 ; 4 ;,@ _+b * ;: p3   6 6) 8I 9h : A0 P/ u< | -: 9.\ 3|  7 ? w= C 2?. AI  @qg 4> B  q >   Xr   3Gcw?[} @ dyld_stub_binding_helper__dyld_func_lookup_MAIN___options.33.1642_is_recursive.0.1546_is_recursive.83.2136_is_recursive.81.2131_is_recursive.79.2126_is_recursive.77.2121_is_recursive.75.2116_is_recursive.73.2111_is_recursive.71.2102_is_recursive.69.2097_is_recursive.67.2091_is_recursive.65.2085_is_recursive.63.2079_is_recursive.61.2073_is_recursive.59.2067_is_recursive.57.2061_is_recursive.55.2055_is_recursive.53.2046_is_recursive.52.2044_is_recursive.51.2042_is_recursive.50.2040_is_recursive.49.2038_is_recursive.48.2036_is_recursive.47.2034_is_recursive.46.2032_is_recursive.45.2030_is_recursive.44.2028_is_recursive.43.2026_is_recursive.42.2024_is_recursive.41.2022_is_recursive.40.2020_is_recursive.39.2018_is_recursive.38.2016_is_recursive.37.2014_is_recursive.36.2012_is_recursive.35.2010_is_recursive.34.2008_is_recursive.33.2006_is_recursive.32.2004_is_recursive.31.1996_is_recursive.30.1986_is_recursive.29.1975_is_recursive.28.1961_is_recursive.27.1952_is_recursive.26.1948_is_recursive.25.1944_is_recursive.24.1936_is_recursive.23.1929_is_recursive.22.1922_is_recursive.21.1918_is_recursive.20.1916_is_recursive.19.1908_is_recursive.18.1898_is_recursive.17.1877_is_recursive.16.1870_is_recursive.15.1868_is_recursive.14.1866_is_recursive.13.1862_is_recursive.12.1860_is_recursive.11.1858_is_recursive.2.1807_is_recursive.1.1803_is_recursive.0.1802_NXArgc_NXArgv___progname___type_boolean_MOD_all_clear___type_boolean_MOD_all_set___type_boolean_MOD_b_to_c___type_boolean_MOD_b_to_i___type_boolean_MOD_b_to_l___type_boolean_MOD_b_to_r___type_boolean_MOD_boolean_add___type_boolean_MOD_boolean_and___type_boolean_MOD_boolean_bit_size___type_boolean_MOD_boolean_btest___type_boolean_MOD_boolean_bztest___type_boolean_MOD_boolean_char___type_boolean_MOD_boolean_compl___type_boolean_MOD_boolean_csmg___type_boolean_MOD_boolean_div___type_boolean_MOD_boolean_dshftc___type_boolean_MOD_boolean_dshftl___type_boolean_MOD_boolean_dshftr___type_boolean_MOD_boolean_eor___type_boolean_MOD_boolean_eq___type_boolean_MOD_boolean_eqv___type_boolean_MOD_boolean_ge___type_boolean_MOD_boolean_gt___type_boolean_MOD_boolean_hamd___type_boolean_MOD_boolean_ibclr___type_boolean_MOD_boolean_ibits___type_boolean_MOD_boolean_ibset___type_boolean_MOD_boolean_int___type_boolean_MOD_boolean_ishft___type_boolean_MOD_boolean_ishftc___type_boolean_MOD_boolean_lastz___type_boolean_MOD_boolean_le___type_boolean_MOD_boolean_leadz___type_boolean_MOD_boolean_logical___type_boolean_MOD_boolean_lt___type_boolean_MOD_boolean_mask___type_boolean_MOD_boolean_maskl___type_boolean_MOD_boolean_maskr___type_boolean_MOD_boolean_minus___type_boolean_MOD_boolean_mul___type_boolean_MOD_boolean_mvbits___type_boolean_MOD_boolean_ne___type_boolean_MOD_boolean_neqv___type_boolean_MOD_boolean_not___type_boolean_MOD_boolean_or___type_boolean_MOD_boolean_plus___type_boolean_MOD_boolean_popcnt___type_boolean_MOD_boolean_poppar___type_boolean_MOD_boolean_real___type_boolean_MOD_boolean_rev_endian___type_boolean_MOD_boolean_rotate___type_boolean_MOD_boolean_shift___type_boolean_MOD_boolean_sub___type_boolean_MOD_boolean_swap___type_boolean_MOD_boolean_xor___type_boolean_MOD_c_to_b___type_boolean_MOD_char_bool___type_boolean_MOD_i_to_b___type_boolean_MOD_int_bool___type_boolean_MOD_l_to_b___type_boolean_MOD_left_mask___type_boolean_MOD_logical_bool___type_boolean_MOD_r_to_b___type_boolean_MOD_right_mask___type_boolean_MOD_single_bool__mh_execute_header_environ_mainstart__gfortran_ishftc4__gfortran_mvbits_i4__gfortran_os_error__gfortran_runtime_error_at__gfortran_set_args__gfortran_set_options__gfortran_st_read__gfortran_st_read_done__gfortran_st_write__gfortran_st_write_done__gfortran_stop_string__gfortran_transfer_character__gfortran_transfer_character_write__gfortran_transfer_integer__gfortran_transfer_integer_write__gfortran_transfer_logical__gfortran_transfer_logical_write__gfortran_transfer_real__gfortran_transfer_real_write_exit_free_malloc_memcpy_memmove_memsetdyld_stub_binderDay-I/09-new-types/aka.f90100777 0 0 21446 11776602430 10372 0! bof ! ********************************************************************** ! Fortran 95 program aka ! ********************************************************************** ! Source Control Strings ! $Source: D:/LF95/Utilities/rcs/Aka.f90 $ ! $Revision: 1.2 $ ! $State: Release $ ! $Date: 1999/04/16 17:22:07 $ ! ********************************************************************** ! Copyright 1999 Purple Sage Computing Solutions, Inc. ! This program is free software; you can redistribute it and/or ! modify it under the terms of the GNU General Public ! License as published by the Free Software Foundation; either ! version 2 of the License, or (at your option) any later version. ! This library is distributed in the hope that it will be useful, ! but WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ! Library General Public License for more details. ! You should have received a copy of the GNU General Public ! License along with this library; if not, write to the Free ! Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! To report bugs, suggest enhancements, etc. to the Authors, ! Contact: ! Purple Sage Computing Solutions, Inc. ! send email to dnagle@erols.com ! or fax to 703 471 0684 (USA) ! or mail to 12142 Purple Sage Ct. ! Reston, VA 20194-5621 USA ! a user runs aka to see what a value expressed as a 4 byte type ! looks like when the underlying bits are expressed as some other type. ! this is a toy to demonstrate one possible use of type boolean, ! in this case, as a hole in the type system. ! aka is loosely modeled on the unix units program. ! run aka as follows: ! after the banners, select the 'I have' type: real, integer, logical or ! character( len= 4). then select the 'I want' type: same menu. ! then enter the value, expressed as the 'I have' type. ! aka prints the same bits expressed as the 'I want' type. ! aka agrees if the 'I have' and the 'I want' type are the same, ! and asks for the 'I have' type again, then the 'I want' type. ! aka quits upon garbled input. ! ********************************************************************** ! aka type conversion utility ! ********************************************************************** ! aka reads ! stdin ! aka writes ! stdout ! aka uses ! standard_types ! type_boolean ! aka constants ! ! aka types ! ! aka data ! aka library ! ! ********************************************************************** ! aka ! ********************************************************************** program aka ! ********************************************************************** ! aka uses programs ! ********************************************************************** use, intrinsic :: iso_fortran_env, only: numeric_storage_size, character_storage_size use :: type_boolean ! ********************************************************************** ! aka RCS strings ! ********************************************************************** ! program source filename supplied by RCS character( len= *), parameter :: & aka_rcs_source = '$Source: D:/LF95/Utilities/rcs/Aka.f90 $' ! program revision supplied by RCS character( len= *), parameter :: & aka_rcs_revision = '$Revision: 1.2 $' ! program revision state supplied by RCS character( len= *), parameter :: & aka_rcs_state = '$State: Release $' ! program revision date supplied by RCS character( len= *), parameter :: & aka_rcs_date = '$Date: 1999/04/16 17:22:07 $' ! a Fortran 2003 version from iso_fortran_env integer, parameter :: csu_per_nsu = numeric_storage_size / character_storage_size ! ********************************************************************** ! aka data ! ********************************************************************** ! buffers type( boolean_t) :: buffer real :: rbuff integer :: ibuff logical :: lbuff character( len= csu_per_nsu) :: cbuff ! source and target formats character( len= 1) :: ihave, iwant ! user quits character( len= 1), parameter :: iquit = 'q' ! type codes character( len= 1), parameter :: isreal = 'r' character( len= 1), parameter :: isint = 'i' character( len= 1), parameter :: islog = 'l' character( len= 1), parameter :: ischar = 'c' character( len= 1), parameter :: isbits = 'b' ! formats character( len= 12), parameter :: banner = '( 1x, a, a)' character( len= 8), parameter :: inbits = '( z8)' character( len= 12), parameter :: outbits = '( 1x, z8.8)' character( len= 8) :: bbuff ! internal file ! ********************************************************************** ! aka text ! ********************************************************************** continue ! ********************************************************************** ! aka rcs banner write( *, *) aka_rcs_source write( *, *) aka_rcs_revision write( *, *) aka_rcs_state write( *, *) aka_rcs_date write( *, *) ! ********************************************************************** ! aka banner write( *, banner) isreal, ' - real' write( *, banner) isint, ' - integer' write( *, banner) islog, ' - logical' write( *, banner) ischar, ' - character' write( *, banner) isbits, ' - bits' ! ********************************************************************** ! top of main input loop 1 continue ! ---------------------------------------------------------------------- ! solicit current interpretation write( *, *) write( *, *) 'you have: ' read( *, *) ihave if( ihave .eq. iquit ) goto 3 ! ---------------------------------------------------------------------- ! check for recognition select case( ihave) case( isreal) continue case( isint) continue case( islog) continue case( ischar) continue case( isbits) continue case default goto 2 end select ! ---------------------------------------------------------------------- ! solicit desired interpretation write( *, *) 'you want: ' read( *, *) iwant if( iwant .eq. iquit ) goto 3 ! ---------------------------------------------------------------------- ! check for recognition select case( iwant) case( isreal) continue case( isint) continue case( islog) continue case( ischar) continue case( isbits) continue case default goto 2 end select ! ---------------------------------------------------------------------- ! no work if have == want no_change: if( ihave == iwant )then write( *, *) 'yes' goto 1 endif no_change ! ---------------------------------------------------------------------- ! read current interpretation select case( ihave) case( isreal) read( *, *) rbuff buffer = rbuff case( isint) read( *, *) ibuff buffer = ibuff case( islog) read( *, *) lbuff buffer = lbuff case( ischar) read( *, *) cbuff buffer = cbuff case( isbits) read( *, *) bbuff read( bbuff, inbits) ibuff buffer = ibuff end select ! ---------------------------------------------------------------------- ! print desired interpretation select case( iwant) case( isreal) rbuff = buffer write( *, *) rbuff case( isint) ibuff = buffer write( *, *) ibuff case( islog) lbuff = buffer write( *, *) lbuff case( ischar) cbuff = buffer write( *, *) cbuff case( isbits) ibuff = buffer write( *, outbits) ibuff end select ! ---------------------------------------------------------------------- ! do it again goto 1 ! ********************************************************************** ! here from punt 2 continue write( *, *) 'garbled input- aka quits' ! ********************************************************************** ! here to quit 3 continue stop 'normal exit in aka' ! ********************************************************************** ! aka ! $Source: D:/LF95/Utilities/rcs/Aka.f90 $ ! ********************************************************************** end program Day-I/09-new-types/coco100777 0 0 1061060 11710026260 10206 0 H__PAGEZERO(__TEXT__text__TEXT%__stubs__TEXT77__stub_helper__TEXTl8l8__cstring__TEXT9I9__const__TEXT@%@__eh_frame__TEXT#h__DATA __dyld__DATA8__nl_symbol_ptr__DATA88%__la_symbol_ptr__DATAH(H'__data__DATA4__static_data__DATA__const__DATA __common__DATA __bss2__DATA__bss3__DATA__bss5__DATAH__LINKEDITP 0B"0  0 H$x%|>`# POOV&=L /usr/lib/dyldw]?ӾfnO=$ * H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&$ jHHH}HuHHHH9uH%&ASL/AS%'%&UHHH}Hu tH5'H=#(%HUHEHƸlHHHUHAVAUATSH@tH5'H='E%yH4Hi0H@ HDHi0HY HDHHDžtHsI¸L HsI¸$HsI¸VHsI¸HsHHsIHw$HsHHsIH ND5Dž{D{{D9&L|{{HH tH9҅t%H tHHH5&H=&#H(tH9҅t%H(tHHH5&H=&#HtHtHHHHHHHHHPHsHsHѺH#sHHHDH#Hu H=& #HHsssIAH iHމ"s~HsHtHH#sD`IcH=xvHsH1yHH(#KIcHsH1HHH#IcĺyH)IcHsH1HȾ H"HHtH"HsHHsIHM{HH tH9҅t%H tHHH5$H=p%!H(tH9҅t%H(tHHH5$H=7%!HtHtHHHHHHHHHsIH{D9tH5$H=%0!{D9{{D{|{X|HsH1?? T@his @was @ prod@uced@ usi@ng t@he f@ ollo@$wing@( SET@, fil@0eHsH1HH HHHHHfHHHsHHsIH_xvtHsI¸ MHsHHsIHtT|tHsI¸+HsHXHsIH7H=8UHHH}HutH5j#H=!cHUHEHƸlHHHUHSHH}HuktH5N#H=x!CHEH;EDHUHEHƸHHHEcHEHHHHEHpHEHhHH)HHHHHH)غHHDHHu H=!UHUHHHHHH)HEHHHEHHHHHHHEHǀHHEHxHHEHHEHHH)HHHHiyHHDHFHu H=(!HUHxHiyHEHxHEHxHHHEHǀxH[]UHSHH}HutH5!H=[HEH;EDHUHEHƸ\HHHE HEHHHHEHpHEHhHH)HHHHHH)غHHDHHu H=qHUHHHHHH)HEHHHEHHHHHHHEHǀHHEHxHHEHHEHHH)HHHHiyHHDHbHu H=DHUHxHiyHEHxHEHxHH$HEHǀxHEHHHEHHEHHH)HHHHiyHHDHHu H=HUHHiyHEHHEHHHzHEHǀH[]UHH H}ustH5^H=K}t-EHAHHH5H=RJHEAH  HƿEEUHSH8H}HuЉULӋtH5aH=HMHUHEAHǸE~Iھ!H=LE;E~IھH=QUHuHEAйHǸ08H8[]UHATSH@H}LӋMtH5H=1%H(HEH0HEHEH'HEHHHEHѺHƿHE؋=LHEHEHEHǀ@HEHHDcomm@and @lineHEHHPH¾H HуHt HHуHt fHHуHt HHHHtHtfHtHHEHǀDHEHǀPHEHHU苒TTHEHHHuHEHѺHẼ*HHHDHHu H=.IHMŰẼ*IAH *LE̅~HEHtHzẼ*IډLLHtHWHEH0HUH8HEH@[A\]UHATSH@H}LӋtH5H=dxH(HEH0HEHEH'HEHHHEHѺHƿHE؋=+HEHEHEHǀ@HEHHDcomm@and @lineHEHHPH¾H HуHt HHуHt fHHуHt HHHHtHtfHtHHEHǀDHEHǀPHEHHU苒TTHEHHHuHEHѺH'Ẽ*HHHDH8Hu H=IHMŰẼ*IAH x*LGE̅~HEHtHẼ*IډLvLHtHHEH0HUH8HE$H@[A\]UHATSHPH}LӋtH5H=HHEH HEHEH|HEHHHEHѺHƿM2HE؋=LbHEHEHE苐HHEHH9u}HEHǀ@HEHDHEHHDHHHEHHU苒DDHEHǀLHEHHU苒TT}HEHHHuHEHѺHẼ0HHHDH Hu H=fIHMŰẼ0IAH }0LE̅~HEHtHẼ0IډLKLHHHEHHHuHEHѺH:E&HHHDHKHu H=-IHMUE&IAH &LZE~HEHtHE&IډLLHt HHEH0HUH8HEw>HP[A\]UHATSHPH}LӋ tH5H==HHEH HEHEH|HEHHHEHѺHƿ[2HE؋=+bHEHEHE苐HHEHH9u}HEHǀ@HEHDHEHHDHHHEHHU苒DDHEHǀLHEHHU苒TT}HEHHHuHEHѺH Ẽ0HHHDHHu H=tIHMŰẼ0IAH 0L*E̅~HEHtHẼ0IډLYLHHHEHHHuHEHѺHHE&HHHDHYHu H=;IHMUE&IAH &LhE~HEHtHE&IډLLHt HHEH0HUH8HEw<HP[A\]UHAUATSHHH}uLӋ:tH5mH= }t%EHHH5H= HEAH Hƿ E؃}~E#HHHDH Hu H=? IċE#HMUIAH Ɲ#L E#IډL<LHtH HEHpEHAH %+ E؃}~EHHHDH- Hu H= IċEHMUIAH ZL< EIډLLHtH EDm܃} EHH҅t HH5ZH= H ҅t HH5H=} HHi0HHHuHEHѺH HMUHuEY DE~HEHtH EtE1HHHDH Hu H=' IċE1HMUIAH 1L E1IډL$LHtHh D9mtH5H= } EDm܅xHHEHEUHMHEIHH苗HEHtE,HHHDH Hu H= 3 IċE,HMUIAH Z,L E,IډL0LHtHt HH[A\A]]UHAUATSHHH}uLӋ6tH5H=* }t%EHHH5LH= ] HEAH ЙHƿ E؃}~E#HHHDH Hu H= IċE#HMUIAH #LE#IډLLHtH< HEHpEHAH S%E؃}~EHHHDHHu H= BIċEHMUIAH LEIډL?LHtHEDm܃} EHH҅t HH5H=H ҅t HH5`H=QHHi0HMHHuHEHѺHHMUHuEDE~HEHtHEtE5HHHDHHu H=l IċE5HMUIAH :5LE5IډLLHtH$D9mtH5; H=dt} EDm܅xHHEHEUHMHEIHHHEHtE0HHHDHHu H=x IċE0HMUIAH ~0LE0IډLLHtH0HH[A\A]]UHAUATSHHH}uLӋtH5mH=V}t%EHHH5 H=HEAH Hƿ\E؃}~E#HHHDH^Hu H=@IċE#HMUIAH >#LmE#IډLLHtHHEHpEHAH %E؃}~EHHHDHHu H=IċEHMUIAH ҔLEIډLLHtH?EDm܃} EHH҅t HH5 H= kH ҅t HH5 H= =HHi0H HHuHEHѺHpHMUHuEDE~HEHtHdEtE(HHHDHFHu H=(IċE(HMUIAH ^(LUE(IډLLHtHD9mtH5H= 0} EDm܅xHmHEHEUHMHEIHH{HEHtE#HHHDHRHu H=4IċE#HMUIAH #LaE#IډLLHtHHH[A\A]]UHH`H}uHUMtH5 H= } t-EHA HH H5H= HUHEL AHѺHƿHEHHHUHEIAHѺHƿRHUHEL AHѺHƿ(HEHHHUHEIAHѺHƿ HMHE HHUHH`H}uHUMtH5 H=( }t-EHAHH H5H= {HUHEL AHѺHƿ-HEHHHUHEIAHѺHƿHUHEL 6AHѺHƿHEHHHUHEIAHѺHƿ HMHE HHOsUHH0H}uHU؉MtH5 H=- m}IEEUEE9U}Ʌt EHHH5 H=4  M;MɅt)EHcЋEHHHH5H= Hu؋MHc A}Ʌt EHHH5 H= M;MɅt)EHcЋEHHHH5 H= O}Ʌt EHHH5 H= !M;MɅt)EHcЋEHHHH5H=x Hu؋MHc Ƀ M}HuMHc@<}Ʌt EHHH5H= M;MɅt)EHcЋEHHHH5 H=U M}Ʌt EHHH5H=' M;MɅt)EHcЋEHHHH5H=Hu؋MHc<HuMHc@<9EtH5fH=9UȃEELUHATSH@H}HuHUHMDEDMtH5H=4}t%EHHH5H=HE<"t <'uE'E"HEHU؋EH։HUDe]IcHcH9rHcHMHEHH!IcHMHEHHHcIcH)IcHEо HfHEHEEtFHcHwHcHEH 9HH"HU HHPHEH HHEȋHU؋EH։$9HEȋHUȋ9Ht*HtHHH5H=9Ht2;UHt$EHcHcHH5H=FHU؃HE8HEȋHUȋ9Ht*HtHHH5 H=t9Ht2;UHt$EHcHcHH5TH=5HU؃HE8HEHU9Ht*HtHHH5H=II9Ht2;UHt$EHcHcHH51H=  HUȋHMȋ 9@@Ht-@@HtHcHH5H=9@@Ht7;M@@Ht'EHcHcHHH5+H=||HM؃Hc HUЃH HEȋPHEȉHEPHEHEȋPHEȉIHEHU9Ht*HtHHH5H=m9Ht2;UHt$EHcHcHH5H=.HUȋHMȋ 9@@Ht-@@HtHcHH5H=f9@@Ht7;M@@Ht'EHcHcHHH5H= HM؃Hc HUЃH HEȋPHEȉHEPHErH@[A\]UHH0H}HuHU؉Mԋ,tH5;H=tHUEH։EEHEPuHE؉HE؋HE؋9 HE؋HU؋9@@Ht,@@HtHHH5H=9@@Ht4;U@@Ht$EHcHcHH5H=HUH<(t<)tE }t[mHE؋9tH52H=kHE؋9HU؋JHU؉ HU؋ UHAUATSHHH}HuHUHMLEDMtH5/H=hxHEE܋EEH} }?E؋UЉEԃ}E;EHt/}Ht EHHH5 H=UeEԋU)ȃHE HHHDHHu H=IċEԃHHH}ȋEԋU)É؃IEԋUAA)DȃHE HMU IALEԋU)ȃEԋU)É؃HADm ]tNIcHcH9rHcHELH/IcHELHHcIcH)IcHEȾ HLHtHE;EHt/}Ht EHHH5H=FEԋU)ƉHE HHHDHAHu H=#IċEԃHHH}EԋUAA)DȃIEԋU)ȃHE HMU IALEԋU)É؃EԋU)ƉHADm ]tNIcHcH9rHcHELH/IcHELHpHcIcH)IcHE HYLH~H-qE;EeE܍XHt5;]Ht'EHcHcHHH5H=*JIE HHHDHHu H= IĸۉIӸIE H}u HMIAL۸IADm ]tNIcHcH9rHcHELHA/IcHELH-HcIcH)IcHEȾ HLHtHE܍XHt5;]Ht'EHcHcHHH5#H=|IE HHHDHHu H=hIĸۉIӸIE H}u HMIAL۸IADm ]tNIcHcH9rHcHELH/IcHELHHcIcH)IcHE HLH HE܍XHt5;]Ht'EHcHcHHH5lH=eIE HHHDHOHu H=1IŸۉIӸIE H}u HMIALSE;EHt/}Ht EHHH5H=7IÉU EԋMAA)DȃHHHHDHHu H=cIċEԃHHHuȋEԋU)ȃIȸIÉU IÉ} EDEEA)DȃAAHIALL=LHtHۋEԋU)ȃIÉU EԋM)É؃HD,]tNIcHcH9rHcHELH/IcHELHvHcIcH)IcHEȾ H_LHtH7E܍XHt5;]Ht'EHcHcHHH5lH=%eIE HHHDHHu H=(IŸۉIӸIE H}u HMIALE;EHt/}Ht EHHH5H=IÉU EԋM)ƉHHHHDHHu H=]IċEԃHHHuEԋUAA)DȃIȸIÉU IÉ} EDEEA)DȃAAHIALLLHtH[ۋEԋU)ȃIÉU EԋM)É؃HD,]tNIcHcH9rHcHELH /IcHELHHcIcH)IcHE HLHtHHMUHEAHƋ}_EE}E؋UЉEԃ}E;EHt/}Ht EHHH5H=EԋU)ƉHE HHHDHHu H=^IċEԃHHH}EԋUAA)DȃIEԋU)ȃHE HMU IALEԋU)É؃EԋU)ƉHADm ]tNIcHcH9rHcHELHH/IcHELH4HcIcH)IcHE HLHHE;E7E܍XHt5;]Ht'EHcHcHHH5H=.IE HHHDHxHu H=ZIĸۉIӸIE H}u HMIAL|۸IADm ]tNIcHcH9rHcHELH/IcHELHHcIcH)IcHE HLHHE܍XHt5;]Ht'EHcHcHHH5H=IE HHHDHAHu H=#IŸۉIӸIE H}u HMIALEE;EHt/}Ht EHHH5@H=)IÉU EԋMAA)DȃHHHHDHsHu H=UIċEԃHHHuEԋU)ȃIȸIÉU IÉ} EDEEA)DȃAAHIALL/LHtHۋEԋU)ȃIÉU EԋM)É؃HD,]tNIcHcH9rHcHELH|/IcHELHhHcIcH)IcHE HQLHtH)HMUHEAHƋ}Er HH[A\A]]UHATSHH(H HLӋHdH H(IHDžhH  EhHt6hHt#hHHH5-H=vhHt:Ht(HHH5OH=(XhHHH(h)ȺHH EtuhhEEdht#hHHH56H=h;t/HcЋhHHHH5aH=jhH(HHHP<9w<0d<(a<H=yHt6HHt#HHHH5H=Hz)Hƒ@HHHDHHu H=mIċHHPHH Hz)ƉIЋHz)ljHƃL =hALHz)ȺHƒAH f%L6HЃELHtH<H;EHt6HHt#HHHH5wH=xhH;EHt7}yHt%EHyHH5H=-HU)ƉIЋHHPHHHIHH_H UH xH=yHt6HHt#HHHH5~H=oHz)ljHƒ@HHHDHHu H=!IċHHPHH Hz)ƉIЋHz)ljHƃL eALHz)ȺHƒAH f LHЃELHtHH;EHt6HHt#HHHH5+H=lH;EHt7}yHt%EHyHH5PH=!HU)ƉHU)ljADIIcH v,HHPHH HEк HHIIcԋHHPHHHEHHIcĺ H)IcHMHȾ HHUH0 HH0HHU@fEHOH8Dž@AHEHDž HDžpDž4EHEHPHdHxDžDž0 PH0HHH0HHH0HoEHHHDHHu H=IċH(IAH acLIډLLHtH0H UH GHLHHHPyHH(H։L9MHL9Ht*HtHHH5H=r9Ht8;Ht'HcHcHH5H=-))ƒADIIcHxv(HHH(HPyHHIIcԃHHH(HPHHIcĺyH)IcHPHȾ HHHPIںyHHMH(H H,H3,HHHDHAHu H=#IH ,,IAH `LG,~H HtH,IډLmLHtHLH H(HHHPHHHDH^Hu H=@IHIAH +`Ld~HHtHIډL芍LHtHHUHH[A\]UHAWAVAUATSHH}HuHUMLXEtH5pH=HEEHEHEHUEH։9PHEHU9Ht*HtHHH5IH=J9Ht2;UHt$EHcHcHH5zH=S HUH<)t$<.t8<(:EHEPHEmHEPHEr}HEHU9Ht*HtHHH5mH=.n9Ht2;UHt$EHcHcHH5H=/HHcHHu)ȃHH ] HEHU9Ht*HtHHH5H=9Ht2;UHt$EHcHcHH5H=OoHHcHHu)ȃHH \ HEHU9Ht*HtHHH5H=9Ht2;UHt$EHcHcHH5H=HHcHHu)ȃHH =\R3 HEHU9Ht*HtHHH5-H=N.9Ht2;UHt$EHcHcHH5^H=HHcHHu)ȃHH [v } HEHEH9Ht+HtHcHH5aH=b9Ht5;MHt'EHcHcHHH5H=` HEEHEEE9EHt.}HtHcEHH5H=,E9EHt9E;EHt(EHcHcEHHH5H=HEEHEEE9EHt.}HtHcEHH5-H=.E9EHt9E;EHt(EHcHcEHHH5SH=dHEEHEEE9EHt.}HtHcEHH5H=0E9EHt9E;EHt(EHcHcEHHH5H=FHEEHEEE9EHt.}HtHcEHH5H=E9EHt9E;EHt(EHcHcEHHH5H=hHEEHE||9EHt.}HtHcEHH5MH=.N|9EHt?|;EHt+EHcHc|HHH5jH=HExHEtt9xHt4xHt"HcxHH5H=t9xHt?t;EHt+EHcHctHHH5H=??HEpHEll9pHt4pHt"HcpHH5H=l9pHt?l;EHt+EHcHclHHH5H=HEhHEdd9hHt4hHt"HchHH5H=` d9hHt?d;EHt+EHcHcdHHH59H= HED0HE`D;`Ht,EHtIcHH5uH=vD;`Ht?`;EHt+EHcHc`HHH5H=%HED(HEDxE9Ht,EHtIcHH5H=ZE9Ht6D;}Ht'EHcIcHHH5H=HEHED D9Ht+HtHcHH5OH=PD9Ht6D;eHt'EHcIcHHH5{H= BHHHu)ЍPIH SEHHHuE+EPIH oSuoEHHHuE+EPIH 6S82EHHHuE+EPIH REHHHuE+EPIH R辿EHHHu|+EPIH R~xxHHHut+xHH FR82pHHHul+pHH RhHHHud+hHH Q謾AFHHHu`D)HH QntlAEHHHuDD)HH LQ7t5CHHHuD)؃HH Qu HEHE}HMUHuHEH[Eȃ&HHHDHlHu H=NŽHHMUȋEȃ&IAH P&Hމ{Eȅ~HEHtHEȃ&LXH}HHtHHEPHEHEPHEzHĈ[A\A]A^A_]UHATSHH8H0,LӋEtH5H=ɼH8,AH OE}/H8,AH 2O贼EH8,AH O苼EH8,AH NbEH8,AH N9EH8,AH NEH8,AH mNEԃ}EHt:;,Ht),HcHHHH5fH=?ADIIcH=xv H8HPyHH袻AIcH8HPHH脻IcĺyH)IcHPHȾ HeHLHPIںyHH9E;,Ht*HtHHH5H=Ia,)ƒҋ,)ƒADIIcHxv(HHH8HPyHH襺IIcԃHHH8HPHHIcĺyH)IcHPHȾ H`HHHPIںyHH8LH9H0D}EHt:;,Ht),HcHHHH5KH=,$ADIIcH=xv H8HPyHH臹AIcH8HPHHiIcĺyH)IcHPHȾ HJHLHPIںyHH7E;,Ht*HtHHH5H=nF,)ƒҋ,)ƒADIIcHxv(HHH8HPyHH芸IIcԃHHH8HPHHdIcĺyH)IcHPHȾ HEHHHPIںyHH6LH9H0)}E܃Ht:;,Ht),HcHHHH50H=Q ADIIcH=xv H8HPyHHlAIcH8HPHHNIcĺyH)IcHPHȾ H/HLHPIںyHHl5E܃;,Ht*HtHHH5H=+,)ƒҋ,)ƒADIIcHxv(HHH8HPyHHoIIcԃHHH8HPHHIIcĺyH)IcHPHȾ H*HHHPIںyHHg4LH9H0}E؃Ht:;,Ht),HcHHHH5H=vADIIcH=xv H8HPyHHQAIcH8HPHH3IcĺyH)IcHPHȾ HHLHPIںyHHQ3E؃;,Ht*HtHHH5H=,)ƒҋ,)ƒADIIcHxv(HHH8HPyHHTIIcԃHHH8HPHH.IcĺyH)IcHPHȾ HHHHPIںyHHL2LH9H0}EHt:;,Ht),HcHHHH5H=ӲADIIcH=xv H8HPyHH6AIcH8HPHHIcĺyH)IcHPHȾ HHLHPIںyHH61E;,Ht*HtHHH5H=,)ƒҋ,)ƒADIIcHxv(HHH8HPyHH9IIcԃHHH8HPHHIcĺyH)IcHPHȾ HHHHPIںyHH10LH9H0}EԃHt:;,Ht),HcHHHH5H=踰ADIIcH=xv H8HPyHHAIcH8HPHHIcĺyH)IcHPHȾ HްHLHPIںyHH/Eԃ;,Ht*HtHHH5yH=گ,)ƒҋ,)ƒADIIcHxv(HHH8HPyHHIIcԃHHH8HPHHIcĺyH)IcHPHȾ HٯHHHPIںyHH.LH9H0,=HHHDHbHu H=D軮Iċ,=H8,IAH A=Lh,=IډLnLH3H&H8,AH A腮EH8,AH @\EH8,AH @3EH8,AH @ EH8,AH |@EH8,AH R@踭Eԃ}EHt:;,Ht),HcHHHH57H=XADIIcH=xv H8HPyHHsAIcH8HPHHUIcĺyH)IcHPHȾ H6HLHPIںyHHs+E;,Ht*HtHHH5H=2,)ƒҋ,)ƒADIIcHxv(HHH8HPyHHvIIcԃHHH8HPHHPIcĺyH)IcHPHȾ H1HHHPIںyHHn*LH9H0 }EHt:;,Ht),HcHHHH5H=}ADIIcH=xv H8HPyHHXAIcH8HPHH:IcĺyH)IcHPHȾ HHLHPIںyHHX)E;,Ht*HtHHH5H=,)ƒҋ,)ƒADIIcHxv(HHH8HPyHH[IIcԃHHH8HPHH5IcĺyH)IcHPHȾ HHHHPIںyHHS(LH9H0}E܃Ht:;,Ht),HcHHHH5H=ڨADIIcH=xv H8HPyHH=AIcH8HPHHIcĺyH)IcHPHȾ HHLHPIںyHH='E܃;,Ht*HtHHH5H=,)ƒҋ,)ƒADIIcHxv(HHH8HPyHH@IIcԃHHH8HPHHIcĺyH)IcHPHȾ HHHHPIںyHH8&LH9H0}E؃Ht:;,Ht),HcHHHH5H=迦ADIIcH=xv H8HPyHH"AIcH8HPHHIcĺyH)IcHPHȾ HHLHPIںyHH"%E؃;,Ht*HtHHH5H= ,)ƒҋ,)ƒADIIcHxv(HHH8HPyHH%IIcԃHHH8HPHHIcĺyH)IcHPHȾ HHHHPIںyHH$LH9H0}EHt:;,Ht),HcHHHH5˾H=褤ADIIcH=xv H8HPyHHAIcH8HPHHIcĺyH)IcHPHȾ HʤHLHPIںyHH#E;,Ht*HtHHH5eH=.ƣ,)ƒҋ,)ƒADIIcHxv(HHH8HPyHH IIcԃHHH8HPHHIcĺyH)IcHPHȾ HţHHHPIںyHH"LH9H0}EԃHt:;,Ht),HcHHHH5H=艢ADIIcH=xv H8HPyHHAIcH8HPHH΢IcĺyH)IcHPHȾ H询HLHPIںyHH Eԃ;,Ht*HtHHH5JH=S諡,)ƒҋ,)ƒADIIcHxv(HHH8HPyHHIIcԃHHH8HPHHɡIcĺyH)IcHPHȾ H誡HHHPIںyHHLH9H0,/HHHDH3Hu H=茠Iċ,/H8,IAH 3/L9,/IډL}`LHtHH[A\]UHATSHHhH`\LEHh\H։2EHE.eqv@.E EE;EE;\Ht/}Ht EHHH5rH=;sE\)ȃIȋEHHhHUHuIHͻEEE؋E;EE؃9EHt/}Ht EHHH5ڵH=ü۞9EHt:;\Ht)\HcHHHH5H={蓞U؃HcHHh+E؃HH 13.E؃9EHt/}Ht EHHH5H=9EHt:;\Ht)\HcHHHH59H=һʝ+U؃+E؃ADIIcHv(E؃HHHhHEHHFIcԋE؃HHHhHEHHIcĺH)IcHMHȾ HםE؃E!E؃9EHt/}Ht EHHH5H= 9EHt:;\Ht)\HcHHHH5 H=ĺ蜜U؃HcHHh+E؃HH ,/<.E؃9EHt/}Ht EHHH5H=c9EHt:;\Ht)\HcHHHH5BH=ӛ+U؃+E؃ADIIcHv(E؃HHHhHEHH"FIcԋE؃HHHhHEHHIcĺH)IcHMHȾ HE؃E*E؃9EHt/}Ht EHHH5H=U9EHt:;\Ht)\HcHHHH5H= 襚U؃HcHHh+E؃HH '-E.E؃9EHt/}Ht EHHH5#H=$9EHt:;\Ht)\HcHHHH5KH=dܙ+U؃+E؃ADIIcHv(E؃HHHhHEHH+FIcԋE؃HHHhHEHHIcĺH)IcHMHȾ HE؃E3E؃9EHt/}Ht EHHH5H=9EHt:;\Ht)\HcHHHH5H=V讘U؃HcHHh+E؃HH 4+N.E؃9EHt/}Ht EHHH5,H=-9EHt:;\Ht)\HcHHHH5TH=+U؃+E؃ADIIcHv(E؃HHHhHEHH4FIcԋE؃HHHhHEHHIcĺH)IcHMHȾ HE؃E<E;\Ht/}Ht EHHH5H=E؃HHHhE؋\)ƉIHuHEH!EHHHDH2Hu H=苖IHMUEIAH )LAE~HEHtHזEIډLpVLHt,H贖"D(EHEH @ E؉EEEHEH (Hƿ蹕t%HEH (Hƿ蘕9HEH [(HƿsEԃ} E;\Ht/}Ht EHHH5DH=MEE\)ȃIȋEHHhHUHuIH蟱EEE؋E;EE؃9EHt/}Ht EHHH5H=ճ譔9EHt:;\Ht)\HcHHHH5ԫH=eU؃HcHHh+E؃HH &.E؃9EHt/}Ht EHHH5H=,9EHt:;\Ht)\HcHHHH5 H=蜓+U؃+E؃ADIIcHv(E؃HHHhHEHHFIcԋE؃HHHhHEHHœIcĺH)IcHMHȾ H詓E؃E)E؃9EHt/}Ht EHHH5H=趒9EHt:;\Ht)\HcHHHH5ݩH=ֱnU؃HcHHh+E؃HH $.E؃9EHt/}Ht EHHH5H=u9EHt:;\Ht)\HcHHHH5H=-襑+U؃+E؃ADIIcHv(E؃HHHhHEHHFIcԋE؃HHHhHEHHΑIcĺH)IcHMHȾ H貑E؃E2E؃9EHt/}Ht EHHH5H=g运9EHt:;\Ht)\HcHHHH5H=wU؃HcHHh+E؃HH ".E؃9EHt/}Ht EHHH5H=9EHt:;\Ht)\HcHHHH5H=v讏+U؃+E؃ADIIcHv(E؃HHHhHEHHFIcԋE؃HHHhHEHH׏IcĺH)IcHMHȾ H軏E؃E;E؃9EHt/}Ht EHHH5ǥH=Ȏ9EHt:;\Ht)\HcHHHH5H=h耎U؃HcHHh+E؃HH ! .E؃9EHt/}Ht EHHH5H=9EHt:;\Ht)\HcHHHH5&H=跍+U؃+E؃ADIIcHv(E؃HHHhHEHHFIcԋE؃HHHhHEHHIcĺH)IcHMHȾ HčE؃EDE;\Ht/}Ht EHHH5УH=ьE؃HHHhE؋\)ƉIHuHEHEHHHDHHu H=]IHMUEIAH LE~HEHtH詌EIډLBLLHt4H膌*EHEH @ E؉EEEEEHEH oHƿ胋 E;\Ht/}Ht EHHH5aH=bE\)ȃIȋEHHhHUHuIH輧EEE؋E;E E؃9EHt/}Ht EHHH5ɡH=2ʊ9EHt:;\Ht)\HcHHHH5H=肊U؃HcHHh+E؃HH ".E؃9EHt/}Ht EHHH5H=9EHt:;\Ht)\HcHHHH5(H=A蹉+U؃+E؃ADIIcHv(E؃HHHhHEHHFIcԋE؃HHHhHEHHIcĺH)IcHMHȾ HƉE؃E<E؃9EHt/}Ht EHHH5ҟH={ӈ9EHt:;\Ht)\HcHHHH5H=3苈U؃HcHHh+E؃HH +.E؃9EHt/}Ht EHHH5 H=Ҩ 9EHt:;\Ht)\HcHHHH51H=‡+U؃+E؃ADIIcHv(E؃HHHhHEHHFIcԋE؃HHHhHEHHIcĺH)IcHMHȾ HχE؃EEE؃9EHt/}Ht EHHH5۝H=ħ܆9EHt:;\Ht)\HcHHHH5H=|蔆U؃HcHHh+E؃HH 4.E؃9EHt/}Ht EHHH5H=9EHt:;\Ht)\HcHHHH5:H=Ӧ˅+U؃+E؃ADIIcHv(E؃HHHhHEHHFIcԋE؃HHHhHEHHIcĺH)IcHMHȾ H؅E؃ENE؃9EHt/}Ht EHHH5H= 9EHt:;\Ht)\HcHHHH5 H=ť蝄U؃HcHHh+E؃HH =.E؃9EHt/}Ht EHHH5H=d9EHt:;\Ht)\HcHHHH5CH=ԃ+U؃+E؃ADIIcHv(E؃HHHhHEHH#FIcԋE؃HHHhHEHHIcĺH)IcHMHȾ HE؃EWE;\Ht/}Ht EHHH5H=VE؃HHHhE؋\)ƉIHpH|H |HHHDHHu H=qIHp||IAH L|~HpHtH讂|IډLDBLHt,H舂"EHEH @ E؉E}tEtEEE}t!}uEtEEEEEHEH¾H=!ddx,~t E9EEE9EEHEU@fEVH`UHĠ[A\]UHSHxH}HuULEHUEH։%EE+EE;E&E;EHt/}Ht EHHH5H=OwEU)ȃIȋEHHEHUHuIHEEE܋E;E}t EHHH5H=E;Et)EHcЋEHHHH5H=HUE܃HEًE܃E E E܉EEوEڋEЉEE<*tEP6H+HEHE}t%EHH H5H=fVPHEAH 3Hƿ PE}~gEHt4;EHt&UHcHHHH5H=OIHMHEIHHTHEH}t%EHHH5BH=ӀOHEH Hƿl=yHt(lHyHH53.H=\?lD)HHHHDHHu H=vIAD$HH0HHPlD)HLlD)lD)ADIIcH=xvHHyLHKIcHHHLHpIcĺyH)HHIcHȾ HJLHtH"H(H@HHǀ(H[A\A]]UHSHXH}HuULӋmtH5=H=%>EMHUHuHEIAHHtrẼ;EHt*HtHHH5=H= >U)ƒIʃHHEHUHuIAHRHX[]UHATSH0H}HuHUȉMDEMԋrtH5=H==JHu؋EAH #NE}HM؋UHuHEH0E&HHHDHAHu H=#HHMUE&IAH &HމPE~HEHtHE&MHHHtHEPHEȉHEȋHt4;EHt&UHcHHHH5%(H=<IHEMH:HEȋHt4;EHt&UHcHHHH5'H=<ADI]tVIcHcH9rHcHMHEHH3IcHMHEHHHcIcH)IcHEо HCH0[A\]UHAVAUATSHHLӋ*tH5;H=><t(HHH5"<H=s<{H<(HH0Hl=yHt(lHyHH5d"H=]7l+E܃HHHHDHIHu H=+IċE܃HH0HHpl+E܃IЋl+E܃H IAH S L!l+E܃HHHHDHHu H=Iŋl+E܃HP l+E܃HL ͍ALLLHtH+l+E܃l+E܃HDpz)ȺADIEIcIcH9r)IcċH@HcHHLHUIcƋH@HcHHLHIcIcH)‹DH@HHȾ HjLHtHBtH@IھyH&rH1H@yHHHIHHt2=yHt"HyHH53H=4H…tRHcHwHcH@H HHs+@HHPH@H HRHHDž/HEH@DžH HDž DžHH(Dž0DžPHHyHHHHHHHK=yHt6Ht#xHHH52H=m3HHPHHHѺH+HHHDHHu H=[IH+IAH I+L~HHtH-HHHDH|Hu H=^IċP+-L ALLLHtH&HUH HNHHHHѺ HP-HHHDHHu H=IHP-x-IALL~HHtHSLHtHCP-ЃHHHDHHu H=uIċP-‹H-ȃL ALLLHtHP-ЃHHHDHHu H=nIŋP-ЍPH-ȃL ALLLHtH l9EHt/}Ht EHHH5ZH=#0Sl9EHt>l=yHt(lHyHH5xH=/E܃HH0HHHl+E܃IHHH P-ЍPHHHDHHu H=tIHP-ЍPx-xIALL~HHtHLHtHP-ЍPЃHHHDHQHu H=3IŋP-ЍP‹H-ȍHȃL ALL4LHtHP-ЍPDpz)ȺADIEIcIcH9r)IcċH@HcHHLHjUIcƋaH@HcHHLHAIcIcH)‹4DH@HHȾ HLHtHtH@IھyHiH1H@yHHHIH脹Ht2=yHt"HyHH5,H=-H…tQHcHwHcH1H zHH"*H1 z HHPH1 H=yHt6Ht#HHH5,H=,z)ȺIЅHcHw/Hcҋ}HH1HH H HHQsQHH1HH stop@ "as@sert@ ion @failf@ed@"HcHPHH1HH HHIH袷Ht2=yHt"HyHH5*H=+H…tQHcHwHcH1H xHH@*H1 x HHPH1 H =yHt6Ht#HHH5*H="+2z)ȺH…HcHw/HcЋHH1HH H >HHoToHcH 1HH end fBifHHPCHH1HH H%HIHߵH[A\A]A^]UHATSHPH}uLӋJtH55*H=v*"H@v$HMUHuHEH9E!HHHDHJHu H=,IHMUE!IAH !LYE~HEHtHE!IډL舤LHtHgHMUHuHEHE܃#HHHDHHu H=uIHMЋU܋E܃#IAH c#LE܅~HEHtH8E܃#IډLѣLHHHMUHuHEHẼ%HHHDHHu H=5IHMŰẼ%IAH ~%LE̅~HEHtHẼ%IډLLHtH^HuEH tHMUHuHEHE)HHHDHHu H=\IHMUE)IAH #~)LE~HEHtHE)IډLALHtHIڿ4HP[A\]UHATSH`H}uLӋtH5!'H=b'H@ t|*HMUHuHEHEHHHDHHu H=IHMUEIAH }LE~HEHtH_EIډLLH+H8HMUHuHEHE܃HHHDHHu H=\IHMЋU܋E܃IAH g|LE܅~HEHtHE܃IډLALHwHjHMUHuHEH;Ẽ!HHHDHLHu H=.IHMŰẼ!IAH {!L[E̅~HEHtHẼ!IډL芟LHHHMUHuHEHE#HHHDHHu H=wIHMUE#IAH 5{#LE~HEHtH:E#IډLӞLHtH HuEH p=HMUHuHEHE'HHHDHHu H=IHMUE'IAH z'LE~HEHtH^E'IډLLHtH;H@HH@tH@tHlH`[A\]UHATSHHLӋ;tH5"H=?#H@ tybHH`HhHhHHHDH Hu H=yIH`hhIAH yL&h~H`HtHhIډLLLHHHHPH\H:\HHHDHHHu H=*IHP\\IAH LxLN\~HPHtH\IډLtLHHHH@HLHbL$HHHDHpHu H=RIH@LL$IAH w$LvL~H@HtHL$IډL蜚LHHHH0HIH ,,'IAH \g'L,~H HtH{HH0HH8Dž@DžXHH語}Ht7}yHt%EHyHH5wH=((}IEăHHHDH菞Hu H=qIĸ}IUĸ}IEăHIAH [=L腝}IEčPHLHLHtHHH誝ti}Ht7}yHt%EHyHH5gH=8}IUHIډHHHIAxH .Hƿy衜H1HyHHCHIHoH=[A\A]A^A_]UHATSH H}؉uLӋPtH5H=@(HIHM؋UHuHEH`E!HHHDHqHu H=SʛIHMUE!IAH i;!L耛E~HEHtHE!IډLULHtHDeIcH=xvHHMغyHHۛ>IcHHMHHIcĺyH)HIcHȾ H衛HIH*nH=:$H [A\]UHATSH0H}HuЉULӋtH5;H=|茚pHDHEHHHEHHHuHEHѺH蚚E HHHDH諚Hu H=IHMUE IAH 9 L躙E~HEHtHPE IډLYLHtH-HEHHTUHEIHH_HEHǀ@HHHHEHHDHHHEHHD~H0[A\]UHATSH0H}HuЉULӋ}tH5H=5ݘ}HDHEHHHEHHHuHEHѺHE HHHDHHu H=ޛUIHMUE IAH <8 L E~HEHtH衘E IډL:XLHtH~HEHHTUHEIHHHEHǀ@HHHHEHHDHH4HEHHD^|H0[A\]UHATSHpH}uLӋ6|tH5H=2|HrHEHE}t%EHH H5H=HEAH +Hƿ E}~gEHt4;EHt&UHcHHHH5NH=oIHMHEIHH$HEHEEHE=L=+HEHEHEHEЋE;EHt/}Ht EHHH5DH=͕EU)ȃIЋEHHEHMIHH|U HEHEHEHEȋE;EHt/}Ht EHHH5H=!AEU)ȃIЋEHHEHMIHHA HEHHuHEHѺHEE6HHHDHVHu H=8诔IHMUE6IAH 46LeE~HEHtHE6IډLTLH HԔ HuEH b)u*EHHUHIډH }t%EHHH5H=ʓHEH (Hƿ胓u*EHHUHIډHC }t%EHHH5+H=lLHEH w(Hƿu*EHHUHIډHL }t%EHHH5H=ΒHEH 'Hƿ臒u*EHHUHIډH/G }t%EHHH5/H=PHEH 'Hƿ u*EHHUHIډH/}t%EHHH5H=RґHEH 'Hƿ苑u*EHHUHIډH5K}t%EHH H53H=THEH 1 Hƿ u1E HHUHJ IډH5m1H1}t%EHHH5H=ϐHEH &1Hƿ舐u1EHHUHJIډH51HA}t%EHH H5)H=*JHEH 0 Hƿ u1E HHUHJ IډH5c0He}t%EHHH5H=ŏHEH =0Hƿ~u1EHHUHJIډH5/H7}t%EHHH5H=`@HEH /Hƿu1EHHUHJIډH5Y/H蛐} t%EHHH5H=軎HEH M/Hƿtu1EHHUHJIډH5.H-}t%EHHH5H=6HEH t#Hƿu*EHHUHIډH}t%EHHH5H=8踍HEH X.Hƿqu*EHHUHIډH1}t%EHHH5H=:HEH -Hƿu*EHHUHIډH }t%EHHH5H=|輌HEH k-Hƿuu*EHHUHIډHC5}t%EHHH5H=>HEH ,Hƿu*EHHUHIډH}t%EHHH5H=HEH |,Hƿyu*EHHUHIډH9}t%EHHH5!H=bBHEH ,Hƿu1EHHUHJIډH5[+H d} t%EHH H5H=轊HEH + Hƿ vu1E HHUHJ IډH5*Hc/}t%EHHH5H=8HEH +Hƿu*EHHUHIډH#*HMUHuHEH6EHHHDHGHu H=)蠉IHMUEIAH p*LVE~HEHtHEIډLILHt HɉnHp[A\]UHSH8H}HuЉỦMLӋmtH5rH=lHuЋEH )蝈ul2 HUЋEH։ElEllE̅t3uHcHEH ])HHHcHEؾ H߈H1H¾yH HуHt HHуHt fHHуHt HHHHtHtfHtHi HuЋEAH (E}t EHHH5;H=|LE;Et)EHcЋEHHHH5jH=CHUЋEH<&u EEEEE;Eh<"t<'}t EHHH5H=D衆E;Et)EHcЋEHHHH5H= hHUЋEHCh8u8h Jjt#8jHHH5H="j;Et,EHcЋiHHHH5 H=҅}t EHHH5H=褅E;Et)EHcЋEHHHH5H=|k5oiHUЋEH HU؍FH Qit#?iHHH5H=i=yt(iHyHH5NH=[ׄ}t EHHH5H=-詄E;Et)EHcЋEHHHH5H=p xhHUЋEHAH1ENhEhCh:h}t EHHH5H=E;Et)EHcЋEHHHH5H=bHUЋEH< t< uEgg9}t EHHH5QH="bE;Et)EHcЋEHHHH5H=)HUЋEH<"t<'t IcH1HMHH{IcĺyH)H1IcHȾ H{dD`D;eHt,EHtIcHH5/H=zED)HHHHDHW{Hu H=9~zIAD$HHHMȋED)IЋED)HƃIAH rLHEHHEHHHHѺHcHHHDHcHu H=fUcIHIAH t>Lc~HHtHcHHHDHvcHu H=XfbHËPL =ALHމbLHtH cD`IcH vHE!HH c4IcHEHHbIcĺ!H)IcHMHȾ HbHHtHbHEHƿ!lbẼ}Ht4}!Ht%EH!HH5 H=6a}IUHMHAaEEHEǀ$IHHHEH(HHbHEI(HEHHH E[EẺEEt EHHH5H=u`E;t,HcЋEHHHH5cH=6`EHH<(HEHHHHѺH`HHHDH`Hu H=c;`HHIAH _Hމ_~HHtHx`MH HHtHR`HUHuHHiHH։_U9HHHH_3HHHDH_Hu H=b-_HH3IAH k3Hމ^~HHtHj_3MHHHtHD_EXED`D9Ht+HtHcHH5H=t^D9HtHHIAH ~Hމl>~HHtH>MHHHtH>H t;HE؋PHE؉HHHHHH>HEHHE"H[A\A]]UHATSHHLӋHHUHHpHAAHBHHHH=HHHDH=Hu H=@=IHIAH L<~HHtHU=IډLLHH+=HH։<U9HHHH< HHHDH<Hu H=?<IH IAH  L;~HHtH[< IډLLHtH5<HHQHDžI!EHHHHHHPDžXHH HDž@DžHH2;E؅HHPHHHѺH@;HHHDHN;Hu H=0>:IHIAH fLT:~HHtH:IډLzLHtH:EtHIHEHHPHHHѺHA:HHHDHO:Hu H=1=9IHIAH LU9~HHtH9IډL{LHtH9Hu DžHHHHH HHz9HEEEEEHHPHIAH  Hƿ b8H1H HH9H2H¾mH HуHt HHуHt fHHуHt HHHHtHtfHtHHIH IH= gxxHIHIIH=eHHPHIAH Hƿ+7H1HHH7H2H¾iH HуHt HHуHt fHHуHt HHHHtHtfHtHHIH H[A\]UHATSH0H}HuЉULӋBtH51H=oB6HEHpẼHH <5HM؋UHuHEHN6E*HHHDH_6Hu H=A95IHMUE*IAH *Ln5E~HEHtH6E*IډLLHtH5HH@t0=yHt(HyHH5ɚH= 1HHHHѺHE1IЋHHHDHD1Hu H=&40HH{IЋkIHIAHH/0~HHtH0IЋD$IcH=xvHyHH07IcHHHv0IcĺyH)IcH HZ0HHtH20`H0[A\]UHATSHHLӋ2tH5H=ÙV/ HAtQHHHtH5H=ę.HHIھyHH>EHDž' HǀHHHHHH8Dž@ Dž HHH.HHHuHEHѺyH.UHMHHH.E~HEHtH.HH9.HHHPHuHEHѺH.E܃HHHDH0.Hu H=1-IHMЋU܋E܃IAH L?-E܅~HEHtH-E܃IډLnLHtH-HPH!HIH%H[A\]UHATSHP)HLӋktH5vH=,CnHHHcHHJ4NHBHDžHǀHHHHHHDž Dž HHH+HH5H,HH+HHHPHIAxH Hƿy!+HHpHHHHH HHtHpIھyHHSAHDžHǀHHHHHHDž Dž HHH*HpH`HlHѺyH*lH`HHH*l~H`HtH*HHC*HHHIAxH Hƿy)HHpHHHHH HHtHpIھyH~H?HDžHǀHHHHHHDž Dž HHH.)HpHPH\HѺyH-)\HPHHH )\~HPHtH)HH(|HHHIAvH Hƿy!(HHpHHHHH HHtHpIھyHHS>HDžHǀHHHHHHDž Dž HHH'HpH@HLHѺyH'LH@HHH'L~H@HtH'HHC'HHHPH0HIHMUE$IAH M$LE~HEHtHE$IډL#LHtHgaH [A\]UHATSH H}؉uLӋ5tH5fH= g  tIھH=蟳 Hu؋EH uǃHu؋EH uǃHM؋UHuHEHLE"HHHDH]Hu H=?IHMUE"IAH "LlE~HEHtHE"IډL蛲LHtHH [A\]UHATSHPHLӋtH5eH=etrtIھH=e NHHHHAAHHHHH'HHHDHHu H=/IH'IAH 'L~HHtHl'IډLLHHBHH։9HHHH/HHHDHHu H=2IH/IAH /L~HHtHo/IډLLHtHIxHHHH=HHHDHHu H=UIH=IAH 3=L~HHtH=IډLFLHtNHlDǃX H\HHHTǃxHXIH HP[A\]UHATSH H}؉uMԋtH5TbH=bMtMH=e[ HEHpEԃHH uT}t%EHHH5bH=kbI$HEغHH7HM؋UHuHEHE*HHHDHHu H=IHHMUE*IAH *HމE~HEHtHE*MH.HHtHrTH [A\]UHATSH0HLӋtH5raH=aHHHHAAHHHHH$HHHDHHu H=uIH$IAH R$L~HHtH)$IډL迫LHHHH։9HHHH,HHHDHHu H=xIH,IAH },L~HHtH,,IډLªLHtHHHHH:HHHDHHu H=IH:IAH В:L~HHtHO:IډLLHH%HHDžHHDžHHZtHIH@H{HDžǃHHDž HHHHHHHHH0[A\]UHATSH@H}uLӋtH5]H=]LHPHEHuEHHEE}HMUHuHEH@E#HHHDHQHu H=3IHM؋UE#IAH #L`E~HEHtHE#IډL菧LHtHHHH EHuEԖHPEԉE}HMUHuHEHDEЃHHHDHUHu H=7IHMȋUЋEЃIAH ؏LdEЅ~HEHtHEЃIډL蓦LHtHHPH]HcH=vHHMHHAHcHHMHHHcúH)HHHcHȾ HuHǀHHǀLH@[A\]UHH H}HuULЋ҅tH5[H=5[cHUHHPHEHHEHHtu1Eԃ HHUHJ IډH5{H%}t%EHHH5SH=THEH W{Hƿu1EԃHHUHJIډH51{H"}t%EHH H5SH=S{HEH z Hƿ 4u1Eԃ HHUHJ IډH5zH}t%EHHH5}RH=CSHEH nzHƿu1EԃHHUHJIډH5'zH}t%EHH H5QH=RqHEH  Hƿ *u*Eԃ HHUH IډH?}t%EHHH5zQH=|RHEH .Hƿu*EԃHHUHIډH!}t%EHHH5PH=RuHEH Hƿ.u*EԃHHUHIډHZ}t%EHHH5~PH=QHEH <Hƿu*EԃHHUHIډH+}t%EHHH5PH=\QyHEH ÁHƿ2u*EԃHHUHIډH }t%EHHH5OH=PHEH LHƿu*EԃHHUHIډH}t%EHHH5OH=P}HEH ӀHƿ6u*EԃHHUHIډH$}t%EHHH5NH=u*EԃHHUHIډH,}t%EHHH5LH=NHEH ~~Hƿu*EԃHHUHIډHHM؋UHuHEHEHHHDHHu H=oIHMUEIAH }L%E~HEHtHEIډLTLHtH&H [A\]UHSHLӋtH5MH=MHIHǃHHDž bǃHH0HHXDž` Dž HH_HHyHHHH8~IھH=| x&HIHHIH4eH[]UHATSHpLӋ|tH5LH=L\THIH谳ttEHHDžǃHHHHDž Dž HHHHyHHHHHH`HlHѺHlHHHDHHu H=!IH`llIAH zLl~H`HtH^lIډLLHtH8yJHpIڹyH5pHXFEIھ6H=2z蕏H1H [eHƿuy||H1wHH1HUHpIAyyHةEugHpIھyH:H1H `HƿyduETIھ,H=sy螎;5pЉpHIHŬ.Hp[A\]UHATSHLӋtH5IH=I߱=H1HHDžP2ǃHH`HHDžHHhDž@@DžDH@HxHHuHEHѺHE.HHHDHHu H=IHMUE.IAH x.LE~HEHtHCE.IډL܌LHtH t!HH%HHHK=HHHDžPNǃHH`HHDžHHhDž@@DžDH@HHHuHEHѺHE܃HHHDH(Hu H= IHMЋU܋E܃IAH vL7E܅~HEHtHE܃IډLfLHtHMHmHHDžPbǃHH`HTvHDžHHhDž@@DžDH@H~Iھ(H=v變Hcoco@.setHH¾H HуHt HHуHt fHHуHt HHHHtHtfHtHtIڸHHH¾H HуHt HHуHt fHHуHt HHHHtHtfHtHHİ[A\]UHAWAVAUATSHLӋ*tH5DH=DHHDžHhHDžDžXHHHH5sHHH[EDũ} DH_HDžHgHDžDžXHHEHH҅t HH5H=CzH ҅t HH5+H=CLHHi0HHHIAH rHƿ%HH%HHbHH#H?HDžHafHDžDžXHHEHH҅t HH5H=BZH ҅t HH5 H=B,HHi0HHHHPHHHѺyHNHHHDH\Hu H=>IHIAH [qLb~HHtHPHLHLHtHHHpEHH҅t HH5cH=wAH ҅t HH5H=IAHHi0HD1HHDž"HH Dž( HDžDžHVHDžDžPHHvEHH҅t HH5oH=@H ҅t HH5H=s@HHi0H HHHHHHH!HHHHDž&HcHDžDžXHH{EHH҅t HH5tH=? H ҅t HH5H=?HHi0H HHHPHHHѺHHHHDHHu H=hIHIAH nL~HHtHHHHDHHu H=kIŋPL mA LLLHtH3HH HXHHHHѺ HPHHHDHHu H=(IHPxIALL~HHtH]LHtHMPHLHLHtHHHHHDž*H_HDžDžXHHfHH5lHHHBD9utH5H=<ڿ} EDu̅HHHHHHDž4H$_HDžDžXHH苿HH5`H覿HHgHH%HsHDž:H^HDžDžXHHH H5jHHHؾHHDž@H^HDžDžXHH}HHHIAH iHƿ%HH%HHbHH#H?HDžBHHDž HDžDžHPHDžDžPHH觽HH HHHĽHHyHHDžEH\HDžDžXHHHHPHHHѺHHHHDH'Hu H= 耼IHIAH fhL-~HHtH轼HHHDH衼Hu H=IŋPL gA LL譻LHtHKHH HpHHHHѺ HPHHHDHHu H=ɾ@IHPxIALL~HHtHuLHtHePHLH*LHtH2HHۺH$MHHDžIHHDž HDžDžHLHDžDžPHHJHH(HHHgHHH8HDžLHZYHDžDžXHHHH(H`HlHѺH蹹lHHHDHǹHu H= IH`llIAH dL͸l~H`HtH]lHHHDHAHu H=#蚸IŋlPlL edA LLMLHtHHH HHHpH|HѺ H聸lP|HHHDH臸Hu H=iIHp|lPlx|IALL腷|~HpHtHLHtHlP|HLHʷLHtHҷHH{HHDžPHVHDžDžXHHHH5bH9HHH=)=) =Lt =+=Zb HHEHHDž`HdbHDžHUHDžDž0XHH:HH5bHUHHHEHH HDždHBUHDžDžXHH詵HH5aHĵHH腵HHDžhHTHDžDžXHH(HH5 aHCHHHE@\HETHHDžpHTHDžDžXHH腴H H5n`H蠴HHaH{HDžtHSHDžDžXHHHH5_HHHHHDžxHHDž HDžDžHEHDžDžPHHdHEHDHHH脳HH9HUHDž{HwRHDžDžXHH޲HEHDH0HXL踫 ~HHtHH HHHDH,Hu H=腫Iŋ P L PWA LL8LHtH֫HH HH HHHѺ Hl PHHHDHrHu H=T˪IH P xIALLp~HHtHLHtH PHLH赪LHtH轪HHfH}HDžHIHDžDžXHHHH5VH!HH;HHEHEHHHHE@HȿHDžHHHDžDžXHHQH)H5UHlHH-HGHDžHiHHDžDžXHHШHH58UHHH謨H HH HHHHHEHHHP(H@ HH)HHHHHAEDuD9}H HHHѺyH7HHHDHEHu H='螧IHyL 9AHщLM~HHtHݧEHHUHhH9҅t)HUHhHHH5 $H=W$ HUHpH9҅t)HUHpHHH5;$H=$̦HUHHHHUHPHHHH)HHHHѺHPHHHDHHu H=̩CIHPxIALL~HHtHxLHtHhPD,IcH=xvH yLHE:IcH LH.IcźyH)IcH HȾ HLHtHD9utH5H="7D9}EDu̅ H{HDžHDHDžDžXHHH HHHѺyHHHHDHHu H=jIHIAH QL~HHtH觤PHLHtLHtH|HH%H?HDžHaCHDžDžXHHȣH H5[PHHH褣HHDžHBHDžDžXHHIHEHHHHѺyHDHHHDHRHu H=4諢IHIAH QNLX~HHtHPHLH赢LHtH轢HHfHHEHEHHHHE@HLHDžHnAHDžDžXHHաH(H5tNHHH象H˷HDžH@HDžDžXHHTHH5NHoHH0H HH HHHHHEHHHP(H@ HH)HHHHHAEDuD9}H HHHѺyH軠HHHDHɠHu H="IHyL +2AHщLџ~HHtHaEHHUHhH9҅t)HUHhHHH5pH=葟HUHpH9҅t)HUHpHHH5H=yPHUHHHHUHPHHHH)HHHHѺHhPHHHDHnHu H=PǞIHPxIALLl~HHtHLHtHPD,IcH=xvH yLHɞ:IcH LH貞IcźyH)IcH HȾ H蓞LHtHkD9utH5H=T軝D9}EDu̅ HHDžH!=HDžDžXHH舝H HHHѺyH臝HHHDH蕝Hu H=wIHIAH IL蛜~HHtH+PHLHLHtHHH詜HòHDžH;HDžDžXHHLH H5,IHgHH(HDHDžHf;HDžDžXHH͛HH5HHHH詛HEHHP(H@ HH)HHHHHAEDeD9mHHDžH:HDžDžXHH EHHUHH9҅t)HUHHHH5hH=@艚HUHH9҅t)HUHHHH5H=HHUHHHUHHHiyHHHHѺyHcHHHHV~HHtHPHHD9etH5XH=f葙D9mEDe̅uRIھH=FYHH0HH8HHHDžH8HDžDžXHHH H5$FH9HH~H[A\A]A^A_]UHAVAUATSHLӋO~tH5bH=c'~HuHE$A AHǸ HHHDžPnH\HDž Dž@XDH@HHUHP H軗HPH`IA H DHƿaH`HEL )AHѺHƿ4HUHE HHMHUH IA HѺHƿ&H H@&HHeH@H&HBH(Dž0tH\HhDžp Dž X$H H˖HH@HLHѺHʖL HHHDHؖHu H=1IH@LL IAH C LޕL~H@HtHnLP H LH;LHtHCH HHH(Dž0zH\HhDžp Dž X$H H葕HH0HH HHH(Dž0H\HhDžp Dž X$H H蘉H H5G7H賉HH HH衉H HVHrH(Dž0H\HhDžp Dž X$H HH H56HHH HHH H蹈H՞H(Dž0H\HhDžp Dž X$H H^H H5:6HyHH HHgH HH8H(Dž0H\HhDžp Dž X$H HH H55H܇HH HHʇH HHH(Dž0H\HhDžp Dž X$H H$H H5'5H?HH HH-H HHH(Dž0H\HhDžp Dž X$H H臆H H54H袆HH HH萆H HEkHİ[A\A]A^]UHATSHLӋ0ktH5KH=}贅kHHhDžpH\HDž Dž`XdH`H葅H` H53H謅H`Hm0HH҅t HH5H=H҅t HH5H=趄HHHHBfHHIAH 3Hƿ/THHHpHPHxHPHHPHHP HP(P,f@.HpH/HH HHHHH\Hpalte@r st@ate @ is u@ndef@inedHpHHH HHHHHHhDžpH\HDž Dž`XdH`HtHpH`HlHѺyHslH`H`HHfl~H`HtH`H`H Hpproc@essi@ng f@ ree @form@ sou@rce:@ wra@ p lef@$n:HpH&HH fHHHHHHpproc@essi@ng f@ ixed@ for@m so@urce@: wr@ ap lf@$en@&:HpH'HH HHHHHHHhDžpH\HDž Dž`XdH`H蜁HpHPH\HѺyH蛁\HHHDH詁Hu H=IHP\\yL AHщL豀\~HPHtHA\PH`LHLHtHHdH`HHH`H血trHpmark@ing @subs@ eque@nt i@nput@ filf@esHpHHH fHHHHH}Hpnot @mark@ing @ subs@eque@nt i@nput@ filf@ esHpH"HH fHHHHHHHĕHhDžpH\HDž Dž`XdH`HMHpH@HLHѺyHLLH@H`HH?L~H@HtH9H`H~tdHpnumb@erin@g so@ urce@ linf@esHpHHH fHHHHHoHpnot @numb@erin@ g so@urce@ linf@esHpHHH fHHHHHHH!HhDžpH\HDž Dž`XdH`H}HpH0HIcHHMHHlpIcĺH)HIcHȾ HMpǃqSH[A\]UHSHLӋNStH5H=^o&S$StIھ'H= l/ SǃPRH[]UHSHLӋRtH5~H=nRRtIھ)H=. yRǃTaRH[]UHSHLӋ@RtH5gH=`nRRtIھ'H=cn. QǃLQH[]UHSHLӋQtH5HH=mQQtIھ%H= - kQǃHSQH[]UHATSHH}uLӋ)QtH5 H=\YmQPtIھ)H=g- PǃX DeIcH=vH\HMHHm>IcH\HMHHrmIcĺH)H\IcHȾ HSmǃxHXIHO=PH[A\]UHATSH H}؉uMԋPtH5xH=IlOOtMH=W, OHEHpEԃHH kuT}t%EHHH5BH=kI$`HEغHH3lHM؋UHuHEHkE*HHHDHkHu H=nEkHHMUE*IAH *HމjE~HEHtHkE*MH*+HHtHnkNH [A\]UHATSH0HLӋCNtH5H=jNHHHHAAHnuIھH=j*5HH։oj9}Iھ%H=3*HDžHHIںHH4HHHHHHi%HHHDH jHu H=leiIH%IAH %Li~HHtHi%IډLV#LHt!H|iHIھHTeLH0[A\]UHSHCLtH5H=)hLH~HDž H HHDžPDžDžHHrhHIH5!HhHHNhHj~HDž HHHDžPDžDžHHgE]}EHH҅t HH5/H=spgH҅t HH5qH=EBgHHHHHHBHHuHEHѺBHogUHMHHHhgE~HEHtHhg9]tH5jH=fu}E]HHf JH[]UHSHLӋItH5H=@fIItIھ&H=kN& IǃDIH[]UHATSH@H}uLӋ\ItH5H=e4IHCHH5E` fHuEHS@HXEE}HMUHuHEHeEHHHDHeHu H=heIHM؋UEIAH LdE~HEHtHheEIډL%LHtHEeHC@HXHC@HC0H?H8HC0HS@H0HC0H0HS0H8HC8_E`dHuEԖHCHEԉE}HMUHuHEHdEЃHHHDHdHu H=wgcIHMȋUЋEЃIAH LcEЅ~HEHtH:dEЃIډL#LHtHdHCHHC@H(Ht=HC0HL>H8HC0HS@H0HC0H0HS0H8HC8/H>H0HCHH(H(HC0H0HC8DeIcHvHC0HMHHc;IcHC0HMHHlcIcĺH)HC0HIcHȾ HMcHC0H=H8HC0Hǀ0HC@ǀTHC@HǀXEH@[A\]UHATSHPH}HuUMLӋEtH5QH=bEHC(H5E`bHuEHS HXEE}HMUHuHEHbEHHHDH%bHu H=e~aIHM؋UEIAH L4aE~HEHtHaEIډLc!LHtHaHC HXHC HC0H;H8HC0HS H0HC0H0HS0H8HC8_E`MaHuEԖHC(EԉE}HMUHuHEH`EЃ!HHHDH`Hu H=cP`IHMȋUЋEЃ!IAH !L`EЅ~HEHtH`EЃ!IډL5 LHtHy`HC(HC H(Ht=HC0H:H8HC0HS H0HC0H0HS0H8HC8/HU:H0HC(H(H(HC0H0HC8DeIcHvHC0HMHH_;IcHC0HMHH_IcĺH)HC0HIcHȾ H_HC0H`:H8HC0Hǀ0EHHS HTHUHJIډHHC HǀXBHP[A\]UHAWAVAUATSH8HMԋAtH5H=R^ALDDIHHHDH^Hu H=a]IŸIDLL?_۸HHcH=vHLHT^:HcHLH=^HcúH)HcHHȾ H^LHtH]HAH FHƿ]Ẽ}.ẼHt2=Ht"HHH5H=4\IHMHS}Ht/}Ht EHHH5H=B\ẼHt2=Ht"HHH5?H=P\Iȸ+E̺IHẼHH<HMHtHHHHѺHF\HMHQ~HHtH8\HMH>H8[A\A]A^A_]UHATSH0H}ȉuLӋ>tH5H=RB[>>tIھ&H= P t>HUȋEH։Q[HMȋUHuHEH=[EHHHDHN[Hu H=0^ZIHMUEIAH t L]ZE~HEHtHZEIډLLHtHZ}t%EHHH5JH=ZHUHE߹HR[E߈EE<3tR<3w <0t;<1t(S?HHHuHEHѺyHHeHTH8Dž@HEHDž HDžpDž4HHxDžDž0PH0HP>HHH0HHm>H0H">H>TH8Dž@HEHDž HDžpDž4HHxDžDž0PH0H=HHH0HH=H0H{=HSH8Dž@H\HxDž Dž0X4H0H =HHPHpH|HѺH=|HHHDH)=Hu H= @<IHp||IAH ;L/<|~HpHtH<|HHHDH<Hu H=?;HË|P|L ALHމ;LHtHM<HUHE Hx;HUHuHEHѺ H;|PEHHHDH;Hu H=>T;IHuM|P|xEIAHL;E~HEHtH;HHtH;|PEЃHHHDHd;Hu H=F>:HË|PE‹|HEȃL 9ALHމc:LHtH;|PEЃ HHHDH:Hu H==6:Iċ|PEЍP|HEȃ L A HL9HHtHw:HUHE H9HUHuHEHѺ H:|PEЍP EHHHDH:Hu H=<v9HHuM|PEЍP |xEx EIALHމ9E~HEHtH9LHtH9|PEЍP EЃHHHDHn9Hu H=P<8Iċ|PEЍP E‹|HEȍH EȃL AHL]8HHtH8|PEЍP EЃ$HHHDH8Hu H=;"8HË|PEЍP EЍP|HEȍH Eȃ$H($IALHމ7LHtHG8|PEЍP EЃ$H`HlHH7lH`H0HH7HHtH7l~H`HtH7H0Hi7HMH8Dž@HEHDž HDžpDž4HZHxDžDž0PH0H6HHH0HH7H0H6HLH8Dž@H\HxDž Dž0X4H0Hb6HHPH0H5Iċ2$ HHHDHp2Hu H=R51HË$ H($IAH Hމv1$P HHHH1HH0HH1HHtH1~HHtH1H0H^1H=gS1UHAUATSHLӋtH5{H=0H(GH8Dž@HEH`Dž04H0H0E̅HFHhDžpǃHHEDž` dH`H[0~Iھ H==CtH;FH8Dž@ǃHHPDž0 4H0H/HH0HH/H0H/~IھH=hsǃǃ8tSJHC`)JHCp4HHCxHCh HHHHHIHt-HHH?HHtHHH| gH9t 0HHHtAHHHHHHIĉȅt EvHCPHu,LEHHDHs.HuE=HCPHS.LEHHDH;.HuEEHCPHCXEE܃}~IھH=ǃǃD-ǃ8D88D928HHSpH9҅t"HSpHHH5/H=,HSxH9҅t"HSxHHH5/H=,HKPHSXHHHHHHHHHH%HHHHBH8Dž@ǃHHPDž0 4H0HZ,8HHSpH9҅t"HSpHHH5.H=+HSxH9҅t"HSxHHH5/H=ݸ+HKPHSXHHHHHHHHHHH0HH+H0H+~IھH=8D9tH5.H=e,+8D988D8HIH@t @u ǃtDttǃdTǃdH<HAH Hƿ*E؋E؃9EHt/}Ht EHHH5^H=)9EHt2=Ht"HHH5H=d)+E؃H…t|HcHw,HcЋE؃HHHHH HH*GU؃HcH°HHf.fHHPE؃HHHH H)u Htu LttTtu Ptu Xtu tHH `Hƿ(HHM t=/HH`IAH T'Hƿ)'H`HL TAHѺ)Hƿ>h'HH0L #A HѺ>HƿJ8'H0IھJH{H`H ZHƿ&H`HG t`7a)H`H`IAH +Hƿ-&H`HL NAHѺ-HƿBb&HH0L A HѺBHƿN2&H0IھNHut\tHuHE$A AHǸ%HUHE H%HEHH<@f<H<oH HуHt fHHуHt HHHHtHtfHtHHUHE H#HEHH%S@$SH!SmH HуHt HHHHtHtfHtHi$Id:i cocio.f9i0,v i2.8 i2011i/12/i23 2i0:39i:40 idan iExp i$HiHH HуHt HHуHt fHHуHt HHHHtHtfHtHHHH=$HH oHHHHH\HH=ޖ#HҗH oHHHHHHH=έ#H®H oHHHHHUHEйHƿ"Eԅ~IھH=E=y~Iھ%H=yH=fD" H[A\A]]UHSHXH}LӋtH5ٯH= "H^8HEEeHEǀHEHHEHHEEEHEEHEH!HE~Iھ#H=:HX[]UHATSHpH}LӋ+tH5bH=;!HE H}7HEEHEǀHEHHEHKHEEEHEEHEH HE u HEHEHEHPHuHEHѺH EHHHDH Hu H=#F IHMUEIAH LE~HEHtH EIډL+LHHk HEHPHuHEHѺH E܃ HHHDH Hu H=#xIHMЋU܋E܃ IAH L.E܅~HEHtHE܃ IډL{LHtHHE t t| HǃHp[A\]UHSHHLӋ3tH5"H=S H4HDžHǀHHH HH8Dž@HHPDžX HHxDžt Dž JHHHH~"HHIھ"H=dH1HH H[]UHATSH@HLӋDtH5+H=YTH  H$t\HEreplf@ac@eHEH @ @ HEwrit@eHEH @ f@ @ SHEfol@dHEH @ @ @ HEreadHEH @ @ H2HDžHǀHHHHHHDžHEHDžHEH8Dž4Dž CHHHHHHPHuHEHѺHẼHHHDHHu H=\IHMŰẼIAH LE̅~HEHtHẼIډLALHHHHPHuHEHѺH!E HHHDH2Hu H=IHMUE IAH M LAE~HEHtHE IډLLHtHH t` tt:tM`t/ uQHHH1HH,H1HHHHHoH@[A\]UHH`.LҋtH5H=¨_DžDžDžDžDžDžDžDž!ƅ HHHHHHHHHH@HHHHHPHHX`DžDžDžDžDžDžDžDžDžHHpHHxHHHHDžHHHH HH HHHHHHHH( a)HH @ HDžDžDžDžDžHH%HHDžHHHH HH HHHHHHH( a)HH @ HDžDžDžDžDžHH%HHDž HHHH HHHHHHH( a)HH @ HDžDžDžDžDžHH%HHHH%HHDžHHHH HH HHHHHDž( a:Dž i10ƅ)HDžDžDžDžDžHXH%HHDž HHHH HHHHHHH @ @ HDžDžDžDžDžHH%HHDžDžDžHDžHDžHHHHBHHBHHBHǂHHHHHǂHHHǂHǂHǂHǂHǂHǂHǂHǂHǂH[H HǂHBH8Hǂ0Hǂ(Hǂ HǂHHǂ@HH0Hǂ(HHB8HB0HB(HB HBHHB@HǂHǂPHfileHH @ @ @ @ @ f@ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHHHH HHHHHHDžHH5HHHHoHHHHHHtHHHDžHHHtHHHHDžHHlineHH @ @ @ @ @ f@ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHHH HHHHHEHH5 HHHH HHHHHHtHHHDžHHtHHHDžHdateHH @ @ @ @ @ f@ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHH HHHHHDžHH5!HHHH HHHHHHtHH HDžHHHtHHH HDžHHtimeHH @ @ @ @ @ f@ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHHH HHHHHEHH5G6HHHH26HHHHHHtHH HDžHHtHH HDžHcocoHH @ @ @ @ @ f@ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHH HHHHHDžHH5KHHHHqKHHHHHHtHH- HDžHHHtHHH HDžHHsetff@il@eHH @ @ @ @ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHHH HHHHHEHH5`HHHH`HHHHHHtHH?HDžHHtHHHDžHlogff@il@eHH @ @ @ @ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHHHH HHHHHDžHH5uHHHHuHHHHHHtHH4HDžHHHtHHHHDžHHoutpf@utHH @ @ @ @ @ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHHHHH HHHHHEHH5HHHHHHHHHHtHH,HDžHHtHHHDžHcmdlf@in@eHH @ @ @ @ @ HHpred@efinf@edHH)HH HfHHHHHHfHHDžDžHH(HH HHHDžHDžHHDžHDžHDžHHHH HHHHHDžHH5THHHH?HHHHHHtHH;HDžHHHtHHHHDžHUHH}HuHUEH։`H5KUÐ%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%hjh`h2VhRLhqBh8h.h$hh h/hOhjhhhhhhh/hJhjhhhzhphfh%\hJRhuHh>h4h*h hh h LYAS%IRecursive call to nonrecursive procedure '__copy_coco_Integer_t'At line 111 of file coco.f90Recursive call to nonrecursive procedure 'coco'Index '%ld' of dimension 1 of array 'source_file_list' below lower bound of %ldAt line 1334 of file coco.f90Index '%ld' of dimension 1 of array 'source_file_list' above upper bound of %ldMemory allocation failedAt line 1342 of file coco.f90Loop variable has been modifiedAt line 1328 of file coco.f90Recursive call to nonrecursive procedure '__copy_coco_Logical_t'Recursive call to nonrecursive procedure '__copy_coco_Macro_t'Recursive call to nonrecursive procedure '__copy_coco_Text_t'Recursive call to nonrecursive procedure 'check_key_chars_ok'At line 18306 of file coco.f90keysActual string length is shorter than the declared one for dummy argument '%s' (%ld/%ld)Recursive call to nonrecursive procedure 'get_cl_arg_check_len'At line 18233 of file coco.f90Recursive call to nonrecursive procedure 'get_log_value_from_cmdline'At line 18158 of file coco.f90Recursive call to nonrecursive procedure 'get_int_value_from_cmdline'At line 18083 of file coco.f90Recursive call to nonrecursive procedure 'get_log_value_from_setfile'At line 18000 of file coco.f90Recursive call to nonrecursive procedure 'get_int_value_from_setfile'At line 17917 of file coco.f90Recursive call to nonrecursive procedure 'valid_new_sf_name'At line 17818 of file coco.f90Substring out of bounds: upper bound (%ld) of 'string' exceeds string length (%ld)At line 17854 of file coco.f90Index '%ld' of dimension 1 of array 'predefined_macros' below lower bound of %ldAt line 17878 of file coco.f90Index '%ld' of dimension 1 of array 'predefined_macros' above upper bound of %ldAt line 17876 of file coco.f90Recursive call to nonrecursive procedure 'valid_new_cl_name'At line 17719 of file coco.f90At line 17755 of file coco.f90At line 17779 of file coco.f90At line 17777 of file coco.f90Recursive call to nonrecursive procedure 'valid_new_name'At line 17620 of file coco.f90At line 17656 of file coco.f90At line 17680 of file coco.f90At line 17678 of file coco.f90Recursive call to nonrecursive procedure 'format_time'At line 17575 of file coco.f90stringRecursive call to nonrecursive procedure 'format_date'At line 17530 of file coco.f90Recursive call to nonrecursive procedure 'to_lower'At line 17455 of file coco.f90Substring out of bounds: lower bound (%ld) of 'string' is less than oneAt line 17499 of file coco.f90Substring out of bounds: lower bound (%ld) of 'lc_str' is less than oneAt line 17503 of file coco.f90Substring out of bounds: upper bound (%ld) of 'lc_str' exceeds string length (%ld)At line 17507 of file coco.f90At line 17497 of file coco.f90Recursive call to nonrecursive procedure 'unquote_string'At line 17303 of file coco.f90Substring out of bounds: upper bound (%ld) of 'quoted_str' exceeds string length (%ld)At line 17347 of file coco.f90Substring out of bounds: lower bound (%ld) of 'quoted_str' is less than oneAt line 17400 of file coco.f90At line 17404 of file coco.f90Substring out of bounds: lower bound (%ld) of 'unquoted_str' is less than oneAt line 17406 of file coco.f90Substring out of bounds: upper bound (%ld) of 'unquoted_str' exceeds string length (%ld)At line 17428 of file coco.f90Recursive call to nonrecursive procedure 'seek_close_paren'At line 17216 of file coco.f90At line 17266 of file coco.f90At line 17264 of file coco.f90Recursive call to nonrecursive procedure 'replace_substring'At line 17055 of file coco.f90Substring out of bounds: lower bound (%ld) of 'mixed_case_str' is less than oneAt line 17135 of file coco.f90Substring out of bounds: lower bound (%ld) of 'lower_case_str' is less than oneAt line 17137 of file coco.f90Substring out of bounds: upper bound (%ld) of 'mixed_case_str' exceeds string length (%ld)At line 17141 of file coco.f90Substring out of bounds: upper bound (%ld) of 'lower_case_str' exceeds string length (%ld)At line 17144 of file coco.f90At line 17149 of file coco.f90At line 17151 of file coco.f90At line 17153 of file coco.f90At line 17155 of file coco.f90At line 17179 of file coco.f90At line 17183 of file coco.f90At line 17187 of file coco.f90At line 17189 of file coco.f90Substring out of bounds: lower bound (%ld) of 'primary_str' is less than oneAt line 16915 of file coco.f90Substring out of bounds: upper bound (%ld) of 'primary_str' exceeds string length (%ld)At line 16939 of file coco.f90At line 16949 of file coco.f90At line 16959 of file coco.f90At line 16965 of file coco.f90At line 16995 of file coco.f90At line 17023 of file coco.f90Substring out of bounds: lower bound (%ld) of 'expr_str' is less than oneAt line 16694 of file coco.f90Substring out of bounds: upper bound (%ld) of 'expr_str' exceeds string length (%ld)At line 16734 of file coco.f90At line 16744 of file coco.f90At line 16746 of file coco.f90At line 16760 of file coco.f90At line 16764 of file coco.f90coco.f90At line 16794 of file coco.f90Recursive call to nonrecursive procedure 'seek_log_primary'At line 16456 of file coco.f90Substring out of bounds: lower bound (%ld) of 'log_expr' is less than oneAt line 16512 of file coco.f90Substring out of bounds: upper bound (%ld) of 'log_expr' exceeds string length (%ld)At line 16538 of file coco.f90At line 16542 of file coco.f90At line 16546 of file coco.f90At line 16550 of file coco.f90At line 16564 of file coco.f90At line 16565 of file coco.f90At line 16566 of file coco.f90At line 16567 of file coco.f90At line 16568 of file coco.f90At line 16569 of file coco.f90At line 16570 of file coco.f90At line 16571 of file coco.f90At line 16572 of file coco.f90At line 16573 of file coco.f90At line 16574 of file coco.f90At line 16575 of file coco.f90Recursive call to nonrecursive procedure 'eval_rel_expr'At line 16177 of file coco.f90Substring out of bounds: upper bound (%ld) of 'rel_expr' exceeds string length (%ld)At line 16251 of file coco.f90Substring out of bounds: lower bound (%ld) of 'rel_expr' is less than oneAt line 16255 of file coco.f90At line 16263 of file coco.f90At line 16267 of file coco.f90At line 16275 of file coco.f90At line 16279 of file coco.f90At line 16287 of file coco.f90At line 16291 of file coco.f90At line 16299 of file coco.f90At line 16303 of file coco.f90At line 16311 of file coco.f90At line 16315 of file coco.f90At line 16357 of file coco.f90At line 16361 of file coco.f90At line 16369 of file coco.f90At line 16373 of file coco.f90At line 16381 of file coco.f90At line 16385 of file coco.f90At line 16393 of file coco.f90At line 16397 of file coco.f90At line 16405 of file coco.f90At line 16409 of file coco.f90At line 16417 of file coco.f90At line 16421 of file coco.f90At line 15914 of file coco.f90At line 15924 of file coco.f90At line 15926 of file coco.f90At line 15930 of file coco.f90At line 15932 of file coco.f90At line 15936 of file coco.f90At line 15938 of file coco.f90At line 15942 of file coco.f90At line 15944 of file coco.f90At line 15950 of file coco.f90At line 15986 of file coco.f90At line 15996 of file coco.f90At line 15998 of file coco.f90At line 16002 of file coco.f90At line 16004 of file coco.f90At line 16008 of file coco.f90At line 16010 of file coco.f90At line 16014 of file coco.f90At line 16016 of file coco.f90At line 16022 of file coco.f90At line 16056 of file coco.f90At line 16066 of file coco.f90At line 16068 of file coco.f90At line 16072 of file coco.f90At line 16074 of file coco.f90At line 16078 of file coco.f90At line 16080 of file coco.f90At line 16084 of file coco.f90At line 16086 of file coco.f90At line 16092 of file coco.f90Substring out of bounds: lower bound (%ld) of 'int_expr' is less than oneAt line 15685 of file coco.f90At line 15693 of file coco.f90Substring out of bounds: upper bound (%ld) of 'int_expr' exceeds string length (%ld)At line 15723 of file coco.f90At line 15731 of file coco.f90Recursive call to nonrecursive procedure 'integer_or_logical'At line 15403 of file coco.f90Recursive call to nonrecursive procedure 'get_next_macro'At line 15342 of file coco.f90Recursive call to nonrecursive procedure 'get_next_logical'At line 15286 of file coco.f90Recursive call to nonrecursive procedure 'get_next_integer'At line 15230 of file coco.f90Recursive call to nonrecursive procedure 'get_next_symbol'At line 15174 of file coco.f90Recursive call to nonrecursive procedure 'get_text_ptr'At line 15099 of file coco.f90Recursive call to nonrecursive procedure 'get_logical_value'At line 15003 of file coco.f90Recursive call to nonrecursive procedure 'get_integer_value'At line 14907 of file coco.f90Recursive call to nonrecursive procedure 'seek_sf_symbol_name'At line 14841 of file coco.f90Recursive call to nonrecursive procedure 'seek_cl_symbol_name'At line 14775 of file coco.f90Recursive call to nonrecursive procedure 'seek_symbol_name'At line 14709 of file coco.f90Recursive call to nonrecursive procedure 'process_symbols_directive'At line 14650 of file coco.f90Recursive call to nonrecursive procedure 'process_report_directive'At line 14591 of file coco.f90Recursive call to nonrecursive procedure 'process_options_directive'At line 14532 of file coco.f90Recursive call to nonrecursive procedure 'process_document_directive'At line 14414 of file coco.f90Index '%ld' of dimension 1 of array 'document_text' below lower bound of %ldAt line 14494 of file coco.f90Index '%ld' of dimension 1 of array 'document_text' above upper bound of %ldAt line 14498 of file coco.f90At line 14492 of file coco.f90Recursive call to nonrecursive procedure 'process_block_directive'At line 14222 of file coco.f90Substring out of bounds: upper bound (%ld) of 'block_stmt' exceeds string length (%ld)At line 14281 of file coco.f90At line 14285 of file coco.f90Substring out of bounds: lower bound (%ld) of 'block_stmt' is less than oneAt line 14311 of file coco.f90At line 14317 of file coco.f90At line 14331 of file coco.f90At line 14339 of file coco.f90At line 14347 of file coco.f90At line 14355 of file coco.f90At line 14363 of file coco.f90At line 14371 of file coco.f90At line 14379 of file coco.f90Recursive call to nonrecursive procedure 'get_copy_name'At line 14130 of file coco.f90Substring out of bounds: upper bound (%ld) of 'decl_stmt' exceeds string length (%ld)At line 14203 of file coco.f90Recursive call to nonrecursive procedure 'process_copy_directive'At line 13861 of file coco.f90Substring out of bounds: lower bound (%ld) of 'copy_dir' is less than oneAt line 13957 of file coco.f90Substring out of bounds: upper bound (%ld) of 'copy_dir' exceeds string length (%ld)At line 13979 of file coco.f90Substring out of bounds: lower bound (%ld) of 'asis_stmt' is less than oneAt line 13995 of file coco.f90Substring out of bounds: upper bound (%ld) of 'asis_stmt' exceeds string length (%ld)Allocatable actual argument 'text_ptr' is not allocatedAt line 14002 of file coco.f90Index '%ld' of dimension 1 of array 'text_ptr' below lower bound of %ldAt line 14026 of file coco.f90Index '%ld' of dimension 1 of array 'text_ptr' above upper bound of %ldAt line 14070 of file coco.f90At line 14076 of file coco.f90At line 14077 of file coco.f90At line 14024 of file coco.f90Recursive call to nonrecursive procedure 'verify_text_directive'At line 13683 of file coco.f90Substring out of bounds: upper bound (%ld) of 'text_stmt' exceeds string length (%ld)At line 13728 of file coco.f90At line 13732 of file coco.f90At line 13750 of file coco.f90At line 13760 of file coco.f90At line 13770 of file coco.f90At line 13784 of file coco.f90At line 13798 of file coco.f90At line 13812 of file coco.f90At line 13822 of file coco.f90Recursive call to nonrecursive procedure 'assign_text_value'At line 13351 of file coco.f90text_nameargs_arrayActual string length does not match the declared one for dummy argument '%s' (%ld/%ld)lines_arrayPointer actual argument 'current_file' is not associatedAt line 13533 of file coco.f90Index '%ld' of dimension 1 of array 'lines_array' below lower bound of %ldAt line 13624 of file coco.f90Index '%ld' of dimension 1 of array 'lines_array' above upper bound of %ldAt line 13622 of file coco.f90Index '%ld' of dimension 1 of array 'args_array' below lower bound of %ldAt line 13646 of file coco.f90Index '%ld' of dimension 1 of array 'args_array' above upper bound of %ldAt line 13652 of file coco.f90Substring out of bounds: upper bound (%ld) of 'search_str' exceeds string length (%ld)At line 13650 of file coco.f90At line 13658 of file coco.f90At line 13642 of file coco.f90Recursive call to nonrecursive procedure 'add_text'At line 13162 of file coco.f90Substring out of bounds: upper bound (%ld) of 'text_decl_str' exceeds string length (%ld)At line 13274 of file coco.f90At line 13288 of file coco.f90Substring out of bounds: lower bound (%ld) of 'text_decl_str' is less than oneAt line 13316 of file coco.f90Recursive call to nonrecursive procedure 'process_text_directive'At line 13075 of file coco.f90Substring out of bounds: lower bound (%ld) of 'text_dir' is less than oneAt line 13133 of file coco.f90Recursive call to nonrecursive procedure 'get_text_name'At line 12981 of file coco.f90At line 13054 of file coco.f90At line 13056 of file coco.f90Recursive call to nonrecursive procedure 'verify_macro_value'At line 12851 of file coco.f90arglistIndex '%ld' of dimension 1 of array 'arglist' below lower bound of %ldAt line 12919 of file coco.f90Index '%ld' of dimension 1 of array 'arglist' above upper bound of %ldAt line 12925 of file coco.f90At line 12917 of file coco.f90Recursive call to nonrecursive procedure 'verify_dummy_args'At line 12778 of file coco.f90arg_arrayIndex '%ld' of dimension 1 of array 'arg_array' outside of expected range (%ld:%ld)At line 12818 of file coco.f90Index '%ld' of dimension 1 of array 'arg_array' below lower bound of %ldAt line 12820 of file coco.f90Index '%ld' of dimension 1 of array 'arg_array' above upper bound of %ldAt line 12824 of file coco.f90At line 12826 of file coco.f90At line 12822 of file coco.f90Recursive call to nonrecursive procedure 'process_dummy_arglist'At line 12649 of file coco.f90Substring out of bounds: lower bound (%ld) of 'arglist' is less than oneAt line 12713 of file coco.f90Substring out of bounds: upper bound (%ld) of 'arglist' exceeds string length (%ld)At line 12711 of file coco.f90At line 12745 of file coco.f90At line 12749 of file coco.f90At line 12741 of file coco.f90Allocatable actual argument 'arg_array' is not allocatedAt line 12759 of file coco.f90Recursive call to nonrecursive procedure 'add_macro'At line 12452 of file coco.f90Substring out of bounds: upper bound (%ld) of 'mac_decl_str' exceeds string length (%ld)At line 12568 of file coco.f90At line 12582 of file coco.f90Substring out of bounds: lower bound (%ld) of 'mac_decl_str' is less than oneAt line 12618 of file coco.f90At line 12624 of file coco.f90Recursive call to nonrecursive procedure 'process_macro_declaration'At line 12376 of file coco.f90Substring out of bounds: lower bound (%ld) of 'mac_stmt' is less than oneAt line 12431 of file coco.f90Recursive call to nonrecursive procedure 'get_macro_name'At line 12282 of file coco.f90At line 12355 of file coco.f90At line 12357 of file coco.f90Recursive call to nonrecursive procedure 'process_assert_directive'At line 12064 of file coco.f90Substring out of bounds: upper bound (%ld) of 'assert_dir' exceeds string length (%ld)At line 12146 of file coco.f90Substring out of bounds: lower bound (%ld) of 'assert_dir' is less than oneAt line 12154 of file coco.f90At line 12166 of file coco.f90Substring out of bounds: upper bound (%ld) of 'edit_line' exceeds string length (%ld)At line 12188 of file coco.f90Substring out of bounds: lower bound (%ld) of 'edit_line' is less than oneAt line 12190 of file coco.f90At line 12208 of file coco.f90At line 12216 of file coco.f90At line 12218 of file coco.f90Substring out of bounds: upper bound (%ld) of 'line' exceeds string length (%ld)At line 12236 of file coco.f90Substring out of bounds: lower bound (%ld) of 'line' is less than oneAt line 12240 of file coco.f90At line 12248 of file coco.f90At line 12252 of file coco.f90Recursive call to nonrecursive procedure 'process_endif_directive'At line 11980 of file coco.f90Recursive call to nonrecursive procedure 'process_else_directive'At line 11894 of file coco.f90Recursive call to nonrecursive procedure 'process_elseif_directive'At line 11763 of file coco.f90Substring out of bounds: lower bound (%ld) of 'elseif_dir' is less than oneAt line 11839 of file coco.f90Substring out of bounds: upper bound (%ld) of 'elseif_dir' exceeds string length (%ld)At line 11863 of file coco.f90Recursive call to nonrecursive procedure 'process_if_directive'At line 11647 of file coco.f90Substring out of bounds: lower bound (%ld) of 'if_dir' is less than oneAt line 11702 of file coco.f90Substring out of bounds: upper bound (%ld) of 'if_dir' exceeds string length (%ld)At line 11724 of file coco.f90Recursive call to nonrecursive procedure 'delete_block'At line 11566 of file coco.f90Recursive call to nonrecursive procedure 'new_block'At line 11473 of file coco.f90Recursive call to nonrecursive procedure 'add_logical'At line 11283 of file coco.f90Substring out of bounds: upper bound (%ld) of 'log_decl_str' exceeds string length (%ld)At line 11406 of file coco.f90Recursive call to nonrecursive procedure 'process_logical_declaration'At line 11165 of file coco.f90Substring out of bounds: lower bound (%ld) of 'logical_stmt' is less than oneAt line 11234 of file coco.f90At line 11236 of file coco.f90Substring out of bounds: upper bound (%ld) of 'logical_stmt' exceeds string length (%ld)Substring out of bounds: lower bound (%ld) of 'symbol_str' is less than oneAt line 11244 of file coco.f90Substring out of bounds: upper bound (%ld) of 'symbol_str' exceeds string length (%ld)At line 11248 of file coco.f90Recursive call to nonrecursive procedure 'add_integer'At line 10981 of file coco.f90Substring out of bounds: upper bound (%ld) of 'int_decl_str' exceeds string length (%ld)At line 11104 of file coco.f90Recursive call to nonrecursive procedure 'process_integer_declaration'At line 10853 of file coco.f90Substring out of bounds: lower bound (%ld) of 'integer_stmt' is less than oneAt line 10932 of file coco.f90At line 10934 of file coco.f90Substring out of bounds: upper bound (%ld) of 'integer_stmt' exceeds string length (%ld)At line 10942 of file coco.f90At line 10946 of file coco.f90Recursive call to nonrecursive procedure 'get_symbol_name'At line 10757 of file coco.f90At line 10830 of file coco.f90At line 10834 of file coco.f90Recursive call to nonrecursive procedure 'process_message_directive'At line 10506 of file coco.f90Substring out of bounds: lower bound (%ld) of 'message_dir' is less than oneAt line 10585 of file coco.f90Substring out of bounds: upper bound (%ld) of 'message_dir' exceeds string length (%ld)At line 10595 of file coco.f90Substring out of bounds: lower bound (%ld) of 'msg_buffer' is less than oneAt line 10599 of file coco.f90At line 10603 of file coco.f90At line 10623 of file coco.f90At line 10639 of file coco.f90At line 10645 of file coco.f90At line 10655 of file coco.f90At line 10659 of file coco.f90At line 10665 of file coco.f90At line 10671 of file coco.f90At line 10675 of file coco.f90At line 10683 of file coco.f90Substring out of bounds: upper bound (%ld) of 'msg_buffer' exceeds string length (%ld)At line 10685 of file coco.f90At line 10699 of file coco.f90At line 10715 of file coco.f90At line 10721 of file coco.f90At line 10725 of file coco.f90Recursive call to nonrecursive procedure 'process_stop_directive'At line 10445 of file coco.f90Recursive call to nonrecursive procedure 'process_logical_assignment'At line 10371 of file coco.f90Recursive call to nonrecursive procedure 'process_integer_assignment'At line 10297 of file coco.f90Recursive call to nonrecursive procedure 'process_coco_statement'At line 9994 of file coco.f90Substring out of bounds: upper bound (%ld) of 'coco_stmt' exceeds string length (%ld)At line 10054 of file coco.f90At line 10058 of file coco.f90Substring out of bounds: lower bound (%ld) of 'coco_stmt' is less than oneAt line 10084 of file coco.f90At line 10090 of file coco.f90At line 10110 of file coco.f90At line 10118 of file coco.f90At line 10126 of file coco.f90At line 10134 of file coco.f90At line 10142 of file coco.f90At line 10150 of file coco.f90At line 10158 of file coco.f90At line 10166 of file coco.f90At line 10174 of file coco.f90At line 10182 of file coco.f90At line 10190 of file coco.f90At line 10198 of file coco.f90At line 10206 of file coco.f90At line 10214 of file coco.f90At line 10222 of file coco.f90At line 10230 of file coco.f90At line 10238 of file coco.f90At line 10246 of file coco.f90At line 10254 of file coco.f90At line 10262 of file coco.f90Recursive call to nonrecursive procedure 'blank_compress_lower_case'At line 9744 of file coco.f90Substring out of bounds: lower bound (%ld) of 'in_str' is less than oneAt line 9842 of file coco.f90Substring out of bounds: upper bound (%ld) of 'in_str' exceeds string length (%ld)At line 9874 of file coco.f90Substring out of bounds: lower bound (%ld) of 'out_str' is less than oneAt line 9884 of file coco.f90Substring out of bounds: upper bound (%ld) of 'out_str' exceeds string length (%ld)At line 9885 of file coco.f90At line 9902 of file coco.f90At line 9917 of file coco.f90At line 9923 of file coco.f90At line 9937 of file coco.f90At line 9938 of file coco.f90At line 9961 of file coco.f90Recursive call to nonrecursive procedure 'wrap_source_line'At line 9625 of file coco.f90Substring out of bounds: upper bound (%ld) of 'wrap_line' exceeds string length (%ld)At line 9695 of file coco.f90Substring out of bounds: lower bound (%ld) of 'wrap_line' is less than oneAt line 9699 of file coco.f90At line 9705 of file coco.f90At line 9709 of file coco.f90Recursive call to nonrecursive procedure 'process_actual_arglist'At line 9512 of file coco.f90dummy_argsIndex '%ld' of dimension 1 of array 'dummy_args' outside of expected range (%ld:%ld)At line 9588 of file coco.f90Index '%ld' of dimension 1 of array 'dummy_args' below lower bound of %ldAt line 9592 of file coco.f90Index '%ld' of dimension 1 of array 'dummy_args' above upper bound of %ldAt line 9596 of file coco.f90At line 9601 of file coco.f90Index '%ld' of dimension 1 of array 'actual_args' below lower bound of %ldAt line 9602 of file coco.f90Index '%ld' of dimension 1 of array 'actual_args' above upper bound of %ldRecursive call to nonrecursive procedure 'make_actual_array'At line 9369 of file coco.f90Substring out of bounds: lower bound (%ld) of 'actual_args' is less than oneAt line 9438 of file coco.f90Substring out of bounds: upper bound (%ld) of 'actual_args' exceeds string length (%ld)Index '%ld' of dimension 1 of array 'actual_array' below lower bound of %ldAt line 9464 of file coco.f90Index '%ld' of dimension 1 of array 'actual_array' above upper bound of %ldAt line 9468 of file coco.f90At line 9474 of file coco.f90Index '%ld' of dimension 1 of array 'actual_array' outside of expected range (%ld:%ld)At line 9478 of file coco.f90Recursive call to nonrecursive procedure 'edit_macro_strings'At line 9169 of file coco.f90At line 9257 of file coco.f90At line 9283 of file coco.f90At line 9299 of file coco.f90Allocatable actual argument 'macro_ptr' is not allocatedAt line 9300 of file coco.f90At line 9304 of file coco.f90At line 9305 of file coco.f90At line 9313 of file coco.f90Substring out of bounds: upper bound (%ld) of 'value_str' exceeds string length (%ld)At line 9314 of file coco.f90Substring out of bounds: upper bound (%ld) of 'lower_case_line' exceeds string length (%ld)At line 9316 of file coco.f90Substring out of bounds: lower bound (%ld) of 'lower_case_line' is less than oneAt line 9317 of file coco.f90At line 9321 of file coco.f90At line 9335 of file coco.f90Substring out of bounds: upper bound (%ld) of 'macro_ptr' exceeds string length (%ld)At line 9336 of file coco.f90Recursive call to nonrecursive procedure 'edit_logical_strings'At line 9049 of file coco.f90At line 9123 of file coco.f90At line 9145 of file coco.f90Recursive call to nonrecursive procedure 'edit_integer_strings'At line 8929 of file coco.f90At line 9005 of file coco.f90At line 9025 of file coco.f90Recursive call to nonrecursive procedure 'edit_coco_strings'At line 8838 of file coco.f90At line 8894 of file coco.f90At line 8897 of file coco.f90At line 8901 of file coco.f90At line 8902 of file coco.f90At line 8904 of file coco.f90At line 8905 of file coco.f90At line 8906 of file coco.f90At line 8892 of file coco.f90Recursive call to nonrecursive procedure 'edit_source_line'At line 8742 of file coco.f90Recursive call to nonrecursive procedure 'seek_include_file'At line 8632 of file coco.f90Recursive call to nonrecursive procedure 'process_endfile_directive'At line 8367 of file coco.f90Recursive call to nonrecursive procedure 'add_number_to_line'At line 8274 of file coco.f90output_lineSubstring out of bounds: upper bound (%ld) of 'output_line' exceeds string length (%ld)At line 8346 of file coco.f90Recursive call to nonrecursive procedure 'write_source_line'At line 8188 of file coco.f90Pointer actual argument 'this_file' is not associatedAt line 8225 of file coco.f90Recursive call to nonrecursive procedure 'write_coco_line'At line 8042 of file coco.f90Recursive call to nonrecursive procedure 'is_coco_statement'At line 7965 of file coco.f90At line 8013 of file coco.f90Recursive call to nonrecursive procedure 'gather_coco_statement'At line 7849 of file coco.f90Substring out of bounds: lower bound (%ld) of 'statement' is less than oneAt line 7918 of file coco.f90Substring out of bounds: upper bound (%ld) of 'statement' exceeds string length (%ld)Recursive call to nonrecursive procedure 'add_sf_logical'At line 7391 of file coco.f90At line 7509 of file coco.f90Recursive call to nonrecursive procedure 'process_sf_logical_declaration'At line 7277 of file coco.f90At line 7342 of file coco.f90At line 7344 of file coco.f90Substring out of bounds: upper bound (%ld) of 'symbol_name' exceeds string length (%ld)At line 7352 of file coco.f90At line 7356 of file coco.f90At line 7360 of file coco.f90Recursive call to nonrecursive procedure 'add_sf_integer'At line 7107 of file coco.f90At line 7221 of file coco.f90Recursive call to nonrecursive procedure 'process_sf_integer_declaration'At line 6983 of file coco.f90At line 7058 of file coco.f90At line 7060 of file coco.f90At line 7068 of file coco.f90At line 7072 of file coco.f90At line 7076 of file coco.f90Recursive call to nonrecursive procedure 'get_sf_symbol_name'At line 6887 of file coco.f90At line 6960 of file coco.f90At line 6964 of file coco.f90Recursive call to nonrecursive procedure 'process_wrap_directive'At line 6803 of file coco.f90Recursive call to nonrecursive procedure 'process_verbose_directive'At line 6719 of file coco.f90Recursive call to nonrecursive procedure 'process_summary_directive'At line 6635 of file coco.f90Recursive call to nonrecursive procedure 'process_post_directive'At line 6551 of file coco.f90Recursive call to nonrecursive procedure 'process_output_directive'At line 6438 of file coco.f90Recursive call to nonrecursive procedure 'process_number_directive'At line 6354 of file coco.f90Recursive call to nonrecursive procedure 'process_mark_directive'At line 6270 of file coco.f90Recursive call to nonrecursive procedure 'process_logfile_directive'At line 6157 of file coco.f90Recursive call to nonrecursive procedure 'process_key_directive'At line 6078 of file coco.f90Substring out of bounds: upper bound (%ld) of 'key_dir' exceeds string length (%ld)At line 6132 of file coco.f90Recursive call to nonrecursive procedure 'process_input_directive'At line 5973 of file coco.f90Recursive call to nonrecursive procedure 'add_directory'At line 5877 of file coco.f90Recursive call to nonrecursive procedure 'seek_directory'At line 5807 of file coco.f90Recursive call to nonrecursive procedure 'process_directory_directive'At line 5709 of file coco.f90Recursive call to nonrecursive procedure 'process_form_directive'At line 5605 of file coco.f90Substring out of bounds: upper bound (%ld) of 'form_dir' exceeds string length (%ld)At line 5662 of file coco.f90At line 5668 of file coco.f90Substring out of bounds: lower bound (%ld) of 'form_dir' is less than oneAt line 5686 of file coco.f90Recursive call to nonrecursive procedure 'process_alter_directive'At line 5465 of file coco.f90Recursive call to nonrecursive procedure 'process_set_statement'At line 5270 of file coco.f90Substring out of bounds: upper bound (%ld) of 'set_stmt' exceeds string length (%ld)At line 5304 of file coco.f90At line 5312 of file coco.f90At line 5320 of file coco.f90At line 5328 of file coco.f90At line 5336 of file coco.f90At line 5344 of file coco.f90At line 5352 of file coco.f90At line 5360 of file coco.f90At line 5368 of file coco.f90At line 5376 of file coco.f90At line 5384 of file coco.f90At line 5392 of file coco.f90At line 5400 of file coco.f90At line 5408 of file coco.f90At line 5416 of file coco.f90At line 5424 of file coco.f90At line 5432 of file coco.f90Recursive call to nonrecursive procedure 'copy_set_file'At line 5190 of file coco.f90Recursive call to nonrecursive procedure 'process_set_file'At line 5011 of file coco.f90Recursive call to nonrecursive procedure 'seek_set_file'At line 4886 of file coco.f90Recursive call to nonrecursive procedure 'write_symbols'At line 4596 of file coco.f90At line 4636 of file coco.f90At line 4638 of file coco.f90At line 4640 of file coco.f90At line 4642 of file coco.f90At line 4645 of file coco.f90At line 4634 of file coco.f90Index '%ld' of dimension 1 of array '__tmp_type_macro_t' below lower bound of %ldAt line 4794 of file coco.f90Index '%ld' of dimension 1 of array '__tmp_type_macro_t' above upper bound of %ldAt line 4792 of file coco.f90Index '%ld' of dimension 1 of array '__tmp_type_text_t' below lower bound of %ldAt line 4830 of file coco.f90Index '%ld' of dimension 1 of array '__tmp_type_text_t' above upper bound of %ldAt line 4828 of file coco.f90At line 4846 of file coco.f90At line 4844 of file coco.f90Recursive call to nonrecursive procedure 'write_report'At line 4421 of file coco.f90At line 4487 of file coco.f90At line 4484 of file coco.f90Recursive call to nonrecursive procedure 'write_options'At line 4235 of file coco.f90Index '%ld' of dimension 1 of array 'alter_labels' below lower bound of %ldAt line 4290 of file coco.f90Index '%ld' of dimension 1 of array 'alter_labels' above upper bound of %ldRecursive call to nonrecursive procedure 'process_cmdline_directive'At line 4177 of file coco.f90Recursive call to nonrecursive procedure 'process_wrap_option'At line 4113 of file coco.f90Recursive call to nonrecursive procedure 'process_verbose_option'At line 4054 of file coco.f90Recursive call to nonrecursive procedure 'process_set_file_option'At line 3987 of file coco.f90Recursive call to nonrecursive procedure 'process_report_option'At line 3928 of file coco.f90Recursive call to nonrecursive procedure 'process_postpend_option'At line 3869 of file coco.f90Recursive call to nonrecursive procedure 'process_number_option'At line 3810 of file coco.f90Recursive call to nonrecursive procedure 'process_mark_option'At line 3751 of file coco.f90Recursive call to nonrecursive procedure 'process_log_file_option'At line 3680 of file coco.f90Recursive call to nonrecursive procedure 'process_key_option'At line 3601 of file coco.f90Substring out of bounds: upper bound (%ld) of 'key_opt' exceeds string length (%ld)At line 3655 of file coco.f90Recursive call to nonrecursive procedure 'process_include_option'At line 3503 of file coco.f90Recursive call to nonrecursive procedure 'print_help'At line 3428 of file coco.f90Index '%ld' of dimension 1 of array 'options_msg' below lower bound of %ldAt line 3484 of file coco.f90Index '%ld' of dimension 1 of array 'options_msg' above upper bound of %ldRecursive call to nonrecursive procedure 'process_fixed_option'At line 3369 of file coco.f90Recursive call to nonrecursive procedure 'add_cl_logical'At line 3256 of file coco.f90Recursive call to nonrecursive procedure 'add_cl_integer'At line 3139 of file coco.f90Recursive call to nonrecursive procedure 'process_define_option'At line 3044 of file coco.f90Substring out of bounds: upper bound (%ld) of 'decl_string' exceeds string length (%ld)At line 3100 of file coco.f90Substring out of bounds: lower bound (%ld) of 'decl_string' is less than oneAt line 3104 of file coco.f90Recursive call to nonrecursive procedure 'process_alter_option'At line 2894 of file coco.f90Substring out of bounds: upper bound (%ld) of 'alter_opt' exceeds string length (%ld)At line 2979 of file coco.f90Recursive call to nonrecursive procedure 'getopt'At line 2749 of file coco.f90Substring out of bounds: lower bound (%ld) of 'optstring' is less than oneAt line 2842 of file coco.f90Substring out of bounds: upper bound (%ld) of 'optstring' exceeds string length (%ld)Recursive call to nonrecursive procedure 'process_command_line'At line 2368 of file coco.f90Substring out of bounds: upper bound (%ld) of 'output_file' exceeds string length (%ld)At line 2708 of file coco.f90At line 2716 of file coco.f90At line 2724 of file coco.f90At line 2712 of file coco.f90Recursive call to nonrecursive procedure 'msg_continue'At line 2295 of file coco.f90Recursive call to nonrecursive procedure 'msg_quit'At line 2190 of file coco.f90Recursive call to nonrecursive procedure 'set_option_defaults'At line 1918 of file coco.f90At line 2027 of file coco.f90At line 2029 of file coco.f90At line 2025 of file coco.f90Substring out of bounds: lower bound (%ld) of 'output_file' is less than oneAt line 2081 of file coco.f90Recursive call to nonrecursive procedure 'close_scratch'At line 1867 of file coco.f90Recursive call to nonrecursive procedure 'close_file'At line 1792 of file coco.f90Recursive call to nonrecursive procedure 'open_scratch'At line 1733 of file coco.f90Recursive call to nonrecursive procedure 'open_file'At line 1604 of file coco.f90Recursive call to nonrecursive procedure 'initialize_coco'At line 1421 of file coco.f90?? End of file - next file is coco normal exit?~`@#$^{}|\:can't get command argument lengthcommand line argument too longtype mismatch command line versus source: parameter mismatch set file versus source file: type mismatch set file versus source: abcdefghijklmnopqrstuvwxyzillegal initial character in name: abcdefghijklmnopqrstuvwxyz0123456789_illegal character in name: set file attempt to redefine a predefined macro: attempt to declare duplicate set file name: command line attempt to redefine a predefined macro: attempt to declare duplicate command line name: attempt to redefine a predefined macro: attempt to declare duplicate name: :/ .not..true..false.bad logical literal: unmatched parenthesis: bad logical primary: 0123456789(i10)can't decode: bad integer expression: .or..and..eqv..neqv..eq..ne..lt..le..ge..gt.==/=<<=>=>unbalanced parenthesis in expression: .no relational operator (.eq., .ne., .gt., .ge., .le., .lt.): no relational operator (==, /=, >, >=, <=, <): unknown logical operator: unknown arithmetic operator: .<>=+-*/\can't classify: unknown text: text::logical not defined: unknown logical: integer not defined: unknown integer: extra characters at end of symbols directive: extra characters at end of report directive: extra characters at end of options directive: extra characters at end of document directive: ?=assignment variable must be an integer or a logical: stopmessageif(elseif(elseendifasserterror: unknown block directive: (can't find name in copy statement: no actual arguments for text: (can't find close parenthesis in copy directive: ,no dummy arguments for text: ?? ! text ???? ! end text illegal directive in text block: read text failed: end of file encountered within text blockwrite text file failed: endtextsource line in continued coco statement in text text block has no lines allocate text block failedrewind text scratch file failedread text scratch file failed dummy arg not found in text can't allocate text: can't allocate first text: )bad text dummy argument list: can't aloocate text actual args array: text actual args declared to need parens but no dummy args: extra characters at end of text declaration: can't find name in text statement: macro has null valuemacro argument unused: macro definition has name already defined: found duplicated dummy argument name: allocate dummy argument list failed: ,can't allocate macro: can't allocate first macro: bad macro dummy argument list: can't aloocate macro actual args array: macro actual args declared to need parens but no dummy args: a macro definition must have an equals sign: =(can't find name in macro declaration: can't find open parenthesis: can't find close parenthesis in assert directive: can't find condition in assert directive: extra characters after assert condition: if( .not. )thenwrite( unit= *, fmt= *) "assertion failed: : : " // "stop "assertion failed"end ifend if outside any if construct: end if badly nested in text block: end if badly nested in include file: extra characters after end if directive: else outside if construct: else after else: else badly nested in text block: else badly nested in include file: extra characters after else directive: else if outside if construct: else if after else: else if badly nested in text block: else if badly nested in include file: no 'then' in else if directive: extra characters after else if directive: no 'then' in if directive: extra characters after if directive: blocks bested badlydeallocate block failedallocate block failedcan't allocate logical: can't allocate first logical: an logical constant must have a value: non constant expression used to define logical constant: , can't allocate integer: can't allocate first integer: an integer constant must have a value: non constant expression used to define integer constant: = can't find name in declaration: bad message string: can't encode: bad message list item: ( a)coco message: coco stop directive encountered: coco stop directive encounteredattempt to redefine a constant: target of assignment must be type integer or logical: integer::integer,parameter::logical::logical,parameter::macro::macro,parens::cmdlinedocumentoptionsreportsymbolstext::text,parens::copy::unknown coco directive: & &can't find close parenthesis in actual argument list: macro args missing: can't find close parenthesis on line to be edited: edit logical symbol not defined: edit integer symbol not defined: can't inquire include file: null include file name: badly quoted include file name: can't find include file: ??! include ??! end include extra characters after endfile directive: ! error writing source output: !!?>null statement encountered in continuation sequencetoo many continuationscan't read input file: end of file encountered in a continued coco statementincludeinclude line cannot be continuedendfileendfile line cannot be continuedsource line encountered in a continued coco statementbadly nested if-block at end of file: can't allocate first set filelogical: a set file logical constant must have a value: can't allocate set file integer: can't allocate first set file integer: a set file integer constant must have a value: non constant expression used to define set file integer constant: can't find name in set file declaration: too many wrap statementsonoffunknown option on wrap directive: too many verbose statementsunknown option on verbose directive: too many report statementsunknown option on report directive: too many post statementsunknown option on post directive: too many output statementsnull name found on output directive: badly quoted name found on output directive: command line overrides set file, output directive ignored: too many number statementsunknown option on number directive: too many mark statementsunknown option on mark directive: too many log file statementsnull name found on log file directive: badly quoted name found on log file directive: command line overrides set file, log file directive ignored: too many keys statementsextra characters at end of key directive: null name found on input directive: badly quoted name found on input directive: command line overrides set file, input directive ignored: can't append to include path list: can't start path list: null directory name: badly quoted directory name: redundant include directory ignored: too many form statementsfreefixedbad form: extra characters after form directive: too many alter statementsunknown alter directive: alter:directoryform:inputkeys:logfilemark:number:post:outputreport:verbose:wrap:unknown set file directive: can't copy set filecan't read set file: end of file encountered within a continuation sequencesource lines are not allowed in the set filecan't inquire set file named on command line: can't inquire set file: coco.setcan't inquire default set file: coco.setpredefined symbolsname: value: referenced in file: at line: never referencednext symboldeclared in file: notype: logical constantvariablevalue: .true.value: .false.defined in file: value: type: integer ( a: i10)type: macro with arguments in parenthesistype: macro with argumentsdummy arguments: type: macrotype: text with arguments in parenthesistype: text with argumentstype: textblock:error: type is unknownend symbolscoco executed: set file: output: NOinput:input: include path: .( a: i0: a)files read: include files read: set lines read: coco lines read: source lines read: source lines written: selected source lines: elided source lines: text blocks read: text lines read: text lines written: coco options:alter state causes lines to be postpending set file not postpending set file the left argument key: "" the right argument key: "extra characters at end of cmdline directive: coco command line: too many wrap options on command linetoo many verbose options on command linetoo many set file options on command linetoo many report options on command linetoo many postpend options on command linetoo many number options on command linetoo many mark options on command linetoo many log file options on command linetoo many -k optionssnull name passed to -I optionbadly quoted name passed to -I optionusage: coco [ -V | -h | [[ opts ] [--] [ basename | output input [...]]]too many fixed options on command linecan't allocate -D integer: can't allocate first -D integer: too many alter options on command linegarbled -a option: unknown -a option: a:D:FhI:k:l:mnprs:vVw $Id: coco.f90,v 2.8 2011/12/23 20:39:40 dan Exp $coco error exitfilename too long: .fpp.f90.setcan't allocate input file arrayset file name too long: coco message: file: , line: coco error: file: , iostat: coco error: can't rewind input list tmp filecan't read input name tmp filecan't allocate input file listcan't read input list tmp file.funusable key characters from set file: must be chosen from unusable key characters from command line: can't access the command linecommand line too long for macro valuedeletecan't close scratch file: keepcan't close file: closed file: scratchunformattedreadwritecan't open scratch file: can't open file: opened file: blankshift0shift1shift3zRx 4$c ^ 4T$ 4*c ^ 4*  4z,  44.  4lM/  </  <H2  <$4  <dW7  < :D  6 < >D  6 <$BD  6 4dFS N 40GS N 4KH, ' < ?K  4LP  <R   <b"    <~l%    <Dcx   <0   <!   4 u <<   4|z u 4 z u 4Lz u 4$  4\  <mo c <o c 4  4LO  4  <W@ 4 <W@ 4 << W@ 4 <| W  < h \ <   <<   <| k  < < t < ]   N 4< &  <t _ S <  u < #   <4 )   <t 01   4 ?  < w@_ S <, B  <l X| p < ?[ v < _   <,f   4lj   4{k  <El    <v   <\y    <T   <Ɇ_ S <I 4 <\  <a  <Р  <?B 6 4\A   <   <]  <v  a <T9#  <   <1    <  <TA  <}  l <U  F <3 | <T{e  V <   </    4  4L~  <   <o    <5"   <D%   <.   <x2_ S <4 | <D5 | <'7 | <o8 | <9   <D0= | <x> | <?   <9H9R9\9f9p9z9999999999 +` `L` +Zb0  ) ` r??yM@ -a ? set alter state, ? = { b, d, 0, 1, 3} -D name[=n] provide integer =n or logical true value -F treat source as fixed form source -h print this help message and quit -k cc sets the left and right key characters to cc -I directory/ search directory for include files (after .) -l log-file write log messages to log-file (default stderr) -m mark subsequent input files in the output file -n print line numbers on source lines -p disable the copy of set file at end of output -r print summary report at end of processing -s set-file read set-file as the set file (default coco.set) -v report file opening and closing -V print coco version and quit -w disable line wrapping -- optionally separate options from source file names! ! Preprocessor executed: ?date? ?time?! ! Preprocessor command line: ?cmdline?! Preprocessor set file: ?setfile? ! Preprocessor log file: ?logfile? ! Preprocessor version: ! ?coco? ! ! Source file: ?file? line: ?line? ! Compile file: ?output? ! deleted blank line initial ! shifted 1 + ! shifted 3 + !?> Pww||"UB`%0SASASAS0 Q@dyld_stub_binderQr8rH@__gfortran_adjustlrP@__gfortran_adjustrrX@__gfortran_compare_stringr`@__gfortran_concat_stringrh@__gfortran_date_and_timerp@__gfortran_get_command_argument_i4rx@__gfortran_get_command_i4r@__gfortran_iargcr@__gfortran_os_errorr@__gfortran_runtime_error_atr@__gfortran_select_stringr@__gfortran_set_argsr@__gfortran_set_optionsr@__gfortran_st_closer@__gfortran_st_inquirer@__gfortran_st_openr@__gfortran_st_readr@__gfortran_st_read_doner@__gfortran_st_rewindr@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_string_indexr@__gfortran_string_len_trimr@__gfortran_string_scanr@__gfortran_string_trimr@__gfortran_string_verifyr@__gfortran_transfer_characterr@__gfortran_transfer_character_writer@__gfortran_transfer_integerr@__gfortran_transfer_integer_writer@_exitr@_freer@_mallocr@_memcpyr@_memmover@_memset_ startK_'mainPNXArgVenvironjmh_execute_headerG_prognamep# c^vd#<c c ! 9>zzz / + *     `%# 2.JGR+nr(!#8&Y)q-12u679G<AC\T,~^CjZzn¶A@4>3lKeSO4He}_ #&*6j9V_:k<kRUiZbfg"h4*rVuhIW<\Qs-^&q>^C~0 y /' 5%L <)a 12 86 8 : ; /= >8 pBW Ct E 

Dan Nagle's Technical Site

Program CoCo

Home --> Fact Sheet --> Free Source Code --> CoCo

About the Program CoCo

Go directly to Downloads

Go directly to Standard CoCo

Go directly to The CoCo Set File

Go directly to Using CoCo

Go directly to Using CoCo Topics

Go directly to Extensions to the Standard CoCo

Go directly to An Example of Using CoCo

CoCo provides preprocessing as per Part 3 of the Fortran Standard (CoCo is short for "conditional compilation"). It implements the auxiliary third part of ISO/IEC 1539 (better known as Programming Languages- Fortran), and supports several extensions. (Part 1 of the standard defines the Fortran Language proper. Part 2 is the ISO_VARYING_STRINGS standard, which is sometimes implemented as a module.) A restore program, similar to that described in the CoCo standard, is also available for download.

Note that Part 2 and Part 3 of the Fortran Standard have been withdrawn. Neither is available from ISO or ANSI. Either may be available from an alternate source, for example, from Bitsavers, or a similar site.

Generally, CoCo programs are interpreted line by line. A line is either a CoCo line or a source line. Lines that start with the characters "??" in columns 1 and 2 are CoCo lines. All other lines are expected to be Fortran source lines (of course, the other lines need not actually be Fortran source lines, but they are called source lines in the discussion on this page). Except for the "??" characters in columns 1 and 2, CoCo lines follow the same rules as Fortran free form lines. Like Fortran free form lines, CoCo lines are continued by placing an "&" as the last character of the line to be continued. A CoCo comment is any text following a "!" following the "??" characters. A CoCo comment may not follow the "&" used to continue a quoted string onto the next line. Text in CoCo lines may appear in upper case or lower case interchangeably, CoCo preserves case in CoCo lines written to the output file and ignores case in source lines. Either single quotes or double quotes may be used to delimit strings. CoCo directives are rendered in upper case on this page for clarity, and because the standard document uses upper case.

CoCo directives may define integer constants and variables, and logical constants and variables. CoCo uses a strong type system, which means that integer symbols and logical symbols are not interchangable. The distinction between constants and variables provides a further level of control. Conditional compilation is effected by CoCo IF blocks, which start with CoCo IF directives. The conditions are determined by CoCo logical expressions, which may include relational operations between CoCo integer expressions. CoCo if-blocks function analogously to Fortran if-blocks, with IF, ELSE IF, ELSE and END IF directives. CoCo if-blocks select which lines will be passed to the output source file for compilation. An INCLUDE directive is also available so preprocessing may be applied to the included lines as well. The complete set of standard directives are listed further down this page.

As implemented here, a one invocation of CoCo reads one or more input source files and writes one output source file to be compiled. A short example of a CoCo program follows, the lines with initial "??" are the CoCo lines, lines without the initial "??" are Fortran source lines:

?? ! used to choose whether the intrinsic module sets stdout
?? logical, parameter :: has_intrinsic_module = .false.

program hello_world

?? ! use number or asterisk
?? if( has_intrinsic_module )then
!  output_unit is stdout
use, intrinsic :: iso_fortran_env, only: output_unit

write( unit= output_unit, fmt= *) 'Hello, world!'
?? else
!  * is stdout
write( unit= *, fmt= *) 'Hello, world!'
?? endif

stop

end program hello_world

Above, lines starting with "?? !" are CoCo comments (lines starting with "!" are, of course, Fortran comments), has_intrinsic_module is a CoCo logical constant given the value false, and the CoCo IF block is used to select which of two sets of source lines supplies the Fortran comment and write statement. If the above example is contained in a file named hello_world.fpp, then a command line coco hello_world produces hello_world.f90 with unit * written. A command line coco -Dhas_intrinsic_module hello_world produces hello_world.f90 with unit output_unit written. (The -D option changes the value of has_intrinsic_module. See command line options for more.)

The Portability Project and CoCo

The make_processor_model program optionally creates an include file of symbol definitions which may be used by CoCo programs to control the conditional compilation according to the processor dependencies of a particular compiler. The programmer may then write programs with code supporting all kinds available on all processors of interest, and use CoCo to select source code suitable for each processor. The other software of the Portability Project can provide constants giving the kind values within the programs. This include file, conventionally named coco.inc, contains the CoCo symbol definitions written by make_processor_model and may be included in the Fortran source file via the CoCo include directive, or the programmer may manually copy-and-paste its contents into the CoCo program. The definitions in coco.inc are consistent with the definitions in the processor_dependencies module, written by the same execution of make_processor_model. This means that a programmer may base CoCo's preprocessing decisions automatically on the processor dependent kinds actually supported by the processor being used, and automatically use the correct values via the names in the processor_dependencies module.

Back to the Top

Standard CoCo

A CoCo program consists of CoCo lines and source lines. The source lines comprise the Fortran program proper. The CoCo lines direct CoCo in preprocessing the program. A CoCo program may have an optional set file associated with it. The set file may be used to control what CoCo does with CoCo lines and with source lines which are not intended to be part of the output source code. Some directives may appear only in the set file, some may appear only with the source code, and some may appear in either. The set file may define CoCo symbols and if so, the set file values override the value contained in the program definition. The definitions must match, however, as far as type and whether the symbol is a constant (this keeps a CoCo program self-contained and self-consistent). As an extension, the set file also allows the programmer to set some values that may also be set by command line options in case CoCo doesn't have access to the command line on your processor.

The standard CoCo directives are the INCLUDE directive, INTEGER and LOGICAL declarations and assignments, IF/ELSE IF/ELSE/END IF directives, and MESSAGE and STOP directives. An integer or logical variable may be given a value where declared, and if so, it may be declared to be a constant. Any directive may appear in upper case or lower case interchangeably. Names of CoCo symbols are interpreted without regard to case.

A source line in the input is said to be active when it is selected to appear in the output as a source line (that is, not as a comment). A line not selected to appear in the output as a source line is said to be inactive. The fate of inactive source lines and CoCo lines is controlled by the ALTER directive in the set file. Active lines and inactive lines are selected by CoCo IF blocks, analogously to the selection of executed statements by Fortran IF blocks.

The standard CoCo directives are described on the list below:

  • ?? INCLUDE 'file-name'

    The INCLUDE directive is replaced in the output by the contents of the named file. There must not be a comment after the file name.

    The file name may appear in single quotes or double quotes. The include directive may not be continued onto subsequent lines. Depending on the mode selected by the ALTER directive, the include file's contents may be marked in the output source file with INCLUDE and END INCLUDE comments identifying the file included.

  • ?? INTEGER [, PARAMETER ] :: name [ = expression ] [, name [ = expression ] ] ...

    The INTEGER directive declares one or more integer variables with the names given; the values are assigned if the expressions are present. A value must be assigned before the variable may be used. If the PARAMETER attribute is present, the expressions must be as well, and the names are the names of constants and may not be assigned value subsequently in any source file. An integer declaration in the set file must supply a value for either a constant or a variable.

  • ?? LOGICAL [, PARAMETER ] :: name [ = expression ] [, name [ = expression ] ] ...

    The LOGICAL directive declares one or more logical variables with the names given, the values are assigned if the expressions are present. A value must be assigned before the variable may be used. If the PARAMETER attribute is present, the expressions must be as well, and the names are the names of constants and may not be assigned value subsequently in any source file. A logical declaration in the set file must supply a value for either a constant or a variable.

  • ?? IF( logical-expression )THEN

    Introduces an if-block, the if-block must be closed by an END IF directive.

    If-blocks function analogously to Fortran if-blocks. Lines in the block following the IF or ELSE IF directive with the first true expression are active (copied to the output as source lines), lines following other IF or ELSE IF directives in a block are inactive (are not copied to the output as source lines). Lines following the ELSE directive are active if none of the logical expressions on the preceding IF or ELSE IF directives in the block evaluated to true.

  • ?? ELSE IF( logical-expression )THEN

    Introduces an elseif portion of an if-block. The logical expression is evaluated to see whether it is true, the lines following the first true expression encountered in an if-block are active. There may optionally be whitespace between the ELSE and the IF.

  • ?? ELSE

    This directive must follow all ELSEIF directives in an if-block. The lines following an ELSE directive are active if no other lines within the if-block were. If no ELSE directive is present in an if-block and no expression evaluates to true, no lines from the block are active.

  • ?? END IF

    Ends an if-block. There may optionally be whitespace between the END and the IF.

  • ?? MESSAGE [ item [, item ] ... ]

    Each item is a quoted string or an expression whose value is printed to the log file, or to stderr.

  • ?? STOP

    Causes CoCo processing to halt. A message is printed to the log file, or to stderr.

  • ?? name = expression

    Assigns a new value to the integer or logical variable whose name appears on the left side of the equals.

    The expression may be a literal value (for example, 42 or .true.), a CoCo variable, or a CoCo expression using CoCo operators (+, -, *, / with integers; .and., .or., .eqv., .neqv., .not. with logical operands; relational .eq.,==, .ne., /=, .lt., <, .le., <=, .ge., >=, and .gt., > produce a logical result between integer operands). The usual Fortran precedence rules apply. Parentheses are honored. As an extension, the \ character is treated as a modulus operator, with the precedence of the multiply operator and the division operator.

  • ?? ! [ commentary ]

    Is ignored by CoCo and may be used to document the CoCo program, as with any CoCo line its fate is set by the ALTER directive. A CoCo comment may appear on any CoCo directive (except the INCLUDE directive or when continuing a quoted string) following a ! character. A line which is blank after the ?? characters is considered to be a comment.

The name and name=expression forms of the integer variable and logical variable declarations may be mixed; a name declared to be a constant, of course, must be supplied with a value. A declaration in the set file must have a value, the purpose of the set file declaration (or a command line value) is to supply alternative initial values.

All the statements comprising an if construct must appear in the same source file and CoCo directives in blocks not appearing in the output must be well formed directives. This implementation does minimal checking of directives in inactive lines. Input lines in TEXT blocks are treated similarly. An if block within a text block is interpreted during execution of the COPY directive.

An example CoCo program follows. As in the example above, there are CoCo comments, CoCo lines, Fortran comments and Fortran source lines:

?? ! the logical variable will be used
?? ! to choose whether to use array syntax
?? ! or explicit loops
?? logical :: array_syntax

?? ! suppose the compiler is either v1.0 or v2.0
?? ! the integer variable here supplies
?? ! the default value here and might be overridden
?? ! by a value from the set file or command line
?? integer, parameter :: version = 20

?? ! which version selects whether array syntax is used
?? if( version == 20 )then       ! efficient array code
??    array_syntax = .true.      ! so use array syntax
?? else if( version == 10 )then  ! inefficient array code
??    array_syntax = .false.     ! so no array syntax
?? else                          ! unknown version
??    message 'error: unknown version: ', version
??    stop                       ! go no further
?? end if

program sum_arrays
implicit none

real, dimension( 100) :: a, b, c

?? ! need loop index when using explicit loops
?? if( .not. array_syntax )then
integer :: i              ! loop index
?? endif

read( unit= *, fmt= *) b, c

! element-wise sum
?? if( array_syntax )then
a = b + c
?? else
do i = 1, 100
   a(i) = b(i) + c(i)
end do
?? end if

! evaluate the final sum and print it
write( unit= *, fmt= *) 'sum of a: ', sum(a)
stop

end program sum_arrays

Above, a CoCo integer, version, is used to choose a value for a CoCo logical variable, array_syntax. If version has been set incorrectly (the CoCo else clause), CoCo will print the explanatory message and stop. The CoCo logical variable is then used to choose whether an auxiliary integer is compiled into the Fortran program to serve as the index of the explicit loop. Then the CoCo logical variable is used to select either explicit loops or array syntax.

Note the strong typing CoCo uses: the value of the logical symbol can be true or false, while the value of the integer is numeric. This provides a degree of error checking. As extensions, macros, and text blocks also have distinct declarations and uses.

Back to the Top

The CoCo Set File

The programmer may use a separate file, called a set file, which permits the programmer to change the values of variables and constants outside the CoCo program, and to specify what happens to inactive source text and CoCo directives. At most, one set file is read and processed for each invocation of CoCo. Within the set file, variable declarations and constant definitions may appear, the values supplied override those of the same name which appear in any of the input files. There must be a declaration of the same variable or constant within one of the input files and the declaration must appear before any use of the name, only the value may be changed by the set file. See also the set file extensions for more directives which may appear in the set file. A declaration in a set file must supply a value. The value can, and likely will, differ from that in a source file. Other attributes of a set file declaration must match those in the source file. A declaration is unknown to CoCo until the declaration in a source file is found. This keeps a CoCo program self-consistent and self-contained.

Note that while CoCo can't tell that a symbol defined in the set file or command line isn't defined within a source file until it's finished processing, CoCo complains if the symbol is referenced before a definition appears in a source file. It's required to declare a CoCo variable in the source file before using it, otherwise a missing set file or forgotten command line option would cause the preprocessor to operate unexpectedly. The set file is appended, following a message, to the end of the output file, the command line options are available via cmdline predefined macro and the CMDLINE directive. The effects of the command line and set file may also be checked via the OPTIONS directive.

The set file is appended to the end of the CoCo program's output (depending on the mode set by the ALTER directive). If visible, its contents are separated from the program source by a standard-specified Fortran comment (thus, the set file may be the cause of several blank lines after the last line of source).

The set file is named according to the -s command line option. If there isn't one, the name is set according to the output file name. The file name suffix is discarded and ".set" is appended to make the set file name. If a file with that name is not found, the value of the environment variable COCO_SET_FILE is checked. If a file with that name is not found, a file with the default name of "coco.set" is sought. This allows a programmer to have a default set file for a project or directory, or to control the preprocessing on a file-by-file basis. There is only one set file read for a multi-input file invocation of CoCo. See Using CoCo for more on the command line.

The ALTER Directive

The fate of inactive source lines and of CoCo directives (that is, of all lines not appearing in the output file as active source lines) is controlled by the ALTER directive. At most one alter directive may appear in a set file. The -a command line option overrides the alter directive. The possible alter modes and their effects are described in the following list:

  • ?? ALTER: DELETE

    All CoCo lines and inactive source lines are deleted from the output file. These lines will not be seen by the compiler. While this produces the easiest to read output source file, it does potentially change line numbering (see Line Numbering for more details).

  • ?? ALTER: BLANK

    All CoCo lines and inactive source lines are replaced by blank lines in the output file. These lines will not be seen by the compiler, but line numbers are preserved.

  • ?? ALTER: SHIFT0

    All CoCo lines are printed with the leading "?" replaced by a "!". Inactive source lines are printed with a "!" in place of the character in column one. These lines will be seen by the compiler as comments.

  • ?? ALTER: SHIFT1

    All CoCo lines are printed with a leading "!" before the leading "?". Inactive source lines are printed with a "!" preceding the leading character, CoCo issues a warning if a line so extended exceeds 131 characters. These lines will be seen by the compiler as comments.

  • ?? ALTER: SHIFT3

    All CoCo lines are printed with a leading "!?>" before the leading "?". Inactive source lines are printed with "!?>" preceding the leading character, CoCo issues a warning if a line so extended exceeds 131 characters. These lines will be seen by the compiler as comments. The leading "!?>" makes it easy to write a program to undo the effects of the CoCo preprocessor (at least so long as the use of CoCo conforms to the standard without use of any extensions and the source code doesn't have any comments beginning with "!?>" which would confound the restore process). See the restore program available in the Downloads section (this is similar to the program specified in the standard).

The following table summarizes the effects of the alter modes:

ALTER Mode Preserve Line Numbers? Preserve Lengthen Line? Undo?
DELETE NO N/A NO
BLANK YES N/A NO
SHIFT0 YES YES NO
SHIFT1 YES NO NO
SHIFT3 YES NO YES

A good default set file contains the line ?? ALTER: DELETE, which overrides the standard specified default of SHIFT3. The same effect may be had by adding -ad to the CoCo command line. An example set file follows:

?? ! no CoCo lines or inactive source lines
?? ! appear in the source to be compiled
?? alter: delete
?? ! no debugging (unless -Ddebug is on the command line)
?? ! debug should be declared in a source file
?? ! before being used in a source file
?? logical, parameter :: debug = .false.

The alter line causes CoCo lines and inactive source lines to disappear from the output source file, and the declaration of the logical constant in the set file may override or confirm the declaration of the same name appearing in the source input file. (There should be a declaration in the source input.)

Back to the Top

Using CoCo

CoCo is distributed as source code and is written in standard Fortran 2003. The only features of Fortran 2003 actually used are the command line access and simple type extension. You will have to find a replacement for the command line access routines if your processor does not support them (but most compilers do support them), or code them yourself using the command line routines your processor does support (for example, iargc() and getarg()). Procedures mimicing the standard procedures are available from I.S.S. Ltd. via their free F2KCLI Module for a very wide variety of compilers.

SYNOPSIS:

coco -V

coco -h

coco [ [options] [--] ] [ base-name | output input [...] ]

CoCo responds to the "-V" option by printing its version information and quitting. CoCo responds to the "-h" option by printing its command line options and quitting. If it finds no file name arguments on its command line, CoCo reads its input from stdin and writes its output to stdout. A lone file name command line argument is a file basename: it has ".fpp" appended to it and used as the single input file name, ".f90" is appended and used as the output file name. If more than one file name argument appears on the command line the first is taken to be the output file name, the rest are treated, in the order of occurrence, as input file names. Examples of CoCo usage follow:

  • coco <input.f >output.f90

    causes CoCo to read the file input.f and to write the file output.f90. A set file named "coco.set" is sought.

  • coco -V

    causes CoCo to print its version information to stderr and stop. See also the coco macro.

  • coco -h

    causes CoCo to print short summary of its command line options to stderr and stop.

  • coco source

    causes CoCo to read source.fpp and write source.f90. The file name source.set is checked to see if it exists, if so, it is processed as the set file. If source.set is not found, the value of the environment variable COCO_SET_FILE is checked to see if it exists, if so, it is processed as as the set file. If not, coco.set is checked to see if it exists, if so, it is processed as the set file. If coco.set is not found, no set file is processed.

  • coco output.f90 input1.f90 input2.f90 input3.f90

    causes CoCo to read input1.f90, input2.f90, input3.f90 in that order and to write output.f90. The file name output.set is checked to see if it exists, if so, it is processed as the set file. If output.set is not found, the value of the environment variable COCO_SET_FILE is checked to see if it exists, if so, it is processed as as the set file. If not, coco.set is checked to see if it exists, if so, it is processed as the set file. If coco.set is not found, no set file is processed.

The specification of input and output file names has a number of effects. In addition to setting the name of the set file, several macros are predefined by CoCo. The input file name and the set file name are available as macros. Also, there are date and time macros to document the preprocessing. See the predefined macros for more information about CoCo's predefined macros.

Options

Generally, the option on the command line overrides the set file directive controlling the same behavior. However, some options are cumulative or must have a matching directive, see the description of each option and directive for specifics. The following command line options are recognized:

  • -a? sets the alter mode, with ? being one of d (delete), b (blank), 0 (shift0), 1 (shift1), 3 (shift3). This option overrides an ALTER directive in the set file. Only one -a option can appear on a command line.
  • -Dname[=val] defines a logical or integer value, as if in the set file (see the -D rules). This option overrides the value provided by a definition of the same name by an integer directive or a logical directive in the set file or in an input file.
  • -F specifies fixed form source. By default, CoCo assumes free form source files. This option sets the file suffix for the output file to ".f" from the default ".f90" and causes line wrapping to occur at column 72 rather than column 131 (see the form directive). Only one -F option can appear on a command line.
  • -h makes CoCo print a short summary of the command line options to stderr and stop.
  • -Isubdirectory-name adds the named subdirectory to the list CoCo searches for include files not found in the current directory (see the directory directive). The subdirectory occurs before those listed by directory directives in the set file.
  • -kcc sets the left and right key characters. CoCo finds macros by seeking the macro's name between the left and right key characters. By default, they are both "?" characters. See also the keys directive. (Take care to protect characters that are special to the shell in use.) Only one -k option can appear on a command line.
  • -lfile-name names a log file to receive coco's reports, stderr is the default (see the logfile directive). This option overrides a logfile directive. Only one -l option can appear on a command line.
  • -m turns on placing a line in the output marking subsequent input source files (see the mark directive). This option overrides a mark directive. Only one -m option can appear on a command line.
  • -n turns on source line numbering (see the number directive). This option overrides a number directive. Only one -n option can appear on a command line.
  • -p disables the copy of the set file at the end of the output file and the separating line specified by the standard (see the post directive). This option overrides a post directive. Only one -p option can appear on a command line.
  • -r writes a summary report to the logfile or stderr at the end of preprocessing. See the set file report directive and the source file report directive. Only one -r option can appear on a command line.
  • -sfile-name names the set file. If the named set file does not exist, a set file named from the source file names is sought. If that file does not exist, coco.set is sought. Only one -s option can appear on a command line.
  • -v makes CoCo work verbosely, reporting all file opening and closing, and a few other events, to the log file (see the verbose directive). Only one -v option can appear on a command line.
  • -V makes CoCo print its version information to stderr and stop. See also the CoCo macro.
  • -w turns off source line wrapping (see the wrap directive). This option overrides a wrap directive. Only one -w option can appear on a command line.

In general, the value of a command line option is used in preference to a value in the set file; the value in the set file is used in preference to a value in a source file.

Topics on Using CoCo

About the -D rules

The following rules apply to the -D option: if the "=" is present, it must be followed by an integer literal value in which case the name is defined to be an integer name with the value specified. There should be an integer name with the same name declared within the set file, if there is one, and within (one of) the input source file(s) (or an include file). If no "=" is present, then name is defined to be a logical name with a value of ".true.". There should be a logical declaration with the same name declared within the set file, if there is one, and within (one of) the input source file(s) (or an include file). Definitions from the command line override those in the set file, but like definitions in the set file they must match definitions in (one of) the source file(s). There is no way to give a value to a text variable or macro directly via -D. A name is effectively undefined until the declaration is seen in a source file. The set file value or command line value supercedes the value (if there is one) defined in the source file. A declaration is the set file must supply a value, even for declarations of variables.

About the INCLUDE search rules

The rules for directories specified by the -I command line option and DIRECTORY directive are that the directories specified by the -I command line option are searched first in the order they appear on the command line. Then directories appearing in DIRECTORY directives are searched in the order the directives appear in the set file. This way, the command line may override the set file. DIRECTORY directives may not appear in the source file(s) proper so all include files with the same name are known to come from the same directory, and thus each occurrence of any one named include file will be the same file. CoCo guesses what the file separator character (between directory names in an absolute file name) by examining the value found for the CWD predefined macro. CoCo gets this value from the PWD environment variable. If this fails, CoCo doesn't know what appropriate separator is, in that case, the appropriate separator (for example, "/", "\" or ":") must be appended after the directory name, whether it appears in the -I command line option, or in a DIRECTORY directive.

About Line Numbering and Wrapping

By default, source lines are wrapped starting at column 132 for free form source, and starting at column 73 for fixed form source. This position is called the wrap length. Wrapping means that if text extends beyond the wrap length, text on the line is ended, a continuation character is added, and the remainder of the line is written as a continuation line following the wrapped line. This can be defeated with the -w option, or with the WRAP directive. CoCo attempts not to wrap comments.

When lines are numbered, the file name and line number are added to the end of the source line. Line numbering occurs starting past the end of the line whether the source form is free form (after column 131) or fixed form (after column 72). If the source line extends longer than the standard-specified length, the number appears after all text on the line. Line numbering adds, after the end of a line, a comment character, a blank, the file name, a colon and blank, and the line number of the source input file. This may help tracing a compiler message back to the original source file if CoCo is deleting inactive lines from the file seen by the compiler, or when macro expansion or assert directives lengthen lines too much, causing extra lines in the output, or when copy directives write text blocks or include files add source lines.

About Multi-File versus Single-File Invocation

The value of CoCo variables change whenever a new value is assigned. CoCo constants, of course, do not change value during execution. When several input files are processed in sequence to make a single output file, the values of CoCo variables seen for each subsequent source file depends upon values that might be changed by previous input files. This allows, for example, the programmer to count the number of times a text block is copied throughout the entire preprocessing run. However, it also means that not all source input files are preprocessed in identical environments. Thus, the programmer must choose whether a given quantity should be represented by a CoCo variable or a CoCo constant, and whether a single input file or a multiple input file run is appropriate for a given purpose.

CoCo assumes a single invocation is for source files of either free form source or fixed form source. Since there is a single output file, it is difficult to mix the two. Automatic conversion utilities exist and some Fortran IDEs support reformatting but CoCo does not. Mixing free form source and fixed form source in a single CoCo execution may not work as intended. In any case, free form source is preferred for many reasons, so conversion of fixed form source files to free form source files is a good idea.

As discussed above, CoCo may be used to make a single output source file from one or several input source files. The advantage of one input source file making one output source file is that one has a clear set of CoCo symbols in use, and (potentially) a different set file for each input file allowing customization. The disadvantage is that in order to conveniently have the same set of CoCo symbols used to preprocess several input source files, one must prepare a set file or an include file to contain the CoCo symbol declarations, and use the same set file for each. This might be done by using the default name for all input files. The advantage of making one output file from several input files is that one set of CoCo symbols may be used to control the preprocessing of all input files, and the compiler may be able to do a better job of optimization if it can see more of the program at one time. The disadvantage is that one may have a symbol present when CoCo processes a subsequent input file which is unneeded and possibly confusing or having unexpected effects. Of course, an include file may be used to reset a set of integer or logical variables to a desired initial value for each source input file.

Back to the Top

Extensions to Standard CoCo

This program supports some extensions to standard CoCo. Extensions to the standard CoCo include editing extensions, file handling extensions, and diagnostic extensions. These directives may appear in source files. Other extensions may appear only in the set file.

Editing Extensions

A name of an integer, logical, or macro, when it appears between the left key character and the right key character without embedded blanks, is replaced by the value of the name, as described in the following. Source lines may be edited, CoCo directives are not edited. The default left and right key character is "?"; this may be changed by the -k option or by the KEY directive.

Integers and Logicals as Macros

The string ?name? is checked to see if name is the name of a CoCo integer or logical constant or variable. If it is, it is replaced by the value of the CoCo integer (as a possibly signed digit string) literal or logical (as ".true." or ".false.") literal. The name may be in either case. The following example illustrates the use of CoCo integers. The repeat count in the character declaration must be a character substring, which is provided by the string substituted in place of ?size?:

?? ! set problem size
?? integer :: size = 10
integer, parameter :: nmax = ?size?
real, dimension( nmax) :: a
character, parameter :: my_fmt = '(?size?es18.9)'

Macros

Macros are another extension. A macro is a name whose value is a string. There may be arguments to the macro, which are strings replaced by the strings used in place of the arguments when the macro is referenced. The macro is used by surrounding its name with the key characters, ?name?. If the macro has arguments, the arguments follow the trailing key character thus, ?name?( args). The macro args are the only substitution occuring within the macro string. No other names are checked. Thus, a macro may not appear within another macro's string.

The key characters are "?" by default. This may be changed by the KEYS directive in the set file, or by the -k option on the command line. In either case, the first character sets the left key character, and the second character sets the right key character. Macros and arguments to macros and text blocks are found between the left key character and the right key character, with no space. Only a sanity check is made when processing the key characters. Do not use characters that will confuse ordinary processing (such as "!" or "&").

The programmer may define macros via the MACRO directive. There are some predefined macros, they are listed in the following table:

Predefined Macros

The predefined macros may not be redefined, they may be considered to be constants (even if their value changes during execution). These names cannot be used for any purpose, they cannot be dummy argument names to macros or text blocks.

name definition set by
file input file name input file
line input file line number count input lines
date date preprocessing wall clock
time time preprocessing wall clock
coco coco's RCS Id string CoCo RCS check-out
setfile set file name set file
logfile log file name log file
output output file name output file
cmdline CoCo command line O/S shell
user user identifier USER or LOGNAME environment variables
cwd directory where CoCo is run PWD environment variable
incpath directories searched for include files command line and set file

The MACRO directive defines a macro. If a ?name? is found which is the name of a macro, it is replaced with the value of the macro. Arguments may be present, if so, they are substituted in the value. There is one name space for all symbol names, but macro dummy argument names have a scope of the macro only.

Text Blocks

The TEXT and COPY directives define a text block (that is, one or more lines), and copy it into the source. A text block may be considered a multi-line macro (note that Fortran distinguishes lines and statements). The text block is defined by the TEXT and END TEXT directives. The COPY directive copies a text block of the same name. Arguments may be present, if so, they are substituted in the value. Synbol names, including macro names, are not substituted within text blocks. However, conditional compilation applies within text blocks, it is effective during the copy operation. Text blocks must be nested correctly within IF blocks.

The following table summarizes CoCo substitutions where a symbol's name appears between the leading key character and the trailing key character.

CoCo Symbol Replacement
Integer Literal Value
Logical Literal Value
Macro String Value

Take care with integers; a negative value could result in two Fortran operators appearing consequetively.

Source File Directives

The following directives edit the source code:

  • ?? ASSERT ( condition )

    This causes code to be written to the output Fortran source to verify that the logical condition is true during program execution, and to halt execution with an error message written to unit= * if it is false. The error message includes the file name and line number where the assert directive was found. The assert directive should be placed only where executable Fortran code is allowed, and the condition should refer only to those Fortran symbols in scope at that location in the source file. CoCo cannot check that this is true.

  • ?? MACRO [, PARENS] :: name [ ( arg [, arg ] ... ) ] =string

    This causes subsequent strings of the form ?name? to be replaced by string in the source code. If the ( arg[, arg]...) is present, this causes subsequent strings of the form ?name?( str[, str]... ) to be replaced by string in the source code, with strs substituted for the corresponding ?arg? within string. The macro dummy argument list must not be empty. A macro definition may not appear in the set file, because a macro may not be redefined (the set file overrides existing definitions). The number of actual arguments must match the number of dummy arguments (the number of args must match the number of strs). When PARENS is present, actual arguments are enclosed in parenthesis (if not already) when substituted in the macro string. If PARENS is present, there must be a dummy argument list present as well.

  • ?? TEXT [, PARENS] :: name [ ( arg [, arg ] ... ) ]

    Defines the lines which follow, up to the next END TEXT directive, as being the text block with the given name. The name must not be the name of an integer, logical, macro, another text block. This text may be copied into the CoCo output by using the copy directive. The text dummy argument list must not be empty. See below for information about which directives may appear between the text directive and the matching end text directive. TEXT and COPY directives may appear only in source files. A text block may not be redefined. The number of actual arguments must match the number of dummy arguments (the number of args on the TEXT directive must match the number of strs on the COPY directive). When PARENS is present, actual arguments are enclosed in parenthesis (if not already) when substituted by the COPY directive. If PARENS is present, there must be a dummy argument list present as well.

  • ?? END TEXT [ name ]

    Marks the end of the text block which started with the previous TEXT directive. The name, if present, must match the name on the preceding TEXT directive.

  • ?? COPY :: name [ ( str [, str ] ... ) ]

    Copies the text block named by name into the output. If the ( arg[, arg]...) was present on the text directive, the COPY directive must have the ( str[, str]... ) present with one str for each arg, and causes each strs substituted for the corresponding ?arg? within the text block. The number of actual arguments must match the number of dummy arguments (the number of args on the TEXT directive must match the number of strs on the COPY directive).

There is one name space for all integer names, logical names, macro names, and text block names. Also, to avoid ambiguity, symbols are not substituted within macro values or text blocks. A dummy argument on one macro or text block may have the same name as a dummy argument on another macro or text block, but must not be the same as an integer, logical, macro or text block. This also avoids ambiguity when expanding macros and copying text blocks. Note that dummay arguments are substituted within a macro value or a text block, but not within CoCo directives contained within text blocks. Therefore, conditional compilation of text blocks during copying can be a function of variables, but not actual arguments.

Only the following directives may appear between the TEXT and END TEXT directives: the ASSERT, IF, ELSE IF, ELSE, END IF, MESSAGE, STOP and assignment directives. While a text block may appear in an include file, an INCLUDE directive may not appear within a text block. Declaration directives may not appear because each declaration may only occur once per program. Text blocks may not be nested.

An example of a macro declaration and use follows. Note the lack of parenthesis around the actual arguments (the parentheses are added by the PARENS on the macro statement), and the lack of space between the macro name and opening parenthesis of the actual argument list:

?? ! used to compute radius
?? macro, parens :: hypot( x, y) = sqrt( ?x?*?x?+?y?*?y?)
?? ! r1, r2, s1, s2 are variables
! r = sqrt( (r2-r1)*(r2-r1) + (s2-s1)*(s2-s1) )
r = ?hypot?( r2-r1, s2-s1)

An example of a text block follows:

?? ! define stack operations as a text block
?? ! with 'type' as an argument

?? text :: stackops( type)
subroutine push_?type?( item)
type( ?type?_t), intent( in) :: item
?type?_stack( next_?type?) = item
next_?type? = next_?type? + 1
return
end subroutine push_?type?

subroutine pop_?type?( item)
type( ?type?_t), intent( out) :: item
next_?type? = next_?type? - 1
item = ?type?_stack( next_?type?)
return
end subroutine pop_?type?
?? end text stackops

?? ! write stack ops for type fermion_t
?? copy :: stackops( fermion)

?? ! write stack ops for type boson_t
?? copy :: stackops( boson)

An interface block could be provided to allow the push and pop routines to be called with a generic name, if desired. The stack arrays and stack indexes must be declared outside the routines, as defined here.

An example of changing the key characters follows:

?? ! if ??keys: {} appears in the set file
?? ! or if -k{} appears on the command line
?? macro, parens :: hypot( x, y) = sqrt( {x}*{x}+{y}*{y})
?? ! r1, r2, s1, s2 are variables
! r = sqrt( (r2-r1)*(r2-r1) + (s2-s1)*(s2-s1) )
r = {hypot}( r2-r1, s2-s1)

Back to the Top

File Handling Extensions

These directives allow some limited control over files.

  • ?? ENDFILE

    Causes CoCo to end processing of the current input file. The endfile directive may not be continued onto subsequent lines. This might be used, for example, if all interfaces lines have been processed and the procedure bodies are not to appear in the output.

Back to the Top

Diagnostic Extensions

These directives allow the programmer to monitor and debug the processing of source files:

  • ?? CMDLINE

    Causes CoCo to print the command line of its invocation to the logfile, or to stderr. The command line does not change during processing. This may be useful capturing values set by -D options, or other options that override those from the set file.

  • ?? DOCUMENT

    Causes CoCo to act as if the following were encountered in the input file.

    !
! Preprocessor executed: ?date? ?time?
!
! Preprocessor command line: ?cmdline?
! Preprocessor set file: ?setfile?
! Preprocessor log file: ?logfile?
! Preprocessor version: ?coco?
!
! Source file: ?file? line: ?line?
! Compile file: ?output?
! Include path: ?incpath?
!
! User: ?user?
! Current directory: ?cwd?
!

    This has the effect of documenting the particulars of the preprocessing. (If this were in an include file, the ?file? and ?line? would refer to the include file, which would not be especially informative.) (The CoCo version information is on the line below the label to attempt to avoid line wrapping when processing fixed form source.)

  • ?? OPTIONS

    Causes CoCo to print the currently in effect options to the logfile, or to stderr. Since options may be set only via the command line or the set file, the options report does not change during processing. This may be useful capturing values set by a set file, and thus not defined within the source files proper.

  • ?? REPORT

    Causes CoCo to print its end of processing report to the logfile, or to stderr, with data current as of the position where the directive is encountered. Compare with the set file REPORT directive, which causes the report to be written at the end of processing.

  • ?? SYMBOLS

    Causes CoCo to write to the logfile, or to stderr, a summary of all symbols (integers, logicals, macros, and text blocks) known at the point where the directive is encountered. If an integer or logical variable has no value when the SYMBOL directive is encountered, the value printed is "<undefined>". The value of a macro is the replacement string without argument substitution, if any. The value of a text block is printed line-by-line as if it were a multi-line macro, and may contain CoCo directives such as if blocks.

If CoCo is being used as part of The Portability Project, the coco.inc file can be used to define CoCo symbols for the compiler targeted by the CoCo.inc file. The definitions contained in the CoCo.inc file match those in the processor_dependencies module, these two files must both refer to the same processor, otherwise, unexpected, suboptimal, or incorrect results may occur.

Back to the Top

Set File Extensions

Some extension directives may appear only in the set file, and are intended to allow the programmer to control modes of CoCo otherwise controlled from the command line (for example, in case the program was compiled without the f2kcli module, or other access to the command line). An option on the command line generally overrides the corresponding directive in the set file. These directives are listed below:

  • ?? DIRECTORY 'directory-name'

    Causes CoCo to search directory-name when an include file is not found in the current directory. Several DIRECTORY directives may each specify a directory-name, they are searched in the order they are declared. A DIRECTORY directive must appear in the set file (this is so all references to an include file name in one execution refer to the same file). See also the -I command line option.

  • ?? FORM: [ FREE | FIXED ]

    Causes CoCo to treat the input source files as free form source files or as fixed form source files. By default, CoCo assumes input files are free form source. FIXED changes CoCo to assume fixed form source files. FREE is allowed to confirm the default choice. Only one FORM directive may occur in a set file. See also the -F command line option

  • ?? INPUT 'file-name'

    Names an input file. Seveal input directives may occur within a set file. Files are processed in the order the directives are encountered. See also Using CoCo. Input directives are ignored when input file names appear on the command line.

  • ?? KEYS: cc

    The left and right key characters are set to the characters cc. See also the -k command line option.

  • ?? LOGFILE 'file-name'

    The logfile directive is set to the named file. The file is created. Only one LOGFILE directive may occur in a set file. See also the -l command line option.

  • ?? MARK: [ ON | OFF ]

    Turns on of off the placing a line in the output to mark subsequent input source files. Only one MARK directive may occur in a set file. See also the -m command line option.

  • ?? NUMBER: [ ON | OFF ]

    Turns on of off the numbering of source lines. If on, source lines appearing in the output as active source lines have the input file name and line number appearing as a Fortran comment starting at the wrap column. Only one NUMBER directive may occur in a set file. See also the -n command line option and About Line Wrapping and Numbering.

  • ?? OUTPUT 'file-name'

    Names the output file. The file is created. Only one OUTPUT directive may occur in a set file. See also Using CoCo. Output directives are ignored when an output file name appears on the command line.

  • ?? POST: [ ON | OFF ]

    Causes CoCo to copy the set file to the end of the output file at the completion of processing if ON is selected (the default, as specified by the standard). If OFF is specified, the set file is not copied to the end of the output file, nor is the standard-specified separating line present. Only one POST directive may occur in a set file. See the -p command line option.

  • ?? REPORT: [ ON | OFF ]

    Causes CoCo to write a summary report at the end of processing if ON is specified, the default, or if OFF is sspecified, the report is not written. Only one REPORT directive may occur in a set file. See the -r command line option and the REPORT directive that appears in a source file.

  • ?? VERBOSE: [ ON | OFF ]

    Turns on of off the reporting of file openings and closings. Unless verbose mode is set on the command line, the opening of the set file cannot be reported this way, because the set file is already being read when this directive is executed. Only one VERBOSE directive may occur in a set file. See also the -v command line option.

  • ?? WRAP: [ ON | OFF ]

    Turns on of off the wrapping of source lines. If on, source lines appearing in the output as active source lines are wrapped starting at the wrap column. Only one WRAP directive may occur in a set file. See also the -w command line option and About Line Wrapping and Numbering.

Since the set file os copied to the end of the output file, a record may be kept within the source of the CoCo options used to generate the output file.

Back to the Top

An Example of Using CoCo

Statement of the problem to be solved: A single source file is to be prepared which will specify a Fortran 95 Module containing a cube root function to support all real kinds on any processor at a computing center. Using the programs of the Portability Project, specifically, the processor_dependencies module to provide kind parameters and the coco.inc include file, this module may be written as follows:

?? ! define the CoCo logical symbols
?? ! single_k, double_k, quad_k (among others)
?? include 'coco.inc'

module cube_root

!  define Fortran kind parameters
!  single_k, double_k, quad_k
use processor_dependencies, only: single_k, double_k, quad_k

implicit none

private

interface cbrt
?? if( single_k )then
   module procedure single_cbrt
?? endif
?? if( double_k )then
   module procedure double_cbrt
?? endif
?? if( quad_k )then
   module procedure quad_cbrt
?? endif
end interface

public :: cbrt

contains

?? if( single_k )then
elemental real( kind= single_k) function single_cbrt( x)
real( kind= single_k), intent( in) :: x

   single_cbrt = sign( exp( log( abs( x)) / 3.0_single_k), x)

end function single_cbrt
?? endif

?? if( double_k )then
elemental real( kind= double_k) function double_cbrt( x)
real( kind= double_k), intent( in) :: x

   double_cbrt = sign( exp( log( abs( x)) / 3.0_double_k), x)

end function double_cbrt
?? endif

?? if( quad_k )then
elemental real( kind= quad_k) function quad_cbrt( x)
real( kind= quad_k), intent( in) :: x

   quad_cbrt = sign( exp( log( abs( x)) / 3.0_quad_k), x)

end function quad_cbrt
?? endif

end module cube_root

Note that the single_k, double_k, and quad_k which appear in the Fortran source proper are the three kind parameters which are defined in the module processor_dependencies. The single_k, double_k and quad_k appearing in the CoCo if directives are CoCo logical variables which are defined in the CoCo.inc CoCo include file. Both CoCo.inc and the source code for processor_dependencies are made (semi-)automatically by the make_processor_model program of the Portability Project All the Fortran kind parameters are valid on any processor, because if the kind isn't supported, the corresponding CoCo logical variable is set to false, thereby preventing the code from being present in the version of the source for that processor.

Solving the same problem, but this time using the text-copy mechanism, is shown below:

?? ! define the CoCo logical symbols
?? ! single_k, double_k, quad_k (among others)
?? include 'coco.inc'

module cube_root

?? text :: cbrt( kind)
elemental real( kind= ?kind?_k) function ?kind?_cbrt( x)
real( kind= ?kind?_k), intent( in) :: x

   ?kind?_cbrt = sign( exp( log( abs( x)) / 3.0_?kind?_k), &
                       x)

end function ?kind?_cbrt
?? end text cbrt

!  define Fortran kind parameters
!  single_k, double_k, quad_k
use processor_dependencies, only: single_k, double_k, quad_k

implicit none

private

! define the generic name cbrt
interface cbrt
?? if( single_k )then
   module procedure single_cbrt
?? endif
?? if( double_k )then
   module procedure double_cbrt
?? endif
?? if( quad_k )then
   module procedure quad_cbrt
?? endif
end interface

public :: cbrt

contains

?? if( single_k )then
?? copy :: cbrt( single)
?? endif

?? if( double_k )then
?? copy :: cbrt( double)
?? endif

?? if( quad_k )then
?? copy :: cbrt( quad)
?? endif

end module cube_root

Note that this time, the source for the cbrt() function need be specified only once, the text-copy mechanism performs the copy-paste-substitute operation as needed.

Back to the Top

Some Known Bugs and Limitations

CoCo does not read Fortran source beyond the minimum necessary for macro replacement. This is done both for efficiency, and to increase CoCo's reliability by allowing a simpler design. However, some limitations are a result of this decision.

CoCo makes a single pass through its list of macro names (including the predefined names). Therefore, a macro name within the value of another macro may not expand as intended. The way to get a string into a macro value reliably is to pass it through a macro dummy argument. Alternatively, one may conditionally define the macro to contain the desired macro value. Improving this situation is an area on ongoing investigation, so even if an input file produces the desired result with this release, it may be processed differently when the situation improves.

The actual arguments supplied to macro expansion and text block copying should contain either no parenthesis, or balanced parenthesis. CoCo attempts to skip commas intended as part of format specifications, array index sets, and procedure argument lists by skipping commas appearing between parentheses. Unbalanced parentheses within actual arguments can foil this process.

CoCo allows simple commands to change the key characters, within some limits of choice of key characters. However, changing the key characters present in the source files may be more tedious, so choose non-default key characters with some deliberation.

CoCo attempts to find the directory separation character by scanning the value of the ?cwd? macro, which is gotten from the PWD environment variable. If this fails, the directory separation character must be appended to directory names specified on ??directory set file directives and on -I command line options. If a simple directory separator is inappropriate (for example, with VMS), the directory names must be specified so that simply appending the include file name produces a value that will allow the include file to be used.

CoCo accesses its command line via the usual methods. Since file indirection is ordinarily handled by the shell as part of program startup processing, CoCo cannot distinguish the case where files have been redirected to stdin and stdout from the case where there are no source files on the command line. Therefore, CoCo will honor input and output directives in its set file even in the case where files have been redirected from the command line. Care should be taken to use a set file without input or output directives when file indirection is intended, and, for clarity, to shun file indirection when input or output set file directives are intended. To document CoCo's idea of its command line, see the CMDLINE directive, the cmdline macro, and the DOCUMENT directive.

As with all CoCo statements and elided source lines, the set file, its standard-defined separation line, and lines marking subsequent input files are invisible when the alter state is set to delete or blank.

Back to the Top

Downloads

To download a source code for the CoCo program, click CoCo preprocessor. You may want to use the free F2KCLI Module from I.S.S. Ltd. to compile CoCo program if your compiler doesn't support the Fortran 2003 command line access intrinsic procedures. Download the restore program which can undo CoCo processing under certain circumstances.

For more information about the processor_dependencies module, click here.

Back to the Top

Please see our Fact Sheet, or E-mail us for more information.

Home - Fact Sheet - Free Source Code - Fortran Links - Email us

Back to the Top

Day-I/09-new-types/standard_functions.mod100777 0 0 161100 11776640342 13723 0GFORTRAN module version '6' created from stdfunc.f90 on Mon Jul 9 14:36:51 2012 MD5:ccc47a9ea9849c432deb463ba48a9903 -- If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () () () () () () () ()) (('lcm' '' 2 3 4 5) ('cd' '' 6 7 8 9) ('gcd' '' 10 11 12 13) ('cr' '' 14 15 16 17) ('xor' '' 18 19 20 21) ('mod' '' 22 23 24 25 26 27 28) ( 'modulo' '' 29 30 31 32 33 34 35)) (('cmach' 'standard_functions' 36 37 38) ('cd' 'standard_functions' 6 7 8 9) ('compl' 'standard_functions' 39 40 41 42) ('cr' 'standard_functions' 14 15 16 17) ('gcd' 'standard_functions' 10 11 12 13) ('icamax' 'standard_functions' 43 44 45) ('icamin' 'standard_functions' 46 47 48) ('isamax' 'standard_functions' 49 50 51) ('isamin' 'standard_functions' 52 53 54) ('ismax' 'standard_functions' 55 56 57) ('isodd' 'standard_functions' 58 59 60 61) ('ismin' 'standard_functions' 62 63 64) ('iseven' 'standard_functions' 65 66 67 68) ('lcm' 'standard_functions' 2 3 4 5) ('pause' 'standard_functions' 69 70) ('rrint' 'standard_functions' 71 72 73) ('rev_endian' 'standard_functions' 74 75 76 77 78 79 80 81 82 83 84 85) ('rev_bits' 'standard_functions' 86 87 88) ('smach' 'standard_functions' 89 90 91) ('stop' 'standard_functions' 92 93) ('swap' 'standard_functions' 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108)) () () () (109 'bin' 'standard_functions' 'bin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 110 0 (111 112) () 109 () () () 0 0) 113 'binstr' 'standard_functions' 'binstr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '32'))) 114 0 (115) () 113 () () () 0 0) 116 'binstr_len' 'standard_functions' 'binstr_len' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0) 117 'decode' 'standard_functions' 'decode' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 118 0 (119 120 121 122) () 0 () () () 0 0) 123 'encode' 'standard_functions' 'encode' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 124 0 (125 126 127 128) () 0 () () () 0 0) 129 'error_bad_base' 'standard_functions' 'error_bad_base' 1 (( PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) ( INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 130 'error_not_in_table' 'standard_functions' 'error_not_in_table' 1 (( PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) ( INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 131 'error_short_string' 'standard_functions' 'error_short_string' 1 (( PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) ( INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 132 'get_logical_unit' 'standard_functions' 'get_logical_unit' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 133 0 (134 135 136) () 132 () () () 0 0) 137 'hex' 'standard_functions' 'hex' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 138 0 (139 140) () 137 () () () 0 0) 141 'hexstr' 'standard_functions' 'hexstr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE ALWAYS_EXPLICIT) ( CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8'))) 142 0 (143 144) () 141 () () () 0 0) 145 'hexstr_len' 'standard_functions' 'hexstr_len' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 146 'oct' 'standard_functions' 'oct' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 147 0 (148 149) () 146 () () () 0 0) 150 'octstr' 'standard_functions' 'octstr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '11'))) 151 0 (152) () 150 () () () 0 0) 153 'octstr_len' 'standard_functions' 'octstr_len' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 154 'standard_functions_rcs_id' 'standard_functions' 'standard_functions_rcs_id' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (CHARACTER 1 0 0 CHARACTER ((CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '55'))) 0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 55 '$Id: stdfunc.fpp 1.3 2003/10/03 19:41:32Z Dan Release $') () 0 () () () 0 0) 21 'l_byte_xor' 'standard_functions' 'l_byte_xor' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 1 0 0 LOGICAL ()) 155 0 (156 157) () 21 () () () 0 0) 20 'l_short_xor' 'standard_functions' 'l_short_xor' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 2 0 0 LOGICAL ()) 158 0 (159 160) () 20 () () () 0 0) 19 'l_int_xor' 'standard_functions' 'l_int_xor' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 161 0 (162 163) () 19 () () () 0 0) 18 'l_long_xor' 'standard_functions' 'l_long_xor' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 8 0 0 LOGICAL ()) 164 0 (165 166) () 18 () () () 0 0) 28 'byte_mod' 'standard_functions' 'byte_mod' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 1 0 0 INTEGER ()) 167 0 (168 169) () 28 () () () 0 0) 27 'short_mod' 'standard_functions' 'short_mod' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 2 0 0 INTEGER ()) 170 0 (171 172) () 27 () () () 0 0) 26 'int_mod' 'standard_functions' 'int_mod' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 4 0 0 INTEGER ()) 173 0 (174 175) () 26 () () () 0 0) 25 'long_mod' 'standard_functions' 'long_mod' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 8 0 0 INTEGER ()) 176 0 (177 178) () 25 () () () 0 0) 24 'single_mod' 'standard_functions' 'single_mod' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 4 0 0 REAL ()) 179 0 (180 181) () 24 () () () 0 0) 23 'double_mod' 'standard_functions' 'double_mod' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 182 0 (183 184) () 23 () () () 0 0) 22 'quad_mod' 'standard_functions' 'quad_mod' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 10 0 0 REAL ()) 185 0 (186 187) () 22 () () () 0 0) 35 'byte_modulo' 'standard_functions' 'byte_modulo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 1 0 0 INTEGER ()) 188 0 (189 190) () 35 () () () 0 0) 34 'short_modulo' 'standard_functions' 'short_modulo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 2 0 0 INTEGER ()) 191 0 (192 193) () 34 () () () 0 0) 33 'int_modulo' 'standard_functions' 'int_modulo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 194 0 (195 196) () 33 () () () 0 0) 32 'long_modulo' 'standard_functions' 'long_modulo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 8 0 0 INTEGER ()) 197 0 (198 199) () 32 () () () 0 0) 31 'single_modulo' 'standard_functions' 'single_modulo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 4 0 0 REAL ()) 200 0 (201 202) () 31 () () () 0 0) 30 'double_modulo' 'standard_functions' 'double_modulo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 203 0 (204 205) () 30 () () () 0 0) 29 'quad_modulo' 'standard_functions' 'quad_modulo' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 10 0 0 REAL ()) 206 0 (207 208) () 29 () () () 0 0) 13 'byte_gcd' 'standard_functions' 'byte_gcd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 1 0 0 INTEGER ()) 209 0 (210 211) () 13 () () () 0 0) 12 'short_gcd' 'standard_functions' 'short_gcd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 2 0 0 INTEGER ()) 212 0 (213 214) () 12 () () () 0 0) 11 'int_gcd' 'standard_functions' 'int_gcd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 4 0 0 INTEGER ()) 215 0 (216 217) () 11 () () () 0 0) 10 'long_gcd' 'standard_functions' 'long_gcd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 8 0 0 INTEGER ()) 218 0 (219 220) () 10 () () () 0 0) 5 'byte_lcm' 'standard_functions' 'byte_lcm' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 1 0 0 INTEGER ()) 221 0 (222 223) () 5 () () () 0 0) 4 'short_lcm' 'standard_functions' 'short_lcm' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 2 0 0 INTEGER ()) 224 0 (225 226) () 4 () () () 0 0) 3 'int_lcm' 'standard_functions' 'int_lcm' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 4 0 0 INTEGER ()) 227 0 (228 229) () 3 () () () 0 0) 2 'long_lcm' 'standard_functions' 'long_lcm' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 8 0 0 INTEGER ()) 230 0 (231 232) () 2 () () () 0 0) 9 'byte_cd' 'standard_functions' 'byte_cd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 1 0 0 INTEGER ()) 233 0 (234 235) () 9 () () () 0 0) 8 'short_cd' 'standard_functions' 'short_cd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 2 0 0 INTEGER ()) 236 0 (237 238) () 8 () () () 0 0) 7 'int_cd' 'standard_functions' 'int_cd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 4 0 0 INTEGER ()) 239 0 (240 241) () 7 () () () 0 0) 6 'long_cd' 'standard_functions' 'long_cd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 8 0 0 INTEGER ()) 242 0 (243 244) () 6 () () () 0 0) 17 'byte_cr' 'standard_functions' 'byte_cr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 1 0 0 INTEGER ()) 245 0 (246 247) () 17 () () () 0 0) 16 'short_cr' 'standard_functions' 'short_cr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 2 0 0 INTEGER ()) 248 0 (249 250) () 16 () () () 0 0) 15 'int_cr' 'standard_functions' 'int_cr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 4 0 0 INTEGER ()) 251 0 (252 253) () 15 () () () 0 0) 14 'long_cr' 'standard_functions' 'long_cr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( INTEGER 8 0 0 INTEGER ()) 254 0 (255 256) () 14 () () () 0 0) 68 'byte_iseven' 'standard_functions' 'byte_iseven' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 257 0 (258) () 68 () () () 0 0) 67 'short_iseven' 'standard_functions' 'short_iseven' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 259 0 (260) () 67 () () () 0 0) 66 'int_iseven' 'standard_functions' 'int_iseven' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 261 0 (262) () 66 () () () 0 0) 65 'long_iseven' 'standard_functions' 'long_iseven' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 263 0 (264) () 65 () () () 0 0) 61 'byte_isodd' 'standard_functions' 'byte_isodd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 265 0 (266) () 61 () () () 0 0) 60 'short_isodd' 'standard_functions' 'short_isodd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 267 0 (268) () 60 () () () 0 0) 59 'int_isodd' 'standard_functions' 'int_isodd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 269 0 (270) () 59 () () () 0 0) 58 'long_isodd' 'standard_functions' 'long_isodd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 271 0 (272) () 58 () () () 0 0) 73 'single_rrint' 'standard_functions' 'single_rrint' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) ( INTEGER 4 0 0 INTEGER ()) 273 0 (274) () 73 () () () 0 0) 72 'double_rrint' 'standard_functions' 'double_rrint' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) ( INTEGER 4 0 0 INTEGER ()) 275 0 (276) () 72 () () () 0 0) 71 'quad_rrint' 'standard_functions' 'quad_rrint' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION IMPLICIT_PURE) ( INTEGER 4 0 0 INTEGER ()) 277 0 (278) () 71 () () () 0 0) 42 'l_byte_compl' 'standard_functions' 'l_byte_compl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 1 0 0 LOGICAL ()) 279 0 (280) () 42 () () () 0 0) 41 'l_short_compl' 'standard_functions' 'l_short_compl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 2 0 0 LOGICAL ()) 281 0 (282) () 41 () () () 0 0) 40 'l_int_compl' 'standard_functions' 'l_int_compl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 283 0 (284) () 40 () () () 0 0) 39 'l_long_compl' 'standard_functions' 'l_long_compl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 8 0 0 LOGICAL ()) 285 0 (286) () 39 () () () 0 0) 57 'single_ismax' 'standard_functions' 'single_ismax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 287 0 (288 289 290) () 57 () () () 0 0) 56 'double_ismax' 'standard_functions' 'double_ismax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 291 0 (292 293 294) () 56 () () () 0 0) 55 'quad_ismax' 'standard_functions' 'quad_ismax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 295 0 (296 297 298) () 55 () () () 0 0) 64 'single_ismin' 'standard_functions' 'single_ismin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 299 0 (300 301 302) () 64 () () () 0 0) 63 'double_ismin' 'standard_functions' 'double_ismin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 303 0 (304 305 306) () 63 () () () 0 0) 62 'quad_ismin' 'standard_functions' 'quad_ismin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 307 0 (308 309 310) () 62 () () () 0 0) 51 'single_isamax' 'standard_functions' 'single_isamax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 311 0 (312 313 314) () 51 () () () 0 0) 50 'double_isamax' 'standard_functions' 'double_isamax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 315 0 (316 317 318) () 50 () () () 0 0) 49 'quad_isamax' 'standard_functions' 'quad_isamax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 319 0 (320 321 322) () 49 () () () 0 0) 54 'single_isamin' 'standard_functions' 'single_isamin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 323 0 (324 325 326) () 54 () () () 0 0) 53 'double_isamin' 'standard_functions' 'double_isamin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 327 0 (328 329 330) () 53 () () () 0 0) 52 'quad_isamin' 'standard_functions' 'quad_isamin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 331 0 (332 333 334) () 52 () () () 0 0) 45 'single_icamax' 'standard_functions' 'single_icamax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 335 0 (336 337 338) () 45 () () () 0 0) 44 'double_icamax' 'standard_functions' 'double_icamax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 339 0 (340 341 342) () 44 () () () 0 0) 43 'quad_icamax' 'standard_functions' 'quad_icamax' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 343 0 (344 345 346) () 43 () () () 0 0) 48 'single_icamin' 'standard_functions' 'single_icamin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 347 0 (348 349 350) () 48 () () () 0 0) 47 'double_icamin' 'standard_functions' 'double_icamin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 351 0 (352 353 354) () 47 () () () 0 0) 46 'quad_icamin' 'standard_functions' 'quad_icamin' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION PURE) (INTEGER 4 0 0 INTEGER ()) 355 0 (356 357 358) () 46 () () () 0 0) 91 'single_smach' 'standard_functions' 'single_smach' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 359 0 (360 361) () 0 () () () 0 0) 90 'double_smach' 'standard_functions' 'double_smach' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 362 0 (363 364) () 0 () () () 0 0) 89 'quad_smach' 'standard_functions' 'quad_smach' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 365 0 (366 367) () 0 () () () 0 0) 38 'single_cmach' 'standard_functions' 'single_cmach' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 368 0 (369 370) () 0 () () () 0 0) 37 'double_cmach' 'standard_functions' 'double_cmach' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 371 0 (372 373) () 0 () () () 0 0) 36 'quad_cmach' 'standard_functions' 'quad_cmach' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 374 0 (375 376) () 0 () () () 0 0) 70 'int_pause' 'standard_functions' 'int_pause' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 377 0 (378) () 0 () () () 0 0) 69 'char_pause' 'standard_functions' 'char_pause' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 379 0 (380) () 0 () () () 0 0) 93 'int_stop' 'standard_functions' 'int_stop' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 381 0 (382) () 0 () () () 0 0) 92 'char_stop' 'standard_functions' 'char_stop' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 383 0 (384) () 0 () () () 0 0) 108 'ascii_character_swap' 'standard_functions' 'ascii_character_swap' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 385 0 (386 387) () 0 () () () 0 0) 107 'byte_integer_swap' 'standard_functions' 'byte_integer_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 388 0 (389 390) () 0 () () () 0 0) 106 'short_integer_swap' 'standard_functions' 'short_integer_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 391 0 (392 393) () 0 () () () 0 0) 105 'int_integer_swap' 'standard_functions' 'int_integer_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 394 0 (395 396) () 0 () () () 0 0) 104 'long_integer_swap' 'standard_functions' 'long_integer_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 397 0 (398 399) () 0 () () () 0 0) 103 'l_byte_logical_swap' 'standard_functions' 'l_byte_logical_swap' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 400 0 (401 402) () 0 () () () 0 0) 102 'l_short_logical_swap' 'standard_functions' 'l_short_logical_swap' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 403 0 (404 405) () 0 () () () 0 0) 101 'l_int_logical_swap' 'standard_functions' 'l_int_logical_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 406 0 (407 408) () 0 () () () 0 0) 100 'l_long_logical_swap' 'standard_functions' 'l_long_logical_swap' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 409 0 (410 411) () 0 () () () 0 0) 99 'single_real_swap' 'standard_functions' 'single_real_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 412 0 (413 414) () 0 () () () 0 0) 98 'double_real_swap' 'standard_functions' 'double_real_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 415 0 (416 417) () 0 () () () 0 0) 97 'quad_real_swap' 'standard_functions' 'quad_real_swap' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 418 0 (419 420) () 0 () () () 0 0) 96 'single_complex_swap' 'standard_functions' 'single_complex_swap' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 421 0 (422 423) () 0 () () () 0 0) 95 'double_complex_swap' 'standard_functions' 'double_complex_swap' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 424 0 (425 426) () 0 () () () 0 0) 94 'quad_complex_swap' 'standard_functions' 'quad_complex_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 427 0 (428 429) () 0 () () () 0 0) 85 'short_rev_endian' 'standard_functions' 'short_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 2 0 0 INTEGER ()) 430 0 (431) () 85 () () () 0 0) 84 'int_rev_endian' 'standard_functions' 'int_rev_endian' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 432 0 (433) () 84 () () () 0 0) 83 'long_rev_endian' 'standard_functions' 'long_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 8 0 0 INTEGER ()) 434 0 (435) () 83 () () () 0 0) 82 'l_short_rev_endian' 'standard_functions' 'l_short_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 2 0 0 LOGICAL ()) 436 0 (437) () 82 () () () 0 0) 81 'l_int_rev_endian' 'standard_functions' 'l_int_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 438 0 (439) () 81 () () () 0 0) 80 'l_long_rev_endian' 'standard_functions' 'l_long_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 8 0 0 LOGICAL ()) 440 0 (441) () 80 () () () 0 0) 79 'single_rev_endian' 'standard_functions' 'single_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 4 0 0 REAL ()) 442 0 (443) () 79 () () () 0 0) 78 'double_rev_endian' 'standard_functions' 'double_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 444 0 (445) () 78 () () () 0 0) 77 'quad_rev_endian' 'standard_functions' 'quad_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 10 0 0 REAL ()) 446 0 (447) () 77 () () () 0 0) 76 'single_complex_rev_endian' 'standard_functions' 'single_complex_rev_endian' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (COMPLEX 4 0 0 COMPLEX ()) 448 0 (449) () 76 () () () 0 0) 75 'double_complex_rev_endian' 'standard_functions' 'double_complex_rev_endian' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (COMPLEX 8 0 0 COMPLEX ()) 450 0 (451) () 75 () () () 0 0) 74 'quad_complex_rev_endian' 'standard_functions' 'quad_complex_rev_endian' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (COMPLEX 10 0 0 COMPLEX ()) 452 0 (453) () 74 () () () 0 0) 88 'ascii_rev_bits' 'standard_functions' 'ascii_rev_bits' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 454 0 (455) () 88 () () () 0 0) 87 'byte_rev_bits' 'standard_functions' 'byte_rev_bits' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 1 0 0 INTEGER ()) 456 0 (457) () 87 () () () 0 0) 86 'l_byte_rev_bits' 'standard_functions' 'l_byte_rev_bits' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 1 0 0 LOGICAL ()) 458 0 (459) () 86 () () () 0 0) 156 'l1' '' 'l1' 155 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 1 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 157 'l2' '' 'l2' 155 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 1 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 159 'l1' '' 'l1' 158 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 2 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 160 'l2' '' 'l2' 158 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 2 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 162 'l1' '' 'l1' 161 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 163 'l2' '' 'l2' 161 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 165 'l1' '' 'l1' 164 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 8 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 166 'l2' '' 'l2' 164 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 8 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 168 'a' '' 'a' 167 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 169 'p' '' 'p' 167 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 171 'a' '' 'a' 170 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 172 'p' '' 'p' 170 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 174 'a' '' 'a' 173 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 175 'p' '' 'p' 173 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 177 'a' '' 'a' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 178 'p' '' 'p' 176 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 180 'a' '' 'a' 179 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 181 'p' '' 'p' 179 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 183 'a' '' 'a' 182 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 184 'p' '' 'p' 182 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 186 'a' '' 'a' 185 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 187 'p' '' 'p' 185 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 189 'a' '' 'a' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 190 'p' '' 'p' 188 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 192 'a' '' 'a' 191 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 193 'p' '' 'p' 191 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 195 'a' '' 'a' 194 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 196 'p' '' 'p' 194 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 198 'a' '' 'a' 197 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 199 'p' '' 'p' 197 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 201 'a' '' 'a' 200 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 202 'p' '' 'p' 200 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 204 'a' '' 'a' 203 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 205 'p' '' 'p' 203 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 207 'a' '' 'a' 206 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 208 'p' '' 'p' 206 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 258 'a' '' 'a' 257 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 260 'a' '' 'a' 259 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 262 'a' '' 'a' 261 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 264 'a' '' 'a' 263 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 266 'a' '' 'a' 265 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 268 'a' '' 'a' 267 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 270 'a' '' 'a' 269 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 272 'a' '' 'a' 271 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 210 'a' '' 'a' 209 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 211 'b' '' 'b' 209 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 213 'a' '' 'a' 212 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 214 'b' '' 'b' 212 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 216 'a' '' 'a' 215 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 217 'b' '' 'b' 215 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 219 'a' '' 'a' 218 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 220 'b' '' 'b' 218 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 222 'a' '' 'a' 221 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 223 'b' '' 'b' 221 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 225 'a' '' 'a' 224 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 226 'b' '' 'b' 224 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 228 'a' '' 'a' 227 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 229 'b' '' 'b' 227 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 231 'a' '' 'a' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 232 'b' '' 'b' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 234 'j' '' 'j' 233 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 235 'k' '' 'k' 233 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 237 'j' '' 'j' 236 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 238 'k' '' 'k' 236 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 240 'j' '' 'j' 239 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 241 'k' '' 'k' 239 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 243 'j' '' 'j' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 244 'k' '' 'k' 242 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 246 'j' '' 'j' 245 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 247 'k' '' 'k' 245 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 249 'j' '' 'j' 248 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 250 'k' '' 'k' 248 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 252 'j' '' 'j' 251 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 253 'k' '' 'k' 251 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 255 'j' '' 'j' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 256 'k' '' 'k' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 139 'hexstr' '' 'hexstr' 138 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 140 'stat' '' 'stat' 138 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 148 'octstr' '' 'octstr' 147 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 149 'stat' '' 'stat' 147 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 111 'binstr' '' 'binstr' 110 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 112 'stat' '' 'stat' 110 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 143 'i' '' 'i' 142 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 144 'lc' '' 'lc' 142 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 152 'i' '' 'i' 151 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 115 'i' '' 'i' 114 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 125 'str' '' 'str' 124 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 126 'i' '' 'i' 124 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 127 'ttable' '' 'ttable' 124 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 128 'stat' '' 'stat' 124 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 119 'i' '' 'i' 118 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 120 'str' '' 'str' 118 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 121 'ttable' '' 'ttable' 118 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 122 'stat' '' 'stat' 118 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 274 'a' '' 'a' 273 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 276 'a' '' 'a' 275 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 278 'a' '' 'a' 277 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 280 'l' '' 'l' 279 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 1 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 282 'l' '' 'l' 281 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 2 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 284 'l' '' 'l' 283 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 286 'l' '' 'l' 285 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 8 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 288 'n' '' 'n' 287 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 289 'x' '' 'x' 287 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 288 ())) 0 () () () 0 0) 290 'incx' '' 'incx' 287 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 292 'n' '' 'n' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 293 'x' '' 'x' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 292 ())) 0 () () () 0 0) 294 'incx' '' 'incx' 291 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 296 'n' '' 'n' 295 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 297 'x' '' 'x' 295 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 10 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 296 ())) 0 () () () 0 0) 298 'incx' '' 'incx' 295 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 300 'n' '' 'n' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 301 'x' '' 'x' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 300 ())) 0 () () () 0 0) 302 'incx' '' 'incx' 299 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 304 'n' '' 'n' 303 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 305 'x' '' 'x' 303 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 304 ())) 0 () () () 0 0) 306 'incx' '' 'incx' 303 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 308 'n' '' 'n' 307 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 309 'x' '' 'x' 307 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 10 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 308 ())) 0 () () () 0 0) 310 'incx' '' 'incx' 307 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 312 'n' '' 'n' 311 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 313 'x' '' 'x' 311 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 312 ())) 0 () () () 0 0) 314 'incx' '' 'incx' 311 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 316 'n' '' 'n' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 317 'x' '' 'x' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 316 ())) 0 () () () 0 0) 318 'incx' '' 'incx' 315 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 320 'n' '' 'n' 319 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 321 'x' '' 'x' 319 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 10 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 320 ())) 0 () () () 0 0) 322 'incx' '' 'incx' 319 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 324 'n' '' 'n' 323 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 325 'x' '' 'x' 323 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 324 ())) 0 () () () 0 0) 326 'incx' '' 'incx' 323 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 328 'n' '' 'n' 327 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 329 'x' '' 'x' 327 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 328 ())) 0 () () () 0 0) 330 'incx' '' 'incx' 327 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 332 'n' '' 'n' 331 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 333 'x' '' 'x' 331 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (REAL 10 0 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT ( INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 332 ())) 0 () () () 0 0) 334 'incx' '' 'incx' 331 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 336 'n' '' 'n' 335 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 337 'x' '' 'x' 335 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (COMPLEX 4 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 336 ())) 0 () () () 0 0) 338 'incx' '' 'incx' 335 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 340 'n' '' 'n' 339 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 341 'x' '' 'x' 339 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 340 ())) 0 () () () 0 0) 342 'incx' '' 'incx' 339 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 344 'n' '' 'n' 343 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 345 'x' '' 'x' 343 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (COMPLEX 10 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 344 ())) 0 () () () 0 0) 346 'incx' '' 'incx' 343 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 348 'n' '' 'n' 347 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 349 'x' '' 'x' 347 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (COMPLEX 4 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 348 ())) 0 () () () 0 0) 350 'incx' '' 'incx' 347 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 352 'n' '' 'n' 351 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 353 'x' '' 'x' 351 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 352 ())) 0 () () () 0 0) 354 'incx' '' 'incx' 351 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 356 'n' '' 'n' 355 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 357 'x' '' 'x' 355 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (COMPLEX 10 0 0 COMPLEX ()) 0 0 () (1 0 EXPLICIT ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 356 ())) 0 () () () 0 0) 358 'incx' '' 'incx' 355 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 360 'n' '' 'n' 359 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 361 'mach' '' 'mach' 359 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 363 'n' '' 'n' 362 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 364 'mach' '' 'mach' 362 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 366 'n' '' 'n' 365 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 367 'mach' '' 'mach' 365 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 369 'n' '' 'n' 368 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 370 'mach' '' 'mach' 368 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 372 'n' '' 'n' 371 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 373 'mach' '' 'mach' 371 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 375 'n' '' 'n' 374 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 376 'mach' '' 'mach' 374 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 378 'n' '' 'n' 377 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 380 'string' '' 'string' 379 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 382 'n' '' 'n' 381 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 384 'string' '' 'string' 383 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () () 0 0) 386 'a' '' 'a' 385 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 0 () () 0 () () () 0 0) 387 'b' '' 'b' 385 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 0 () () 0 () () () 0 0) 389 'a' '' 'a' 388 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 390 'b' '' 'b' 388 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 392 'a' '' 'a' 391 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 393 'b' '' 'b' 391 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 395 'a' '' 'a' 394 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 396 'b' '' 'b' 394 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 398 'a' '' 'a' 397 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 399 'b' '' 'b' 397 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 401 'a' '' 'a' 400 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 1 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 402 'b' '' 'b' 400 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 1 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 404 'a' '' 'a' 403 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 2 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 405 'b' '' 'b' 403 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 2 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 407 'a' '' 'a' 406 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 408 'b' '' 'b' 406 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 410 'a' '' 'a' 409 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 8 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 411 'b' '' 'b' 409 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 8 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 413 'a' '' 'a' 412 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 414 'b' '' 'b' 412 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 416 'a' '' 'a' 415 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 417 'b' '' 'b' 415 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 419 'a' '' 'a' 418 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 420 'b' '' 'b' 418 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 422 'a' '' 'a' 421 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 4 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 423 'b' '' 'b' 421 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 4 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 425 'a' '' 'a' 424 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 426 'b' '' 'b' 424 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 428 'a' '' 'a' 427 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 10 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 429 'b' '' 'b' 427 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 10 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 431 'a' '' 'a' 430 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 433 'a' '' 'a' 432 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 435 'a' '' 'a' 434 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 437 'a' '' 'a' 436 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 2 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 439 'a' '' 'a' 438 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 441 'a' '' 'a' 440 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 8 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 443 'a' '' 'a' 442 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 445 'a' '' 'a' 444 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 447 'a' '' 'a' 446 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 449 'a' '' 'a' 448 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 4 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 451 'a' '' 'a' 450 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 453 'a' '' 'a' 452 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 10 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 455 'c' '' 'c' 454 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 0 () () 0 () () () 0 0) 457 'i' '' 'i' 456 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 459 'i' '' 'i' 458 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 1 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 134 'min_unit' '' 'min_unit' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 135 'max_unit' '' 'max_unit' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 136 'exclude' '' 'exclude' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () () 0 0) ) ('bin' 0 109 'binstr' 0 113 'binstr_len' 0 116 'decode' 0 117 'encode' 0 123 'error_bad_base' 0 129 'error_not_in_table' 0 130 'error_short_string' 0 131 'get_logical_unit' 0 132 'hex' 0 137 'hexstr' 0 141 'hexstr_len' 0 145 'oct' 0 146 'octstr' 0 150 'octstr_len' 0 153 'standard_functions_rcs_id' 0 154) Day-I/09-new-types/stdfunc.f90100777 0 0 346350 11776640342 11334 0! bof ! ********************************************************************** ! Fortran 95 module standard_functions ! ********************************************************************** ! Source Control Strings ! $Id: stdfunc.fpp 1.3 2003/10/03 19:41:32Z Dan Release $ ! ********************************************************************** ! Copyright 2000 Purple Sage Computing Solutions, Inc. ! ********************************************************************** ! adds a basic set of operators and functions to Fortran 95 programs ! ********************************************************************** ! Summary of License ! This library is free software; you can redistribute it and/or ! modify it under the terms of the GNU Library General Public ! License as published by the Free Software Foundation; either ! version 2 of the License, or (at your option) any later version. ! This library is distributed in the hope that it will be useful, ! but WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ! Library General Public License for more details. ! You should have received a copy of the GNU Library General Public ! License along with this library; if not, write to the Free ! Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! To report bugs, suggest enhancements, etc. to the Authors, ! Contact: ! Purple Sage Computing Solutions, Inc. ! send email to dnagle@erols.com ! or fax to 703 471 0684 (USA) ! or mail to 12142 Purple Sage Ct. ! Reston, VA 20194-5621 USA ! ********************************************************************** ! standard_functions constants ! error_short_string integer encode() or decode() passed null or short string ! error_bad_base integer encode() or decode() base larger than translation table ! error_not_in_table integer decode() input character not in translation table ! standard_functions operators ! .xor. binary logicals ! .mod. binary integers, reals ! .modulo. binary integers, reals ! .gcd. binary integers ! .lcm. binary integers ! .cd. binary integers ! .cr. binary integers ! standard_functions library ! iseven() logical( integer) ! isodd() logical( integer) ! gcd() greatest common divisor integer( integer, integer) ! lcm() least common multiple integer( integer, integer) ! cd() ceiling division [ ( j+ k- 1) /k ] integer( integer, integer) ! cr() ceiling remainder [ j- k* cd() ] integer( integer, integer) ! rrint() round up with probability ( a - int( a)) or down integer( real) ! hex() string to integer ! oct() string to integer ! bin() string to integer ! hexstr() integer to string ! octstr() integer to string ! binstr() integer to string ! encode() integer to string, arbitrary base, via translate table ! decode() string to integer, arbitrary base, via translate table ! compl() for logicals ! ismax() ! ismin() ! isamax() ! isamin() for reals ! icamax() ! icamin() for complex ! smach() machine constants ! cmach() ! pause() subroutine pause() | pause( char*(*)) | pause( integer) ! stop() subroutine stop() | stop( char*(*)) | stop( integer) ! swap() for all tk ! rev_endian() for all tk size > 1 byte ! rev_bits() for all tk size = 1 byte ! get_logical_unit() a logical i/o unit number which may be opened !?>?? ! ******************************************************************* !?>?? ! preprocessor dependencies !?>?? include 'coco.inc' !?>??! include coco.inc !?>?? logical, parameter :: byte_k = .true. !?>?? logical, parameter :: short_k = .true. !?>?? logical, parameter :: int_k = .true. !?>?? logical, parameter :: long_k = .true. !?>?? logical, parameter :: l_byte_k = .true. !?>?? logical, parameter :: l_short_k = .true. !?>?? logical, parameter :: l_int_k = .true. !?>?? logical, parameter :: l_long_k = .true. !?>?? logical, parameter :: single_k = .true. !?>?? logical, parameter :: double_k = .true. !?>?? logical, parameter :: quad_k = .true. !?>?? logical, parameter :: ascii_k = .true. !?>?? logical, parameter :: ebcdic_k = .false. !?>??! end include coco.inc !?>?? ! ******************************************************************* ! ********************************************************************** module standard_functions ! ********************************************************************** ! use kind parameters use, intrinsic :: iso_fortran_env, only: byte_k => int8, short_k => int16, int_k => int32, long_k => int64, & single_k => real32, double_k => real64, quad_k => real128, & numeric_storage_size, character_storage_size ! ********************************************************************** ! explicit declaration implicit none ! ********************************************************************** ! explicit export private ! ********************************************************************** ! RCS strings ! ********************************************************************** character( len= *), public, parameter :: standard_functions_rcs_id = & '$Id: stdfunc.fpp 1.3 2003/10/03 19:41:32Z Dan Release $' ! ********************************************************************** ! standard_functions constants integer, parameter :: l_byte_k = byte_k integer, parameter :: l_short_k = short_k integer, parameter :: l_int_k = int_k integer, parameter :: l_long_k = long_k integer, parameter :: ascii_k = 1 integer, parameter :: csu_per_nsu = numeric_storage_size / character_storage_size ! ********************************************************************** ! encode()/decode() error codes integer, public, parameter :: error_short_string = 1 integer, public, parameter :: error_bad_base = 2 integer, public, parameter :: error_not_in_table = 3 ! hex()/oct()/bin() string lengths ( note need for ceiling division! ) integer, public, parameter :: hexstr_len = bit_size( 0) / 4 integer, public, parameter :: octstr_len = bit_size( 0)/3 + 1 integer, public, parameter :: binstr_len = bit_size( 0) ! ********************************************************************** ! pause()/stop() formats character( len= *), parameter :: ps_fmt_a = '( a)' character( len= *), parameter :: ps_fmt_ai = '( a, i5.5)' character( len= *), parameter :: ps_fmt_aa = '( a, a)' !?>?? if( byte_k )then ! ********************************************************************** ! rev_bits masks and shift counts integer( kind= byte_k) :: bit_1 ; data bit_1 / z'01'/ integer( kind= byte_k) :: bit_2 ; data bit_2 / z'02'/ integer( kind= byte_k) :: bit_3 ; data bit_3 / z'04'/ integer( kind= byte_k) :: bit_4 ; data bit_4 / z'08'/ integer( kind= byte_k) :: bit_5 ; data bit_5 / z'10'/ integer( kind= byte_k) :: bit_6 ; data bit_6 / z'20'/ integer( kind= byte_k) :: bit_7 ; data bit_7 / z'40'/ integer( kind= byte_k) :: bit_8 ; data bit_8 / z'80'/ integer( kind= byte_k), parameter :: sh_1 = 7 integer( kind= byte_k), parameter :: sh_2 = 5 integer( kind= byte_k), parameter :: sh_3 = 3 integer( kind= byte_k), parameter :: sh_4 = 1 integer( kind= byte_k), parameter :: sh_5 = -1 integer( kind= byte_k), parameter :: sh_6 = -3 integer( kind= byte_k), parameter :: sh_7 = -5 integer( kind= byte_k), parameter :: sh_8 = -7 !?>?? endif ! ********************************************************************** ! standard_functions library ! ********************************************************************** ! declare specific functions implementing the .xor. operator public :: operator( .xor.) interface operator( .xor.) !?>?? if( l_byte_k )then module procedure l_byte_xor !?>?? endif !?>?? if( l_short_k )then module procedure l_short_xor !?>?? endif !?>?? if( l_int_k )then module procedure l_int_xor !?>?? endif !?>?? if( l_long_k )then module procedure l_long_xor !?>?? endif end interface ! ********************************************************************** ! declare specific functions implementing the .mod. operator public :: operator( .mod.) interface operator( .mod.) !?>?? if( byte_k )then module procedure byte_mod !?>?? endif !?>?? if( short_k )then module procedure short_mod !?>?? endif !?>?? if( int_k )then module procedure int_mod !?>?? endif !?>?? if( long_k )then module procedure long_mod !?>?? endif !?>?? if( single_k )then module procedure single_mod !?>?? endif !?>?? if( double_k )then module procedure double_mod !?>?? endif !?>?? if( quad_k )then module procedure quad_mod !?>?? endif end interface ! declare specific functions implementing the .modulo. operator public :: operator( .modulo.) interface operator( .modulo.) !?>?? if( byte_k )then module procedure byte_modulo !?>?? endif !?>?? if( short_k )then module procedure short_modulo !?>?? endif !?>?? if( int_k )then module procedure int_modulo !?>?? endif !?>?? if( long_k )then module procedure long_modulo !?>?? endif !?>?? if( single_k )then module procedure single_modulo !?>?? endif !?>?? if( double_k )then module procedure double_modulo !?>?? endif !?>?? if( quad_k )then module procedure quad_modulo !?>?? endif end interface ! ********************************************************************** ! declare specific functions implementing the .gcd. operator public :: operator( .gcd.) interface operator( .gcd.) !?>?? if( byte_k )then module procedure byte_gcd !?>?? endif !?>?? if( short_k )then module procedure short_gcd !?>?? endif !?>?? if( int_k )then module procedure int_gcd !?>?? endif !?>?? if( long_k )then module procedure long_gcd !?>?? endif end interface ! declare specific functions implementing the gcd() function public :: gcd interface gcd !?>?? if( byte_k )then module procedure byte_gcd !?>?? endif !?>?? if( short_k )then module procedure short_gcd !?>?? endif !?>?? if( int_k )then module procedure int_gcd !?>?? endif !?>?? if( long_k )then module procedure long_gcd !?>?? endif end interface ! declare specific functions implementing the .lcm. operator public :: operator( .lcm.) interface operator( .lcm.) !?>?? if( byte_k )then module procedure byte_lcm !?>?? endif !?>?? if( short_k )then module procedure short_lcm !?>?? endif !?>?? if( int_k )then module procedure int_lcm !?>?? endif !?>?? if( long_k )then module procedure long_lcm !?>?? endif end interface ! declare specific functions implementing the lcm() function public :: lcm interface lcm !?>?? if( byte_k )then module procedure byte_lcm !?>?? endif !?>?? if( short_k )then module procedure short_lcm !?>?? endif !?>?? if( int_k )then module procedure int_lcm !?>?? endif !?>?? if( long_k )then module procedure long_lcm !?>?? endif end interface ! ********************************************************************** ! declare specific functions implementing the .cd. operator public :: operator( .cd.) interface operator( .cd.) !?>?? if( byte_k )then module procedure byte_cd !?>?? endif !?>?? if( short_k )then module procedure short_cd !?>?? endif !?>?? if( int_k )then module procedure int_cd !?>?? endif !?>?? if( long_k )then module procedure long_cd !?>?? endif end interface ! declare specific functions implementing the cd() function public :: cd interface cd !?>?? if( byte_k )then module procedure byte_cd !?>?? endif !?>?? if( short_k )then module procedure short_cd !?>?? endif !?>?? if( int_k )then module procedure int_cd !?>?? endif !?>?? if( long_k )then module procedure long_cd !?>?? endif end interface ! declare specific functions implementing the .cr. operator public :: operator( .cr.) interface operator( .cr.) !?>?? if( byte_k )then module procedure byte_cr !?>?? endif !?>?? if( short_k )then module procedure short_cr !?>?? endif !?>?? if( int_k )then module procedure int_cr !?>?? endif !?>?? if( long_k )then module procedure long_cr !?>?? endif end interface ! declare specific functions implementing the cr() function public :: cr interface cr !?>?? if( byte_k )then module procedure byte_cr !?>?? endif !?>?? if( short_k )then module procedure short_cr !?>?? endif !?>?? if( int_k )then module procedure int_cr !?>?? endif !?>?? if( long_k )then module procedure long_cr !?>?? endif end interface ! ********************************************************************** ! integer diagnostic functions ! ********************************************************************** ! declare specific functions implementing the iseven() function public :: iseven interface iseven !?>?? if( byte_k )then module procedure byte_iseven !?>?? endif !?>?? if( short_k )then module procedure short_iseven !?>?? endif !?>?? if( int_k )then module procedure int_iseven !?>?? endif !?>?? if( long_k )then module procedure long_iseven !?>?? endif end interface ! ********************************************************************** ! declare specific functions implementing the isodd() function public :: isodd interface isodd !?>?? if( byte_k )then module procedure byte_isodd !?>?? endif !?>?? if( short_k )then module procedure short_isodd !?>?? endif !?>?? if( int_k )then module procedure int_isodd !?>?? endif !?>?? if( long_k )then module procedure long_isodd !?>?? endif end interface ! ********************************************************************** ! real to integer functions ! ********************************************************************** ! declare specific functions implementing the rrint() function public :: rrint interface rrint !?>?? if( single_k )then module procedure single_rrint !?>?? endif !?>?? if( double_k )then module procedure double_rrint !?>?? endif !?>?? if( quad_k )then module procedure quad_rrint !?>?? endif end interface ! ********************************************************************** ! logical utility functions ! ********************************************************************** ! declare specific functions implementing the compl() function public :: compl interface compl !?>?? if( l_byte_k )then module procedure l_byte_compl !?>?? endif !?>?? if( l_short_k )then module procedure l_short_compl !?>?? endif !?>?? if( l_int_k )then module procedure l_int_compl !?>?? endif !?>?? if( l_long_k )then module procedure l_long_compl !?>?? endif end interface ! ********************************************************************** ! index finding functions ! ********************************************************************** ! declare specific function supporting generic function ismax() public :: ismax interface ismax !?>?? if( single_k )then module procedure single_ismax !?>?? endif !?>?? if( double_k )then module procedure double_ismax !?>?? endif !?>?? if( quad_k )then module procedure quad_ismax !?>?? endif end interface ! declare specific functions supporting generic function ismin() public :: ismin interface ismin !?>?? if( single_k )then module procedure single_ismin !?>?? endif !?>?? if( double_k )then module procedure double_ismin !?>?? endif !?>?? if( quad_k )then module procedure quad_ismin !?>?? endif end interface ! declare specific function supporting generic function isamax() public :: isamax interface isamax !?>?? if( single_k )then module procedure single_isamax !?>?? endif !?>?? if( double_k )then module procedure double_isamax !?>?? endif !?>?? if( quad_k )then module procedure quad_isamax !?>?? endif end interface ! declare specific functions supporting generic function isamin() public :: isamin interface isamin !?>?? if( single_k )then module procedure single_isamin !?>?? endif !?>?? if( double_k )then module procedure double_isamin !?>?? endif !?>?? if( quad_k )then module procedure quad_isamin !?>?? endif end interface ! declare specific function supporting generic function icamax() public :: icamax interface icamax !?>?? if( single_k )then module procedure single_icamax !?>?? endif !?>?? if( double_k )then module procedure double_icamax !?>?? endif !?>?? if( quad_k )then module procedure quad_icamax !?>?? endif end interface ! declare specific functions supporting generic function icamin() public :: icamin interface icamin !?>?? if( single_k )then module procedure single_icamin !?>?? endif !?>?? if( double_k )then module procedure double_icamin !?>?? endif !?>?? if( quad_k )then module procedure quad_icamin !?>?? endif end interface ! ********************************************************************** ! machine constant functions ! ********************************************************************** ! declare specific function supporting generic function smach() public :: smach interface smach !?>?? if( single_k )then module procedure single_smach !?>?? endif !?>?? if( double_k )then module procedure double_smach !?>?? endif !?>?? if( quad_k )then module procedure quad_smach !?>?? endif end interface ! declare specific functions supporting generic function cmach() public :: cmach interface cmach !?>?? if( single_k )then module procedure single_cmach !?>?? endif !?>?? if( double_k )then module procedure double_cmach !?>?? endif !?>?? if( quad_k )then module procedure quad_cmach !?>?? endif end interface ! ********************************************************************** ! subroutines to replace stop and pause statements ! ********************************************************************** ! declare specific subroutines supporting generic subroutine pause() public :: pause interface pause module procedure int_pause module procedure char_pause end interface ! declare specific subroutines supporting generic subroutine stop() public :: stop interface stop module procedure int_stop module procedure char_stop end interface ! ********************************************************************** ! subroutines to implement the swap() routine ! ********************************************************************** ! declare specific subroutines supporting swap() public :: swap interface swap !?>?? if( ascii_k )then module procedure ascii_character_swap !?>?? endif !?>?? if( ebcdic_k )then !?> module procedure ebcdic_character_swap !?>?? endif !?>?? if( byte_k )then module procedure byte_integer_swap !?>?? endif !?>?? if( short_k )then module procedure short_integer_swap !?>?? endif !?>?? if( int_k )then module procedure int_integer_swap !?>?? endif !?>?? if( long_k )then module procedure long_integer_swap !?>?? endif !?>?? if( l_byte_k )then module procedure l_byte_logical_swap !?>?? endif !?>?? if( l_short_k )then module procedure l_short_logical_swap !?>?? endif !?>?? if( l_int_k )then module procedure l_int_logical_swap !?>?? endif !?>?? if( l_long_k )then module procedure l_long_logical_swap !?>?? endif !?>?? if( single_k )then module procedure single_real_swap !?>?? endif !?>?? if( double_k )then module procedure double_real_swap !?>?? endif !?>?? if( quad_k )then module procedure quad_real_swap !?>?? endif !?>?? if( single_k )then module procedure single_complex_swap !?>?? endif !?>?? if( double_k )then module procedure double_complex_swap !?>?? endif !?>?? if( quad_k )then module procedure quad_complex_swap !?>?? endif end interface ! ********************************************************************** ! subroutines to implement the rev_endian() routine ! ********************************************************************** ! declare specific subroutines supporting rev_endian() public :: rev_endian interface rev_endian !?>?? if( short_k )then module procedure short_rev_endian !?>?? endif !?>?? if( int_k )then module procedure int_rev_endian !?>?? endif !?>?? if( long_k )then module procedure long_rev_endian !?>?? endif !?>?? if( l_short_k )then module procedure l_short_rev_endian !?>?? endif !?>?? if( l_int_k )then module procedure l_int_rev_endian !?>?? endif !?>?? if( l_long_k )then module procedure l_long_rev_endian !?>?? endif !?>?? if( single_k )then module procedure single_rev_endian !?>?? endif !?>?? if( double_k )then module procedure double_rev_endian !?>?? endif !?>?? if( quad_k )then module procedure quad_rev_endian !?>?? endif !?>?? if( single_k )then module procedure single_complex_rev_endian !?>?? endif !?>?? if( double_k )then module procedure double_complex_rev_endian !?>?? endif !?>?? if( quad_k )then module procedure quad_complex_rev_endian !?>?? endif end interface ! ********************************************************************** ! subroutines to implement the rev_bits() routine ! ********************************************************************** ! declare specific subroutines supporting rev_bits() public :: rev_bits interface rev_bits !?>?? if( ascii_k )then module procedure ascii_rev_bits !?>?? endif !?>?? if( ebcdic_k )then !?> module procedure ebcdic_rev_bits !?>?? endif !?>?? if( byte_k )then module procedure byte_rev_bits !?>?? endif !?>?? if( l_byte_k )then module procedure l_byte_rev_bits !?>?? endif end interface ! ********************************************************************** ! declare module procedure names public public :: bin public :: oct public :: hex public :: binstr public :: octstr public :: hexstr public :: decode public :: encode public :: get_logical_unit ! ********************************************************************** ! module procedures ! ********************************************************************** contains ! ********************************************************************** ! define .xor. binary operator !?>?? text :: xor( kind) !?>! ********************************************************************** !?> !?>! ?kind?_xor: xor() for kind ?kind? !?> !?>elemental logical( kind= ?kind?_k) function ?kind?_xor( l1, l2) !?> !?>logical( kind= ?kind?_k), intent( in) :: l1, l2 !?> !?>! ?kind?_xor() !?> !?>continue !?> !?> ?kind?_xor = l1 .neqv. l2 !?> !?>return !?> !?>! ?kind?_xor() !?> !?>end function ?kind?_xor !?> !?>?? end text xor !?>?? if( l_byte_k )then !?>?? copy :: xor( l_byte) !?>?? ! text xor ! ********************************************************************** ! l_byte_xor: xor() for kind l_byte elemental logical( kind= l_byte_k) function l_byte_xor( l1, l2) logical( kind= l_byte_k), intent( in) :: l1, l2 ! l_byte_xor() continue l_byte_xor = l1 .neqv. l2 return ! l_byte_xor() end function l_byte_xor !?>?? ! end text xor !?>?? endif !?>?? if( l_short_k )then !?>?? copy :: xor( l_short) !?>?? ! text xor ! ********************************************************************** ! l_short_xor: xor() for kind l_short elemental logical( kind= l_short_k) function l_short_xor( l1, l2) logical( kind= l_short_k), intent( in) :: l1, l2 ! l_short_xor() continue l_short_xor = l1 .neqv. l2 return ! l_short_xor() end function l_short_xor !?>?? ! end text xor !?>?? endif !?>?? if( l_int_k )then !?>?? copy :: xor( l_int) !?>?? ! text xor ! ********************************************************************** ! l_int_xor: xor() for kind l_int elemental logical( kind= l_int_k) function l_int_xor( l1, l2) logical( kind= l_int_k), intent( in) :: l1, l2 ! l_int_xor() continue l_int_xor = l1 .neqv. l2 return ! l_int_xor() end function l_int_xor !?>?? ! end text xor !?>?? endif !?>?? if( l_long_k )then !?>?? copy :: xor( l_long) !?>?? ! text xor ! ********************************************************************** ! l_long_xor: xor() for kind l_long elemental logical( kind= l_long_k) function l_long_xor( l1, l2) logical( kind= l_long_k), intent( in) :: l1, l2 ! l_long_xor() continue l_long_xor = l1 .neqv. l2 return ! l_long_xor() end function l_long_xor !?>?? ! end text xor !?>?? endif ! ********************************************************************** ! define .mod. binary operator !?>?? text :: mod( type, kind) !?>! ********************************************************************** !?> !?>! ?kind?_mod(): .mod. for kind ?kind? !?> !?>elemental ?type?( kind= ?kind?_k) function ?kind?_mod( a, p) !?> !?>?type?( kind= ?kind?_k), intent( in) :: a, p !?> !?>! ?kind?_mod() !?> !?>continue !?> !?> ?kind?_mod = mod( a, p) !?> !?>return !?> !?>! ?kind?_mod() !?> !?>end function ?kind?_mod !?> !?>?? end text mod !?>?? if( byte_k )then !?>?? copy :: mod( integer, byte) !?>?? ! text mod ! ********************************************************************** ! byte_mod(): .mod. for kind byte elemental integer( kind= byte_k) function byte_mod( a, p) integer( kind= byte_k), intent( in) :: a, p ! byte_mod() continue byte_mod = mod( a, p) return ! byte_mod() end function byte_mod !?>?? ! end text mod !?>?? endif !?>?? if( short_k )then !?>?? copy :: mod( integer, short) !?>?? ! text mod ! ********************************************************************** ! short_mod(): .mod. for kind short elemental integer( kind= short_k) function short_mod( a, p) integer( kind= short_k), intent( in) :: a, p ! short_mod() continue short_mod = mod( a, p) return ! short_mod() end function short_mod !?>?? ! end text mod !?>?? endif !?>?? if( int_k )then !?>?? copy :: mod( integer, int) !?>?? ! text mod ! ********************************************************************** ! int_mod(): .mod. for kind int elemental integer( kind= int_k) function int_mod( a, p) integer( kind= int_k), intent( in) :: a, p ! int_mod() continue int_mod = mod( a, p) return ! int_mod() end function int_mod !?>?? ! end text mod !?>?? endif !?>?? if( long_k )then !?>?? copy :: mod( integer, long) !?>?? ! text mod ! ********************************************************************** ! long_mod(): .mod. for kind long elemental integer( kind= long_k) function long_mod( a, p) integer( kind= long_k), intent( in) :: a, p ! long_mod() continue long_mod = mod( a, p) return ! long_mod() end function long_mod !?>?? ! end text mod !?>?? endif !?>?? if( single_k )then !?>?? copy :: mod( real, single) !?>?? ! text mod ! ********************************************************************** ! single_mod(): .mod. for kind single elemental real( kind= single_k) function single_mod( a, p) real( kind= single_k), intent( in) :: a, p ! single_mod() continue single_mod = mod( a, p) return ! single_mod() end function single_mod !?>?? ! end text mod !?>?? endif !?>?? if( double_k )then !?>?? copy :: mod( real, double) !?>?? ! text mod ! ********************************************************************** ! double_mod(): .mod. for kind double elemental real( kind= double_k) function double_mod( a, p) real( kind= double_k), intent( in) :: a, p ! double_mod() continue double_mod = mod( a, p) return ! double_mod() end function double_mod !?>?? ! end text mod !?>?? endif !?>?? if( quad_k )then !?>?? copy :: mod( real, quad) !?>?? ! text mod ! ********************************************************************** ! quad_mod(): .mod. for kind quad elemental real( kind= quad_k) function quad_mod( a, p) real( kind= quad_k), intent( in) :: a, p ! quad_mod() continue quad_mod = mod( a, p) return ! quad_mod() end function quad_mod !?>?? ! end text mod !?>?? endif ! ********************************************************************** ! define .modulo. binary operator !?>?? text :: modulo( type, kind) !?>! ********************************************************************** !?> !?>! ?kind?_modulo(): .modulo. for kind ?kind? !?> !?>elemental ?type?( kind= ?kind?_k) function ?kind?_modulo( a, p) !?> !?>?type?( kind= ?kind?_k), intent( in) :: a, p !?> !?>! ?kind?_modulo() !?> !?>continue !?> !?> ?kind?_modulo = modulo( a, p) !?> !?>return !?> !?>! ?kind?_modulo() !?> !?>end function ?kind?_modulo !?> !?>?? end text modulo !?>?? if( byte_k )then !?>?? copy :: modulo( integer, byte) !?>?? ! text modulo ! ********************************************************************** ! byte_modulo(): .modulo. for kind byte elemental integer( kind= byte_k) function byte_modulo( a, p) integer( kind= byte_k), intent( in) :: a, p ! byte_modulo() continue byte_modulo = modulo( a, p) return ! byte_modulo() end function byte_modulo !?>?? ! end text modulo !?>?? endif !?>?? if( short_k )then !?>?? copy :: modulo( integer, short) !?>?? ! text modulo ! ********************************************************************** ! short_modulo(): .modulo. for kind short elemental integer( kind= short_k) function short_modulo( a, p) integer( kind= short_k), intent( in) :: a, p ! short_modulo() continue short_modulo = modulo( a, p) return ! short_modulo() end function short_modulo !?>?? ! end text modulo !?>?? endif !?>?? if( int_k )then !?>?? copy :: modulo( integer, int) !?>?? ! text modulo ! ********************************************************************** ! int_modulo(): .modulo. for kind int elemental integer( kind= int_k) function int_modulo( a, p) integer( kind= int_k), intent( in) :: a, p ! int_modulo() continue int_modulo = modulo( a, p) return ! int_modulo() end function int_modulo !?>?? ! end text modulo !?>?? endif !?>?? if( long_k )then !?>?? copy :: modulo( integer, long) !?>?? ! text modulo ! ********************************************************************** ! long_modulo(): .modulo. for kind long elemental integer( kind= long_k) function long_modulo( a, p) integer( kind= long_k), intent( in) :: a, p ! long_modulo() continue long_modulo = modulo( a, p) return ! long_modulo() end function long_modulo !?>?? ! end text modulo !?>?? endif !?>?? if( single_k )then !?>?? copy :: modulo( real, single) !?>?? ! text modulo ! ********************************************************************** ! single_modulo(): .modulo. for kind single elemental real( kind= single_k) function single_modulo( a, p) real( kind= single_k), intent( in) :: a, p ! single_modulo() continue single_modulo = modulo( a, p) return ! single_modulo() end function single_modulo !?>?? ! end text modulo !?>?? endif !?>?? if( double_k )then !?>?? copy :: modulo( real, double) !?>?? ! text modulo ! ********************************************************************** ! double_modulo(): .modulo. for kind double elemental real( kind= double_k) function double_modulo( a, p) real( kind= double_k), intent( in) :: a, p ! double_modulo() continue double_modulo = modulo( a, p) return ! double_modulo() end function double_modulo !?>?? ! end text modulo !?>?? endif !?>?? if( quad_k )then !?>?? copy :: modulo( real, quad) !?>?? ! text modulo ! ********************************************************************** ! quad_modulo(): .modulo. for kind quad elemental real( kind= quad_k) function quad_modulo( a, p) real( kind= quad_k), intent( in) :: a, p ! quad_modulo() continue quad_modulo = modulo( a, p) return ! quad_modulo() end function quad_modulo !?>?? ! end text modulo !?>?? endif ! ********************************************************************** ! define iseven()/isodd() for integer kinds !?>?? text :: iseven( kind) !?>! ********************************************************************** !?> !?>! ?kind?_iseven(): iseven() for kind ?kind? !?> !?>elemental logical function ?kind?_iseven( a) !?> !?>integer( kind= ?kind?_k), intent( in) :: a !?> !?>! ?kind?_iseven() !?> !?>continue !?> !?> ?kind?_iseven = iand( a, 1_?kind?_k) == 0_?kind?_k !?> !?>return !?> !?>! ?kind?_iseven() !?> !?>end function ?kind?_iseven !?> !?>?? end text iseven !?>?? if( byte_k )then !?>?? copy :: iseven( byte) !?>?? ! text iseven ! ********************************************************************** ! byte_iseven(): iseven() for kind byte elemental logical function byte_iseven( a) integer( kind= byte_k), intent( in) :: a ! byte_iseven() continue byte_iseven = iand( a, 1_byte_k) == 0_byte_k return ! byte_iseven() end function byte_iseven !?>?? ! end text iseven !?>?? endif !?>?? if( short_k )then !?>?? copy :: iseven( short) !?>?? ! text iseven ! ********************************************************************** ! short_iseven(): iseven() for kind short elemental logical function short_iseven( a) integer( kind= short_k), intent( in) :: a ! short_iseven() continue short_iseven = iand( a, 1_short_k) == 0_short_k return ! short_iseven() end function short_iseven !?>?? ! end text iseven !?>?? endif !?>?? if( int_k )then !?>?? copy :: iseven( int) !?>?? ! text iseven ! ********************************************************************** ! int_iseven(): iseven() for kind int elemental logical function int_iseven( a) integer( kind= int_k), intent( in) :: a ! int_iseven() continue int_iseven = iand( a, 1_int_k) == 0_int_k return ! int_iseven() end function int_iseven !?>?? ! end text iseven !?>?? endif !?>?? if( long_k )then !?>?? copy :: iseven( long) !?>?? ! text iseven ! ********************************************************************** ! long_iseven(): iseven() for kind long elemental logical function long_iseven( a) integer( kind= long_k), intent( in) :: a ! long_iseven() continue long_iseven = iand( a, 1_long_k) == 0_long_k return ! long_iseven() end function long_iseven !?>?? ! end text iseven !?>?? endif !?>?? text :: isodd( kind) !?>! ********************************************************************** !?> !?>! ?kind?_isodd(): isodd() for kind ?kind? !?> !?>elemental logical function ?kind?_isodd( a) !?> !?>integer( kind= ?kind?_k), intent( in) :: a !?> !?>! ?kind?_isodd() !?> !?>continue !?> !?> ?kind?_isodd = iand( a, 1_?kind?_k) == 1_?kind?_k !?> !?>return !?> !?>! ?kind?_isodd() !?> !?>end function ?kind?_isodd !?> !?>?? end text isodd !?>?? if( byte_k )then !?>?? copy :: isodd( byte) !?>?? ! text isodd ! ********************************************************************** ! byte_isodd(): isodd() for kind byte elemental logical function byte_isodd( a) integer( kind= byte_k), intent( in) :: a ! byte_isodd() continue byte_isodd = iand( a, 1_byte_k) == 1_byte_k return ! byte_isodd() end function byte_isodd !?>?? ! end text isodd !?>?? endif !?>?? if( short_k )then !?>?? copy :: isodd( short) !?>?? ! text isodd ! ********************************************************************** ! short_isodd(): isodd() for kind short elemental logical function short_isodd( a) integer( kind= short_k), intent( in) :: a ! short_isodd() continue short_isodd = iand( a, 1_short_k) == 1_short_k return ! short_isodd() end function short_isodd !?>?? ! end text isodd !?>?? endif !?>?? if( int_k )then !?>?? copy :: isodd( int) !?>?? ! text isodd ! ********************************************************************** ! int_isodd(): isodd() for kind int elemental logical function int_isodd( a) integer( kind= int_k), intent( in) :: a ! int_isodd() continue int_isodd = iand( a, 1_int_k) == 1_int_k return ! int_isodd() end function int_isodd !?>?? ! end text isodd !?>?? endif !?>?? if( long_k )then !?>?? copy :: isodd( long) !?>?? ! text isodd ! ********************************************************************** ! long_isodd(): isodd() for kind long elemental logical function long_isodd( a) integer( kind= long_k), intent( in) :: a ! long_isodd() continue long_isodd = iand( a, 1_long_k) == 1_long_k return ! long_isodd() end function long_isodd !?>?? ! end text isodd !?>?? endif ! ********************************************************************** ! define gcd()/lcm() !?>?? text :: gcd( kind) !?>! ********************************************************************** !?> !?>! ?kind?_gcd() gcd() for kind ?kind?_k !?> !?>elemental integer( kind= ?kind?_k) function ?kind?_gcd( a, b) !?> !?>integer( kind= ?kind?_k), intent( in) :: a, b !?> !?>! ?kind?_gcd() local !?> !?> integer( kind= ?kind?_k) :: a_gcd, b_gcd, rnp1, rn, rnm1 !?> !?>! ?kind?_gcd() !?> !?>continue !?> !?>! if a or b zero, abs( other) is gcd !?> !?> zero_a: if( a == 0_?kind?_k )then !?> !?> ?kind?_gcd = abs( b) !?> !?> return !?> !?> endif zero_a !?> !?> zero_b: if( b == 0_?kind?_k )then !?> !?> ?kind?_gcd = abs( a) !?> !?> return !?> !?> endif zero_b !?> !?>! set |a| >= |b| ( > 0) !?>! r1 = a .mod. b !?>! r0 = b !?> !?> a_gcd = max( abs( a), abs( b)) !?> !?> b_gcd = min( abs( a), abs( b)) !?> !?> rn = a_gcd .mod. b_gcd !?> !?> rnm1 = b_gcd !?> !?>! while rn /= 0 !?>! compute rn+1 = rn .mod. rn-1 !?>! gcd() = rnm1 !?> !?> zero_rem: do while( rn /= 0_?kind?_k) !?> !?> rnp1 = rnm1 .mod. rn !?> !?> rnm1 = rn !?> !?> rn = rnp1 !?> !?> enddo zero_rem !?> !?> ?kind?_gcd = rnm1 !?> !?>return !?> !?>! ?kind?_gcd() !?> !?>end function ?kind?_gcd !?> !?>?? end text gcd !?>?? if( byte_k )then !?>?? copy :: gcd( byte) !?>?? ! text gcd ! ********************************************************************** ! byte_gcd() gcd() for kind byte_k elemental integer( kind= byte_k) function byte_gcd( a, b) integer( kind= byte_k), intent( in) :: a, b ! byte_gcd() local integer( kind= byte_k) :: a_gcd, b_gcd, rnp1, rn, rnm1 ! byte_gcd() continue ! if a or b zero, abs( other) is gcd zero_a: if( a == 0_byte_k )then byte_gcd = abs( b) return endif zero_a zero_b: if( b == 0_byte_k )then byte_gcd = abs( a) return endif zero_b ! set |a| >= |b| ( > 0) ! r1 = a .mod. b ! r0 = b a_gcd = max( abs( a), abs( b)) b_gcd = min( abs( a), abs( b)) rn = a_gcd .mod. b_gcd rnm1 = b_gcd ! while rn /= 0 ! compute rn+1 = rn .mod. rn-1 ! gcd() = rnm1 zero_rem: do while( rn /= 0_byte_k) rnp1 = rnm1 .mod. rn rnm1 = rn rn = rnp1 enddo zero_rem byte_gcd = rnm1 return ! byte_gcd() end function byte_gcd !?>?? ! end text gcd !?>?? endif !?>?? if( short_k )then !?>?? copy :: gcd( short) !?>?? ! text gcd ! ********************************************************************** ! short_gcd() gcd() for kind short_k elemental integer( kind= short_k) function short_gcd( a, b) integer( kind= short_k), intent( in) :: a, b ! short_gcd() local integer( kind= short_k) :: a_gcd, b_gcd, rnp1, rn, rnm1 ! short_gcd() continue ! if a or b zero, abs( other) is gcd zero_a: if( a == 0_short_k )then short_gcd = abs( b) return endif zero_a zero_b: if( b == 0_short_k )then short_gcd = abs( a) return endif zero_b ! set |a| >= |b| ( > 0) ! r1 = a .mod. b ! r0 = b a_gcd = max( abs( a), abs( b)) b_gcd = min( abs( a), abs( b)) rn = a_gcd .mod. b_gcd rnm1 = b_gcd ! while rn /= 0 ! compute rn+1 = rn .mod. rn-1 ! gcd() = rnm1 zero_rem: do while( rn /= 0_short_k) rnp1 = rnm1 .mod. rn rnm1 = rn rn = rnp1 enddo zero_rem short_gcd = rnm1 return ! short_gcd() end function short_gcd !?>?? ! end text gcd !?>?? endif !?>?? if( int_k )then !?>?? copy :: gcd( int) !?>?? ! text gcd ! ********************************************************************** ! int_gcd() gcd() for kind int_k elemental integer( kind= int_k) function int_gcd( a, b) integer( kind= int_k), intent( in) :: a, b ! int_gcd() local integer( kind= int_k) :: a_gcd, b_gcd, rnp1, rn, rnm1 ! int_gcd() continue ! if a or b zero, abs( other) is gcd zero_a: if( a == 0_int_k )then int_gcd = abs( b) return endif zero_a zero_b: if( b == 0_int_k )then int_gcd = abs( a) return endif zero_b ! set |a| >= |b| ( > 0) ! r1 = a .mod. b ! r0 = b a_gcd = max( abs( a), abs( b)) b_gcd = min( abs( a), abs( b)) rn = a_gcd .mod. b_gcd rnm1 = b_gcd ! while rn /= 0 ! compute rn+1 = rn .mod. rn-1 ! gcd() = rnm1 zero_rem: do while( rn /= 0_int_k) rnp1 = rnm1 .mod. rn rnm1 = rn rn = rnp1 enddo zero_rem int_gcd = rnm1 return ! int_gcd() end function int_gcd !?>?? ! end text gcd !?>?? endif !?>?? if( long_k )then !?>?? copy :: gcd( long) !?>?? ! text gcd ! ********************************************************************** ! long_gcd() gcd() for kind long_k elemental integer( kind= long_k) function long_gcd( a, b) integer( kind= long_k), intent( in) :: a, b ! long_gcd() local integer( kind= long_k) :: a_gcd, b_gcd, rnp1, rn, rnm1 ! long_gcd() continue ! if a or b zero, abs( other) is gcd zero_a: if( a == 0_long_k )then long_gcd = abs( b) return endif zero_a zero_b: if( b == 0_long_k )then long_gcd = abs( a) return endif zero_b ! set |a| >= |b| ( > 0) ! r1 = a .mod. b ! r0 = b a_gcd = max( abs( a), abs( b)) b_gcd = min( abs( a), abs( b)) rn = a_gcd .mod. b_gcd rnm1 = b_gcd ! while rn /= 0 ! compute rn+1 = rn .mod. rn-1 ! gcd() = rnm1 zero_rem: do while( rn /= 0_long_k) rnp1 = rnm1 .mod. rn rnm1 = rn rn = rnp1 enddo zero_rem long_gcd = rnm1 return ! long_gcd() end function long_gcd !?>?? ! end text gcd !?>?? endif ! ********************************************************************** ! lcm !?>?? text :: lcm( kind) !?>! ********************************************************************** !?> !?>! ?kind?_lcm() lcm() for kind= ?kind?_k !?> !?>elemental integer( kind= ?kind?_k) function ?kind?_lcm( a, b) !?> !?>integer( kind= ?kind?_k), intent( in) :: a, b !?> !?>! ?kind?_lcm() !?> !?>continue !?> !?> ?kind?_lcm = ( a* b) / gcd( a, b) !?> !?>return !?> !?>! ?kind?_lcm() !?> !?>end function ?kind?_lcm !?> !?>?? end text lcm !?>?? if( int_k )then !?>?? copy :: lcm( byte) !?>?? ! text lcm ! ********************************************************************** ! byte_lcm() lcm() for kind= byte_k elemental integer( kind= byte_k) function byte_lcm( a, b) integer( kind= byte_k), intent( in) :: a, b ! byte_lcm() continue byte_lcm = ( a* b) / gcd( a, b) return ! byte_lcm() end function byte_lcm !?>?? ! end text lcm !?>?? endif !?>?? if( short_k )then !?>?? copy :: lcm( short) !?>?? ! text lcm ! ********************************************************************** ! short_lcm() lcm() for kind= short_k elemental integer( kind= short_k) function short_lcm( a, b) integer( kind= short_k), intent( in) :: a, b ! short_lcm() continue short_lcm = ( a* b) / gcd( a, b) return ! short_lcm() end function short_lcm !?>?? ! end text lcm !?>?? endif !?>?? if( int_k )then !?>?? copy :: lcm( int) !?>?? ! text lcm ! ********************************************************************** ! int_lcm() lcm() for kind= int_k elemental integer( kind= int_k) function int_lcm( a, b) integer( kind= int_k), intent( in) :: a, b ! int_lcm() continue int_lcm = ( a* b) / gcd( a, b) return ! int_lcm() end function int_lcm !?>?? ! end text lcm !?>?? endif !?>?? if( long_k )then !?>?? copy :: lcm( long) !?>?? ! text lcm ! ********************************************************************** ! long_lcm() lcm() for kind= long_k elemental integer( kind= long_k) function long_lcm( a, b) integer( kind= long_k), intent( in) :: a, b ! long_lcm() continue long_lcm = ( a* b) / gcd( a, b) return ! long_lcm() end function long_lcm !?>?? ! end text lcm !?>?? endif ! ********************************************************************** ! define cd()/cr() for integer kinds !?>?? text :: cd( kind) !?>! ********************************************************************** !?> !?>! ?kind?_cd(): .cd., cd() for kind ?kind? !?> !?>elemental integer( kind= ?kind?_k) function ?kind?_cd( j, k) !?> !?>integer( kind= ?kind?_k), intent( in) :: j, k !?> !?>! ?kind?_cd() !?> !?>continue !?> !?> ?kind?_cd = ( j + k - 1_?kind?_k) / k !?> !?>return !?> !?>! ?kind?_cd() !?> !?>end function ?kind?_cd !?> !?>?? end text cd !?>?? if( byte_k )then !?>?? copy :: cd( byte) !?>?? ! text cd ! ********************************************************************** ! byte_cd(): .cd., cd() for kind byte elemental integer( kind= byte_k) function byte_cd( j, k) integer( kind= byte_k), intent( in) :: j, k ! byte_cd() continue byte_cd = ( j + k - 1_byte_k) / k return ! byte_cd() end function byte_cd !?>?? ! end text cd !?>?? endif !?>?? if( short_k )then !?>?? copy :: cd( short) !?>?? ! text cd ! ********************************************************************** ! short_cd(): .cd., cd() for kind short elemental integer( kind= short_k) function short_cd( j, k) integer( kind= short_k), intent( in) :: j, k ! short_cd() continue short_cd = ( j + k - 1_short_k) / k return ! short_cd() end function short_cd !?>?? ! end text cd !?>?? endif !?>?? if( int_k )then !?>?? copy :: cd( int) !?>?? ! text cd ! ********************************************************************** ! int_cd(): .cd., cd() for kind int elemental integer( kind= int_k) function int_cd( j, k) integer( kind= int_k), intent( in) :: j, k ! int_cd() continue int_cd = ( j + k - 1_int_k) / k return ! int_cd() end function int_cd !?>?? ! end text cd !?>?? endif !?>?? if( long_k )then !?>?? copy :: cd( long) !?>?? ! text cd ! ********************************************************************** ! long_cd(): .cd., cd() for kind long elemental integer( kind= long_k) function long_cd( j, k) integer( kind= long_k), intent( in) :: j, k ! long_cd() continue long_cd = ( j + k - 1_long_k) / k return ! long_cd() end function long_cd !?>?? ! end text cd !?>?? endif !?>?? text :: cr( kind) !?>! ********************************************************************** !?> !?>! ?kind?_cr(): .cr., cr() for kind ?kind? !?> !?>elemental integer( kind= ?kind?_k) function ?kind?_cr( j, k) !?> !?>integer( kind= ?kind?_k), intent( in) :: j, k !?> !?>! ?kind?_cr() !?> !?>continue !?> !?> ?kind?_cr = j - k * cd( j, k) !?> !?>return !?> !?>! ?kind?_cr() !?> !?>end function ?kind?_cr !?> !?>?? end text cr !?>?? if( byte_k )then !?>?? copy :: cr( byte) !?>?? ! text cr ! ********************************************************************** ! byte_cr(): .cr., cr() for kind byte elemental integer( kind= byte_k) function byte_cr( j, k) integer( kind= byte_k), intent( in) :: j, k ! byte_cr() continue byte_cr = j - k * cd( j, k) return ! byte_cr() end function byte_cr !?>?? ! end text cr !?>?? endif !?>?? if( short_k )then !?>?? copy :: cr( short) !?>?? ! text cr ! ********************************************************************** ! short_cr(): .cr., cr() for kind short elemental integer( kind= short_k) function short_cr( j, k) integer( kind= short_k), intent( in) :: j, k ! short_cr() continue short_cr = j - k * cd( j, k) return ! short_cr() end function short_cr !?>?? ! end text cr !?>?? endif !?>?? if( int_k )then !?>?? copy :: cr( int) !?>?? ! text cr ! ********************************************************************** ! int_cr(): .cr., cr() for kind int elemental integer( kind= int_k) function int_cr( j, k) integer( kind= int_k), intent( in) :: j, k ! int_cr() continue int_cr = j - k * cd( j, k) return ! int_cr() end function int_cr !?>?? ! end text cr !?>?? endif !?>?? if( long_k )then !?>?? copy :: cr( long) !?>?? ! text cr ! ********************************************************************** ! long_cr(): .cr., cr() for kind long elemental integer( kind= long_k) function long_cr( j, k) integer( kind= long_k), intent( in) :: j, k ! long_cr() continue long_cr = j - k * cd( j, k) return ! long_cr() end function long_cr !?>?? ! end text cr !?>?? endif ! ********************************************************************** ! define hex()/oct()/bin() integer from string ! ********************************************************************** ! hex() hex string to int integer function hex( hexstr, stat) character( len= *), intent( in) :: hexstr integer, optional, intent( out) :: stat ! hex() local character( len= hexstr_len) :: str integer :: istr, jloc ! hex() digits table character( len= *), parameter :: lc_digits = '0123456789abcdef' ! ********************************************************************** ! hex() continue ! make local copy of input string str = adjustl( hexstr) ! force lower case for A-F digits to_lc: do istr = 1, hexstr_len force_lc: select case( str( istr: istr)) case( 'A': 'F' ) force_lc str( istr: istr) = char( ichar( str( istr: istr)) + 32) end select force_lc enddo to_lc ! initialize for decode loop istr = 1 hex = 0 ! decode each digit each_digit: do while( str( istr: ) /= ' ' ) jloc = index( lc_digits, str( istr: istr)) no_hex: if( jloc == 0 )then bad_char: if( present( stat) )then stat = istr endif bad_char hex = 0 return endif no_hex hex = hex * 16 + jloc - 1 istr = istr + 1 enddo each_digit ! status and normal exit status_arg: if( present( stat) )then stat = 0 endif status_arg return ! hex() end function hex ! ********************************************************************** ! oct() octal string to int integer function oct( octstr, stat) character( len= *), intent( in) :: octstr integer, optional, intent( out) :: stat ! oct() local character( len= octstr_len) :: str integer :: istr, jloc ! oct() digits table character( len= *), parameter :: lc_digits = '01234567' ! ********************************************************************** ! oct() continue ! make local copy of input string str = adjustl( octstr) ! initialize for decode loop istr = 1 oct = 0 ! decode each digit each_digit: do while( str( istr: ) /= ' ' ) jloc = index( lc_digits, str( istr: istr)) no_oct: if( jloc == 0 )then bad_char: if( present( stat) )then stat = istr endif bad_char oct = 0 return endif no_oct oct = oct * 8 + jloc - 1 istr = istr + 1 enddo each_digit ! status and normal exit status_arg: if( present( stat) )then stat = 0 endif status_arg return ! oct() end function oct ! ********************************************************************** ! bin() binary string to int integer function bin( binstr, stat) character( len= *), intent( in) :: binstr integer, optional, intent( out) :: stat ! bin() local character( len= binstr_len) :: str integer :: istr, jloc ! bin() digits table character( len= *), parameter :: lc_digits = '01' ! ********************************************************************** ! bin() continue ! make local copy of input string str = adjustl( binstr) ! initialize for decode loop istr = 1 bin = 0 ! decode each digit each_digit: do while( str( istr: ) /= ' ' ) jloc = index( lc_digits( 1: 2), str( istr: istr)) no_bin: if( jloc == 0 )then bad_char: if( present( stat) )then stat = istr endif bad_char bin = 0 return endif no_bin bin = bin * 2 + jloc - 1 istr = istr + 1 enddo each_digit ! status and normal exit status_arg: if( present( stat) )then stat = 0 endif status_arg return ! bin() end function bin ! ********************************************************************** ! define hexstr()/octstr()/binstr() string from integer ! ********************************************************************** ! hexstr() integer to hex string character( len= hexstr_len) function hexstr( i, lc) integer, intent( in) :: i logical, optional, intent( in) :: lc ! hexstr() digits tables character( len= *), parameter :: lc_digits = '0123456789abcdef' character( len= *), parameter :: uc_digits = '0123456789ABCDEF' ! hexstr() local character( len= len( lc_digits)) :: hex_digits integer :: hex_i, jstr, kdig logical :: hex_lc ! ********************************************************************** ! hexstr() continue ! lc argument is present lc_arg: if( present( lc) )then hex_lc = lc else lc_arg hex_lc = .true. endif lc_arg ! lower case or upper case lc_uc: if( hex_lc )then hex_digits = lc_digits else lc_uc hex_digits = uc_digits endif lc_uc ! initialize encode loop jstr = hexstr_len hexstr = ' ' hexstr( jstr: jstr) = '0' hex_i = i ! encode loop each_digit: do while( hex_i /= 0) kdig = iand( hex_i, 15) + 1 hexstr( jstr: jstr) = hex_digits( kdig: kdig) hex_i = ishft( hex_i, -4) jstr = jstr - 1 enddo each_digit hexstr = adjustl( hexstr) ! successful return return ! hexstr() end function hexstr ! ********************************************************************** ! octstr() integer to octal string character( len= octstr_len) function octstr( i) integer, intent( in) :: i ! octstr() local integer :: oct_i, jstr, kdig ! hex()/oct()/bin() digits table character( len= *), parameter :: lc_digits = '01234567' ! ********************************************************************** ! octstr() continue ! initialize encode loop jstr = octstr_len octstr = ' ' octstr( jstr: jstr) = '0' oct_i = i ! encode loop each_digit: do while( oct_i /= 0) kdig = iand( oct_i, 7) + 1 octstr( jstr: jstr) = lc_digits( kdig: kdig) oct_i = ishft( oct_i, -3) jstr = jstr - 1 enddo each_digit octstr = adjustl( octstr) ! successful return return ! octstr() end function octstr ! ********************************************************************** ! binstr() integer to binary string character( len= binstr_len) function binstr( i) integer, intent( in) :: i ! binstr() local integer :: bin_i, jstr, kdig ! hex()/oct()/bin() digits table character( len= *), parameter :: lc_digits = '01' ! ********************************************************************** ! binstr() continue ! initialize encode loop jstr = binstr_len binstr = ' ' binstr( jstr: jstr) = '0' bin_i = i ! encode loop each_digit: do while( bin_i /= 0) kdig = iand( bin_i, 1) + 1 binstr( jstr: jstr) = lc_digits( kdig: kdig) bin_i = ishft( bin_i, -1) jstr = jstr - 1 enddo each_digit binstr = adjustl( binstr) ! successful return return ! binstr() end function binstr ! ********************************************************************** ! define encode() & decode() ! ********************************************************************** ! encode(): integer to character string using translation table pure subroutine encode( str, i, ttable, stat) character( len= *), intent( out) :: str integer, intent( in) :: i character( len= *), intent( in) :: ttable integer, optional, intent( out) :: stat ! encode() local integer :: base integer :: jstr, lenstr, loci, next_char ! encode() continue ! string lengths lenstr = len( str) base = len( ttable) bad_base: if( base < 1 )then status_error: if( present( stat) )then stat = error_bad_base endif status_error return endif bad_base loci = i str = ' ' ! encode i in str next_char = lenstr + 1 ! do positive i all_chars: do while( loci > 0 ) jstr = (loci .mod. base) + 1 overflow: if( next_char > 1 )then next_char = next_char - 1 str( next_char: next_char) = ttable( jstr: jstr) elseif( next_char == 1 )then overflow str = '*' if( present( stat) ) stat = error_short_string return endif overflow loci = loci / base enddo all_chars status_arg: if( present( stat) )then stat = 0 endif status_arg return ! encode() end subroutine encode ! ********************************************************************** ! decode(): character string to integer using ttable pure subroutine decode( i, str, ttable, stat) integer, intent( out) :: i character( len= *), intent( in) :: str character( len= *), intent( in) :: ttable integer, optional, intent( out) :: stat ! decode() local character( len= len( str)) :: str_buff integer :: base integer :: jstr ! decode() continue ! check input str_buff = adjustl( str) base = len( ttable) i = 0 bad_base: if( base < 1 )then status_error: if( present( stat) )then stat = error_bad_base endif status_error return endif bad_base ! scan str each_char: do while( str_buff /= ' ') jstr = index( ttable, str_buff( 1: 1)) bad_char: if( jstr == 0 )then i = 0 if( present( stat) ) stat = error_not_in_table return endif bad_char i = i*base + ( jstr - 1) str_buff = str_buff( 2: ) enddo each_char status_arg: if( present( stat) )then stat = 0 endif status_arg return ! decode() end subroutine decode ! ********************************************************************** ! rrint()- randomly round real to integer !?>?? text :: rrint( kind) !?>! ********************************************************************** !?> !?>! ?kind?_rrint: rrint() for kind ?kind? !?> !?>integer function ?kind?_rrint( a) !?> !?>real( kind= ?kind?_k), intent( in) :: a !?> !?>! ?kind?_rrint() local !?> !?> real( kind= ?kind?_k) :: r !?> !?> integer :: i !?> !?>! ?kind?_rrint() !?> !?>continue !?> !?> overflow: if( int( a) >= huge( i) )then !?> !?> ?kind?_rrint = huge( i) !?> !?> return !?> !?> elseif( int( a) <= -huge( i) )then overflow !?> !?> ?kind?_rrint = -huge( i) !?> !?> return !?> !?> endif overflow !?> !?> call random_number( r) !?> !?>! down if close to floor, up if close to ceiling !?> !?> hi_lo: if( ( a - real( floor( a), kind= ?kind?_k)) <= r )then !?> !?> i = floor( a) !?> !?> else hi_lo !?> !?> i = ceiling( a) !?> !?> endif hi_lo !?> !?> ?kind?_rrint = i !?> !?>return !?> !?>! ?kind?_rrint() !?> !?>end function ?kind?_rrint !?> !?>?? end text rrint !?>?? if( single_k )then !?>?? copy :: rrint( single) !?>?? ! text rrint ! ********************************************************************** ! single_rrint: rrint() for kind single integer function single_rrint( a) real( kind= single_k), intent( in) :: a ! single_rrint() local real( kind= single_k) :: r integer :: i ! single_rrint() continue overflow: if( int( a) >= huge( i) )then single_rrint = huge( i) return elseif( int( a) <= -huge( i) )then overflow single_rrint = -huge( i) return endif overflow call random_number( r) ! down if close to floor, up if close to ceiling hi_lo: if( ( a - real( floor( a), kind= single_k)) <= r )then i = floor( a) else hi_lo i = ceiling( a) endif hi_lo single_rrint = i return ! single_rrint() end function single_rrint !?>?? ! end text rrint !?>?? endif !?>?? if( double_k )then !?>?? copy :: rrint( double) !?>?? ! text rrint ! ********************************************************************** ! double_rrint: rrint() for kind double integer function double_rrint( a) real( kind= double_k), intent( in) :: a ! double_rrint() local real( kind= double_k) :: r integer :: i ! double_rrint() continue overflow: if( int( a) >= huge( i) )then double_rrint = huge( i) return elseif( int( a) <= -huge( i) )then overflow double_rrint = -huge( i) return endif overflow call random_number( r) ! down if close to floor, up if close to ceiling hi_lo: if( ( a - real( floor( a), kind= double_k)) <= r )then i = floor( a) else hi_lo i = ceiling( a) endif hi_lo double_rrint = i return ! double_rrint() end function double_rrint !?>?? ! end text rrint !?>?? endif !?>?? if( quad_k )then !?>?? copy :: rrint( quad) !?>?? ! text rrint ! ********************************************************************** ! quad_rrint: rrint() for kind quad integer function quad_rrint( a) real( kind= quad_k), intent( in) :: a ! quad_rrint() local real( kind= quad_k) :: r integer :: i ! quad_rrint() continue overflow: if( int( a) >= huge( i) )then quad_rrint = huge( i) return elseif( int( a) <= -huge( i) )then overflow quad_rrint = -huge( i) return endif overflow call random_number( r) ! down if close to floor, up if close to ceiling hi_lo: if( ( a - real( floor( a), kind= quad_k)) <= r )then i = floor( a) else hi_lo i = ceiling( a) endif hi_lo quad_rrint = i return ! quad_rrint() end function quad_rrint !?>?? ! end text rrint !?>?? endif ! ********************************************************************** ! define compl() !?>?? text :: compl( kind) !?>! ********************************************************************** !?> !?>! ?kind?_compl: compl() for kind ?kind? !?> !?>elemental logical( kind= ?kind?_k) function ?kind?_compl( l) !?> !?>logical( kind= ?kind?_k), intent( in) :: l !?> !?>! ?kind?_compl() !?> !?>continue !?> !?> ?kind?_compl = .not. l !?> !?>return !?> !?>! ?kind?_compl() !?> !?>end function ?kind?_compl !?> !?>?? end text compl !?>?? if( l_byte_k )then !?>?? copy :: compl( l_byte) !?>?? ! text compl ! ********************************************************************** ! l_byte_compl: compl() for kind l_byte elemental logical( kind= l_byte_k) function l_byte_compl( l) logical( kind= l_byte_k), intent( in) :: l ! l_byte_compl() continue l_byte_compl = .not. l return ! l_byte_compl() end function l_byte_compl !?>?? ! end text compl !?>?? endif !?>?? if( l_short_k )then !?>?? copy :: compl( l_short) !?>?? ! text compl ! ********************************************************************** ! l_short_compl: compl() for kind l_short elemental logical( kind= l_short_k) function l_short_compl( l) logical( kind= l_short_k), intent( in) :: l ! l_short_compl() continue l_short_compl = .not. l return ! l_short_compl() end function l_short_compl !?>?? ! end text compl !?>?? endif !?>?? if( l_int_k )then !?>?? copy :: compl( l_int) !?>?? ! text compl ! ********************************************************************** ! l_int_compl: compl() for kind l_int elemental logical( kind= l_int_k) function l_int_compl( l) logical( kind= l_int_k), intent( in) :: l ! l_int_compl() continue l_int_compl = .not. l return ! l_int_compl() end function l_int_compl !?>?? ! end text compl !?>?? endif !?>?? if( l_long_k )then !?>?? copy :: compl( l_long) !?>?? ! text compl ! ********************************************************************** ! l_long_compl: compl() for kind l_long elemental logical( kind= l_long_k) function l_long_compl( l) logical( kind= l_long_k), intent( in) :: l ! l_long_compl() continue l_long_compl = .not. l return ! l_long_compl() end function l_long_compl !?>?? ! end text compl !?>?? endif ! ********************************************************************** ! ismax(), ismin(), isamax(), isamin() for real kinds !?>?? text :: ismax( kind) !?>! ********************************************************************** !?> !?>! ?kind?_ismax(): ismax() for kind ?kind? !?> !?>pure integer function ?kind?_ismax( n, x, incx) !?> !?>! array x of length n stride incx !?> !?>integer, intent( in) :: n, incx !?> !?>real( kind= ?kind?_k), dimension( n), intent( in) :: x !?> !?>! ?kind?_ismax() local !?> !?> integer, dimension( 1) :: indx !?> !?>! ?kind?_ismax() !?> !?>continue !?> !?>! zero or fewer elements !?> !?> n_zero: if( n <= 0 )then !?> !?> ?kind?_ismax = 0 !?> !?> return !?> !?> endif n_zero !?> !?>! direction of stride !?> !?> incx_p_m: if( incx > 0 )then !?> !?> indx = maxloc( x( 1: n: incx)) !?> ?kind?_ismax = (( indx( 1) - 1)/incx) + 1 !?> !?> elseif( incx < 0 )then incx_p_m !?> !?> indx = maxloc( x( n: 1: incx)) !?> ?kind?_ismax = (( -indx( 1) + n)/incx) + 1 !?> !?> else incx_p_m !?> !?> ?kind?_ismax = 0 !?> !?> endif incx_p_m !?> !?>return !?> !?>! ?kind?_ismax() !?> !?>end function ?kind?_ismax !?> !?>?? end text ismax !?>?? if( single_k )then !?>?? copy :: ismax( single) !?>?? ! text ismax ! ********************************************************************** ! single_ismax(): ismax() for kind single pure integer function single_ismax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= single_k), dimension( n), intent( in) :: x ! single_ismax() local integer, dimension( 1) :: indx ! single_ismax() continue ! zero or fewer elements n_zero: if( n <= 0 )then single_ismax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( x( 1: n: incx)) single_ismax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( x( n: 1: incx)) single_ismax = (( -indx( 1) + n)/incx) + 1 else incx_p_m single_ismax = 0 endif incx_p_m return ! single_ismax() end function single_ismax !?>?? ! end text ismax !?>?? endif !?>?? if( double_k )then !?>?? copy :: ismax( double) !?>?? ! text ismax ! ********************************************************************** ! double_ismax(): ismax() for kind double pure integer function double_ismax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= double_k), dimension( n), intent( in) :: x ! double_ismax() local integer, dimension( 1) :: indx ! double_ismax() continue ! zero or fewer elements n_zero: if( n <= 0 )then double_ismax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( x( 1: n: incx)) double_ismax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( x( n: 1: incx)) double_ismax = (( -indx( 1) + n)/incx) + 1 else incx_p_m double_ismax = 0 endif incx_p_m return ! double_ismax() end function double_ismax !?>?? ! end text ismax !?>?? endif !?>?? if( quad_k )then !?>?? copy :: ismax( quad) !?>?? ! text ismax ! ********************************************************************** ! quad_ismax(): ismax() for kind quad pure integer function quad_ismax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= quad_k), dimension( n), intent( in) :: x ! quad_ismax() local integer, dimension( 1) :: indx ! quad_ismax() continue ! zero or fewer elements n_zero: if( n <= 0 )then quad_ismax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( x( 1: n: incx)) quad_ismax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( x( n: 1: incx)) quad_ismax = (( -indx( 1) + n)/incx) + 1 else incx_p_m quad_ismax = 0 endif incx_p_m return ! quad_ismax() end function quad_ismax !?>?? ! end text ismax !?>?? endif !?>?? text :: ismin( kind) !?>! ********************************************************************** !?> !?>! ?kind?_ismin(): ismin() for kind ?kind? !?> !?>pure integer function ?kind?_ismin( n, x, incx) !?> !?>! array x of length n stride incx !?> !?>integer, intent( in) :: n, incx !?> !?>real( kind= ?kind?_k), dimension( n), intent( in) :: x !?> !?>! ?kind?_ismin() local !?> !?> integer, dimension( 1) :: indx !?> !?>! ?kind?_ismin() !?> !?>continue !?> !?>! zero or fewer elements !?> !?> n_zero: if( n <= 0 )then !?> !?> ?kind?_ismin = 0 !?> !?> return !?> !?> endif n_zero !?> !?>! direction of stride !?> !?> incx_p_m: if( incx > 0 )then !?> !?> indx = minloc( x( 1: n: incx)) !?> ?kind?_ismin = (( indx( 1) - 1)/incx) + 1 !?> !?> elseif( incx < 0 )then incx_p_m !?> !?> indx = minloc( x( n: 1: incx)) !?> ?kind?_ismin = (( -indx( 1) + n)/incx) + 1 !?> !?> else incx_p_m !?> !?> ?kind?_ismin = 0 !?> !?> endif incx_p_m !?> !?>return !?> !?>! ?kind?_ismin() !?> !?>end function ?kind?_ismin !?> !?>?? end text ismin !?>?? if( single_k )then !?>?? copy :: ismin( single) !?>?? ! text ismin ! ********************************************************************** ! single_ismin(): ismin() for kind single pure integer function single_ismin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= single_k), dimension( n), intent( in) :: x ! single_ismin() local integer, dimension( 1) :: indx ! single_ismin() continue ! zero or fewer elements n_zero: if( n <= 0 )then single_ismin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( x( 1: n: incx)) single_ismin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( x( n: 1: incx)) single_ismin = (( -indx( 1) + n)/incx) + 1 else incx_p_m single_ismin = 0 endif incx_p_m return ! single_ismin() end function single_ismin !?>?? ! end text ismin !?>?? endif !?>?? if( double_k )then !?>?? copy :: ismin( double) !?>?? ! text ismin ! ********************************************************************** ! double_ismin(): ismin() for kind double pure integer function double_ismin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= double_k), dimension( n), intent( in) :: x ! double_ismin() local integer, dimension( 1) :: indx ! double_ismin() continue ! zero or fewer elements n_zero: if( n <= 0 )then double_ismin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( x( 1: n: incx)) double_ismin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( x( n: 1: incx)) double_ismin = (( -indx( 1) + n)/incx) + 1 else incx_p_m double_ismin = 0 endif incx_p_m return ! double_ismin() end function double_ismin !?>?? ! end text ismin !?>?? endif !?>?? if( quad_k )then !?>?? copy :: ismin( quad) !?>?? ! text ismin ! ********************************************************************** ! quad_ismin(): ismin() for kind quad pure integer function quad_ismin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= quad_k), dimension( n), intent( in) :: x ! quad_ismin() local integer, dimension( 1) :: indx ! quad_ismin() continue ! zero or fewer elements n_zero: if( n <= 0 )then quad_ismin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( x( 1: n: incx)) quad_ismin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( x( n: 1: incx)) quad_ismin = (( -indx( 1) + n)/incx) + 1 else incx_p_m quad_ismin = 0 endif incx_p_m return ! quad_ismin() end function quad_ismin !?>?? ! end text ismin !?>?? endif !?>?? text :: isamax( kind) !?>! ********************************************************************** !?> !?>! ?kind?_isamax(): isamax() for kind ?kind? !?> !?>pure integer function ?kind?_isamax( n, x, incx) !?> !?>! array x of length n stride incx !?> !?>integer, intent( in) :: n, incx !?> !?>real( kind= ?kind?_k), dimension( n), intent( in) :: x !?> !?>! ?kind?_isamax() local !?> !?> integer, dimension( 1) :: indx !?> !?>! ?kind?_isamax() !?> !?>continue !?> !?>! zero or fewer elements !?> !?> n_zero: if( n <= 0 )then !?> !?> ?kind?_isamax = 0 !?> !?> return !?> !?> endif n_zero !?> !?>! direction of stride !?> !?> incx_p_m: if( incx > 0 )then !?> !?> indx = maxloc( abs( x( 1: n: incx)) ) !?> ?kind?_isamax = (( indx( 1) - 1)/incx) + 1 !?> !?> elseif( incx < 0 )then incx_p_m !?> !?> indx = maxloc( abs( x( n: 1: incx)) ) !?> ?kind?_isamax = (( -indx( 1) + n)/incx) + 1 !?> !?> else incx_p_m !?> !?> ?kind?_isamax = 0 !?> !?> endif incx_p_m !?> !?>return !?> !?>! ?kind?_isamax() !?> !?>end function ?kind?_isamax !?> !?>?? end text isamax !?>?? if( single_k )then !?>?? copy :: isamax( single) !?>?? ! text isamax ! ********************************************************************** ! single_isamax(): isamax() for kind single pure integer function single_isamax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= single_k), dimension( n), intent( in) :: x ! single_isamax() local integer, dimension( 1) :: indx ! single_isamax() continue ! zero or fewer elements n_zero: if( n <= 0 )then single_isamax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( abs( x( 1: n: incx)) ) single_isamax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( abs( x( n: 1: incx)) ) single_isamax = (( -indx( 1) + n)/incx) + 1 else incx_p_m single_isamax = 0 endif incx_p_m return ! single_isamax() end function single_isamax !?>?? ! end text isamax !?>?? endif !?>?? if( double_k )then !?>?? copy :: isamax( double) !?>?? ! text isamax ! ********************************************************************** ! double_isamax(): isamax() for kind double pure integer function double_isamax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= double_k), dimension( n), intent( in) :: x ! double_isamax() local integer, dimension( 1) :: indx ! double_isamax() continue ! zero or fewer elements n_zero: if( n <= 0 )then double_isamax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( abs( x( 1: n: incx)) ) double_isamax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( abs( x( n: 1: incx)) ) double_isamax = (( -indx( 1) + n)/incx) + 1 else incx_p_m double_isamax = 0 endif incx_p_m return ! double_isamax() end function double_isamax !?>?? ! end text isamax !?>?? endif !?>?? if( quad_k )then !?>?? copy :: isamax( quad) !?>?? ! text isamax ! ********************************************************************** ! quad_isamax(): isamax() for kind quad pure integer function quad_isamax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= quad_k), dimension( n), intent( in) :: x ! quad_isamax() local integer, dimension( 1) :: indx ! quad_isamax() continue ! zero or fewer elements n_zero: if( n <= 0 )then quad_isamax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( abs( x( 1: n: incx)) ) quad_isamax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( abs( x( n: 1: incx)) ) quad_isamax = (( -indx( 1) + n)/incx) + 1 else incx_p_m quad_isamax = 0 endif incx_p_m return ! quad_isamax() end function quad_isamax !?>?? ! end text isamax !?>?? endif !?>?? text :: isamin( kind) !?>! ********************************************************************** !?> !?>! ?kind?_isamin(): isamin() for kind ?kind? !?> !?>pure integer function ?kind?_isamin( n, x, incx) !?> !?>! array x of length n stride incx !?> !?>integer, intent( in) :: n, incx !?> !?>real( kind= ?kind?_k), dimension( n), intent( in) :: x !?> !?>! ?kind?_isamin() local !?> !?> integer, dimension( 1) :: indx !?> !?>! ?kind?_isamin() !?> !?>continue !?> !?>! zero or fewer elements !?> !?> n_zero: if( n <= 0 )then !?> !?> ?kind?_isamin = 0 !?> !?> return !?> !?> endif n_zero !?> !?>! direction of stride !?> !?> incx_p_m: if( incx > 0 )then !?> !?> indx = minloc( abs( x( 1: n: incx)) ) !?> ?kind?_isamin = (( indx( 1) - 1)/incx) + 1 !?> !?> elseif( incx < 0 )then incx_p_m !?> !?> indx = minloc( abs( x( n: 1: incx)) ) !?> ?kind?_isamin = (( -indx( 1) + n)/incx) + 1 !?> !?> else incx_p_m !?> !?> ?kind?_isamin = 0 !?> !?> endif incx_p_m !?> !?>return !?> !?>! ?kind?_isamin() !?> !?>end function ?kind?_isamin !?> !?>?? end text isamin !?>?? if( single_k )then !?>?? copy :: isamin( single) !?>?? ! text isamin ! ********************************************************************** ! single_isamin(): isamin() for kind single pure integer function single_isamin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= single_k), dimension( n), intent( in) :: x ! single_isamin() local integer, dimension( 1) :: indx ! single_isamin() continue ! zero or fewer elements n_zero: if( n <= 0 )then single_isamin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( abs( x( 1: n: incx)) ) single_isamin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( abs( x( n: 1: incx)) ) single_isamin = (( -indx( 1) + n)/incx) + 1 else incx_p_m single_isamin = 0 endif incx_p_m return ! single_isamin() end function single_isamin !?>?? ! end text isamin !?>?? endif !?>?? if( double_k )then !?>?? copy :: isamin( double) !?>?? ! text isamin ! ********************************************************************** ! double_isamin(): isamin() for kind double pure integer function double_isamin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= double_k), dimension( n), intent( in) :: x ! double_isamin() local integer, dimension( 1) :: indx ! double_isamin() continue ! zero or fewer elements n_zero: if( n <= 0 )then double_isamin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( abs( x( 1: n: incx)) ) double_isamin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( abs( x( n: 1: incx)) ) double_isamin = (( -indx( 1) + n)/incx) + 1 else incx_p_m double_isamin = 0 endif incx_p_m return ! double_isamin() end function double_isamin !?>?? ! end text isamin !?>?? endif !?>?? if( quad_k )then !?>?? copy :: isamin( quad) !?>?? ! text isamin ! ********************************************************************** ! quad_isamin(): isamin() for kind quad pure integer function quad_isamin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= quad_k), dimension( n), intent( in) :: x ! quad_isamin() local integer, dimension( 1) :: indx ! quad_isamin() continue ! zero or fewer elements n_zero: if( n <= 0 )then quad_isamin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( abs( x( 1: n: incx)) ) quad_isamin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( abs( x( n: 1: incx)) ) quad_isamin = (( -indx( 1) + n)/incx) + 1 else incx_p_m quad_isamin = 0 endif incx_p_m return ! quad_isamin() end function quad_isamin !?>?? ! end text isamin !?>?? endif ! ********************************************************************** ! icamax(), icamin() for complex kinds !?>?? text :: icamax( kind) !?>! ********************************************************************** !?> !?>! ?kind?_icamax(): icamax() for kind ?kind? !?> !?>pure integer function ?kind?_icamax( n, x, incx) !?> !?>! array x of length n stride incx !?> !?>integer, intent( in) :: n, incx !?> !?>complex( kind= ?kind?_k), dimension( n), intent( in) :: x !?> !?>! ?kind?_icamax() local !?> !?> integer, dimension( 1) :: indx !?> !?>! ?kind?_icamax() !?> !?>continue !?> !?>! zero or fewer elements !?> !?> n_zero: if( n <= 0 )then !?> !?> ?kind?_icamax = 0 !?> !?> return !?> !?> endif n_zero !?> !?>! direction of stride !?> !?> incx_p_m: if( incx > 0 )then !?> !?> indx = maxloc( abs( x( 1: n: incx) )) !?> ?kind?_icamax = (( indx( 1) - 1)/incx) + 1 !?> !?> elseif( incx < 0 )then incx_p_m !?> !?> indx = maxloc( abs( x( n: 1: incx) )) !?> ?kind?_icamax = (( -indx( 1) + n)/incx) + 1 !?> !?> else incx_p_m !?> !?> ?kind?_icamax = 0 !?> !?> endif incx_p_m !?> !?>return !?> !?>! ?kind?_icamax() !?> !?>end function ?kind?_icamax !?> !?>?? end text icamax !?>?? if( single_k )then !?>?? copy :: icamax( single) !?>?? ! text icamax ! ********************************************************************** ! single_icamax(): icamax() for kind single pure integer function single_icamax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx complex( kind= single_k), dimension( n), intent( in) :: x ! single_icamax() local integer, dimension( 1) :: indx ! single_icamax() continue ! zero or fewer elements n_zero: if( n <= 0 )then single_icamax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( abs( x( 1: n: incx) )) single_icamax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( abs( x( n: 1: incx) )) single_icamax = (( -indx( 1) + n)/incx) + 1 else incx_p_m single_icamax = 0 endif incx_p_m return ! single_icamax() end function single_icamax !?>?? ! end text icamax !?>?? endif !?>?? if( double_k )then !?>?? copy :: icamax( double) !?>?? ! text icamax ! ********************************************************************** ! double_icamax(): icamax() for kind double pure integer function double_icamax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx complex( kind= double_k), dimension( n), intent( in) :: x ! double_icamax() local integer, dimension( 1) :: indx ! double_icamax() continue ! zero or fewer elements n_zero: if( n <= 0 )then double_icamax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( abs( x( 1: n: incx) )) double_icamax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( abs( x( n: 1: incx) )) double_icamax = (( -indx( 1) + n)/incx) + 1 else incx_p_m double_icamax = 0 endif incx_p_m return ! double_icamax() end function double_icamax !?>?? ! end text icamax !?>?? endif !?>?? if( quad_k )then !?>?? copy :: icamax( quad) !?>?? ! text icamax ! ********************************************************************** ! quad_icamax(): icamax() for kind quad pure integer function quad_icamax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx complex( kind= quad_k), dimension( n), intent( in) :: x ! quad_icamax() local integer, dimension( 1) :: indx ! quad_icamax() continue ! zero or fewer elements n_zero: if( n <= 0 )then quad_icamax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( abs( x( 1: n: incx) )) quad_icamax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( abs( x( n: 1: incx) )) quad_icamax = (( -indx( 1) + n)/incx) + 1 else incx_p_m quad_icamax = 0 endif incx_p_m return ! quad_icamax() end function quad_icamax !?>?? ! end text icamax !?>?? endif !?>?? text :: icamin( kind) !?>! ********************************************************************** !?> !?>! ?kind?_icamin(): icamin() for kind ?kind? !?> !?>pure integer function ?kind?_icamin( n, x, incx) !?> !?>! array x of length n stride incx !?> !?>integer, intent( in) :: n, incx !?> !?>complex( kind= ?kind?_k), dimension( n), intent( in) :: x !?> !?>! single_icamin() local !?> !?> integer, dimension( 1) :: indx !?> !?>! ?kind?_icamin() !?> !?>continue !?> !?>! zero or fewer elements !?> !?> n_zero: if( n <= 0 )then !?> !?> ?kind?_icamin = 0 !?> !?> return !?> !?> endif n_zero !?> !?>! direction of stride !?> !?> incx_p_m: if( incx > 0 )then !?> !?> indx = minloc( abs( x( 1: n: incx) )) !?> ?kind?_icamin = (( indx( 1) - 1)/incx) + 1 !?> !?> elseif( incx < 0 )then incx_p_m !?> !?> indx = minloc( abs( x( n: 1: incx) )) !?> ?kind?_icamin = (( -indx( 1) + n)/incx) + 1 !?> !?> else incx_p_m !?> !?> ?kind?_icamin = 0 !?> !?> endif incx_p_m !?> !?>return !?> !?>! ?kind?_icamin() !?> !?>end function ?kind?_icamin !?> !?>?? end text icamin !?>?? if( single_k )then !?>?? copy :: icamin( single) !?>?? ! text icamin ! ********************************************************************** ! single_icamin(): icamin() for kind single pure integer function single_icamin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx complex( kind= single_k), dimension( n), intent( in) :: x ! single_icamin() local integer, dimension( 1) :: indx ! single_icamin() continue ! zero or fewer elements n_zero: if( n <= 0 )then single_icamin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( abs( x( 1: n: incx) )) single_icamin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( abs( x( n: 1: incx) )) single_icamin = (( -indx( 1) + n)/incx) + 1 else incx_p_m single_icamin = 0 endif incx_p_m return ! single_icamin() end function single_icamin !?>?? ! end text icamin !?>?? endif !?>?? if( double_k )then !?>?? copy :: icamin( double) !?>?? ! text icamin ! ********************************************************************** ! double_icamin(): icamin() for kind double pure integer function double_icamin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx complex( kind= double_k), dimension( n), intent( in) :: x ! single_icamin() local integer, dimension( 1) :: indx ! double_icamin() continue ! zero or fewer elements n_zero: if( n <= 0 )then double_icamin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( abs( x( 1: n: incx) )) double_icamin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( abs( x( n: 1: incx) )) double_icamin = (( -indx( 1) + n)/incx) + 1 else incx_p_m double_icamin = 0 endif incx_p_m return ! double_icamin() end function double_icamin !?>?? ! end text icamin !?>?? endif !?>?? if( quad_k )then !?>?? copy :: icamin( quad) !?>?? ! text icamin ! ********************************************************************** ! quad_icamin(): icamin() for kind quad pure integer function quad_icamin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx complex( kind= quad_k), dimension( n), intent( in) :: x ! single_icamin() local integer, dimension( 1) :: indx ! quad_icamin() continue ! zero or fewer elements n_zero: if( n <= 0 )then quad_icamin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( abs( x( 1: n: incx) )) quad_icamin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( abs( x( n: 1: incx) )) quad_icamin = (( -indx( 1) + n)/incx) + 1 else incx_p_m quad_icamin = 0 endif incx_p_m return ! quad_icamin() end function quad_icamin !?>?? ! end text icamin !?>?? endif ! ********************************************************************** ! define smach() & cmach() ! ********************************************************************** !?>?? text :: smach( kind) !?>! ?kind?_smach(): pause or pause n subroutine !?> !?>subroutine ?kind?_smach( n, mach) !?> !?>integer, intent( in) :: n !?> !?>real( kind= ?kind?_k), intent( out) :: mach !?> !?>! ?kind?_smach() !?> !?>continue !?> !?> switch_arg: select case( n) !?> !?> case( 1) switch_arg !?> !?> mach = epsilon( 0.0_?kind?_k) !?> !?> case( 2) switch_arg !?> !?> mach = tiny( 0.0_?kind?_k) !?> !?> case( 3) switch_arg !?> !?> mach = huge( 0.0_?kind?_k) !?> !?> case default switch_arg !?> !?> mach = 0.0_?kind?_k !?> !?> end select switch_arg !?> !?>return !?> !?>! ?kind?_smach() !?> !?>end subroutine ?kind?_smach !?> !?>?? end text smach !?>?? if( single_k )then !?>?? copy :: smach( single) !?>?? ! text smach ! single_smach(): pause or pause n subroutine subroutine single_smach( n, mach) integer, intent( in) :: n real( kind= single_k), intent( out) :: mach ! single_smach() continue switch_arg: select case( n) case( 1) switch_arg mach = epsilon( 0.0_single_k) case( 2) switch_arg mach = tiny( 0.0_single_k) case( 3) switch_arg mach = huge( 0.0_single_k) case default switch_arg mach = 0.0_single_k end select switch_arg return ! single_smach() end subroutine single_smach !?>?? ! end text smach !?>?? endif !?>?? if( double_k )then !?>?? copy :: smach( double) !?>?? ! text smach ! double_smach(): pause or pause n subroutine subroutine double_smach( n, mach) integer, intent( in) :: n real( kind= double_k), intent( out) :: mach ! double_smach() continue switch_arg: select case( n) case( 1) switch_arg mach = epsilon( 0.0_double_k) case( 2) switch_arg mach = tiny( 0.0_double_k) case( 3) switch_arg mach = huge( 0.0_double_k) case default switch_arg mach = 0.0_double_k end select switch_arg return ! double_smach() end subroutine double_smach !?>?? ! end text smach !?>?? endif !?>?? if( quad_k )then !?>?? copy :: smach( quad) !?>?? ! text smach ! quad_smach(): pause or pause n subroutine subroutine quad_smach( n, mach) integer, intent( in) :: n real( kind= quad_k), intent( out) :: mach ! quad_smach() continue switch_arg: select case( n) case( 1) switch_arg mach = epsilon( 0.0_quad_k) case( 2) switch_arg mach = tiny( 0.0_quad_k) case( 3) switch_arg mach = huge( 0.0_quad_k) case default switch_arg mach = 0.0_quad_k end select switch_arg return ! quad_smach() end subroutine quad_smach !?>?? ! end text smach !?>?? endif !?>?? text :: cmach( kind) !?>! ---------------------------------------------------------------------- !?> !?>! cmach(): pause 'string' function !?> !?>subroutine ?kind?_cmach( n, mach) !?> !?>integer, intent( in) :: n !?> !?>real( kind= ?kind?_k), intent( out) :: mach !?> !?>! ?kind?_cmach() !?> !?>continue !?> !?> switch_arg: select case( n) !?> !?> case( 1) switch_arg !?> !?> mach = sqrt( epsilon( 0.0_?kind?_k)) !?> !?> case( 2) switch_arg !?> !?> mach = sqrt( tiny( 0.0_?kind?_k)) !?> !?> case( 3) switch_arg !?> !?> mach = sqrt( huge( 0.0_?kind?_k)) !?> !?> case default switch_arg !?> !?> mach = 0.0_?kind?_k !?> !?> end select switch_arg !?> !?>return !?> !?>! ?kind?_cmach() !?> !?>end subroutine ?kind?_cmach !?> !?>?? end text cmach !?>?? if( single_k )then !?>?? copy :: cmach( single) !?>?? ! text cmach ! ---------------------------------------------------------------------- ! cmach(): pause 'string' function subroutine single_cmach( n, mach) integer, intent( in) :: n real( kind= single_k), intent( out) :: mach ! single_cmach() continue switch_arg: select case( n) case( 1) switch_arg mach = sqrt( epsilon( 0.0_single_k)) case( 2) switch_arg mach = sqrt( tiny( 0.0_single_k)) case( 3) switch_arg mach = sqrt( huge( 0.0_single_k)) case default switch_arg mach = 0.0_single_k end select switch_arg return ! single_cmach() end subroutine single_cmach !?>?? ! end text cmach !?>?? endif !?>?? if( double_k )then !?>?? copy :: cmach( double) !?>?? ! text cmach ! ---------------------------------------------------------------------- ! cmach(): pause 'string' function subroutine double_cmach( n, mach) integer, intent( in) :: n real( kind= double_k), intent( out) :: mach ! double_cmach() continue switch_arg: select case( n) case( 1) switch_arg mach = sqrt( epsilon( 0.0_double_k)) case( 2) switch_arg mach = sqrt( tiny( 0.0_double_k)) case( 3) switch_arg mach = sqrt( huge( 0.0_double_k)) case default switch_arg mach = 0.0_double_k end select switch_arg return ! double_cmach() end subroutine double_cmach !?>?? ! end text cmach !?>?? endif !?>?? if( quad_k )then !?>?? copy :: cmach( quad) !?>?? ! text cmach ! ---------------------------------------------------------------------- ! cmach(): pause 'string' function subroutine quad_cmach( n, mach) integer, intent( in) :: n real( kind= quad_k), intent( out) :: mach ! quad_cmach() continue switch_arg: select case( n) case( 1) switch_arg mach = sqrt( epsilon( 0.0_quad_k)) case( 2) switch_arg mach = sqrt( tiny( 0.0_quad_k)) case( 3) switch_arg mach = sqrt( huge( 0.0_quad_k)) case default switch_arg mach = 0.0_quad_k end select switch_arg return ! quad_cmach() end subroutine quad_cmach !?>?? ! end text cmach !?>?? endif ! ********************************************************************** ! define pause() & stop() ! ********************************************************************** ! int_pause(): pause or pause n subroutine subroutine int_pause( n) integer, intent( in), optional :: n ! int_pause() continue n_arg: if( present( n) )then write( unit= *, fmt= ps_fmt_ai) ' pause: ', n else n_arg write( unit= *, fmt= ps_fmt_a) ' pause' endif n_arg read( unit= *, fmt= *) return ! int_pause() end subroutine int_pause ! ---------------------------------------------------------------------- ! char_pause(): pause 'string' subroutine subroutine char_pause( string) character( len= *), intent( in) :: string ! char_pause() continue write( unit= *, fmt= ps_fmt_aa) ' pause: ', trim( string) read( unit= *, fmt= *) return ! char_pause() end subroutine char_pause ! ********************************************************************** ! int_stop(): stop or stop n subroutine subroutine int_stop( n) integer, intent( in), optional :: n ! int_stop() continue n_arg: if( present( n) )then write( unit= *, fmt= ps_fmt_ai) ' stop: ', n else n_arg write( unit= *, fmt= ps_fmt_a) ' stop' endif n_arg call exit( 0) return ! int_stop() end subroutine int_stop ! ---------------------------------------------------------------------- ! char_stop(): stop 'string' subroutine subroutine char_stop( string) character( len= *), intent( in) :: string ! char_stop() continue write( unit= *, fmt= ps_fmt_aa) ' stop: ', trim( string) call exit( 0) return ! char_stop() end subroutine char_stop ! ********************************************************************** ! swap() !?>?? text :: swap( type, kind) !?>! ********************************************************************** !?> !?>! ?kind?_?type?_swap() !?> !?>elemental subroutine ?kind?_?type?_swap( a, b) !?> !?>?type?( kind= ?kind?_k), intent( inout) :: a, b !?> !?>! ?kind?_?type?_swap() local !?> !?> ?type?( kind= ?kind?_k) :: t1, t2 !?> !?>! ?kind?_?type?_swap() !?> !?>continue !?> !?> t1 = a !?> !?> t2 = b !?> !?> b = t1 !?> !?> a = t2 !?> !?>return !?> !?>! ?kind?_?type?_swap() !?> !?>end subroutine ?kind?_?type?_swap !?> !?>?? end text swap !?>?? if( ascii_k )then !?>?? copy :: swap( character, ascii) !?>?? ! text swap ! ********************************************************************** ! ascii_character_swap() elemental subroutine ascii_character_swap( a, b) character( kind= ascii_k), intent( inout) :: a, b ! ascii_character_swap() local character( kind= ascii_k) :: t1, t2 ! ascii_character_swap() continue t1 = a t2 = b b = t1 a = t2 return ! ascii_character_swap() end subroutine ascii_character_swap !?>?? ! end text swap !?>?? endif !?>?? if( ebcdic_k )then !?>?? copy :: swap( character, ebcdic) !?>?? endif !?>?? if( byte_k )then !?>?? copy :: swap( integer, byte) !?>?? ! text swap ! ********************************************************************** ! byte_integer_swap() elemental subroutine byte_integer_swap( a, b) integer( kind= byte_k), intent( inout) :: a, b ! byte_integer_swap() local integer( kind= byte_k) :: t1, t2 ! byte_integer_swap() continue t1 = a t2 = b b = t1 a = t2 return ! byte_integer_swap() end subroutine byte_integer_swap !?>?? ! end text swap !?>?? endif !?>?? if( short_k )then !?>?? copy :: swap( integer, short) !?>?? ! text swap ! ********************************************************************** ! short_integer_swap() elemental subroutine short_integer_swap( a, b) integer( kind= short_k), intent( inout) :: a, b ! short_integer_swap() local integer( kind= short_k) :: t1, t2 ! short_integer_swap() continue t1 = a t2 = b b = t1 a = t2 return ! short_integer_swap() end subroutine short_integer_swap !?>?? ! end text swap !?>?? endif !?>?? if( int_k )then !?>?? copy :: swap( integer, int) !?>?? ! text swap ! ********************************************************************** ! int_integer_swap() elemental subroutine int_integer_swap( a, b) integer( kind= int_k), intent( inout) :: a, b ! int_integer_swap() local integer( kind= int_k) :: t1, t2 ! int_integer_swap() continue t1 = a t2 = b b = t1 a = t2 return ! int_integer_swap() end subroutine int_integer_swap !?>?? ! end text swap !?>?? endif !?>?? if( long_k )then !?>?? copy :: swap( integer, long) !?>?? ! text swap ! ********************************************************************** ! long_integer_swap() elemental subroutine long_integer_swap( a, b) integer( kind= long_k), intent( inout) :: a, b ! long_integer_swap() local integer( kind= long_k) :: t1, t2 ! long_integer_swap() continue t1 = a t2 = b b = t1 a = t2 return ! long_integer_swap() end subroutine long_integer_swap !?>?? ! end text swap !?>?? endif !?>?? if( l_byte_k )then !?>?? copy :: swap( logical, l_byte) !?>?? ! text swap ! ********************************************************************** ! l_byte_logical_swap() elemental subroutine l_byte_logical_swap( a, b) logical( kind= l_byte_k), intent( inout) :: a, b ! l_byte_logical_swap() local logical( kind= l_byte_k) :: t1, t2 ! l_byte_logical_swap() continue t1 = a t2 = b b = t1 a = t2 return ! l_byte_logical_swap() end subroutine l_byte_logical_swap !?>?? ! end text swap !?>?? endif !?>?? if( l_short_k )then !?>?? copy :: swap( logical, l_short) !?>?? ! text swap ! ********************************************************************** ! l_short_logical_swap() elemental subroutine l_short_logical_swap( a, b) logical( kind= l_short_k), intent( inout) :: a, b ! l_short_logical_swap() local logical( kind= l_short_k) :: t1, t2 ! l_short_logical_swap() continue t1 = a t2 = b b = t1 a = t2 return ! l_short_logical_swap() end subroutine l_short_logical_swap !?>?? ! end text swap !?>?? endif !?>?? if( l_int_k )then !?>?? copy :: swap( logical, l_int) !?>?? ! text swap ! ********************************************************************** ! l_int_logical_swap() elemental subroutine l_int_logical_swap( a, b) logical( kind= l_int_k), intent( inout) :: a, b ! l_int_logical_swap() local logical( kind= l_int_k) :: t1, t2 ! l_int_logical_swap() continue t1 = a t2 = b b = t1 a = t2 return ! l_int_logical_swap() end subroutine l_int_logical_swap !?>?? ! end text swap !?>?? endif !?>?? if( l_long_k )then !?>?? copy :: swap( logical, l_long) !?>?? ! text swap ! ********************************************************************** ! l_long_logical_swap() elemental subroutine l_long_logical_swap( a, b) logical( kind= l_long_k), intent( inout) :: a, b ! l_long_logical_swap() local logical( kind= l_long_k) :: t1, t2 ! l_long_logical_swap() continue t1 = a t2 = b b = t1 a = t2 return ! l_long_logical_swap() end subroutine l_long_logical_swap !?>?? ! end text swap !?>?? endif !?>?? if( single_k )then !?>?? copy :: swap( real, single) !?>?? ! text swap ! ********************************************************************** ! single_real_swap() elemental subroutine single_real_swap( a, b) real( kind= single_k), intent( inout) :: a, b ! single_real_swap() local real( kind= single_k) :: t1, t2 ! single_real_swap() continue t1 = a t2 = b b = t1 a = t2 return ! single_real_swap() end subroutine single_real_swap !?>?? ! end text swap !?>?? endif !?>?? if( double_k )then !?>?? copy :: swap( real, double) !?>?? ! text swap ! ********************************************************************** ! double_real_swap() elemental subroutine double_real_swap( a, b) real( kind= double_k), intent( inout) :: a, b ! double_real_swap() local real( kind= double_k) :: t1, t2 ! double_real_swap() continue t1 = a t2 = b b = t1 a = t2 return ! double_real_swap() end subroutine double_real_swap !?>?? ! end text swap !?>?? endif !?>?? if( quad_k )then !?>?? copy :: swap( real, quad) !?>?? ! text swap ! ********************************************************************** ! quad_real_swap() elemental subroutine quad_real_swap( a, b) real( kind= quad_k), intent( inout) :: a, b ! quad_real_swap() local real( kind= quad_k) :: t1, t2 ! quad_real_swap() continue t1 = a t2 = b b = t1 a = t2 return ! quad_real_swap() end subroutine quad_real_swap !?>?? ! end text swap !?>?? endif !?>?? if( single_k )then !?>?? copy :: swap( complex, single) !?>?? ! text swap ! ********************************************************************** ! single_complex_swap() elemental subroutine single_complex_swap( a, b) complex( kind= single_k), intent( inout) :: a, b ! single_complex_swap() local complex( kind= single_k) :: t1, t2 ! single_complex_swap() continue t1 = a t2 = b b = t1 a = t2 return ! single_complex_swap() end subroutine single_complex_swap !?>?? ! end text swap !?>?? endif !?>?? if( double_k )then !?>?? copy :: swap( complex, double) !?>?? ! text swap ! ********************************************************************** ! double_complex_swap() elemental subroutine double_complex_swap( a, b) complex( kind= double_k), intent( inout) :: a, b ! double_complex_swap() local complex( kind= double_k) :: t1, t2 ! double_complex_swap() continue t1 = a t2 = b b = t1 a = t2 return ! double_complex_swap() end subroutine double_complex_swap !?>?? ! end text swap !?>?? endif !?>?? if( quad_k )then !?>?? copy :: swap( complex, quad) !?>?? ! text swap ! ********************************************************************** ! quad_complex_swap() elemental subroutine quad_complex_swap( a, b) complex( kind= quad_k), intent( inout) :: a, b ! quad_complex_swap() local complex( kind= quad_k) :: t1, t2 ! quad_complex_swap() continue t1 = a t2 = b b = t1 a = t2 return ! quad_complex_swap() end subroutine quad_complex_swap !?>?? ! end text swap !?>?? endif ! ********************************************************************** ! rev_endian() !?>?? if( short_k )then ! ********************************************************************** ! short_rev_endian() elemental integer( kind= short_k) function short_rev_endian( a) integer( kind= short_k), intent( in) :: a ! short_rev_endian() local integer, parameter :: num_bytes = bit_size( 0_short_k) / bit_size( 0_byte_k) integer( kind= byte_k), dimension( num_bytes) :: tmp ! short_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) short_rev_endian = transfer( tmp, short_rev_endian) return ! short_rev_endian() end function short_rev_endian !?>?? endif !?>?? if( int_k )then ! ---------------------------------------------------------------------- ! int_rev_endian() elemental integer( kind= int_k) function int_rev_endian( a) integer( kind= int_k), intent( in) :: a ! int_rev_endian() local integer, parameter :: num_bytes = bit_size( 0_int_k) / bit_size( 0_byte_k) integer( kind= byte_k), dimension( num_bytes) :: tmp ! int_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) int_rev_endian = transfer( tmp, int_rev_endian) return ! int_rev_endian() end function int_rev_endian !?>?? endif !?>?? if( long_k )then ! ---------------------------------------------------------------------- ! long_rev_endian() elemental integer( kind= long_k) function long_rev_endian( a) integer( kind= long_k), intent( in) :: a ! long_rev_endian() local integer, parameter :: num_bytes = bit_size( 0_long_k) / bit_size( 0_byte_k) integer( kind= byte_k), dimension( num_bytes) :: tmp ! long_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) long_rev_endian = transfer( tmp, long_rev_endian) return ! long_rev_endian() end function long_rev_endian !?>?? endif !?>?? if( l_short_k )then ! ---------------------------------------------------------------------- ! l_short_rev_endian() elemental logical( kind= l_short_k) function l_short_rev_endian( a) logical( kind= l_short_k), intent( in) :: a ! l_short_rev_endian() local integer, parameter :: num_bytes = csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! l_short_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) l_short_rev_endian = transfer( tmp, l_short_rev_endian) return ! l_short_rev_endian() end function l_short_rev_endian !?>?? endif !?>?? if( l_int_k )then ! ---------------------------------------------------------------------- ! l_int_rev_endian() elemental logical( kind= l_int_k) function l_int_rev_endian( a) logical( kind= l_int_k), intent( in) :: a ! l_int_rev_endian() local integer, parameter :: num_bytes = csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! l_int_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) l_int_rev_endian = transfer( tmp, l_int_rev_endian) return ! l_int_rev_endian() end function l_int_rev_endian !?>?? endif !?>?? if( l_long_k )then ! ---------------------------------------------------------------------- ! l_long_rev_endian() elemental logical( kind= l_long_k) function l_long_rev_endian( a) logical( kind= l_long_k), intent( in) :: a ! l_long_rev_endian() local integer, parameter :: num_bytes = csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! l_long_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) l_long_rev_endian = transfer( tmp, l_long_rev_endian) return ! l_long_rev_endian() end function l_long_rev_endian !?>?? endif !?>?? if( single_k )then ! ---------------------------------------------------------------------- ! single_rev_endian() elemental real( kind= single_k) function single_rev_endian( a) real( kind= single_k), intent( in) :: a ! single_rev_endian() local integer, parameter :: num_bytes = csu_per_nsu integer( kind= byte_k), dimension( csu_per_nsu) :: tmp ! single_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) single_rev_endian = transfer( tmp, single_rev_endian) return ! single_rev_endian() end function single_rev_endian !?>?? endif !?>?? if( double_k )then ! ---------------------------------------------------------------------- ! double_rev_endian() elemental real( kind= double_k) function double_rev_endian( a) real( kind= double_k), intent( in) :: a ! double_rev_endian() local integer, parameter :: num_bytes = 2 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! double_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) double_rev_endian= transfer( tmp, double_rev_endian) return ! double_rev_endian() end function double_rev_endian !?>?? endif !?>?? if( quad_k )then ! ---------------------------------------------------------------------- ! quad_rev_endian() elemental real( kind= quad_k) function quad_rev_endian( a) real( kind= quad_k), intent( in) :: a ! quad_rev_endian() local integer, parameter :: num_bytes = 4 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! quad_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) quad_rev_endian= transfer( tmp, quad_rev_endian) return ! quad_rev_endian() end function quad_rev_endian !?>?? endif !?>?? if( single_k )then ! ---------------------------------------------------------------------- ! single_complex_rev_endian() elemental complex( kind= single_k) function single_complex_rev_endian( a) complex( kind= single_k), intent( in) :: a ! single_complex_rev_endian() local integer, parameter :: num_bytes = 2 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! single_complex_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) single_complex_rev_endian = transfer( tmp, single_complex_rev_endian) return ! single_complex_rev_endian() end function single_complex_rev_endian !?>?? endif !?>?? if( double_k )then ! ---------------------------------------------------------------------- ! double_complex_rev_endian() elemental complex( kind= double_k) function double_complex_rev_endian( a) complex( kind= double_k), intent( in) :: a ! double_complex_rev_endian() local integer, parameter :: num_bytes = 4 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! double_complex_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) double_complex_rev_endian = transfer( tmp, double_complex_rev_endian) return ! double_complex_rev_endian() end function double_complex_rev_endian !?>?? endif !?>?? if( quad_k )then ! ---------------------------------------------------------------------- ! quad_complex_rev_endian() elemental complex( kind= quad_k) function quad_complex_rev_endian( a) complex( kind= quad_k), intent( in) :: a ! quad_complex_rev_endian() local integer, parameter :: num_bytes = 8 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! quad_complex_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) quad_complex_rev_endian = transfer( tmp, quad_complex_rev_endian) return ! quad_complex_rev_endian() end function quad_complex_rev_endian !?>?? endif ! ********************************************************************** ! rev_bits() !?>?? if( ascii_k )then ! ********************************************************************** ! ascii_rev_bits() elemental character( kind= ascii_k) function ascii_rev_bits( c) character( len= 1, kind= ascii_k), intent( in) :: c ! ascii_rev_buts() local integer( kind= byte_k) :: loci ! ascii_rev_bits() continue loci = 0 loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_1), sh_1)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_2), sh_2)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_3), sh_3)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_4), sh_4)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_5), sh_5)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_6), sh_6)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_7), sh_7)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_8), sh_8)) ascii_rev_bits = char( loci) return ! ascii_rev_bits() end function ascii_rev_bits !?>?? endif !?>?? if( ebcdic_k )then !?>! ********************************************************************** !?> !?>! ebcdic_rev_bits() !?> !?>elemental character( kind= ebcdic_k) function ebcdic_rev_bits( c) !?> !?>character( len= 1, kind= ebcdic_k), intent( in) :: c !?> !?>! ebcdic_rev_buts() local !?> !?> integer( kind= byte_k) :: loci !?> !?>! ebcdic_rev_bits() !?> !?>continue !?> !?> loci = 0 !?> !?> loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_1), sh_1)) !?> loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_2), sh_2)) !?> loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_3), sh_3)) !?> loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_4), sh_4)) !?> loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_5), sh_5)) !?> loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_6), sh_6)) !?> loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_7), sh_7)) !?> loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_8), sh_8)) !?> !?> ebcdic_rev_bits = char( loci) !?> !?>return !?> !?>! ebcdic_rev_bits() !?> !?>end function ebcdic_rev_bits !?> !?>?? endif !?>?? if( byte_k )then ! ---------------------------------------------------------------------- ! byte_rev_bits() elemental integer( kind= byte_k) function byte_rev_bits( i) integer( kind= byte_k), intent( in) :: i ! byte_rev_buts() local integer( kind= byte_k) :: loci ! byte_rev_bits() continue loci = 0 loci = ior( loci, ishft( iand( i, bit_1), sh_1)) loci = ior( loci, ishft( iand( i, bit_2), sh_2)) loci = ior( loci, ishft( iand( i, bit_3), sh_3)) loci = ior( loci, ishft( iand( i, bit_4), sh_4)) loci = ior( loci, ishft( iand( i, bit_5), sh_5)) loci = ior( loci, ishft( iand( i, bit_6), sh_6)) loci = ior( loci, ishft( iand( i, bit_7), sh_7)) loci = ior( loci, ishft( iand( i, bit_8), sh_8)) byte_rev_bits = loci return ! rev_bits() end function byte_rev_bits !?>?? endif !?>?? if( l_byte_k )then ! ---------------------------------------------------------------------- ! l_byte_rev_bits() elemental logical( kind= l_byte_k) function l_byte_rev_bits( i) logical( kind= l_byte_k), intent( in) :: i ! l_byte_rev_buts() local integer( kind= byte_k) :: loci, locj ! l_byte_rev_bits() continue loci = 0 locj = transfer( i, loci) loci = ior( loci, ishft( iand( locj, bit_1), sh_1)) loci = ior( loci, ishft( iand( locj, bit_2), sh_2)) loci = ior( loci, ishft( iand( locj, bit_3), sh_3)) loci = ior( loci, ishft( iand( locj, bit_4), sh_4)) loci = ior( loci, ishft( iand( locj, bit_5), sh_5)) loci = ior( loci, ishft( iand( locj, bit_6), sh_6)) loci = ior( loci, ishft( iand( locj, bit_7), sh_7)) loci = ior( loci, ishft( iand( locj, bit_8), sh_8)) l_byte_rev_bits = transfer( loci, l_byte_rev_bits) return ! rev_bits() end function l_byte_rev_bits !?>?? endif ! ********************************************************************** ! find io unit which may be opened ! upon return: if >0, an io unit to open; else -1 ! ********************************************************************** ! integer function get_logical_unit() integer function get_logical_unit( min_unit, max_unit, exclude) integer, optional, intent( in) :: min_unit integer, optional, intent( in) :: max_unit integer, optional, dimension(:), intent( in) :: exclude ! inquire return values integer :: io_stat, io_unit logical :: is_open, is_unit ! local min_unit, max_unit integer :: l_min, l_max ! get_logical_unit() continue ! prepare search limits set_min: if( present( min_unit) )then l_min = min_unit else set_min l_min = 0 endif set_min set_max: if( present( max_unit) )then l_max = max_unit else set_max l_max = huge( 0) endif set_max ! search loop io_units: do io_unit = l_min, l_max inquire( unit= io_unit, opened= is_open, exist= is_unit, iostat= io_stat) error: if( io_stat > 0 )then get_logical_unit = -1 return endif error ready: if( is_unit .and. (.not. is_open) )then not_list: if( present( exclude) )then on_list: if( any( io_unit == exclude) )then cycle io_units endif on_list endif not_list get_logical_unit = io_unit return endif ready enddo io_units ! none found get_logical_unit = -1 return ! get_logical_unit() end function get_logical_unit ! ********************************************************************** ! standard_functions ! $Id: stdfunc.fpp 1.3 2003/10/03 19:41:32Z Dan Release $ ! ********************************************************************** end module standard_functions !?>?? This was produced using the following SET file Day-I/09-new-types/stdfunc.fpp100777 0 0 204120 11776640334 11510 0! bof ! ********************************************************************** ! Fortran 95 module standard_functions ! ********************************************************************** ! Source Control Strings ! $Id: stdfunc.fpp 1.3 2003/10/03 19:41:32Z Dan Release $ ! ********************************************************************** ! Copyright 2000 Purple Sage Computing Solutions, Inc. ! ********************************************************************** ! adds a basic set of operators and functions to Fortran 95 programs ! ********************************************************************** ! Summary of License ! This library is free software; you can redistribute it and/or ! modify it under the terms of the GNU Library General Public ! License as published by the Free Software Foundation; either ! version 2 of the License, or (at your option) any later version. ! This library is distributed in the hope that it will be useful, ! but WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ! Library General Public License for more details. ! You should have received a copy of the GNU Library General Public ! License along with this library; if not, write to the Free ! Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! To report bugs, suggest enhancements, etc. to the Authors, ! Contact: ! Purple Sage Computing Solutions, Inc. ! send email to dnagle@erols.com ! or fax to 703 471 0684 (USA) ! or mail to 12142 Purple Sage Ct. ! Reston, VA 20194-5621 USA ! ********************************************************************** ! standard_functions constants ! error_short_string integer encode() or decode() passed null or short string ! error_bad_base integer encode() or decode() base larger than translation table ! error_not_in_table integer decode() input character not in translation table ! standard_functions operators ! .xor. binary logicals ! .mod. binary integers, reals ! .modulo. binary integers, reals ! .gcd. binary integers ! .lcm. binary integers ! .cd. binary integers ! .cr. binary integers ! standard_functions library ! iseven() logical( integer) ! isodd() logical( integer) ! gcd() greatest common divisor integer( integer, integer) ! lcm() least common multiple integer( integer, integer) ! cd() ceiling division [ ( j+ k- 1) /k ] integer( integer, integer) ! cr() ceiling remainder [ j- k* cd() ] integer( integer, integer) ! rrint() round up with probability ( a - int( a)) or down integer( real) ! hex() string to integer ! oct() string to integer ! bin() string to integer ! hexstr() integer to string ! octstr() integer to string ! binstr() integer to string ! encode() integer to string, arbitrary base, via translate table ! decode() string to integer, arbitrary base, via translate table ! compl() for logicals ! ismax() ! ismin() ! isamax() ! isamin() for reals ! icamax() ! icamin() for complex ! smach() machine constants ! cmach() ! pause() subroutine pause() | pause( char*(*)) | pause( integer) ! stop() subroutine stop() | stop( char*(*)) | stop( integer) ! swap() for all tk ! rev_endian() for all tk size > 1 byte ! rev_bits() for all tk size = 1 byte ! get_logical_unit() a logical i/o unit number which may be opened ?? ! ******************************************************************* ?? ! preprocessor dependencies ?? include 'coco.inc' ?? ! ******************************************************************* ! ********************************************************************** module standard_functions ! ********************************************************************** ! use kind parameters use, intrinsic :: iso_fortran_env, only: byte_k => int8, short_k => int16, int_k => int32, long_k => int64, & single_k => real32, double_k => real64, quad_k => real128, & numeric_storage_size, character_storage_size ! ********************************************************************** ! explicit declaration implicit none ! ********************************************************************** ! explicit export private ! ********************************************************************** ! RCS strings ! ********************************************************************** character( len= *), public, parameter :: standard_functions_rcs_id = & '$Id: stdfunc.fpp 1.3 2003/10/03 19:41:32Z Dan Release $' ! ********************************************************************** ! standard_functions constants integer, parameter :: l_byte_k = byte_k integer, parameter :: l_short_k = short_k integer, parameter :: l_int_k = int_k integer, parameter :: l_long_k = long_k integer, parameter :: ascii_k = 1 integer, parameter :: csu_per_nsu = numeric_storage_size / character_storage_size ! ********************************************************************** ! encode()/decode() error codes integer, public, parameter :: error_short_string = 1 integer, public, parameter :: error_bad_base = 2 integer, public, parameter :: error_not_in_table = 3 ! hex()/oct()/bin() string lengths ( note need for ceiling division! ) integer, public, parameter :: hexstr_len = bit_size( 0) / 4 integer, public, parameter :: octstr_len = bit_size( 0)/3 + 1 integer, public, parameter :: binstr_len = bit_size( 0) ! ********************************************************************** ! pause()/stop() formats character( len= *), parameter :: ps_fmt_a = '( a)' character( len= *), parameter :: ps_fmt_ai = '( a, i5.5)' character( len= *), parameter :: ps_fmt_aa = '( a, a)' ?? if( byte_k )then ! ********************************************************************** ! rev_bits masks and shift counts integer( kind= byte_k) :: bit_1 ; data bit_1 / z'01'/ integer( kind= byte_k) :: bit_2 ; data bit_2 / z'02'/ integer( kind= byte_k) :: bit_3 ; data bit_3 / z'04'/ integer( kind= byte_k) :: bit_4 ; data bit_4 / z'08'/ integer( kind= byte_k) :: bit_5 ; data bit_5 / z'10'/ integer( kind= byte_k) :: bit_6 ; data bit_6 / z'20'/ integer( kind= byte_k) :: bit_7 ; data bit_7 / z'40'/ integer( kind= byte_k) :: bit_8 ; data bit_8 / z'80'/ integer( kind= byte_k), parameter :: sh_1 = 7 integer( kind= byte_k), parameter :: sh_2 = 5 integer( kind= byte_k), parameter :: sh_3 = 3 integer( kind= byte_k), parameter :: sh_4 = 1 integer( kind= byte_k), parameter :: sh_5 = -1 integer( kind= byte_k), parameter :: sh_6 = -3 integer( kind= byte_k), parameter :: sh_7 = -5 integer( kind= byte_k), parameter :: sh_8 = -7 ?? endif ! ********************************************************************** ! standard_functions library ! ********************************************************************** ! declare specific functions implementing the .xor. operator public :: operator( .xor.) interface operator( .xor.) ?? if( l_byte_k )then module procedure l_byte_xor ?? endif ?? if( l_short_k )then module procedure l_short_xor ?? endif ?? if( l_int_k )then module procedure l_int_xor ?? endif ?? if( l_long_k )then module procedure l_long_xor ?? endif end interface ! ********************************************************************** ! declare specific functions implementing the .mod. operator public :: operator( .mod.) interface operator( .mod.) ?? if( byte_k )then module procedure byte_mod ?? endif ?? if( short_k )then module procedure short_mod ?? endif ?? if( int_k )then module procedure int_mod ?? endif ?? if( long_k )then module procedure long_mod ?? endif ?? if( single_k )then module procedure single_mod ?? endif ?? if( double_k )then module procedure double_mod ?? endif ?? if( quad_k )then module procedure quad_mod ?? endif end interface ! declare specific functions implementing the .modulo. operator public :: operator( .modulo.) interface operator( .modulo.) ?? if( byte_k )then module procedure byte_modulo ?? endif ?? if( short_k )then module procedure short_modulo ?? endif ?? if( int_k )then module procedure int_modulo ?? endif ?? if( long_k )then module procedure long_modulo ?? endif ?? if( single_k )then module procedure single_modulo ?? endif ?? if( double_k )then module procedure double_modulo ?? endif ?? if( quad_k )then module procedure quad_modulo ?? endif end interface ! ********************************************************************** ! declare specific functions implementing the .gcd. operator public :: operator( .gcd.) interface operator( .gcd.) ?? if( byte_k )then module procedure byte_gcd ?? endif ?? if( short_k )then module procedure short_gcd ?? endif ?? if( int_k )then module procedure int_gcd ?? endif ?? if( long_k )then module procedure long_gcd ?? endif end interface ! declare specific functions implementing the gcd() function public :: gcd interface gcd ?? if( byte_k )then module procedure byte_gcd ?? endif ?? if( short_k )then module procedure short_gcd ?? endif ?? if( int_k )then module procedure int_gcd ?? endif ?? if( long_k )then module procedure long_gcd ?? endif end interface ! declare specific functions implementing the .lcm. operator public :: operator( .lcm.) interface operator( .lcm.) ?? if( byte_k )then module procedure byte_lcm ?? endif ?? if( short_k )then module procedure short_lcm ?? endif ?? if( int_k )then module procedure int_lcm ?? endif ?? if( long_k )then module procedure long_lcm ?? endif end interface ! declare specific functions implementing the lcm() function public :: lcm interface lcm ?? if( byte_k )then module procedure byte_lcm ?? endif ?? if( short_k )then module procedure short_lcm ?? endif ?? if( int_k )then module procedure int_lcm ?? endif ?? if( long_k )then module procedure long_lcm ?? endif end interface ! ********************************************************************** ! declare specific functions implementing the .cd. operator public :: operator( .cd.) interface operator( .cd.) ?? if( byte_k )then module procedure byte_cd ?? endif ?? if( short_k )then module procedure short_cd ?? endif ?? if( int_k )then module procedure int_cd ?? endif ?? if( long_k )then module procedure long_cd ?? endif end interface ! declare specific functions implementing the cd() function public :: cd interface cd ?? if( byte_k )then module procedure byte_cd ?? endif ?? if( short_k )then module procedure short_cd ?? endif ?? if( int_k )then module procedure int_cd ?? endif ?? if( long_k )then module procedure long_cd ?? endif end interface ! declare specific functions implementing the .cr. operator public :: operator( .cr.) interface operator( .cr.) ?? if( byte_k )then module procedure byte_cr ?? endif ?? if( short_k )then module procedure short_cr ?? endif ?? if( int_k )then module procedure int_cr ?? endif ?? if( long_k )then module procedure long_cr ?? endif end interface ! declare specific functions implementing the cr() function public :: cr interface cr ?? if( byte_k )then module procedure byte_cr ?? endif ?? if( short_k )then module procedure short_cr ?? endif ?? if( int_k )then module procedure int_cr ?? endif ?? if( long_k )then module procedure long_cr ?? endif end interface ! ********************************************************************** ! integer diagnostic functions ! ********************************************************************** ! declare specific functions implementing the iseven() function public :: iseven interface iseven ?? if( byte_k )then module procedure byte_iseven ?? endif ?? if( short_k )then module procedure short_iseven ?? endif ?? if( int_k )then module procedure int_iseven ?? endif ?? if( long_k )then module procedure long_iseven ?? endif end interface ! ********************************************************************** ! declare specific functions implementing the isodd() function public :: isodd interface isodd ?? if( byte_k )then module procedure byte_isodd ?? endif ?? if( short_k )then module procedure short_isodd ?? endif ?? if( int_k )then module procedure int_isodd ?? endif ?? if( long_k )then module procedure long_isodd ?? endif end interface ! ********************************************************************** ! real to integer functions ! ********************************************************************** ! declare specific functions implementing the rrint() function public :: rrint interface rrint ?? if( single_k )then module procedure single_rrint ?? endif ?? if( double_k )then module procedure double_rrint ?? endif ?? if( quad_k )then module procedure quad_rrint ?? endif end interface ! ********************************************************************** ! logical utility functions ! ********************************************************************** ! declare specific functions implementing the compl() function public :: compl interface compl ?? if( l_byte_k )then module procedure l_byte_compl ?? endif ?? if( l_short_k )then module procedure l_short_compl ?? endif ?? if( l_int_k )then module procedure l_int_compl ?? endif ?? if( l_long_k )then module procedure l_long_compl ?? endif end interface ! ********************************************************************** ! index finding functions ! ********************************************************************** ! declare specific function supporting generic function ismax() public :: ismax interface ismax ?? if( single_k )then module procedure single_ismax ?? endif ?? if( double_k )then module procedure double_ismax ?? endif ?? if( quad_k )then module procedure quad_ismax ?? endif end interface ! declare specific functions supporting generic function ismin() public :: ismin interface ismin ?? if( single_k )then module procedure single_ismin ?? endif ?? if( double_k )then module procedure double_ismin ?? endif ?? if( quad_k )then module procedure quad_ismin ?? endif end interface ! declare specific function supporting generic function isamax() public :: isamax interface isamax ?? if( single_k )then module procedure single_isamax ?? endif ?? if( double_k )then module procedure double_isamax ?? endif ?? if( quad_k )then module procedure quad_isamax ?? endif end interface ! declare specific functions supporting generic function isamin() public :: isamin interface isamin ?? if( single_k )then module procedure single_isamin ?? endif ?? if( double_k )then module procedure double_isamin ?? endif ?? if( quad_k )then module procedure quad_isamin ?? endif end interface ! declare specific function supporting generic function icamax() public :: icamax interface icamax ?? if( single_k )then module procedure single_icamax ?? endif ?? if( double_k )then module procedure double_icamax ?? endif ?? if( quad_k )then module procedure quad_icamax ?? endif end interface ! declare specific functions supporting generic function icamin() public :: icamin interface icamin ?? if( single_k )then module procedure single_icamin ?? endif ?? if( double_k )then module procedure double_icamin ?? endif ?? if( quad_k )then module procedure quad_icamin ?? endif end interface ! ********************************************************************** ! machine constant functions ! ********************************************************************** ! declare specific function supporting generic function smach() public :: smach interface smach ?? if( single_k )then module procedure single_smach ?? endif ?? if( double_k )then module procedure double_smach ?? endif ?? if( quad_k )then module procedure quad_smach ?? endif end interface ! declare specific functions supporting generic function cmach() public :: cmach interface cmach ?? if( single_k )then module procedure single_cmach ?? endif ?? if( double_k )then module procedure double_cmach ?? endif ?? if( quad_k )then module procedure quad_cmach ?? endif end interface ! ********************************************************************** ! subroutines to replace stop and pause statements ! ********************************************************************** ! declare specific subroutines supporting generic subroutine pause() public :: pause interface pause module procedure int_pause module procedure char_pause end interface ! declare specific subroutines supporting generic subroutine stop() public :: stop interface stop module procedure int_stop module procedure char_stop end interface ! ********************************************************************** ! subroutines to implement the swap() routine ! ********************************************************************** ! declare specific subroutines supporting swap() public :: swap interface swap ?? if( ascii_k )then module procedure ascii_character_swap ?? endif ?? if( ebcdic_k )then module procedure ebcdic_character_swap ?? endif ?? if( byte_k )then module procedure byte_integer_swap ?? endif ?? if( short_k )then module procedure short_integer_swap ?? endif ?? if( int_k )then module procedure int_integer_swap ?? endif ?? if( long_k )then module procedure long_integer_swap ?? endif ?? if( l_byte_k )then module procedure l_byte_logical_swap ?? endif ?? if( l_short_k )then module procedure l_short_logical_swap ?? endif ?? if( l_int_k )then module procedure l_int_logical_swap ?? endif ?? if( l_long_k )then module procedure l_long_logical_swap ?? endif ?? if( single_k )then module procedure single_real_swap ?? endif ?? if( double_k )then module procedure double_real_swap ?? endif ?? if( quad_k )then module procedure quad_real_swap ?? endif ?? if( single_k )then module procedure single_complex_swap ?? endif ?? if( double_k )then module procedure double_complex_swap ?? endif ?? if( quad_k )then module procedure quad_complex_swap ?? endif end interface ! ********************************************************************** ! subroutines to implement the rev_endian() routine ! ********************************************************************** ! declare specific subroutines supporting rev_endian() public :: rev_endian interface rev_endian ?? if( short_k )then module procedure short_rev_endian ?? endif ?? if( int_k )then module procedure int_rev_endian ?? endif ?? if( long_k )then module procedure long_rev_endian ?? endif ?? if( l_short_k )then module procedure l_short_rev_endian ?? endif ?? if( l_int_k )then module procedure l_int_rev_endian ?? endif ?? if( l_long_k )then module procedure l_long_rev_endian ?? endif ?? if( single_k )then module procedure single_rev_endian ?? endif ?? if( double_k )then module procedure double_rev_endian ?? endif ?? if( quad_k )then module procedure quad_rev_endian ?? endif ?? if( single_k )then module procedure single_complex_rev_endian ?? endif ?? if( double_k )then module procedure double_complex_rev_endian ?? endif ?? if( quad_k )then module procedure quad_complex_rev_endian ?? endif end interface ! ********************************************************************** ! subroutines to implement the rev_bits() routine ! ********************************************************************** ! declare specific subroutines supporting rev_bits() public :: rev_bits interface rev_bits ?? if( ascii_k )then module procedure ascii_rev_bits ?? endif ?? if( ebcdic_k )then module procedure ebcdic_rev_bits ?? endif ?? if( byte_k )then module procedure byte_rev_bits ?? endif ?? if( l_byte_k )then module procedure l_byte_rev_bits ?? endif end interface ! ********************************************************************** ! declare module procedure names public public :: bin public :: oct public :: hex public :: binstr public :: octstr public :: hexstr public :: decode public :: encode public :: get_logical_unit ! ********************************************************************** ! module procedures ! ********************************************************************** contains ! ********************************************************************** ! define .xor. binary operator ?? text :: xor( kind) ! ********************************************************************** ! ?kind?_xor: xor() for kind ?kind? elemental logical( kind= ?kind?_k) function ?kind?_xor( l1, l2) logical( kind= ?kind?_k), intent( in) :: l1, l2 ! ?kind?_xor() continue ?kind?_xor = l1 .neqv. l2 return ! ?kind?_xor() end function ?kind?_xor ?? end text xor ?? if( l_byte_k )then ?? copy :: xor( l_byte) ?? endif ?? if( l_short_k )then ?? copy :: xor( l_short) ?? endif ?? if( l_int_k )then ?? copy :: xor( l_int) ?? endif ?? if( l_long_k )then ?? copy :: xor( l_long) ?? endif ! ********************************************************************** ! define .mod. binary operator ?? text :: mod( type, kind) ! ********************************************************************** ! ?kind?_mod(): .mod. for kind ?kind? elemental ?type?( kind= ?kind?_k) function ?kind?_mod( a, p) ?type?( kind= ?kind?_k), intent( in) :: a, p ! ?kind?_mod() continue ?kind?_mod = mod( a, p) return ! ?kind?_mod() end function ?kind?_mod ?? end text mod ?? if( byte_k )then ?? copy :: mod( integer, byte) ?? endif ?? if( short_k )then ?? copy :: mod( integer, short) ?? endif ?? if( int_k )then ?? copy :: mod( integer, int) ?? endif ?? if( long_k )then ?? copy :: mod( integer, long) ?? endif ?? if( single_k )then ?? copy :: mod( real, single) ?? endif ?? if( double_k )then ?? copy :: mod( real, double) ?? endif ?? if( quad_k )then ?? copy :: mod( real, quad) ?? endif ! ********************************************************************** ! define .modulo. binary operator ?? text :: modulo( type, kind) ! ********************************************************************** ! ?kind?_modulo(): .modulo. for kind ?kind? elemental ?type?( kind= ?kind?_k) function ?kind?_modulo( a, p) ?type?( kind= ?kind?_k), intent( in) :: a, p ! ?kind?_modulo() continue ?kind?_modulo = modulo( a, p) return ! ?kind?_modulo() end function ?kind?_modulo ?? end text modulo ?? if( byte_k )then ?? copy :: modulo( integer, byte) ?? endif ?? if( short_k )then ?? copy :: modulo( integer, short) ?? endif ?? if( int_k )then ?? copy :: modulo( integer, int) ?? endif ?? if( long_k )then ?? copy :: modulo( integer, long) ?? endif ?? if( single_k )then ?? copy :: modulo( real, single) ?? endif ?? if( double_k )then ?? copy :: modulo( real, double) ?? endif ?? if( quad_k )then ?? copy :: modulo( real, quad) ?? endif ! ********************************************************************** ! define iseven()/isodd() for integer kinds ?? text :: iseven( kind) ! ********************************************************************** ! ?kind?_iseven(): iseven() for kind ?kind? elemental logical function ?kind?_iseven( a) integer( kind= ?kind?_k), intent( in) :: a ! ?kind?_iseven() continue ?kind?_iseven = iand( a, 1_?kind?_k) == 0_?kind?_k return ! ?kind?_iseven() end function ?kind?_iseven ?? end text iseven ?? if( byte_k )then ?? copy :: iseven( byte) ?? endif ?? if( short_k )then ?? copy :: iseven( short) ?? endif ?? if( int_k )then ?? copy :: iseven( int) ?? endif ?? if( long_k )then ?? copy :: iseven( long) ?? endif ?? text :: isodd( kind) ! ********************************************************************** ! ?kind?_isodd(): isodd() for kind ?kind? elemental logical function ?kind?_isodd( a) integer( kind= ?kind?_k), intent( in) :: a ! ?kind?_isodd() continue ?kind?_isodd = iand( a, 1_?kind?_k) == 1_?kind?_k return ! ?kind?_isodd() end function ?kind?_isodd ?? end text isodd ?? if( byte_k )then ?? copy :: isodd( byte) ?? endif ?? if( short_k )then ?? copy :: isodd( short) ?? endif ?? if( int_k )then ?? copy :: isodd( int) ?? endif ?? if( long_k )then ?? copy :: isodd( long) ?? endif ! ********************************************************************** ! define gcd()/lcm() ?? text :: gcd( kind) ! ********************************************************************** ! ?kind?_gcd() gcd() for kind ?kind?_k elemental integer( kind= ?kind?_k) function ?kind?_gcd( a, b) integer( kind= ?kind?_k), intent( in) :: a, b ! ?kind?_gcd() local integer( kind= ?kind?_k) :: a_gcd, b_gcd, rnp1, rn, rnm1 ! ?kind?_gcd() continue ! if a or b zero, abs( other) is gcd zero_a: if( a == 0_?kind?_k )then ?kind?_gcd = abs( b) return endif zero_a zero_b: if( b == 0_?kind?_k )then ?kind?_gcd = abs( a) return endif zero_b ! set |a| >= |b| ( > 0) ! r1 = a .mod. b ! r0 = b a_gcd = max( abs( a), abs( b)) b_gcd = min( abs( a), abs( b)) rn = a_gcd .mod. b_gcd rnm1 = b_gcd ! while rn /= 0 ! compute rn+1 = rn .mod. rn-1 ! gcd() = rnm1 zero_rem: do while( rn /= 0_?kind?_k) rnp1 = rnm1 .mod. rn rnm1 = rn rn = rnp1 enddo zero_rem ?kind?_gcd = rnm1 return ! ?kind?_gcd() end function ?kind?_gcd ?? end text gcd ?? if( byte_k )then ?? copy :: gcd( byte) ?? endif ?? if( short_k )then ?? copy :: gcd( short) ?? endif ?? if( int_k )then ?? copy :: gcd( int) ?? endif ?? if( long_k )then ?? copy :: gcd( long) ?? endif ! ********************************************************************** ! lcm ?? text :: lcm( kind) ! ********************************************************************** ! ?kind?_lcm() lcm() for kind= ?kind?_k elemental integer( kind= ?kind?_k) function ?kind?_lcm( a, b) integer( kind= ?kind?_k), intent( in) :: a, b ! ?kind?_lcm() continue ?kind?_lcm = ( a* b) / gcd( a, b) return ! ?kind?_lcm() end function ?kind?_lcm ?? end text lcm ?? if( int_k )then ?? copy :: lcm( byte) ?? endif ?? if( short_k )then ?? copy :: lcm( short) ?? endif ?? if( int_k )then ?? copy :: lcm( int) ?? endif ?? if( long_k )then ?? copy :: lcm( long) ?? endif ! ********************************************************************** ! define cd()/cr() for integer kinds ?? text :: cd( kind) ! ********************************************************************** ! ?kind?_cd(): .cd., cd() for kind ?kind? elemental integer( kind= ?kind?_k) function ?kind?_cd( j, k) integer( kind= ?kind?_k), intent( in) :: j, k ! ?kind?_cd() continue ?kind?_cd = ( j + k - 1_?kind?_k) / k return ! ?kind?_cd() end function ?kind?_cd ?? end text cd ?? if( byte_k )then ?? copy :: cd( byte) ?? endif ?? if( short_k )then ?? copy :: cd( short) ?? endif ?? if( int_k )then ?? copy :: cd( int) ?? endif ?? if( long_k )then ?? copy :: cd( long) ?? endif ?? text :: cr( kind) ! ********************************************************************** ! ?kind?_cr(): .cr., cr() for kind ?kind? elemental integer( kind= ?kind?_k) function ?kind?_cr( j, k) integer( kind= ?kind?_k), intent( in) :: j, k ! ?kind?_cr() continue ?kind?_cr = j - k * cd( j, k) return ! ?kind?_cr() end function ?kind?_cr ?? end text cr ?? if( byte_k )then ?? copy :: cr( byte) ?? endif ?? if( short_k )then ?? copy :: cr( short) ?? endif ?? if( int_k )then ?? copy :: cr( int) ?? endif ?? if( long_k )then ?? copy :: cr( long) ?? endif ! ********************************************************************** ! define hex()/oct()/bin() integer from string ! ********************************************************************** ! hex() hex string to int integer function hex( hexstr, stat) character( len= *), intent( in) :: hexstr integer, optional, intent( out) :: stat ! hex() local character( len= hexstr_len) :: str integer :: istr, jloc ! hex() digits table character( len= *), parameter :: lc_digits = '0123456789abcdef' ! ********************************************************************** ! hex() continue ! make local copy of input string str = adjustl( hexstr) ! force lower case for A-F digits to_lc: do istr = 1, hexstr_len force_lc: select case( str( istr: istr)) case( 'A': 'F' ) force_lc str( istr: istr) = char( ichar( str( istr: istr)) + 32) end select force_lc enddo to_lc ! initialize for decode loop istr = 1 hex = 0 ! decode each digit each_digit: do while( str( istr: ) /= ' ' ) jloc = index( lc_digits, str( istr: istr)) no_hex: if( jloc == 0 )then bad_char: if( present( stat) )then stat = istr endif bad_char hex = 0 return endif no_hex hex = hex * 16 + jloc - 1 istr = istr + 1 enddo each_digit ! status and normal exit status_arg: if( present( stat) )then stat = 0 endif status_arg return ! hex() end function hex ! ********************************************************************** ! oct() octal string to int integer function oct( octstr, stat) character( len= *), intent( in) :: octstr integer, optional, intent( out) :: stat ! oct() local character( len= octstr_len) :: str integer :: istr, jloc ! oct() digits table character( len= *), parameter :: lc_digits = '01234567' ! ********************************************************************** ! oct() continue ! make local copy of input string str = adjustl( octstr) ! initialize for decode loop istr = 1 oct = 0 ! decode each digit each_digit: do while( str( istr: ) /= ' ' ) jloc = index( lc_digits, str( istr: istr)) no_oct: if( jloc == 0 )then bad_char: if( present( stat) )then stat = istr endif bad_char oct = 0 return endif no_oct oct = oct * 8 + jloc - 1 istr = istr + 1 enddo each_digit ! status and normal exit status_arg: if( present( stat) )then stat = 0 endif status_arg return ! oct() end function oct ! ********************************************************************** ! bin() binary string to int integer function bin( binstr, stat) character( len= *), intent( in) :: binstr integer, optional, intent( out) :: stat ! bin() local character( len= binstr_len) :: str integer :: istr, jloc ! bin() digits table character( len= *), parameter :: lc_digits = '01' ! ********************************************************************** ! bin() continue ! make local copy of input string str = adjustl( binstr) ! initialize for decode loop istr = 1 bin = 0 ! decode each digit each_digit: do while( str( istr: ) /= ' ' ) jloc = index( lc_digits( 1: 2), str( istr: istr)) no_bin: if( jloc == 0 )then bad_char: if( present( stat) )then stat = istr endif bad_char bin = 0 return endif no_bin bin = bin * 2 + jloc - 1 istr = istr + 1 enddo each_digit ! status and normal exit status_arg: if( present( stat) )then stat = 0 endif status_arg return ! bin() end function bin ! ********************************************************************** ! define hexstr()/octstr()/binstr() string from integer ! ********************************************************************** ! hexstr() integer to hex string character( len= hexstr_len) function hexstr( i, lc) integer, intent( in) :: i logical, optional, intent( in) :: lc ! hexstr() digits tables character( len= *), parameter :: lc_digits = '0123456789abcdef' character( len= *), parameter :: uc_digits = '0123456789ABCDEF' ! hexstr() local character( len= len( lc_digits)) :: hex_digits integer :: hex_i, jstr, kdig logical :: hex_lc ! ********************************************************************** ! hexstr() continue ! lc argument is present lc_arg: if( present( lc) )then hex_lc = lc else lc_arg hex_lc = .true. endif lc_arg ! lower case or upper case lc_uc: if( hex_lc )then hex_digits = lc_digits else lc_uc hex_digits = uc_digits endif lc_uc ! initialize encode loop jstr = hexstr_len hexstr = ' ' hexstr( jstr: jstr) = '0' hex_i = i ! encode loop each_digit: do while( hex_i /= 0) kdig = iand( hex_i, 15) + 1 hexstr( jstr: jstr) = hex_digits( kdig: kdig) hex_i = ishft( hex_i, -4) jstr = jstr - 1 enddo each_digit hexstr = adjustl( hexstr) ! successful return return ! hexstr() end function hexstr ! ********************************************************************** ! octstr() integer to octal string character( len= octstr_len) function octstr( i) integer, intent( in) :: i ! octstr() local integer :: oct_i, jstr, kdig ! hex()/oct()/bin() digits table character( len= *), parameter :: lc_digits = '01234567' ! ********************************************************************** ! octstr() continue ! initialize encode loop jstr = octstr_len octstr = ' ' octstr( jstr: jstr) = '0' oct_i = i ! encode loop each_digit: do while( oct_i /= 0) kdig = iand( oct_i, 7) + 1 octstr( jstr: jstr) = lc_digits( kdig: kdig) oct_i = ishft( oct_i, -3) jstr = jstr - 1 enddo each_digit octstr = adjustl( octstr) ! successful return return ! octstr() end function octstr ! ********************************************************************** ! binstr() integer to binary string character( len= binstr_len) function binstr( i) integer, intent( in) :: i ! binstr() local integer :: bin_i, jstr, kdig ! hex()/oct()/bin() digits table character( len= *), parameter :: lc_digits = '01' ! ********************************************************************** ! binstr() continue ! initialize encode loop jstr = binstr_len binstr = ' ' binstr( jstr: jstr) = '0' bin_i = i ! encode loop each_digit: do while( bin_i /= 0) kdig = iand( bin_i, 1) + 1 binstr( jstr: jstr) = lc_digits( kdig: kdig) bin_i = ishft( bin_i, -1) jstr = jstr - 1 enddo each_digit binstr = adjustl( binstr) ! successful return return ! binstr() end function binstr ! ********************************************************************** ! define encode() & decode() ! ********************************************************************** ! encode(): integer to character string using translation table pure subroutine encode( str, i, ttable, stat) character( len= *), intent( out) :: str integer, intent( in) :: i character( len= *), intent( in) :: ttable integer, optional, intent( out) :: stat ! encode() local integer :: base integer :: jstr, lenstr, loci, next_char ! encode() continue ! string lengths lenstr = len( str) base = len( ttable) bad_base: if( base < 1 )then status_error: if( present( stat) )then stat = error_bad_base endif status_error return endif bad_base loci = i str = ' ' ! encode i in str next_char = lenstr + 1 ! do positive i all_chars: do while( loci > 0 ) jstr = (loci .mod. base) + 1 overflow: if( next_char > 1 )then next_char = next_char - 1 str( next_char: next_char) = ttable( jstr: jstr) elseif( next_char == 1 )then overflow str = '*' if( present( stat) ) stat = error_short_string return endif overflow loci = loci / base enddo all_chars status_arg: if( present( stat) )then stat = 0 endif status_arg return ! encode() end subroutine encode ! ********************************************************************** ! decode(): character string to integer using ttable pure subroutine decode( i, str, ttable, stat) integer, intent( out) :: i character( len= *), intent( in) :: str character( len= *), intent( in) :: ttable integer, optional, intent( out) :: stat ! decode() local character( len= len( str)) :: str_buff integer :: base integer :: jstr ! decode() continue ! check input str_buff = adjustl( str) base = len( ttable) i = 0 bad_base: if( base < 1 )then status_error: if( present( stat) )then stat = error_bad_base endif status_error return endif bad_base ! scan str each_char: do while( str_buff /= ' ') jstr = index( ttable, str_buff( 1: 1)) bad_char: if( jstr == 0 )then i = 0 if( present( stat) ) stat = error_not_in_table return endif bad_char i = i*base + ( jstr - 1) str_buff = str_buff( 2: ) enddo each_char status_arg: if( present( stat) )then stat = 0 endif status_arg return ! decode() end subroutine decode ! ********************************************************************** ! rrint()- randomly round real to integer ?? text :: rrint( kind) ! ********************************************************************** ! ?kind?_rrint: rrint() for kind ?kind? integer function ?kind?_rrint( a) real( kind= ?kind?_k), intent( in) :: a ! ?kind?_rrint() local real( kind= ?kind?_k) :: r integer :: i ! ?kind?_rrint() continue overflow: if( int( a) >= huge( i) )then ?kind?_rrint = huge( i) return elseif( int( a) <= -huge( i) )then overflow ?kind?_rrint = -huge( i) return endif overflow call random_number( r) ! down if close to floor, up if close to ceiling hi_lo: if( ( a - real( floor( a), kind= ?kind?_k)) <= r )then i = floor( a) else hi_lo i = ceiling( a) endif hi_lo ?kind?_rrint = i return ! ?kind?_rrint() end function ?kind?_rrint ?? end text rrint ?? if( single_k )then ?? copy :: rrint( single) ?? endif ?? if( double_k )then ?? copy :: rrint( double) ?? endif ?? if( quad_k )then ?? copy :: rrint( quad) ?? endif ! ********************************************************************** ! define compl() ?? text :: compl( kind) ! ********************************************************************** ! ?kind?_compl: compl() for kind ?kind? elemental logical( kind= ?kind?_k) function ?kind?_compl( l) logical( kind= ?kind?_k), intent( in) :: l ! ?kind?_compl() continue ?kind?_compl = .not. l return ! ?kind?_compl() end function ?kind?_compl ?? end text compl ?? if( l_byte_k )then ?? copy :: compl( l_byte) ?? endif ?? if( l_short_k )then ?? copy :: compl( l_short) ?? endif ?? if( l_int_k )then ?? copy :: compl( l_int) ?? endif ?? if( l_long_k )then ?? copy :: compl( l_long) ?? endif ! ********************************************************************** ! ismax(), ismin(), isamax(), isamin() for real kinds ?? text :: ismax( kind) ! ********************************************************************** ! ?kind?_ismax(): ismax() for kind ?kind? pure integer function ?kind?_ismax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= ?kind?_k), dimension( n), intent( in) :: x ! ?kind?_ismax() local integer, dimension( 1) :: indx ! ?kind?_ismax() continue ! zero or fewer elements n_zero: if( n <= 0 )then ?kind?_ismax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( x( 1: n: incx)) ?kind?_ismax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( x( n: 1: incx)) ?kind?_ismax = (( -indx( 1) + n)/incx) + 1 else incx_p_m ?kind?_ismax = 0 endif incx_p_m return ! ?kind?_ismax() end function ?kind?_ismax ?? end text ismax ?? if( single_k )then ?? copy :: ismax( single) ?? endif ?? if( double_k )then ?? copy :: ismax( double) ?? endif ?? if( quad_k )then ?? copy :: ismax( quad) ?? endif ?? text :: ismin( kind) ! ********************************************************************** ! ?kind?_ismin(): ismin() for kind ?kind? pure integer function ?kind?_ismin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= ?kind?_k), dimension( n), intent( in) :: x ! ?kind?_ismin() local integer, dimension( 1) :: indx ! ?kind?_ismin() continue ! zero or fewer elements n_zero: if( n <= 0 )then ?kind?_ismin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( x( 1: n: incx)) ?kind?_ismin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( x( n: 1: incx)) ?kind?_ismin = (( -indx( 1) + n)/incx) + 1 else incx_p_m ?kind?_ismin = 0 endif incx_p_m return ! ?kind?_ismin() end function ?kind?_ismin ?? end text ismin ?? if( single_k )then ?? copy :: ismin( single) ?? endif ?? if( double_k )then ?? copy :: ismin( double) ?? endif ?? if( quad_k )then ?? copy :: ismin( quad) ?? endif ?? text :: isamax( kind) ! ********************************************************************** ! ?kind?_isamax(): isamax() for kind ?kind? pure integer function ?kind?_isamax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= ?kind?_k), dimension( n), intent( in) :: x ! ?kind?_isamax() local integer, dimension( 1) :: indx ! ?kind?_isamax() continue ! zero or fewer elements n_zero: if( n <= 0 )then ?kind?_isamax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( abs( x( 1: n: incx)) ) ?kind?_isamax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( abs( x( n: 1: incx)) ) ?kind?_isamax = (( -indx( 1) + n)/incx) + 1 else incx_p_m ?kind?_isamax = 0 endif incx_p_m return ! ?kind?_isamax() end function ?kind?_isamax ?? end text isamax ?? if( single_k )then ?? copy :: isamax( single) ?? endif ?? if( double_k )then ?? copy :: isamax( double) ?? endif ?? if( quad_k )then ?? copy :: isamax( quad) ?? endif ?? text :: isamin( kind) ! ********************************************************************** ! ?kind?_isamin(): isamin() for kind ?kind? pure integer function ?kind?_isamin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx real( kind= ?kind?_k), dimension( n), intent( in) :: x ! ?kind?_isamin() local integer, dimension( 1) :: indx ! ?kind?_isamin() continue ! zero or fewer elements n_zero: if( n <= 0 )then ?kind?_isamin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( abs( x( 1: n: incx)) ) ?kind?_isamin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( abs( x( n: 1: incx)) ) ?kind?_isamin = (( -indx( 1) + n)/incx) + 1 else incx_p_m ?kind?_isamin = 0 endif incx_p_m return ! ?kind?_isamin() end function ?kind?_isamin ?? end text isamin ?? if( single_k )then ?? copy :: isamin( single) ?? endif ?? if( double_k )then ?? copy :: isamin( double) ?? endif ?? if( quad_k )then ?? copy :: isamin( quad) ?? endif ! ********************************************************************** ! icamax(), icamin() for complex kinds ?? text :: icamax( kind) ! ********************************************************************** ! ?kind?_icamax(): icamax() for kind ?kind? pure integer function ?kind?_icamax( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx complex( kind= ?kind?_k), dimension( n), intent( in) :: x ! ?kind?_icamax() local integer, dimension( 1) :: indx ! ?kind?_icamax() continue ! zero or fewer elements n_zero: if( n <= 0 )then ?kind?_icamax = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = maxloc( abs( x( 1: n: incx) )) ?kind?_icamax = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = maxloc( abs( x( n: 1: incx) )) ?kind?_icamax = (( -indx( 1) + n)/incx) + 1 else incx_p_m ?kind?_icamax = 0 endif incx_p_m return ! ?kind?_icamax() end function ?kind?_icamax ?? end text icamax ?? if( single_k )then ?? copy :: icamax( single) ?? endif ?? if( double_k )then ?? copy :: icamax( double) ?? endif ?? if( quad_k )then ?? copy :: icamax( quad) ?? endif ?? text :: icamin( kind) ! ********************************************************************** ! ?kind?_icamin(): icamin() for kind ?kind? pure integer function ?kind?_icamin( n, x, incx) ! array x of length n stride incx integer, intent( in) :: n, incx complex( kind= ?kind?_k), dimension( n), intent( in) :: x ! single_icamin() local integer, dimension( 1) :: indx ! ?kind?_icamin() continue ! zero or fewer elements n_zero: if( n <= 0 )then ?kind?_icamin = 0 return endif n_zero ! direction of stride incx_p_m: if( incx > 0 )then indx = minloc( abs( x( 1: n: incx) )) ?kind?_icamin = (( indx( 1) - 1)/incx) + 1 elseif( incx < 0 )then incx_p_m indx = minloc( abs( x( n: 1: incx) )) ?kind?_icamin = (( -indx( 1) + n)/incx) + 1 else incx_p_m ?kind?_icamin = 0 endif incx_p_m return ! ?kind?_icamin() end function ?kind?_icamin ?? end text icamin ?? if( single_k )then ?? copy :: icamin( single) ?? endif ?? if( double_k )then ?? copy :: icamin( double) ?? endif ?? if( quad_k )then ?? copy :: icamin( quad) ?? endif ! ********************************************************************** ! define smach() & cmach() ! ********************************************************************** ?? text :: smach( kind) ! ?kind?_smach(): pause or pause n subroutine subroutine ?kind?_smach( n, mach) integer, intent( in) :: n real( kind= ?kind?_k), intent( out) :: mach ! ?kind?_smach() continue switch_arg: select case( n) case( 1) switch_arg mach = epsilon( 0.0_?kind?_k) case( 2) switch_arg mach = tiny( 0.0_?kind?_k) case( 3) switch_arg mach = huge( 0.0_?kind?_k) case default switch_arg mach = 0.0_?kind?_k end select switch_arg return ! ?kind?_smach() end subroutine ?kind?_smach ?? end text smach ?? if( single_k )then ?? copy :: smach( single) ?? endif ?? if( double_k )then ?? copy :: smach( double) ?? endif ?? if( quad_k )then ?? copy :: smach( quad) ?? endif ?? text :: cmach( kind) ! ---------------------------------------------------------------------- ! cmach(): pause 'string' function subroutine ?kind?_cmach( n, mach) integer, intent( in) :: n real( kind= ?kind?_k), intent( out) :: mach ! ?kind?_cmach() continue switch_arg: select case( n) case( 1) switch_arg mach = sqrt( epsilon( 0.0_?kind?_k)) case( 2) switch_arg mach = sqrt( tiny( 0.0_?kind?_k)) case( 3) switch_arg mach = sqrt( huge( 0.0_?kind?_k)) case default switch_arg mach = 0.0_?kind?_k end select switch_arg return ! ?kind?_cmach() end subroutine ?kind?_cmach ?? end text cmach ?? if( single_k )then ?? copy :: cmach( single) ?? endif ?? if( double_k )then ?? copy :: cmach( double) ?? endif ?? if( quad_k )then ?? copy :: cmach( quad) ?? endif ! ********************************************************************** ! define pause() & stop() ! ********************************************************************** ! int_pause(): pause or pause n subroutine subroutine int_pause( n) integer, intent( in), optional :: n ! int_pause() continue n_arg: if( present( n) )then write( unit= *, fmt= ps_fmt_ai) ' pause: ', n else n_arg write( unit= *, fmt= ps_fmt_a) ' pause' endif n_arg read( unit= *, fmt= *) return ! int_pause() end subroutine int_pause ! ---------------------------------------------------------------------- ! char_pause(): pause 'string' subroutine subroutine char_pause( string) character( len= *), intent( in) :: string ! char_pause() continue write( unit= *, fmt= ps_fmt_aa) ' pause: ', trim( string) read( unit= *, fmt= *) return ! char_pause() end subroutine char_pause ! ********************************************************************** ! int_stop(): stop or stop n subroutine subroutine int_stop( n) integer, intent( in), optional :: n ! int_stop() continue n_arg: if( present( n) )then write( unit= *, fmt= ps_fmt_ai) ' stop: ', n else n_arg write( unit= *, fmt= ps_fmt_a) ' stop' endif n_arg call exit( 0) return ! int_stop() end subroutine int_stop ! ---------------------------------------------------------------------- ! char_stop(): stop 'string' subroutine subroutine char_stop( string) character( len= *), intent( in) :: string ! char_stop() continue write( unit= *, fmt= ps_fmt_aa) ' stop: ', trim( string) call exit( 0) return ! char_stop() end subroutine char_stop ! ********************************************************************** ! swap() ?? text :: swap( type, kind) ! ********************************************************************** ! ?kind?_?type?_swap() elemental subroutine ?kind?_?type?_swap( a, b) ?type?( kind= ?kind?_k), intent( inout) :: a, b ! ?kind?_?type?_swap() local ?type?( kind= ?kind?_k) :: t1, t2 ! ?kind?_?type?_swap() continue t1 = a t2 = b b = t1 a = t2 return ! ?kind?_?type?_swap() end subroutine ?kind?_?type?_swap ?? end text swap ?? if( ascii_k )then ?? copy :: swap( character, ascii) ?? endif ?? if( ebcdic_k )then ?? copy :: swap( character, ebcdic) ?? endif ?? if( byte_k )then ?? copy :: swap( integer, byte) ?? endif ?? if( short_k )then ?? copy :: swap( integer, short) ?? endif ?? if( int_k )then ?? copy :: swap( integer, int) ?? endif ?? if( long_k )then ?? copy :: swap( integer, long) ?? endif ?? if( l_byte_k )then ?? copy :: swap( logical, l_byte) ?? endif ?? if( l_short_k )then ?? copy :: swap( logical, l_short) ?? endif ?? if( l_int_k )then ?? copy :: swap( logical, l_int) ?? endif ?? if( l_long_k )then ?? copy :: swap( logical, l_long) ?? endif ?? if( single_k )then ?? copy :: swap( real, single) ?? endif ?? if( double_k )then ?? copy :: swap( real, double) ?? endif ?? if( quad_k )then ?? copy :: swap( real, quad) ?? endif ?? if( single_k )then ?? copy :: swap( complex, single) ?? endif ?? if( double_k )then ?? copy :: swap( complex, double) ?? endif ?? if( quad_k )then ?? copy :: swap( complex, quad) ?? endif ! ********************************************************************** ! rev_endian() ?? if( short_k )then ! ********************************************************************** ! short_rev_endian() elemental integer( kind= short_k) function short_rev_endian( a) integer( kind= short_k), intent( in) :: a ! short_rev_endian() local integer, parameter :: num_bytes = bit_size( 0_short_k) / bit_size( 0_byte_k) integer( kind= byte_k), dimension( num_bytes) :: tmp ! short_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) short_rev_endian = transfer( tmp, short_rev_endian) return ! short_rev_endian() end function short_rev_endian ?? endif ?? if( int_k )then ! ---------------------------------------------------------------------- ! int_rev_endian() elemental integer( kind= int_k) function int_rev_endian( a) integer( kind= int_k), intent( in) :: a ! int_rev_endian() local integer, parameter :: num_bytes = bit_size( 0_int_k) / bit_size( 0_byte_k) integer( kind= byte_k), dimension( num_bytes) :: tmp ! int_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) int_rev_endian = transfer( tmp, int_rev_endian) return ! int_rev_endian() end function int_rev_endian ?? endif ?? if( long_k )then ! ---------------------------------------------------------------------- ! long_rev_endian() elemental integer( kind= long_k) function long_rev_endian( a) integer( kind= long_k), intent( in) :: a ! long_rev_endian() local integer, parameter :: num_bytes = bit_size( 0_long_k) / bit_size( 0_byte_k) integer( kind= byte_k), dimension( num_bytes) :: tmp ! long_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) long_rev_endian = transfer( tmp, long_rev_endian) return ! long_rev_endian() end function long_rev_endian ?? endif ?? if( l_short_k )then ! ---------------------------------------------------------------------- ! l_short_rev_endian() elemental logical( kind= l_short_k) function l_short_rev_endian( a) logical( kind= l_short_k), intent( in) :: a ! l_short_rev_endian() local integer, parameter :: num_bytes = csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! l_short_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) l_short_rev_endian = transfer( tmp, l_short_rev_endian) return ! l_short_rev_endian() end function l_short_rev_endian ?? endif ?? if( l_int_k )then ! ---------------------------------------------------------------------- ! l_int_rev_endian() elemental logical( kind= l_int_k) function l_int_rev_endian( a) logical( kind= l_int_k), intent( in) :: a ! l_int_rev_endian() local integer, parameter :: num_bytes = csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! l_int_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) l_int_rev_endian = transfer( tmp, l_int_rev_endian) return ! l_int_rev_endian() end function l_int_rev_endian ?? endif ?? if( l_long_k )then ! ---------------------------------------------------------------------- ! l_long_rev_endian() elemental logical( kind= l_long_k) function l_long_rev_endian( a) logical( kind= l_long_k), intent( in) :: a ! l_long_rev_endian() local integer, parameter :: num_bytes = csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! l_long_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) l_long_rev_endian = transfer( tmp, l_long_rev_endian) return ! l_long_rev_endian() end function l_long_rev_endian ?? endif ?? if( single_k )then ! ---------------------------------------------------------------------- ! single_rev_endian() elemental real( kind= single_k) function single_rev_endian( a) real( kind= single_k), intent( in) :: a ! single_rev_endian() local integer, parameter :: num_bytes = csu_per_nsu integer( kind= byte_k), dimension( csu_per_nsu) :: tmp ! single_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) single_rev_endian = transfer( tmp, single_rev_endian) return ! single_rev_endian() end function single_rev_endian ?? endif ?? if( double_k )then ! ---------------------------------------------------------------------- ! double_rev_endian() elemental real( kind= double_k) function double_rev_endian( a) real( kind= double_k), intent( in) :: a ! double_rev_endian() local integer, parameter :: num_bytes = 2 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! double_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) double_rev_endian= transfer( tmp, double_rev_endian) return ! double_rev_endian() end function double_rev_endian ?? endif ?? if( quad_k )then ! ---------------------------------------------------------------------- ! quad_rev_endian() elemental real( kind= quad_k) function quad_rev_endian( a) real( kind= quad_k), intent( in) :: a ! quad_rev_endian() local integer, parameter :: num_bytes = 4 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! quad_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) quad_rev_endian= transfer( tmp, quad_rev_endian) return ! quad_rev_endian() end function quad_rev_endian ?? endif ?? if( single_k )then ! ---------------------------------------------------------------------- ! single_complex_rev_endian() elemental complex( kind= single_k) function single_complex_rev_endian( a) complex( kind= single_k), intent( in) :: a ! single_complex_rev_endian() local integer, parameter :: num_bytes = 2 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! single_complex_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) single_complex_rev_endian = transfer( tmp, single_complex_rev_endian) return ! single_complex_rev_endian() end function single_complex_rev_endian ?? endif ?? if( double_k )then ! ---------------------------------------------------------------------- ! double_complex_rev_endian() elemental complex( kind= double_k) function double_complex_rev_endian( a) complex( kind= double_k), intent( in) :: a ! double_complex_rev_endian() local integer, parameter :: num_bytes = 4 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! double_complex_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) double_complex_rev_endian = transfer( tmp, double_complex_rev_endian) return ! double_complex_rev_endian() end function double_complex_rev_endian ?? endif ?? if( quad_k )then ! ---------------------------------------------------------------------- ! quad_complex_rev_endian() elemental complex( kind= quad_k) function quad_complex_rev_endian( a) complex( kind= quad_k), intent( in) :: a ! quad_complex_rev_endian() local integer, parameter :: num_bytes = 8 * csu_per_nsu integer( kind= byte_k), dimension( num_bytes) :: tmp ! quad_complex_rev_endian() continue tmp = transfer( a, tmp) tmp( 1: num_bytes) = tmp( num_bytes: 1: -1) quad_complex_rev_endian = transfer( tmp, quad_complex_rev_endian) return ! quad_complex_rev_endian() end function quad_complex_rev_endian ?? endif ! ********************************************************************** ! rev_bits() ?? if( ascii_k )then ! ********************************************************************** ! ascii_rev_bits() elemental character( kind= ascii_k) function ascii_rev_bits( c) character( len= 1, kind= ascii_k), intent( in) :: c ! ascii_rev_buts() local integer( kind= byte_k) :: loci ! ascii_rev_bits() continue loci = 0 loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_1), sh_1)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_2), sh_2)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_3), sh_3)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_4), sh_4)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_5), sh_5)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_6), sh_6)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_7), sh_7)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_8), sh_8)) ascii_rev_bits = char( loci) return ! ascii_rev_bits() end function ascii_rev_bits ?? endif ?? if( ebcdic_k )then ! ********************************************************************** ! ebcdic_rev_bits() elemental character( kind= ebcdic_k) function ebcdic_rev_bits( c) character( len= 1, kind= ebcdic_k), intent( in) :: c ! ebcdic_rev_buts() local integer( kind= byte_k) :: loci ! ebcdic_rev_bits() continue loci = 0 loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_1), sh_1)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_2), sh_2)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_3), sh_3)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_4), sh_4)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_5), sh_5)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_6), sh_6)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_7), sh_7)) loci = ior( loci, ishft( iand( int( ichar( c), kind= byte_k), bit_8), sh_8)) ebcdic_rev_bits = char( loci) return ! ebcdic_rev_bits() end function ebcdic_rev_bits ?? endif ?? if( byte_k )then ! ---------------------------------------------------------------------- ! byte_rev_bits() elemental integer( kind= byte_k) function byte_rev_bits( i) integer( kind= byte_k), intent( in) :: i ! byte_rev_buts() local integer( kind= byte_k) :: loci ! byte_rev_bits() continue loci = 0 loci = ior( loci, ishft( iand( i, bit_1), sh_1)) loci = ior( loci, ishft( iand( i, bit_2), sh_2)) loci = ior( loci, ishft( iand( i, bit_3), sh_3)) loci = ior( loci, ishft( iand( i, bit_4), sh_4)) loci = ior( loci, ishft( iand( i, bit_5), sh_5)) loci = ior( loci, ishft( iand( i, bit_6), sh_6)) loci = ior( loci, ishft( iand( i, bit_7), sh_7)) loci = ior( loci, ishft( iand( i, bit_8), sh_8)) byte_rev_bits = loci return ! rev_bits() end function byte_rev_bits ?? endif ?? if( l_byte_k )then ! ---------------------------------------------------------------------- ! l_byte_rev_bits() elemental logical( kind= l_byte_k) function l_byte_rev_bits( i) logical( kind= l_byte_k), intent( in) :: i ! l_byte_rev_buts() local integer( kind= byte_k) :: loci, locj ! l_byte_rev_bits() continue loci = 0 locj = transfer( i, loci) loci = ior( loci, ishft( iand( locj, bit_1), sh_1)) loci = ior( loci, ishft( iand( locj, bit_2), sh_2)) loci = ior( loci, ishft( iand( locj, bit_3), sh_3)) loci = ior( loci, ishft( iand( locj, bit_4), sh_4)) loci = ior( loci, ishft( iand( locj, bit_5), sh_5)) loci = ior( loci, ishft( iand( locj, bit_6), sh_6)) loci = ior( loci, ishft( iand( locj, bit_7), sh_7)) loci = ior( loci, ishft( iand( locj, bit_8), sh_8)) l_byte_rev_bits = transfer( loci, l_byte_rev_bits) return ! rev_bits() end function l_byte_rev_bits ?? endif ! ********************************************************************** ! find io unit which may be opened ! upon return: if >0, an io unit to open; else -1 ! ********************************************************************** ! integer function get_logical_unit() integer function get_logical_unit( min_unit, max_unit, exclude) integer, optional, intent( in) :: min_unit integer, optional, intent( in) :: max_unit integer, optional, dimension(:), intent( in) :: exclude ! inquire return values integer :: io_stat, io_unit logical :: is_open, is_unit ! local min_unit, max_unit integer :: l_min, l_max ! get_logical_unit() continue ! prepare search limits set_min: if( present( min_unit) )then l_min = min_unit else set_min l_min = 0 endif set_min set_max: if( present( max_unit) )then l_max = max_unit else set_max l_max = huge( 0) endif set_max ! search loop io_units: do io_unit = l_min, l_max inquire( unit= io_unit, opened= is_open, exist= is_unit, iostat= io_stat) error: if( io_stat > 0 )then get_logical_unit = -1 return endif error ready: if( is_unit .and. (.not. is_open) )then not_list: if( present( exclude) )then on_list: if( any( io_unit == exclude) )then cycle io_units endif on_list endif not_list get_logical_unit = io_unit return endif ready enddo io_units ! none found get_logical_unit = -1 return ! get_logical_unit() end function get_logical_unit ! ********************************************************************** ! standard_functions ! $Id: stdfunc.fpp 1.3 2003/10/03 19:41:32Z Dan Release $ ! ********************************************************************** end module standard_functions Day-I/09-new-types/stdfunc.o100777 0 0 357034 11776640344 11177 00 `TPR__text__TEXTPU__data__DATAL__cstring__TEXT;X__const__TEXT7Q:__bss2__DATAR__literal4__TEXT7<;__literal16__TEXT7 @;__eh_frame__TEXT8`; hL\& P|*"UHAVAUATSHHHHtH5H=HtdHHHtUHH@HtIHHHEHHP(HH@ HH)HHHEMIHtHEEHtHEEEDeȉE̋]D9e3HH(Dž0EHEH@HEHHHEHPDž Ẻ$H HE~EEEoEaHGHHH4LHEHHHHHH}!҅t)HEIH5H=HH!҅t(HUAHHH5H=HH;E!҅t(HUAHHH5H=HDEMH9%HIL>HuB4D9uHօu ẺEEI9]tH5H=D9eE]̅EEH[A\A]A^]UHH H}tH5H=EH9HNºHHIHEHMHHEE"EE ЈE"EE ЈE"EE ЈE"EE ЈE"EE ЈE"EE ЈE"EE ЈE"EE ЈEH9HNºHHIHEHMHHEEEUHH H}tH5H=EHE!EHE!EHE!EHE!EHE!EHE!EHE!EHE!EEEEUHH0H}uHU؉MtH5H=}t-EHAHHH5H=EHE!EHE!EHE!EHE!EHE!EHE!EHE!EHE!EEEUHEUHAUATSHHtH5H=A HDž0IHDž@HDžH HDž8HEH HDž(LHHH?HHtH1HxHH)ʺ H HOILHXHDž`IHDžhHDžpHxHCHHStHкHHDHHu H=HPHDžXM9LINHPHHHH9HPTHHPHtHHDž`IHDžhHDžpHDžxH HPHDžXHHPH)L HݸHHPTHHDž0IHDž@HDžH HDž8HEH HDž(HHH@HH)HHHº H9HNºHHIH HEHHHM]HEUHM]HEUHM]HEUHۭHۭ~-x-H[A\A]]UHAUATSHH8tH5H=AHDžPIHDž`HDžhHDžXHEH@HDžHLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HpHDžxM9LINHpH8HHH9HpTHHpHtHHEIHEHEHEHEHpHDžxHHpH)L Ј HݸHHpTHHEIHEHEHEHEHpHDžxHMHUHH)HHHºH9HNºHHIHpHEHHHUHEHUHEHUHEfHnfHnHĸ[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHUEUȉE̋UȋE@D~@HĨ[A\A]]UHAUATSHH8tH5H=AHDžPIHDž`HDžhHDžXHEH@HDžHLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HpHDžxM9LINHpH8HHH9HpTHHpHtHHEIHEHEHEHEHpHDžxHHpH)L Ј HݸHHpTHHEIHEHEHEHEHpHDžxHMHUHH)HHHºH9HNºHHIHpHEHHHEUHEUHEUH (ۭ H[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHHEHEHEfHnHĨ[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHEE̋EfnHĨ[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHHEHEHEHĨ[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHEE̋EHĨ[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHEfEEHĨ[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHHEHEHEHĨ[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHEE̋EHĨ[A\A]]UHAUATSHHHtH5H=AHDž`IHDžpHDžxHDžhHEHPHDžXLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDHHu H=HEHEM9LINHEHHHHH9HUTHHEHtHHEIHEHEHEHEHEHEHHUH)L Ј HHHUTHHEIHEHEHEHEHEHEHMHUHH)HHHºH9HNºHHIHMHEHHEfEEHĨ[A\A]]UHHPH}HutH5H=HMHQHEUHAQHEUHMHQHEUHAQHEЉUHMHEUHQHEUHAQHMHEUHQHEЋUHAQUHH0H}HuЋtH5H=HEHHUH@HEHEHHUH@HEHEHUHHUHPHEHUHHUHPUHH H}HutH5H=HEU@EHEU@EHEUUPHEUUPUHH0H}HuЋtH5H=HE؋PHHEUHEЋPHHEUHMHEUHQHMHEUHQUHH H}HutH5H=HEHHEHEHHEHEHUHHEHUHUHH H}HutH5H=HEEHEEHEUHEUUHH H}HutH5H=HEHHEHEHHEHEHUHHEHUHUHH H}HutH5H=HEEHEEHEUHEUUHH H}HutH5H=HEfEHEfEHEUfHEUfUHH H}HutH5H=HEEHEEHEUHEUUHH H}HutH5H=HEHHEHEHHEHEHUHHEHUHUHH H}HutH5H=HEEHEEHEUHEUUHH H}HutH5H=HEfEHEfEHEUfHEUfUHH H}HutH5H=HEEHEEHEUHEUUHH0H}HuU܉M؋tH5H=}t-EHAHHH5H=}t-EHAHHH5H=HEEHEEUHEUHEUHHHtH5H=HHDž sHHXDž`DžDžHHHH5HHHuHEHUHMHHHE~HEHtHHHH=(UHHHtH5H=HHH(Dž0WHHhDžp Dž Dž$H HH H5UHHH HHH H}HH(Dž0[HHhDžpDž Dž$H HH H5HH HH=UHHHtH5H=HHDž ?HHXDž`DžDžHHHH5HHHuHEHUHMHHHE~HEHtHHHHHDž ADžDžHHHHUHHHtH5H=HHH(Dž0#HHhDžp Dž Dž$H HH H5HHH HHH H}HH(Dž0'H*HhDžpDž Dž$H HH H5HH HHH(Dž0+Dž Dž$H HH HUHHH}HutH5H=HEt%t;uNHMHd3?HQGHMH HQ,HMH_HQHMHQUHHH}HutH5H=HEtt+u9HEHP>H2HEH HHEH_H HEHUHHH}HutH5H=HEttu'HE9%HE HE_ HEUHHH}HutH5H=HEt%t;uNHMH?HQGHMHHQ,HMHHQHMHQUHHH}HutH5H=HEtt+u9HEHfHH"HU HHPHEH HEEEHUHEHHE}m}t EHHH5H=E;Et)EHcЋEHHHH5H=}t EHHH5H=E;Et)EHcЋEHHHH5H=HUȋEH HU؋EH f}u`EtFHcHwHcHEH dHH"HU*HHPHEH HH}t6HE*EUU}E`H}t HEUHHPH}ȉuHUtH5H=E HE HEH @ @ @ @ @ @ f@ @ }t EHHH5H=} t%EH HH5H=HUȋEH0HEE}EE}t EHHH5H=} t%EH HH5H=}t EHHH5H=}t%EHHH5H=EHcHXb HUȋEH EEmHUHEо HHMHEȺ HHUHH@H}؉uHUȋtH5H=E HE HEH @ f@ }t EHHH5H=} t%EH HH5H=HU؋EH0HEȋE}EE}t EHHH5H=} t%EH HH5H=}t EHHH5H=}t%EHHH5H=EHcH1` HU؋EH EEmHUHE HHMHEغ HHUHHPH}ȉuHUHMtH5H=H}t HEEE}tE0123E4567E89abEcdefE0123E4567E89ABECDEFEHE HEH f@ @ }t EHHH5H=}t%EHHH5H=HUȋEH0HEE}EE}t EHHH5H=}t%EHHH5H=}t EHHH5H=}t%EHHH5H=EHLHUȋEH EEmHUHEоHHMHEȺHHUHATSH`H}HuUtH5H=EHHHDHHu H=HHUEHDeIcHvHE HH4IcHEHHIcĺ H)IcHMHȾ HHHtHEE} Ht/}Ht EHHH5H=HUEHH4!+EHH [}t EHHH5H=} t%EH HH5H=HUEHHAHH5Z[E}uH}t HEUEE+EEEEH}t HEEH`[A\]UHATSHPH}HuUtH5H=EHHHDHHu H=HHUEHDeIcH vHEк HH4IcHEHHIcĺ H)IcHMHȾ HHHtHEE} Ht/}Ht EHHH5H=HUЋEHH4 +EHH Y}t EHHH5H=} t%EH HH5H=HUЋEHHAHH5XE}uH}t HEUEE,EEẼEH}t HEEHP[A\]UHATSH@H}HuUtH5H=EHHHDHHu H=HHUȋEHDeIcHvHEHH4IcHEHHIcĺH)IcHMHȾ HHHtHEE}}҅t EHHH5H=}҅t%EHHH5H=UHcTA}҅t EHHH5H=}҅t%EHHH5H=}҅t EHHH5H=}҅t%EHHH5H=UHcT҃ UMۋUHc҈L9EtH5H=}ЃEE[EE}Ht/}Ht EHHH5H=HUEHH4 +EHH gU}t EHHH5H=}t%EHHH5H=HUEHHAHH5TE}uH}t HEUEE,EEE܃EH}t HEEH@[A\]UHATSH H}HuЋtH5H=HEHHEL HUHEHHIHH)HHEHEH [A\]UHATSH H}HuЋtH5H=HE؋HED HUHEHHAĉ)‰ЉEEH [A\]UHATSH H}HuЋtH5H=HEHED HUHEHHAĉf)‰fEEH [A\]UHATSH H}HuЋtH5H=HEHED HUHEHHD‰(‰ЈEEH [A\]UHH0H}HutH5H=HEHHEHHHHHEHHEHHH?H}HEHEUHH0H}HutH5H=HEHEЍHHEE܉ȉ}܉EEUHH0H}HutH5H=HEHEЍHHEfEމȉff}fEEUHH H}HutH5H=HEHEЍHHEfEEUHSH8H}HuЋtH5H=HEHHEHHHHUHEHHHEHHH?H}HEHEH8[]UHSH8H}HuЋtH5H=HE؋HEЋHUHEHHẺ؉}̉EEH8[]UHSH8H}HuЋtH5H=HEHEHUHEHHfEΉ؉ff}fEEH8[]UHSH(H}HuЋtH5H=HEHE‰HUHEHHfEEH([]UHH@H}HutH5H=HEHHu!HEHHH?H1H)HEHEHEHHu!HEHHH?H1H)HEHEHEHHH?H1H)HUHHH?H1H)H9~HHEHEHHH?H1H)HUHHH?H1H)H9}HHEHUHEHHHEHEHEHEHt)HUHEHHHEHEHEHEHEHEHEHEUHH0H}HuЋtH5H=HE؋uHEЋ1)ЉEEHEЋuHE؋1)ЉEEHE؋1)HUЋ1)9~ЉEHE؋1)HUЋ1)9}ЉEHUHEHHEEEEt$HUHEHHEEEEEՋEEEUHH H}HutH5H=HEfuHEf1f)fEEHEfuHEf1f)fEEHEf1f)HUf1f)f9~fEHEf1f)HUf1f)f9}fEHUHEHHfEEfEEft)HUHEHHfEEfEEfEEfEEUHH H}HutH5H=HEuHE1(ЈEEHEuHE1(ЈEEHE1(ЉHE1(8~ˆUHE1(ЉHE1(8}ˆUHUHEHHEEEEt&HUHEHHEEEEEEEEUHH H}tH5H=HEHEEUHH H}tH5H=HEEEUHH H}tH5H=HEEEUHH H}tH5H=HEEEUHH H}tH5H=HEHHEEUHH H}tH5H=HEEEUHH H}tH5H=HEfEEUHH H}tH5H=HEEEUHHpH}HutH5H=HE(}HE(}HEH0xHEHHHu}mHUMmuztHt$|$H$L$иDmm1!Ѕtm}HEUHEUmUHH@H}HutH5H=HEEHEEHEHEu]Ef.z f.t]M]EfWf.иfWf.DfWf.MfWf.M1!ЅtXEEHEfHnUHH0H}HutH5H=HEEHEEHEHEu]E.z .t]M]EW.иW.DW.MW.M1!ЅtXEEEfnUHH H}HutH5H=HEH0HEHHHH?HHtHH1HyHHUHEUHH H}HutH5H=HE0HEt 1ȅyʉUEUHH H}HutH5H=HE0HEffft 1fyfUEUHH H}HutH5H=HEHEfĄt1фyЈEEUHHPH}HutH5H=HEH0xHEHHHuЉ}mHUЉMmuztHt$|$H$L$}HEЋUHEUHEUHEЉUmUHH0H}HutH5H=HEHEu]Ef.z f.t]M]EfH~HEHEfHnUHH0H}HutH5H=HEHEu]E.z .t]M]Ef~EEfnUHH H}HutH5H=HEHHUH HH?HHHEHEUHH H}HutH5H=HEHU ЉEEUHH H}HutH5H=HEHU fffEEUHH H}HutH5H=HEHEfĈEEUHH H}HutH5H=HEHHEHH9HEHEUHH H}HutH5H=HEHE9EEUHH H}HutH5H=HEHEf9fEEUHH H}HutH5H=HEHE8EE @Recursive call to nonrecursive procedure 'get_logical_unit'At line 6360 of file stdfunc.f90stdfunc.f90Index '%ld' of dimension 1 of array 'exclude' outside of expected range (%ld:%ld)At line 6421 of file stdfunc.f90Loop variable has been modifiedAt line 6405 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_byte_rev_bits'At line 6317 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_rev_bits'At line 6280 of file stdfunc.f90Recursive call to nonrecursive procedure 'ascii_rev_bits'At line 6206 of file stdfunc.f90cActual string length is shorter than the declared one for dummy argument '%s' (%ld/%ld)Recursive call to nonrecursive procedure 'quad_complex_rev_endian'At line 6170 of file stdfunc.f90Memory allocation failedRecursive call to nonrecursive procedure 'double_complex_rev_endian'At line 6138 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_complex_rev_endian'At line 6106 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_rev_endian'At line 6074 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_rev_endian'At line 6042 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_rev_endian'At line 6010 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_long_rev_endian'At line 5978 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_int_rev_endian'At line 5946 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_short_rev_endian'At line 5914 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_rev_endian'At line 5882 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_rev_endian'At line 5850 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_rev_endian'At line 5818 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_complex_swap'At line 5781 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_complex_swap'At line 5746 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_complex_swap'At line 5711 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_real_swap'At line 5676 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_real_swap'At line 5641 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_real_swap'At line 5606 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_long_logical_swap'At line 5571 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_int_logical_swap'At line 5536 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_short_logical_swap'At line 5501 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_byte_logical_swap'At line 5466 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_integer_swap'At line 5431 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_integer_swap'At line 5396 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_integer_swap'At line 5361 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_integer_swap'At line 5326 of file stdfunc.f90Recursive call to nonrecursive procedure 'ascii_character_swap'At line 5288 of file stdfunc.f90abRecursive call to nonrecursive procedure 'char_stop'At line 5227 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_stop'At line 5197 of file stdfunc.f90Recursive call to nonrecursive procedure 'char_pause'At line 5175 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_pause'At line 5145 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_cmach'At line 5099 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_cmach'At line 5054 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_cmach'At line 5009 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_smach'At line 4922 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_smach'At line 4879 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_smach'At line 4836 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_icamin'At line 4733 of file stdfunc.f90Zero stride is not allowed, for dimension 1 of array 'x'At line 4763 of file stdfunc.f90Index '%ld' of dimension 1 of array 'x' outside of expected range (%ld:%ld)At line 4768 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_icamin'At line 4674 of file stdfunc.f90At line 4704 of file stdfunc.f90At line 4709 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_icamin'At line 4615 of file stdfunc.f90At line 4645 of file stdfunc.f90At line 4650 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_icamax'At line 4500 of file stdfunc.f90At line 4530 of file stdfunc.f90At line 4535 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_icamax'At line 4441 of file stdfunc.f90At line 4471 of file stdfunc.f90At line 4476 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_icamax'At line 4382 of file stdfunc.f90At line 4412 of file stdfunc.f90At line 4417 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_isamin'At line 4263 of file stdfunc.f90At line 4293 of file stdfunc.f90At line 4298 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_isamin'At line 4204 of file stdfunc.f90At line 4234 of file stdfunc.f90At line 4239 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_isamin'At line 4145 of file stdfunc.f90At line 4175 of file stdfunc.f90At line 4180 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_isamax'At line 4030 of file stdfunc.f90At line 4060 of file stdfunc.f90At line 4065 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_isamax'At line 3971 of file stdfunc.f90At line 4001 of file stdfunc.f90At line 4006 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_isamax'At line 3912 of file stdfunc.f90At line 3942 of file stdfunc.f90At line 3947 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_ismin'At line 3797 of file stdfunc.f90At line 3827 of file stdfunc.f90At line 3832 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_ismin'At line 3738 of file stdfunc.f90At line 3768 of file stdfunc.f90At line 3773 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_ismin'At line 3679 of file stdfunc.f90At line 3709 of file stdfunc.f90At line 3714 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_ismax'At line 3564 of file stdfunc.f90At line 3594 of file stdfunc.f90At line 3599 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_ismax'At line 3505 of file stdfunc.f90At line 3535 of file stdfunc.f90At line 3540 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_ismax'At line 3446 of file stdfunc.f90At line 3476 of file stdfunc.f90At line 3481 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_long_compl'At line 3361 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_int_compl'At line 3336 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_short_compl'At line 3311 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_byte_compl'At line 3286 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_rrint'At line 3201 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_rrint'At line 3142 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_rrint'At line 3083 of file stdfunc.f90Recursive call to nonrecursive procedure 'decode'At line 2940 of file stdfunc.f90Substring out of bounds: upper bound (%ld) of 'str_buff' exceeds string length (%ld)At line 2986 of file stdfunc.f90At line 3000 of file stdfunc.f90Recursive call to nonrecursive procedure 'encode'At line 2852 of file stdfunc.f90Substring out of bounds: lower bound (%ld) of 'str' is less than oneAt line 2908 of file stdfunc.f90Substring out of bounds: upper bound (%ld) of 'str' exceeds string length (%ld)Substring out of bounds: lower bound (%ld) of 'ttable' is less than oneSubstring out of bounds: upper bound (%ld) of 'ttable' exceeds string length (%ld)Recursive call to nonrecursive procedure 'binstr'At line 2793 of file stdfunc.f90Substring out of bounds: lower bound (%ld) of 'binstr' is less than oneAt line 2816 of file stdfunc.f90Substring out of bounds: upper bound (%ld) of 'binstr' exceeds string length (%ld)At line 2826 of file stdfunc.f90Substring out of bounds: lower bound (%ld)is less than oneSubstring out of bounds: upper bound (%ld) exceeds string length (%ld)Recursive call to nonrecursive procedure 'octstr'At line 2738 of file stdfunc.f90Substring out of bounds: lower bound (%ld) of 'octstr' is less than oneAt line 2761 of file stdfunc.f90Substring out of bounds: upper bound (%ld) of 'octstr' exceeds string length (%ld)At line 2771 of file stdfunc.f90Recursive call to nonrecursive procedure 'hexstr'At line 2652 of file stdfunc.f90Substring out of bounds: lower bound (%ld) of 'hexstr' is less than oneAt line 2706 of file stdfunc.f90Substring out of bounds: upper bound (%ld) of 'hexstr' exceeds string length (%ld)At line 2716 of file stdfunc.f90Substring out of bounds: lower bound (%ld) of 'hex_digits' is less than oneSubstring out of bounds: upper bound (%ld) of 'hex_digits' exceeds string length (%ld)Recursive call to nonrecursive procedure 'bin'At line 2573 of file stdfunc.f90At line 2606 of file stdfunc.f90At line 2608 of file stdfunc.f90Recursive call to nonrecursive procedure 'oct'At line 2498 of file stdfunc.f90At line 2531 of file stdfunc.f90At line 2533 of file stdfunc.f90Recursive call to nonrecursive procedure 'hex'At line 2409 of file stdfunc.f90At line 2439 of file stdfunc.f90At line 2443 of file stdfunc.f90At line 2437 of file stdfunc.f90At line 2456 of file stdfunc.f90At line 2458 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_cr'At line 2383 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_cr'At line 2358 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_cr'At line 2333 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_cr'At line 2308 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_cd'At line 2261 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_cd'At line 2236 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_cd'At line 2211 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_cd'At line 2186 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_lcm'At line 2135 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_lcm'At line 2110 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_lcm'At line 2085 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_lcm'At line 2060 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_gcd'At line 1961 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_gcd'At line 1888 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_gcd'At line 1815 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_gcd'At line 1742 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_isodd'At line 1643 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_isodd'At line 1618 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_isodd'At line 1593 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_isodd'At line 1568 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_iseven'At line 1521 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_iseven'At line 1496 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_iseven'At line 1471 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_iseven'At line 1446 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_modulo'At line 1395 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_modulo'At line 1370 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_modulo'At line 1345 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_modulo'At line 1320 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_modulo'At line 1295 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_modulo'At line 1270 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_modulo'At line 1245 of file stdfunc.f90Recursive call to nonrecursive procedure 'quad_mod'At line 1194 of file stdfunc.f90Recursive call to nonrecursive procedure 'double_mod'At line 1169 of file stdfunc.f90Recursive call to nonrecursive procedure 'single_mod'At line 1144 of file stdfunc.f90Recursive call to nonrecursive procedure 'long_mod'At line 1119 of file stdfunc.f90Recursive call to nonrecursive procedure 'int_mod'At line 1094 of file stdfunc.f90Recursive call to nonrecursive procedure 'short_mod'At line 1069 of file stdfunc.f90Recursive call to nonrecursive procedure 'byte_mod'At line 1044 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_long_xor'At line 993 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_int_xor'At line 968 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_short_xor'At line 943 of file stdfunc.f90Recursive call to nonrecursive procedure 'l_byte_xor'At line 918 of file stdfunc.f90( a, a) stop: ( a, i5.5)( a) stop pause: pause *01012345670123456789abcdefzRx <o \ 4\{ v 4h  40^ Y <=  , <D   <x   <8   <   <D   <x   <8   <   <D   <x   <8   4  4<  4t  4P  4v q 4n i 4Tv q 4pn i 48v q 4r m 44v q 4ln i 4Xv q 4 r m 4  4L. ) 4x  4@g b 4  4,  4d  4`  4(  4   4D   <|   < @x c <  m <<   <| x c < @ m < J  9 << J  9 <| H  7 < @J  9 < J  9 << H  7 4|   4 H  4   4$   4\   4 h  4 0Y T 4U P 4<X S 4tW R 4PJ E 4H C 4A < <TM  = 4h  40P K 4* % 4<} x <tg [ <Hh \ <#  <4 ~ <t x <H } <  44 { 4lt o 4X| w 4 q l 4  4L } 4x  4@ } 4i d 4,0 + 4d[ V 4`D ? 4(V Q 4 U P 4DW R 4|Y T 4H_ Z 4] X 4$_ Z 4\^ Y 4h   40   4  4< { 4ts n 4P{ v 4t o 4  4T  4p  48m h 4e ` 44k f 4lh c 4Xi d 4 d _ 4i d 4Ld _ 6-e_6-UNA%6-6-tX0*6-  6-`Z6-PI< 6-E-MG6-=6)D-6-}W9F-6-jd6-ZSF*6-|v6-leX<6-aE-6-~}|VD-|6-{z|yMF-y6-xwyv~vx6-nugtZvBss6-rqspp6-onpmcm]6-SlLk?m'j j6-ihjgg6-fegwd^dX6-NcGb:d"aa6-`_a^--^6-]\^[`-8-m[g6-]ZVYI[-X --=X76--W&VXU--U6-TSURz-NRH6->Q7P*RO-O6-NMOzLa-9L36-)K"JLI-I6-HGIfF5F/6-%EDFCC6-BACy@E@?6-5?.>!@==6-<;=~:c-=:76--9&8:7-76-657j4T-04*6- 32 41-16-0/1\.<-6--6--n+-b96-/,(6-+6-|*uS6-I*B%6-*6-*6-)w6-m)f2G-"K-J-J-*-2-H-.6-v(o'b.9&<-6-%6-w%pK+-?6- $G-K-J-J-c*-O2-J>H-&6-#"&!{<-qM6-C <6-  +-6-cG-SK-1J-J-*-2-H-!6-!qkJ-S*-6-6-6-|6-rk6-6-;56-+$J-*-6-{ Y6-OH +6-!6-6-h6-^W 6-  J-*-sc6-Y R 06-&  6- 6- r6-ha?6-5. 6- z7K-I-6-6-y\6-RK#6--K-I-3-6-#K-J-zJ-.6-$<-6-voE+-9G-K-J-J-*-{2-vjH-6-4-6-zmU5-IC6-92% X3-6-6-lPJ6-@9,6-6-~^--Z6-PI6-6- 6-D6-:3--6-`6-VO6-a6-WP6-N .-J6-@96-6-6-46-*#.-6-ۼԼP6-F?6-Q6-G@6-s>,-:6-0)6-6-6-z$6-y,-յ6-˵ĵ@6-6/6-A6-706-wpc.0-*6- 6-|u6-ٰҰ{6-qj6- i0-Ů6-06-&6-16-' wq6-g`Sګ1-6- v6-leө6-ɩ©k6-aZ6-Y1-6- 6-6-{!6-ga6-WPCʤ/- 6-f6-\Uâ6-[6-QJ6-I/-6-6-|6-rk6-WQ6-G@3G---~62-1%H-[6-QJ6-6- 6-E6-;4G---e02-+H-g6-]Vҗ6-ȗ>6-4-Ӗ6-ɖ– 6-nG-Z.-52-ܔH-6-n6-d]˒6-c6-YR6-QG-@.-2-ՐH-6- 6-~w6-6-xɍÍ6-h$G-,-2-H-ȋ6-$6-6-wp6-6-G-,-2-H-Ӈ6-ɇ‡>6-4-6-?6-5.y6-oh[ڄG-Ƅ0-Z2-UIH-6-unۂ6-тʂ86-.'Ё6-Ɓi6-_XG-0-T2-OCH-6-z~6-~~b~6-X~Q~}6-}}7}1}6-'} }}||G-~|1-Y||2- ||H-6{6-,{%{z6-zzy6-yyy6-}yvy y6-yyuxG-dx1-?x x2-xwH-Aw6-7w0wv6-vvv6-vvu6-uutt6-ttttHtG-4t/-s2-ssH-r6-rrHr6->r7rq6-qq=q6-3q,qp6-pp+pG-p/-o2-ooH-n6-nnbn6-XnQnm6-mmcm6-YmRmll6-lll>lkG-k--kA-fk2-akUkH-j6-{jtji6-ii>i6-4i-ih6-hhoh6-eh^hgG-g--gA-Fg2-Ag5gH-f6-ufnfe6-eeVe6-LeEed6-dd%dd6-dddcxcG-dc.-Bc@-b2-bbH-b6-aada6-ZaSa`6-``Y`6-O`H`_6-__G_G-6_.-_@-^2-^^H-^6-]]r]6-h]a]\6-\\s\6-i\b\[[6-[[[D[[G-Z,-ZB-^Z2-YZMZH-~Y6-tYmYX6-XX7X6--X&XW6-WWhW6-^WWWVG-V,-VB-1V2-,V VH-kU6-aUZUT6-TTBT6-8T1TS6-SSS S6-SRRRdRG-PR0-.RA-Q2-QQH-P6-PPKP6-AP:PO6-OO@O6-6O/ON6-NN.NG-N0-MA-M2-MMH-L6-LLTL6-JLCLK6-KKUK6-KKDKJJ6-JxJkJ&JIG-I1-I@-SI2-NIBIH-rH6-hHaHG6-GG+G6-!GGF6-FF\F6-RFKFEG-E1-~E@-8E2-3E'EH-qD6-gD`DC6-CCHC6->C7CB6-BBBB6-BBAAjAG-VA/-.AB-@2-@@H-?6-??D?6-:?3?>6->>9>6-/>(>=6-=='=G-=/-<B-<2-<<H-;6-;;@;6-6;/;:6-::A:6-7:0:{9u96-k9d9W9"9886-8888-8'86-88 87~l7~f76-\7}U7|H7~,7{6{66-6z6y6{6x76x166-'6w 6v6x5uv5up56-f5t_5sR5u65r059-!58-44;-4>-44:-4p4g4;-X4?-:4>-244:-333r36-3q3p3rx3or39-c38-/3(3;-3G-3>-2=-2>-22:-|2d2Y2oS26-I2nB2m52o2l 2C-21;-1>-11:-11{1;-l1?-N1>-F131:-000l06-0k0j0l0i0C-|0u0;-f0G-N0>-50=-0>-0/:-///i/6-/h/g/i^/f0/6-&/c//e.6-.c..d.f.6-.c.b.fp.a>.a8.6-..`'._.a-^-^-6--]-\-^-[Z-[T-6-J-ZC-Y6-[-X,X,6-,W,V,X,Ur,Ul,6-b,T[,SN,U2,R+R+6-+Q+P+R+O+O+6-~+Nw+Mj+ON+L+L+6-+K+J*L*I*I*6-*H*G*Ij*F4*F.*6-$*E*D*F)C)C)6-)B)A)Cf)@ )@)6-)? )>(@(=(=(6-z(<s(;f(=J(:':'6-'9'8':x'7f'I-{&G-N&I-"&2-&&H-5%7/%6-%%6%5%7$4$I-#G-#I-#2-#~#H-"4"6-"3"2~"4O"1="I-R!G-%!I- 2-  H- 1 6-0/1.I-G-I-c2-^RH-v.p6-f-_,R.#+I-)G-I-2-H-+6-*)+(~I-G-fI-:2-5)H-M(G6-='6&)(%I-G-I-2-H-%6-$#%^"LI-aG-4I-2-H-"6- ! "I-G-gI-22--!H-E?6-5.!I-G-I-2-}qH-  6- ~ q 8  I- G- I- 2-  H-  6-   p j :  I-G-I-2-|pH-6-xqdA" |h6-^WP)#6- t^H2 6-     I-v^G1I- 6- } W.6-$6-}6-sl;6-1*y7-MG6-=6)P^P^^^p^p8^8^^^$X^X ^  ^^x^x@^@^%^^ `^`(^(^^^H^H^^^h^h0^0^^^P^P^^^p^p8^8^^x^x8^8^^x^x@^@^^^X^X ^ (^^x^x@^@^ ^  ^ "` ^` ( ^(  ^ # ^  ^ @ ^@  ^  ^  ^ !@ ^@  ^  ^  ^ @ ^@  ^  ^  ^ H ^H ) ^ ^^h^h0^0^^^P^P^^^p^p8^8^^^X^X ^ &^^ x^x@^@^^^H^H^^^H^H'^^^H^H^^^`^` ^ Hix \T-@15XTJNSTTinPsqxx}PT9LTXHTDT8x@T"SU Z _Sv {P Sx  S  S8 p S  S %0 +SBX H NSe k qwX}S8`S@Sh S-3X9?ES\bh8n`tSS8xS0XS$*00SGXMSY_Sv|PxS(PSxS( `S28>8D`J|SagmsyxS8ptS pSHlS hS(.H4dSKpQW`Sntz\S0hXSHpTS@h  PS*X 0 6 <!B(!H!N!T!ZLSq0"wh"}""#X#HS###($P$$$ %DSx%%% % @S"  &( P&. x&4 &: %4D%R[%5a%P5g%R~%x5%5%R%5%6%R%86%p6%R%6%6%R &6& 7&R-&@73&x79&RP&8z.{^!Aa  d.L42h/ 065 MT( ^[7 A ~ t P  k), 7J_ $-g,q<*F3e"R0 v<,^o| VX+KU p(*hb +v9/=mN,A1+pCc @5K!' R,9 4 Xl @o p) ~67{77-f$W6iX {(C c} @JG ȕ |. ` 0C4t*yh _8   k +   e   S ,H2u_   K.\/  ___standard_functions_MOD_bit_1___standard_functions_MOD_bit_2___standard_functions_MOD_bit_3___standard_functions_MOD_bit_4___standard_functions_MOD_bit_5___standard_functions_MOD_bit_6___standard_functions_MOD_bit_7___standard_functions_MOD_bit_8___standard_functions_MOD_get_logical_unit__gfortran_runtime_error_at__gfortran_st_inquire___standard_functions_MOD_l_byte_rev_bits_memcpy___standard_functions_MOD_byte_rev_bits___standard_functions_MOD_ascii_rev_bits___standard_functions_MOD_quad_complex_rev_endian_malloc__gfortran_os_error_free___standard_functions_MOD_double_complex_rev_endian___standard_functions_MOD_single_complex_rev_endian___standard_functions_MOD_quad_rev_endian___standard_functions_MOD_double_rev_endian___standard_functions_MOD_single_rev_endian___standard_functions_MOD_l_long_rev_endian___standard_functions_MOD_l_int_rev_endian___standard_functions_MOD_l_short_rev_endian___standard_functions_MOD_long_rev_endian___standard_functions_MOD_int_rev_endian___standard_functions_MOD_short_rev_endian___standard_functions_MOD_quad_complex_swap___standard_functions_MOD_double_complex_swap___standard_functions_MOD_single_complex_swap___standard_functions_MOD_quad_real_swap___standard_functions_MOD_double_real_swap___standard_functions_MOD_single_real_swap___standard_functions_MOD_l_long_logical_swap___standard_functions_MOD_l_int_logical_swap___standard_functions_MOD_l_short_logical_swap___standard_functions_MOD_l_byte_logical_swap___standard_functions_MOD_long_integer_swap___standard_functions_MOD_int_integer_swap___standard_functions_MOD_short_integer_swap___standard_functions_MOD_byte_integer_swap___standard_functions_MOD_ascii_character_swap___standard_functions_MOD_char_stop__gfortran_st_write__gfortran_transfer_character_write__gfortran_string_trim__gfortran_st_write_done_exit____standard_functions_MOD_int_stop__gfortran_transfer_integer_write___standard_functions_MOD_char_pause__gfortran_st_read__gfortran_st_read_done___standard_functions_MOD_int_pause___standard_functions_MOD_quad_cmach___standard_functions_MOD_double_cmach___standard_functions_MOD_single_cmach___standard_functions_MOD_quad_smach___standard_functions_MOD_double_smach___standard_functions_MOD_single_smach___standard_functions_MOD_quad_icamin_cabsl__gfortran_minloc0_4_r10___standard_functions_MOD_double_icamin_cabs__gfortran_minloc0_4_r8___standard_functions_MOD_single_icamin_cabsf__gfortran_minloc0_4_r4___standard_functions_MOD_quad_icamax__gfortran_maxloc0_4_r10___standard_functions_MOD_double_icamax__gfortran_maxloc0_4_r8___standard_functions_MOD_single_icamax__gfortran_maxloc0_4_r4___standard_functions_MOD_quad_isamin___standard_functions_MOD_double_isamin___standard_functions_MOD_single_isamin___standard_functions_MOD_quad_isamax___standard_functions_MOD_double_isamax___standard_functions_MOD_single_isamax___standard_functions_MOD_quad_ismin___standard_functions_MOD_double_ismin___standard_functions_MOD_single_ismin___standard_functions_MOD_quad_ismax___standard_functions_MOD_double_ismax___standard_functions_MOD_single_ismax___standard_functions_MOD_l_long_compl___standard_functions_MOD_l_int_compl___standard_functions_MOD_l_short_compl___standard_functions_MOD_l_byte_compl___standard_functions_MOD_quad_rrint__gfortran_random_r10___standard_functions_MOD_double_rrint__gfortran_random_r8___standard_functions_MOD_single_rrint__gfortran_random_r4___standard_functions_MOD_decode__gfortran_adjustl_memmove_memset__gfortran_compare_string__gfortran_string_index___standard_functions_MOD_encode___standard_functions_MOD_int_mod___standard_functions_MOD_binstr___standard_functions_MOD_octstr___standard_functions_MOD_hexstr___standard_functions_MOD_bin___standard_functions_MOD_oct___standard_functions_MOD_hex___standard_functions_MOD_long_cr___standard_functions_MOD_long_cd___standard_functions_MOD_int_cr___standard_functions_MOD_int_cd___standard_functions_MOD_short_cr___standard_functions_MOD_short_cd___standard_functions_MOD_byte_cr___standard_functions_MOD_byte_cd___standard_functions_MOD_long_lcm___standard_functions_MOD_long_gcd___standard_functions_MOD_int_lcm___standard_functions_MOD_int_gcd___standard_functions_MOD_short_lcm___standard_functions_MOD_short_gcd___standard_functions_MOD_byte_lcm___standard_functions_MOD_byte_gcd___standard_functions_MOD_long_mod___standard_functions_MOD_short_mod___standard_functions_MOD_byte_mod___standard_functions_MOD_long_isodd___standard_functions_MOD_int_isodd___standard_functions_MOD_short_isodd___standard_functions_MOD_byte_isodd___standard_functions_MOD_long_iseven___standard_functions_MOD_int_iseven___standard_functions_MOD_short_iseven___standard_functions_MOD_byte_iseven___standard_functions_MOD_quad_modulo_fmodl___standard_functions_MOD_double_modulo_fmod___standard_functions_MOD_single_modulo_fmodf___standard_functions_MOD_long_modulo___standard_functions_MOD_int_modulo___standard_functions_MOD_short_modulo___standard_functions_MOD_byte_modulo___standard_functions_MOD_quad_mod___standard_functions_MOD_double_mod___standard_functions_MOD_single_mod___standard_functions_MOD_l_long_xor___standard_functions_MOD_l_int_xor___standard_functions_MOD_l_short_xor___standard_functions_MOD_l_byte_xorLC0LC1LC2LC3LC4LC5LC6_is_recursive.4.2102LC7LC8_is_recursive.9.2132LC9LC10_is_recursive.12.2151LC11LC12LC13LC14_is_recursive.13.2162LC15LC16LC17_is_recursive.15.2174LC19LC20_is_recursive.24.2213LC21LC22_is_recursive.33.2252LC23LC24_is_recursive.42.2291LC25LC26_is_recursive.51.2330LC27LC28_is_recursive.60.2369LC29LC30_is_recursive.69.2408LC31LC32_is_recursive.78.2447LC33LC34_is_recursive.87.2486LC35LC36_is_recursive.96.2525LC37LC38_is_recursive.105.2564LC39LC40_is_recursive.114.2603LC41LC42_is_recursive.123.2642LC43LC44_is_recursive.124.2645LC45LC46_is_recursive.125.2648LC47LC48_is_recursive.126.2651LC49LC50_is_recursive.127.2654LC51LC52_is_recursive.128.2657LC53LC54_is_recursive.129.2660LC55LC56_is_recursive.130.2663LC57LC58_is_recursive.131.2666LC59LC60_is_recursive.132.2669LC61LC62_is_recursive.133.2672LC63LC64_is_recursive.134.2675LC65LC66_is_recursive.135.2678LC67LC68_is_recursive.136.2681LC69LC70LC71LC72_is_recursive.137.2684LC73LC74_is_recursive.138.2685LC78LC79_is_recursive.142.2694LC83LC84_is_recursive.145.2700LC86LC87_is_recursive.150.2708LC89LC90_is_recursive.154.2713LC95LC96_is_recursive.155.2720LC101LC102_is_recursive.156.2727LC107LC108_is_recursive.157.2734LC112LC113_is_recursive.158.2741LC117LC118_is_recursive.159.2748LC122LC123LC124LC125LC126LC127_is_recursive.162.2760LC128LC129LC130LC131_is_recursive.171.2820LC132LC133LC134LC135_is_recursive.180.2880LC136LC137LC138LC139_is_recursive.189.2940LC140LC141LC142LC143_is_recursive.198.3000LC144LC145LC146LC147_is_recursive.207.3060LC148LC149LC150LC151_is_recursive.216.3120LC152LC153LC154LC156_is_recursive.225.3180LC157LC158LC159LC161_is_recursive.234.3240LC162LC163LC164LC165_is_recursive.243.3300LC166LC167LC168LC169_is_recursive.252.3360LC170LC171LC172LC173_is_recursive.261.3420LC174LC175LC176LC177_is_recursive.270.3480LC178LC179LC180LC181_is_recursive.277.3521LC182LC183LC184LC185_is_recursive.284.3562LC186LC187LC188LC189_is_recursive.291.3603LC190LC191LC192LC193_is_recursive.298.3644LC194LC195LC196LC197_is_recursive.305.3685LC198LC199_is_recursive.310.3721LC200LC201_is_recursive.311.3723LC202LC203_is_recursive.312.3725LC204LC205_is_recursive.313.3727LC206LC207_is_recursive.314.3731LC208LC209_is_recursive.315.3744LC210LC211_is_recursive.316.3757LC212LC213LC215LC216LC217_is_recursive.317.3772LC218LC219LC220LC221LC222LC223LC224_is_recursive.319.3801LC226LC227LC228LC229LC230LC231LC232LC233_is_recursive.320.3818LC235LC236LC237LC238LC239LC240_is_recursive.322.3827LC242LC243LC244LC245LC246LC247LC248LC249_is_recursive.324.3838LC250LC251LC252LC253_is_recursive.326.3850LC254LC255LC256LC257_is_recursive.328.3869LC258LC259LC260LC261LC262LC263LC264_is_recursive.330.3888LC266LC267_is_recursive.335.3913LC268LC269_is_recursive.336.3915LC270LC271_is_recursive.337.3917LC272LC273_is_recursive.338.3919LC274LC275_is_recursive.339.3921LC276LC277_is_recursive.340.3923LC278LC279_is_recursive.341.3925LC280LC281_is_recursive.342.3927LC282LC283_is_recursive.343.3929LC284LC285_is_recursive.344.3931LC286LC287_is_recursive.345.3933LC288LC289_is_recursive.346.3935LC290LC291_is_recursive.347.3942LC292LC293_is_recursive.350.3959LC294LC295_is_recursive.353.3976LC296LC297_is_recursive.356.3993LC298LC299_is_recursive.359.4005LC300LC301_is_recursive.360.4007LC302LC303_is_recursive.361.4009LC304LC305_is_recursive.362.4011LC306LC307_is_recursive.363.4013LC308LC309_is_recursive.364.4015LC310LC311_is_recursive.365.4017LC312LC313_is_recursive.366.4019LC314LC315_is_recursive.367.4021LC316LC317_is_recursive.368.4027LC318LC319_is_recursive.369.4033LC320LC321_is_recursive.370.4039LC322LC323_is_recursive.371.4041LC324LC325_is_recursive.372.4043LC326LC327_is_recursive.373.4045LC328LC329_is_recursive.374.4047LC330LC331_is_recursive.375.4049LC332LC333_is_recursive.376.4051LC334LC335_is_recursive.377.4053LC336LC337_is_recursive.378.4055LC338LC339_is_recursive.379.4057LC340LC341_is_recursive.380.4059LC342LC343_is_recursive.381.4061LC344LC345_is_recursive.382.4063LC346LC347_is_recursive.383.4065LC348LC349_is_recursive.384.4067EH_frame1Day-I/09-new-types/test100777 0 0 121300 11776577230 10237 0 H__PAGEZERO(__TEXTpp__text__TEXT $8 __stubs__TEXTDD__stub_helper__TEXTlE lE__cstring__TEXTxFAxF__const__TEXT` `__eh_frame__TEXTaax__DATApp__dyld__DATAp8p__nl_symbol_ptr__DATA8p8p__la_symbol_ptr__DATAHpHp__data__DATA q  q__pu_bss2__DATA@r__common__DATAHr __bss2__DATAhrH__LINKEDIT0""0 8x8 PBBH4 /usr/lib/dyldK&;7"۳{ݙ$ *  H/usr/local/gfortran/lib/libgfortran.3.dylib 8/usr/lib/libSystem.B.dylib H/usr/local/gfortran/lib/libgcc_s.1.dylib H/usr/local/gfortran/lib/libquadmath.0.dylib&`jHHH}HuHHHH9uH[8ASL AS%c%cUHH OetH5R9H=z97'eHz9HDžDžDžHH7H(H51SH7HHd7H9HDžDžDžHH#7HH5RH 7HH6H8HDžDžDžHH6HH5RH6HH6HK8HDžDžDžHHY6HH5KRHV6HH56H7HDžDžDžHH5HH5H7HDžHQH(Dž0 DžDžHH5HH5QH5HH5QHt5HHS5H7HDžHOQH(Dž0 DžDžHH4HH5QH4H H5QH4HH4Hl6HDžHPH(Dž0 DžDžHHb4HH5PH_4H H5uPHD4HH#4H5HDžHPH(Dž0 DžDžHH3HH5PH3H H5OH3HH3H<5HDžHOH(Dž0 DžDžHH23HH5wOH/3HH5]OH3HH2H4HDžDžDžHH2HH2HW4HDžDžDžHHe2H H5NHb2HHA2H3HDžDžDžHH1HMHHH1HH1ERRRRRDH0HDžDžDžHH.HMHHH.HH.HUHEHH\,HJ0HDžDžDžHHL.HMHHH[.HH(.HUHEHH,H/HDžDžDžHH-HMHHH-HH-HUHEHH\*HP/HDžDžDžHHR-HMHHHU-HH.-HMHEHH'H.HDž!DžDžHH,HMHHH,HH,Hi.HDž"HEH@DžHHDž DžHHH(Dž0DžPHH3,HMHHHB,HH,HUHEHH*Eʃb<HHHcHH=>DHUHEHH)H,-HDž-DžDžHH:+HMHHH[+HH+ HUHEHHE*H,HDž0DžDžHH*HMHHH*HH*HUHEHH'H2,HDž3DžDžHH@*HMHHHU*HH*HMHEкHHg%H+HDž6DžDžHH)HMHHH)HH)HUHEHH(H3+HDž9HEH(Dž0 DžDžHH))HMHHH2)HH)H*HDžGDžDžHH(HH56EH(HH(H=+E(UHH}HuHUEH։K(H5E@(QUHH0H}HuЋVtH5)H= *'`VHE؋EHEЋEHEЋUHE؋U2VUHH H}VtH5)H=*'UE EUUHAUATSHH8UtH5)H=+*/'UAHDžPIHDž`HDžhHDžXHEH@HDžHLHHH?HHtH1HxHH)ʺHHOILHXHEIHEHEH]HCHHStHкHHDH&Hu H=U)6&HpHDžxM9LINHpH8HHy&H9HpTHHpHtH:&HEIHEHEHEHEHpHDžxHHpH)L Ј HݸHHpTHHEIHEHEHEHEHpHDžxHMHUHH)HHHºH9HNºHHIHpHEHHF%EEE/SHĸ[A\A]]UHSH8H}HuHUȋStH5'H='z$RHE؋HEЋ։HEȋӉ!EERH8[]UHH0H}HuHUHMLE؋tRtH5'H='#LRHMHEH}HUHuIH##RUHSH(H}HuЋRtH5'H='#QHEЋ1)ʃ4x1)кӉ1)кӉHU؋!ЅEEoQH([]UHSH(H}HuЋMQtH5L'H='"%QHE؋HEЋӉ؃EEPH([]UHSH(H}HuЋPtH5G'H='d"PHE؋HEЋ!ЉEEPH([]UHSH(H}HuЋePtH5<'H=u'!=PHE؋HEЋ ЉEEPH([]UHH`H}HuHUOtH50'H=i'}!OHE1‰U)E} } u)HEEHEEUHEUHEHEmHE_HE0HE 1)ʃ*x1)Љ1)ЉEHE0HE 1)ʃ*x1)Љ1)ЉEHE0HE1)ʃ*x1)Љ1)ЉEHE0HE1)ʃ*x1)Љ1)ЉEUE HEUE HEn}d}ZHE0HE 1)ʃ*x1)Љ1)ЉEHE0HE 1)ʃ*x1)Љ1)ЉEHE0HE1)ʃ*x1)Љ1)ЉEHE0HE1)ʃ*x1)Љ1)ЉEUE HEUE HELUHHPH}HuHUeLtH5$H=M$=LHEyEEHEuHEEЋEHEHEȋ0HE )ȉ1)ʃ*x1)Љ1)ЉEHE0HE؉1)ʃ*x1)Љ1)ЉEUE ЉEHE u HEȋEEEKUHHPH}HuHUJtH5#H=N#JHEyEEHEuHEȋEЋEHEHEȋ0HE1)ʃ*x1)Љ1)ЉEHE0HE 1)ʃ*x1)Љ1)ЉEUE ЉEHE u HEEEEIUHH0H}HuHU؋ItH5 "H=Y"5qIHE؋HEHEΉEEFIUHH H}Hu*ItH5"H=V"IHE0HE1)ʃ*x1)Љ1)ЉEEHUHH H}HtH5!H='"3gHHEw~HEHH҅t HH5 "H=R"H ҅t HH5S"H=$"HHHFEEEGUHH H}GtH5B"H={"WGHEw~HEHH҅t HH5]"H=" H ҅t HH5"H=x"HHH#EEEEFUHH H}FtH5"H="{FHEHEHH҅t HH5; H="H ҅t HH5 H=^"HHHDEHE1)HH҅t HH5 H=*"H ҅t HH5+!H=!`HHHCEEEgEUHSH(H}HuЋJEtH5!H=!"EHE؋HEЋt~ ӉÉ ؉ӉˉЉEEDH([]UHH H}HuDtH5!H=!yDHE0HE1)ʃ*x1)Љ1)ЉEEBDUHH0H}HuЋ&DtH5y!H=!CHE؋HEЋ1ЉEHEHEHEHEECUHH0H}؋CtH5a!H=!fCHE؋EE%EE%""""EE%DDDDEE%EEuUMȉEE%EE%EEE%EEuUMȉEEEEBUHH0H}؋BtH5 H=!uBHE؋EE%EE%""""EE%DDDDEE%EEuUMȉEE%EE%EEE%EEuUMȉEE%EEAUHH H}AtH5M H= AHEE}uE EE%u EEeE%uEeE%uEeE%3333uEe3333E%UUUUuEEEE@UHH H}@tH5H= @HEE}uE EEfu EEeE%uEeE%uEeE%̅uEe̋E%uEEEE?UHH0H}Hu?tH5DH=u?HEHUU܉}܉EE?UHH H}Hur?tH5=H=nBJ?HEHE‰EE+?UHH H}Hu?tH5>H=o>HEHE)ȉEE>UHH H}Hu>tH5<H=m>HEHEЉEEc>UHH H}HuG>tH5>H=o#>HEHE9EE=UHH H}Hu=tH5:H=k=HEHE9EE=UHH H}Huw=tH56H=g[O=HEHE9EE+=UHH H}Hu=tH52H=c<HEHE9EE<UHH H}Hu<tH5.H=_<HEHE9EE[<UHH H}Hu?<tH5*H=[/<HEHE9EE;UHH H}Hu;tH5&H=W ;HEHE1ЉEE;UHH H}Huu;tH5(H=Ym M;HEHE1ЉEE-;UHH H}Hu;tH5(H=Y :HEHE1ЉEE:UHH0H}HuHU؋:tH5&H=W :HEHE؋!HEHE؋! ȉEEQ:UHH H}9:tH5H=Q= :HEЉEE9UHH H}9tH5,H=] 9HEЉEE9UHH H}Hu9tH54H=e ]9HEHE1ЉEE?9UHH H}Hu#9tH56H=g3 8HEHE ЉEE8UHH H}Hu8tH58H=i 8HEHE!ЉEE{8UHH H}c8tH5>H=w{ ;8HE؉EE#8UHH H} 8tH5RH=' 7HEEE7UHAUATSH(H}؉uHUȋ7tH5TH= 7AAM9H]SLHHDH Hu H= z HM9LINĺHHIHMHHH LHvHEغHH 1LHEHH LH)LHEؾ H 6H([A\A]]UHH H}6tH5H=t6H9HNºHHIHEHMHHEEE16UHH H}6tH5H=A5H9HNºHHIHEHMHHyEEE5fnUHH H}5tH5qH=j5H9HNºHHIHEHMHHEEE'5UHH0H}؉uԋ 5tH5OH=<4}t-EHAHHkH5jH=;H9HNºHHIHEHMHH9EEEf4UHH0H}؋N4tH5MH=~&4H9HNºHHIHEHMHHEEE3UHH0H}؋3tH5.H=_3H9HNºHHIHEHMHH;EEE`3UHH0H}؋H3tH5H=@ 3H9HNºHHIHEHMHHEEE2UHH0H}HuU܋2tH5H=2}t-EHAHH-H5,H=H9HNºHHIHEHMHHHEU2UHAUATSH(H}HuЉŰ1tH5H=81}t-EHAHHgH5fH=oAAM9H]SLHHDH1Hu H=HM9LINĺHHIHMHHHLHvHEغHH1LHEHHLH)LHEؾ H0H([A\A]]UHH H}Hu0tH5H=0H9HNºHHIHEHMHH(HEU=0UHH H}Hu!0tH5xH=m/H9HNºHHIHEHMHHUHE/UHH H}Hu/tH5UH=r/H9HNºHHIHEHMHH"HEU//UHH H}Hu/tH52H=cg.H9HNºHHIHEHMHHUHE.UHH H}Hu.tH5H=@d.H9HNºHHIHEHMHHHEU!.UHH H}Hu.tH5H=a-H9HNºHHIHEHMHHUHE-%n+%p+%r+%t+%v+%x+%z+%|+%~+%+%+%+%+%+%+%+%+%+%+%+%+%+%+%+%+hhh4hNhphhhhhhh8h]zhphfh\hRh Hh@>hf4hs*h hh hL)AS%)Recursive call to nonrecursive procedure 'aka'At line 94 of file aka.f90aka.f90Recursive call to nonrecursive procedure 'boolean_swap'At line 2376 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_bit_size'At line 2356 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_rev_endian'At line 2322 of file typebool.f90Memory allocation failedRecursive call to nonrecursive procedure 'boolean_ibits'At line 2296 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_mvbits'At line 2272 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_bztest'At line 2246 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_btest'At line 2224 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ibclr'At line 2202 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ibset'At line 2180 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_dshftc'At line 2110 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_dshftr'At line 2055 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_dshftl'At line 2000 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ishftc'At line 1978 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ishft'At line 1956 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_maskr'At line 1918 of file typebool.f90Index '%ld' of dimension 1 of array 'right_mask' below lower bound of %ldAt line 1934 of file typebool.f90Index '%ld' of dimension 1 of array 'right_mask' above upper bound of %ldRecursive call to nonrecursive procedure 'boolean_maskl'At line 1884 of file typebool.f90Index '%ld' of dimension 1 of array 'left_mask' below lower bound of %ldAt line 1900 of file typebool.f90Index '%ld' of dimension 1 of array 'left_mask' above upper bound of %ldRecursive call to nonrecursive procedure 'boolean_mask'At line 1846 of file typebool.f90At line 1862 of file typebool.f90At line 1866 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_rotate'At line 1820 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_shift'At line 1798 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_hamd'At line 1778 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_poppar'At line 1740 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_popcnt'At line 1694 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_lastz'At line 1632 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_leadz'At line 1572 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_div'At line 1548 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_mul'At line 1528 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_sub'At line 1508 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_add'At line 1488 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_lt'At line 1464 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_le'At line 1444 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_gt'At line 1424 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ge'At line 1404 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_ne'At line 1384 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_eq'At line 1364 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_neqv'At line 1340 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_eqv'At line 1320 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_xor'At line 1300 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_csmg'At line 1276 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_compl'At line 1256 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_not'At line 1236 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_eor'At line 1216 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_or'At line 1196 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_and'At line 1176 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_minus'At line 1152 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_plus'At line 1132 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_char'At line 1108 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_logical'At line 1088 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_real'At line 1068 of file typebool.f90Recursive call to nonrecursive procedure 'boolean_int'At line 1048 of file typebool.f90Recursive call to nonrecursive procedure 'char_bool'At line 1028 of file typebool.f90cActual string length is shorter than the declared one for dummy argument '%s' (%ld/%ld)Recursive call to nonrecursive procedure 'logical_bool'At line 1008 of file typebool.f90Recursive call to nonrecursive procedure 'single_bool'At line 988 of file typebool.f90Recursive call to nonrecursive procedure 'int_bool'At line 968 of file typebool.f90Recursive call to nonrecursive procedure 'c_to_b'At line 942 of file typebool.f90Recursive call to nonrecursive procedure 'b_to_c'At line 920 of file typebool.f90Recursive call to nonrecursive procedure 'l_to_b'At line 898 of file typebool.f90Recursive call to nonrecursive procedure 'b_to_l'At line 876 of file typebool.f90Recursive call to nonrecursive procedure 'r_to_b'At line 854 of file typebool.f90Recursive call to nonrecursive procedure 'b_to_r'At line 832 of file typebool.f90Recursive call to nonrecursive procedure 'i_to_b'At line 810 of file typebool.f90Recursive call to nonrecursive procedure 'b_to_i'At line 788 of file typebool.f90$Source: D:/LF95/Utilities/rcs/Aka.f90 $$Revision: 1.2 $$State: Release $$Date: 1999/04/16 17:22:07 $( 1x, a, a) r - reali - integerl - logicalc - characterb - bitsyou have: you want: yes( z8) ( 1x, z8.8) garbled input- aka quitsakazRx ,y 4LQ= 8 zRx 4>n i 4TtP K <   4 y 4Nu p 4<  4tm c 4=s i 4xq g 4  4Tg b 4,] X 4Qo j 4  44  4l  43| w 4w x 4  4L$| w 4h  4!  4  4,  4dAg b 4p_ Z 4b ] 4 ^ Y 4Dd _ 4|d _ 4?d _ 4kd _ 4$d _ 4\d _ 4^ Y 4` [ 4=^ Y 4<cv q 4tT O 4T O 4^ Y 4 ^ Y 4T %^ Y 4 KT O 4 gR M <    4< V z 4t  ~ 4  z 4 /  4  z 4T  z 4 B z 4   < P  B 4< " ~ 4t m ~ 4  ~ 4  ~ 4 N ~ 4T  ~ __HrPrXr`rlEvEEEEEEEEEEEEEEF FF F*F4F>FHFRF\F????"UB`@dyld_stub_binderQr8rH@__gfortran_ishftc4rP@__gfortran_mvbits_i4rX@__gfortran_os_errorr`@__gfortran_runtime_error_atrh@__gfortran_set_argsrp@__gfortran_set_optionsrx@__gfortran_st_readr@__gfortran_st_read_doner@__gfortran_st_writer@__gfortran_st_write_doner@__gfortran_stop_stringr@__gfortran_transfer_characterr@__gfortran_transfer_character_writer@__gfortran_transfer_integerr@__gfortran_transfer_integer_writer@__gfortran_transfer_logicalr@__gfortran_transfer_logical_writer@__gfortran_transfer_realr@__gfortran_transfer_real_writer@_exitr@_freer@_mallocr@_memcpyr@_memmover@_memset_ startE_)mainJNXArgenvironmh_execute_headerA_O9type_boolean_MOD_oprognamebclsingle_boolirall_oolean__to_sbrimdhamdplagnexorcorwaphiftub9it_sizeztesttest:eotatev_endianal:bshftntitsclrset@vbitsaskulinusABCDEshftivcrlFMPcRSrlUVX[\]oplusparcnt^`astzetogicalbadzdffgddndhiitejkeotlqvqormvmnosmgomplharppqrrstuuwxyhar_bool_to_bzogical_bool_to_beft_mask|}nt_bool_to_b~clriƒń_to_bight_maskȅˆ·шsetclearcv<=nPumsqo|g_b^dddddd^`^vTT^^^TR  . 6aG hr\ lrr pr tr xr |r r r r  r" r8 rN rd rz r r r r r r r r* r@ rV rl r r r r r r r r r2 rH r^ rt r s s s s s s s$ s: sP $sf (s| ,s 0s 4s 8s KCY14y9,!+!:$y8F8g 31#(&!96/E7O5nW5.M"3 " <4 )V y)y 41 4 2 ; 4 ;,@ _+b * ;: p3   6 6) 8I 9h : A0 P/ u< | -: 9.\ 3|  7 ? w= C 2?. AI  @qg 4> B  q >   Xr   3Gcw?[} @ dyld_stub_binding_helper__dyld_func_lookup_MAIN___options.33.1642_is_recursive.0.1546_is_recursive.83.2136_is_recursive.81.2131_is_recursive.79.2126_is_recursive.77.2121_is_recursive.75.2116_is_recursive.73.2111_is_recursive.71.2102_is_recursive.69.2097_is_recursive.67.2091_is_recursive.65.2085_is_recursive.63.2079_is_recursive.61.2073_is_recursive.59.2067_is_recursive.57.2061_is_recursive.55.2055_is_recursive.53.2046_is_recursive.52.2044_is_recursive.51.2042_is_recursive.50.2040_is_recursive.49.2038_is_recursive.48.2036_is_recursive.47.2034_is_recursive.46.2032_is_recursive.45.2030_is_recursive.44.2028_is_recursive.43.2026_is_recursive.42.2024_is_recursive.41.2022_is_recursive.40.2020_is_recursive.39.2018_is_recursive.38.2016_is_recursive.37.2014_is_recursive.36.2012_is_recursive.35.2010_is_recursive.34.2008_is_recursive.33.2006_is_recursive.32.2004_is_recursive.31.1996_is_recursive.30.1986_is_recursive.29.1975_is_recursive.28.1961_is_recursive.27.1952_is_recursive.26.1948_is_recursive.25.1944_is_recursive.24.1936_is_recursive.23.1929_is_recursive.22.1922_is_recursive.21.1918_is_recursive.20.1916_is_recursive.19.1908_is_recursive.18.1898_is_recursive.17.1877_is_recursive.16.1870_is_recursive.15.1868_is_recursive.14.1866_is_recursive.13.1862_is_recursive.12.1860_is_recursive.11.1858_is_recursive.2.1807_is_recursive.1.1803_is_recursive.0.1802_NXArgc_NXArgv___progname___type_boolean_MOD_all_clear___type_boolean_MOD_all_set___type_boolean_MOD_b_to_c___type_boolean_MOD_b_to_i___type_boolean_MOD_b_to_l___type_boolean_MOD_b_to_r___type_boolean_MOD_boolean_add___type_boolean_MOD_boolean_and___type_boolean_MOD_boolean_bit_size___type_boolean_MOD_boolean_btest___type_boolean_MOD_boolean_bztest___type_boolean_MOD_boolean_char___type_boolean_MOD_boolean_compl___type_boolean_MOD_boolean_csmg___type_boolean_MOD_boolean_div___type_boolean_MOD_boolean_dshftc___type_boolean_MOD_boolean_dshftl___type_boolean_MOD_boolean_dshftr___type_boolean_MOD_boolean_eor___type_boolean_MOD_boolean_eq___type_boolean_MOD_boolean_eqv___type_boolean_MOD_boolean_ge___type_boolean_MOD_boolean_gt___type_boolean_MOD_boolean_hamd___type_boolean_MOD_boolean_ibclr___type_boolean_MOD_boolean_ibits___type_boolean_MOD_boolean_ibset___type_boolean_MOD_boolean_int___type_boolean_MOD_boolean_ishft___type_boolean_MOD_boolean_ishftc___type_boolean_MOD_boolean_lastz___type_boolean_MOD_boolean_le___type_boolean_MOD_boolean_leadz___type_boolean_MOD_boolean_logical___type_boolean_MOD_boolean_lt___type_boolean_MOD_boolean_mask___type_boolean_MOD_boolean_maskl___type_boolean_MOD_boolean_maskr___type_boolean_MOD_boolean_minus___type_boolean_MOD_boolean_mul___type_boolean_MOD_boolean_mvbits___type_boolean_MOD_boolean_ne___type_boolean_MOD_boolean_neqv___type_boolean_MOD_boolean_not___type_boolean_MOD_boolean_or___type_boolean_MOD_boolean_plus___type_boolean_MOD_boolean_popcnt___type_boolean_MOD_boolean_poppar___type_boolean_MOD_boolean_real___type_boolean_MOD_boolean_rev_endian___type_boolean_MOD_boolean_rotate___type_boolean_MOD_boolean_shift___type_boolean_MOD_boolean_sub___type_boolean_MOD_boolean_swap___type_boolean_MOD_boolean_xor___type_boolean_MOD_c_to_b___type_boolean_MOD_char_bool___type_boolean_MOD_i_to_b___type_boolean_MOD_int_bool___type_boolean_MOD_l_to_b___type_boolean_MOD_left_mask___type_boolean_MOD_logical_bool___type_boolean_MOD_r_to_b___type_boolean_MOD_right_mask___type_boolean_MOD_single_bool__mh_execute_header_environ_mainstart__gfortran_ishftc4__gfortran_mvbits_i4__gfortran_os_error__gfortran_runtime_error_at__gfortran_set_args__gfortran_set_options__gfortran_st_read__gfortran_st_read_done__gfortran_st_write__gfortran_st_write_done__gfortran_stop_string__gfortran_transfer_character__gfortran_transfer_character_write__gfortran_transfer_integer__gfortran_transfer_integer_write__gfortran_transfer_logical__gfortran_transfer_logical_write__gfortran_transfer_real__gfortran_transfer_real_write_exit_free_malloc_memcpy_memmove_memsetdyld_stub_binderDay-I/09-new-types/test_boolean.f90100777 0 0 370 11776574234 12257 0 ! test type boolean program test_boolean use :: type_boolean type( boolean_t) :: a real :: r integer :: i continue read( unit= *, fmt= *) r a = r i = a write( unit= *, fmt= *) i stop 'normal exit' end program test_boolean Day-I/09-new-types/typebool.f90100777 0 0 134247 11777306472 11527 0! bof ! ********************************************************************** ! Fortran 95 module type_boolean ! ********************************************************************** ! Source Control Strings ! $Id: typebool.f90 1.9 2001/06/10 09:28:08Z Dan Release $ ! ********************************************************************** ! Copyright 2012 Dan Nagle ! ********************************************************************** ! type boolean is a 32-bit typeless type with operations and routines ! ********************************************************************** ! Summary of License ! This library is free software; you can redistribute it and/or ! modify it under the terms of the GNU Library General Public ! License as published by the Free Software Foundation; either ! version 2 of the License, or (at your option) any later version. ! This library is distributed in the hope that it will be useful, ! but WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ! Library General Public License for more details. ! You should have received a copy of the GNU Library General Public ! License along with this library; if not, write to the Free ! Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! To report bugs, suggest enhancements, etc. to the Authors, ! Contact: ! Dan Nagle ! send email to dnagle@ucar.edu ! or mail to 2820 Lafayette Dr ! Boulder, CO 80305 USA ! a variable of type boolean consists of (wordsize) distinct bits ! an assignment to or from a boolean variable is a bit-wise copy ! there is no meaning assigned to any bit, hence "typeless" ! ********************************************************************** ! type_boolean types ! boolean_t a typeless type, an ordered set of bits ! type_boolean constants ! all_set all bits set ! all_clear all bits clear ! type_boolean operators ! = assignment ! + unary operators ! - ! .set. boolean = boolean .set. integer ! .clear. boolean = boolean .clear. integer ! .isset. logical = boolean .isset. integer ! .isclear. logical = boolean .isclear. integer ! .and. boolean = boolean .and. boolean ! .or. boolean = boolean .or. boolean ! .eor. boolean = boolean .eor. boolean ! .not. boolean = .not. boolean ! .xor. boolean = boolean .xor. boolean ! .eqv. boolean = boolean .eqv. boolean ! .neqv. boolean = boolean .neqv. boolean ! .eq. logical = boolean .eq. boolean ! .ne. logical = boolean .ne. boolean ! .gt. logical = boolean .gt. boolean ! .ge. logical = boolean .ge. boolean ! .le. logical = boolean .le. boolean ! .lt. logical = boolean .lt. boolean ! + boolean = boolean + boolean ! - boolean = boolean - boolean ! * boolean = boolean * boolean ! / boolean = boolean / boolean ! .hamd. integer = boolean .hamd. boolean ! .shift. boolean = boolean .shift. integer ! .rotate. boolean = boolean .rotate. integer ! type_boolean library ! bool() boolean = bool( real integer logical character) ! int() integer = int( boolean) ! real() real = real( boolean) ! logical() logical = logical( boolean) ! char() character = char( boolean) ! compl() boolean = compl( boolean) ! csmg() boolean = csmg( boolean, boolean, boolean) ! leadz() integer = leadz( boolean) ! lastz() integer = lastz( boolean) ! popcnt() integer = popcnt( boolean) ! poppar() integer = poppar( boolean) ! hamd() integer = hamd( boolean, boolean) ! mask() boolean = mask( integer) ! maskl() boolean = maskl( integer) ! maskr() boolean = maskr( integer) ! ishft() boolean = ishft( boolean, integer) ! ishftc() boolean = ishftc( boolean, integer, integer) ! dshftl() boolean = dshftl( boolean, boolean, integer) ! dshftr() boolean = dshftr( boolean, boolean, integer) ! dshftc() call dshftc( boolean, boolean, integer) ! ibset() boolean = ibset( boolean, integer) ! ibclr() boolean = ibclr( boolean, integer) ! btest() logical = btest( boolean, integer) ! bztest() logical = btest( boolean, integer) ! mvbits() call mvbits( boolean, integer, integer, boolean, integer) ! ibits() boolean = ibits( boolean, integer, integer) ! not() boolean = not( boolean) ! rev_endian() ! bit_size() integer = bit_size( boolean) ! swap() call swap( boolean, boolean) ! ********************************************************************** ! type boolean- a bit_size( word) number of bits- "typeless" ! ********************************************************************** module type_boolean ! ********************************************************************** ! access the fortran environment use, intrinsic :: iso_fortran_env, only: character_storage_size, numeric_storage_size ! ********************************************************************** ! declare all variables implicit none ! ********************************************************************** ! explicit public private ! ********************************************************************** ! RCS strings ! ********************************************************************** character( len= *), public, parameter :: type_boolean_rcs_id = & '$Id: typebool.f90 1.9 2001/06/10 09:28:08Z Dan Release $' ! ********************************************************************** ! define the type ! ********************************************************************** ! type boolean is one word of bits type, public :: boolean_t private integer :: bits end type boolean_t ! ********************************************************************** ! boolean_t constants ! ********************************************************************** ! characters per word integer, parameter :: csu_per_nsu = numeric_storage_size / character_storage_size ! ********************************************************************** ! all_set has all bits set type( boolean_t), public, parameter :: all_set = boolean_t( -1) ! all_clear has all bits clear type( boolean_t), public, parameter :: all_clear = boolean_t( 0) ! ********************************************************************** ! assignment: to/from integer, real, logical, character public :: assignment( =) interface assignment( =) module procedure b_to_i module procedure i_to_b module procedure b_to_r module procedure r_to_b module procedure b_to_l module procedure l_to_b module procedure b_to_c module procedure c_to_b end interface ! ********************************************************************** ! conversion: bool(), int(), real(), logical(), char() public :: bool interface bool module procedure int_bool module procedure single_bool module procedure logical_bool module procedure char_bool end interface intrinsic :: int public :: int interface int module procedure boolean_int end interface intrinsic :: real public :: real interface real module procedure boolean_real end interface intrinsic :: logical public :: logical interface logical module procedure boolean_logical end interface intrinsic :: char public :: char interface char module procedure boolean_char end interface ! ********************************************************************** ! unary operators ! ********************************************************************** ! boolean unary operator + public :: operator( +) interface operator( +) module procedure boolean_plus end interface ! boolean unary operator - public :: operator( -) interface operator( -) module procedure boolean_minus end interface ! ********************************************************************** ! bitwise logical operators & functions ! ********************************************************************** ! boolean binary operator .and. public :: operator( .and.) interface operator( .and.) module procedure boolean_and end interface ! boolean binary operator .or. public :: operator( .or.) interface operator( .or.) module procedure boolean_or end interface ! boolean binary operator .eor. public :: operator( .eor.) interface operator( .eor.) module procedure boolean_eor end interface ! boolean unary operator .not. public :: operator( .not.) interface operator( .not.) module procedure boolean_not end interface ! boolean function compl( i) public :: compl interface compl module procedure boolean_compl end interface ! boolean function csmg( i, j, k) public :: csmg interface csmg module procedure boolean_csmg end interface ! ********************************************************************** ! boolean logical operators ! ********************************************************************** ! boolean binary operator .xor. public :: operator( .xor.) interface operator( .xor.) module procedure boolean_xor end interface ! boolean binary operator .eqv. public :: operator( .eqv.) interface operator( .eqv.) module procedure boolean_eqv end interface ! boolean binary operator .neqv. public :: operator( .neqv.) interface operator( .neqv.) module procedure boolean_neqv end interface ! ********************************************************************** ! logical boolean operators: .eq., .ne., .ge., .gt., .le., .lt. ! ********************************************************************** ! boolean binary operator == public :: operator( .eq.) interface operator( .eq.) module procedure boolean_eq end interface ! boolean binary operator /= public :: operator( .ne.) interface operator( .ne.) module procedure boolean_ne end interface ! boolean binary operator >= public :: operator( .ge.) interface operator( .ge.) module procedure boolean_ge end interface ! boolean binary operator > public :: operator( .gt.) interface operator( .gt.) module procedure boolean_gt end interface ! boolean binary operator <= public :: operator( .le.) interface operator( .le.) module procedure boolean_le end interface ! boolean binary operator < public :: operator( .lt.) interface operator( .lt.) module procedure boolean_lt end interface ! ********************************************************************** ! integer arithmetic operators ! ********************************************************************** ! boolean binary operator + interface operator( +) module procedure boolean_add end interface ! boolean binary operator - interface operator( -) module procedure boolean_sub end interface ! boolean binary operator * public :: operator( *) interface operator( *) module procedure boolean_mul end interface ! boolean binary operator / public :: operator( /) interface operator( /) module procedure boolean_div end interface ! ********************************************************************** ! bit level functions ! ********************************************************************** ! boolean function leadz public :: leadz interface leadz module procedure boolean_leadz end interface ! boolean function lastz public :: lastz interface lastz module procedure boolean_lastz end interface ! boolean function popcnt public :: popcnt interface popcnt module procedure boolean_popcnt end interface ! boolean function poppar public :: poppar interface poppar module procedure boolean_poppar end interface ! boolean hamming distance public :: hamd interface hamd module procedure boolean_hamd end interface public :: operator( .hamd.) interface operator( .hamd.) module procedure boolean_hamd end interface ! boolean hamming distance public :: operator( .shift.) interface operator( .shift.) module procedure boolean_shift end interface public :: operator( .rotate.) interface operator( .rotate.) module procedure boolean_rotate end interface ! ********************************************************************** ! mask functions ! ********************************************************************** ! boolean mask public :: mask interface mask module procedure boolean_mask end interface ! boolean maskl public :: maskl interface maskl module procedure boolean_maskl end interface ! boolean maskr public :: maskr interface maskr module procedure boolean_maskr end interface ! ********************************************************************** ! shift functions ! ********************************************************************** ! boolean ishft intrinsic :: ishft public :: ishft interface ishft module procedure boolean_ishft end interface ! boolean ishftc intrinsic :: ishftc public :: ishftc interface ishftc module procedure boolean_ishftc end interface ! boolean dshftl public :: dshftl interface dshftl module procedure boolean_dshftl end interface ! boolean dshftr public :: dshftr interface dshftr module procedure boolean_dshftr end interface ! boolean dshftc public :: dshftc interface dshftc module procedure boolean_dshftc end interface ! ********************************************************************** ! mil std bit functions ! ********************************************************************** ! boolean ibset public :: operator( .set.) interface operator( .set.) module procedure boolean_ibset end interface intrinsic :: ibset public :: ibset interface ibset module procedure boolean_ibset end interface ! boolean ibclr public :: operator( .clear.) interface operator( .clear.) module procedure boolean_ibclr end interface intrinsic :: ibclr public :: ibclr interface ibclr module procedure boolean_ibclr end interface ! boolean btest public :: operator( .isset.) interface operator( .isset.) module procedure boolean_btest end interface intrinsic :: btest public :: btest interface btest module procedure boolean_btest end interface ! boolean isclear public :: operator( .isclear.) interface operator( .isclear.) module procedure boolean_bztest end interface public :: bztest interface bztest module procedure boolean_bztest end interface ! boolean mvbits intrinsic :: mvbits public :: mvbits interface mvbits module procedure boolean_mvbits end interface ! boolean ibits intrinsic :: ibits public :: ibits interface ibits module procedure boolean_ibits end interface ! ********************************************************************** ! boolean rev_endian() public :: rev_endian interface rev_endian module procedure boolean_rev_endian end interface ! ********************************************************************** ! boolean bit_size() intrinsic :: bit_size public :: bit_size interface bit_size module procedure boolean_bit_size end interface ! ********************************************************************** ! boolean swap() public :: swap interface swap module procedure boolean_swap end interface ! ********************************************************************** ! data ! ********************************************************************** ! mask, maskl, maskr data integer, dimension( bit_size( 0)), parameter :: left_mask = & int( [ z'80000000', z'c0000000', z'e0000000', z'f0000000', & z'f8000000', z'fc000000', z'fe000000', z'ff000000', & z'ff800000', z'ffc00000', z'ffe00000', z'fff00000', & z'fff80000', z'fffc0000', z'fffe0000', z'ffff0000', & z'ffff8000', z'ffffc000', z'ffffe000', z'fffff000', & z'fffff800', z'fffffc00', z'fffffe00', z'ffffff00', & z'ffffff80', z'ffffffc0', z'ffffffe0', z'fffffff0', & z'fffffff8', z'fffffffc', z'fffffffe', z'ffffffff']) integer, dimension( bit_size( 0)), parameter :: right_mask = & int( [ z'00000001', z'00000003', z'00000007', z'0000000f', & z'0000001f', z'0000003f', z'0000007f', z'000000ff', & z'000001ff', z'000003ff', z'000007ff', z'00000fff', & z'00001fff', z'00003fff', z'00007fff', z'0000ffff', & z'0001ffff', z'0003ffff', z'0007ffff', z'000fffff', & z'001fffff', z'003fffff', z'007fffff', z'00ffffff', & z'01ffffff', z'03ffffff', z'07ffffff', z'0fffffff', & z'1fffffff', z'3fffffff', z'7fffffff', z'ffffffff']) ! leadz, lastz, popcnt, poppar data integer, parameter :: lead_probe16 = int( z'ffff0000') integer, parameter :: lead_probe8 = int( z'ff00ff00') integer, parameter :: lead_probe4 = int( z'f0f0f0f0') integer, parameter :: lead_probe2 = int( z'cccccccc') integer, parameter :: lead_probe1 = int( z'aaaaaaaa') integer, parameter :: last_probe16 = int( z'0000ffff') integer, parameter :: last_probe8 = int( z'00ff00ff') integer, parameter :: last_probe4 = int( z'0f0f0f0f') integer, parameter :: last_probe2 = int( z'33333333') integer, parameter :: last_probe1 = int( z'55555555') integer, parameter :: p1 = int( z'11111111') integer, parameter :: p2 = int( z'22222222') integer, parameter :: p4 = int( z'44444444') integer, parameter :: p8 = int( z'88888888') integer, parameter :: hi_nibble = int( z'f0f0f0f0') integer, parameter :: lo_nibble = int( z'0f0f0f0f') integer, parameter :: low_byte = int( z'000000ff') integer, parameter :: low_bit = int( z'00000001') ! ********************************************************************* ! library ! ********************************************************************** contains ! ********************************************************************** ! assignment between boolean <--> other csu_per_nsu byte types ! ********************************************************************** ! integer = boolean elemental subroutine b_to_i( i, b) type( boolean_t), intent( in) :: b integer, intent( out) :: i ! b_to_i() continue i = transfer( b, i) return ! b_to_i() end subroutine b_to_i ! ********************************************************************** ! boolean = integer elemental subroutine i_to_b( b, i) integer, intent( in) :: i type( boolean_t), intent( out) :: b ! i_to_b() continue b = transfer( i, b) return ! i_to_b() end subroutine i_to_b ! ********************************************************************** ! real = boolean elemental subroutine b_to_r( r, b) type( boolean_t), intent( in) :: b real, intent( out) :: r ! begin continue r = transfer( b, r) return ! b_to_r() end subroutine b_to_r ! ********************************************************************** ! boolean = real elemental subroutine r_to_b( b, r) real, intent( in) :: r type( boolean_t), intent( out) :: b ! r_to_b() continue b = transfer( r, b) return ! r_to_b() end subroutine r_to_b ! ********************************************************************** ! logical = boolean elemental subroutine b_to_l( l, b) type( boolean_t), intent( in) :: b logical, intent( out) :: l ! b_to_l continue l = transfer( b, l) return ! b_to_l() end subroutine b_to_l ! ********************************************************************** ! boolean = logical elemental subroutine l_to_b( b, l) logical, intent( in) :: l type( boolean_t), intent( out) :: b ! l_to_b() continue b = transfer( l, b) return ! l_to_b() end subroutine l_to_b ! ********************************************************************** ! character*4 = boolean elemental subroutine b_to_c( c, b) type( boolean_t), intent( in) :: b character( len= csu_per_nsu), intent( out) :: c ! b_to_c() continue c = transfer( b, c) return ! b_to_c() end subroutine b_to_c ! ********************************************************************** ! boolean = character*4 elemental subroutine c_to_b( b, c) character( len= csu_per_nsu), intent( in) :: c type( boolean_t), intent( out) :: b ! c_to_b() continue b = transfer( c, b) return ! c_to_b() end subroutine c_to_b ! ********************************************************************** ! explicit conversion to/from boolean ! ********************************************************************** ! boolean = bool( integer) elemental type( boolean_t) function int_bool( i) integer, intent( in) :: i ! int_bool() continue int_bool = transfer( i, int_bool) return ! int_bool() end function int_bool ! ********************************************************************** ! boolean = bool( real) elemental type( boolean_t) function single_bool( r) real, intent( in) :: r ! single_bool() continue single_bool = transfer( r, single_bool) return ! single_bool() end function single_bool ! ********************************************************************** ! boolean = bool( logical) elemental type( boolean_t) function logical_bool( l) logical, intent( in) :: l ! logical_bool() continue logical_bool = transfer( l, logical_bool) return ! logical_bool() end function logical_bool ! ********************************************************************** ! boolean = bool( character*csu_per_nsu) elemental type( boolean_t) function char_bool( c) character( len= csu_per_nsu), intent( in) :: c ! char_bool() continue char_bool = transfer( c, char_bool) return ! char_bool() end function char_bool ! ********************************************************************** ! int = int( boolean) elemental integer function boolean_int( b) type( boolean_t), intent( in) :: b ! boolean_int continue boolean_int = transfer( b, boolean_int) return ! boolean_int() end function boolean_int ! ********************************************************************** ! single = real( boolean) elemental real function boolean_real( b) type( boolean_t), intent( in) :: b ! boolean_real() continue boolean_real = transfer( b, boolean_real) return ! boolean_real() end function boolean_real ! ********************************************************************** ! speed = logical( boolean) elemental logical function boolean_logical( b) type( boolean_t), intent( in) :: b ! boolean_logical() continue boolean_logical = transfer( b, boolean_logical) return ! boolean_logical() end function boolean_logical ! ********************************************************************** ! character*csu_per_nsu = char( boolean) elemental character( len= csu_per_nsu) function boolean_char( b) type( boolean_t), intent( in) :: b ! boolean_char() continue boolean_char = transfer( b, boolean_char) return ! boolean_char() end function boolean_char ! ********************************************************************** ! unary operators: +, - ! ********************************************************************** ! boolean_plus(): +b elemental type( boolean_t) function boolean_plus( b) type( boolean_t), intent( in) :: b ! boolean_plus() continue boolean_plus% bits = +b% bits return ! boolean_plus() end function boolean_plus ! ********************************************************************** ! boolean_minus(): -b elemental type( boolean_t) function boolean_minus( b) type( boolean_t), intent( in) :: b ! boolean_minus() continue boolean_minus% bits = -b% bits return ! boolean_minus() end function boolean_minus ! ********************************************************************** ! operators and functions: .and., .or., .eor., .not., compl(), csmg() ! ********************************************************************** ! b1 .and. b2 elemental type( boolean_t) function boolean_and( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_and() continue boolean_and% bits = iand( b1% bits, b2% bits) return ! boolean_and() end function boolean_and ! ********************************************************************** ! b1 .or. b2 elemental type( boolean_t) function boolean_or( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_or() continue boolean_or% bits = ior( b1% bits, b2% bits) return ! boolean_or() end function boolean_or ! ********************************************************************** ! b1 .eor. b2 elemental type( boolean_t) function boolean_eor( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_eor() continue boolean_eor% bits = ieor( b1% bits, b2% bits) return ! boolean_eor() end function boolean_eor ! ********************************************************************** ! .not. b elemental type( boolean_t) function boolean_not( b) type( boolean_t), intent( in) :: b ! boolean_not() continue boolean_not% bits = not( b% bits) return ! boolean_not() end function boolean_not ! ********************************************************************** ! boolean = compl( boolean) elemental type( boolean_t) function boolean_compl( i) type( boolean_t), intent( in) :: i ! boolean_compl() continue boolean_compl% bits = not( i% bits) return ! boolean_compl() end function boolean_compl ! ********************************************************************** ! boolean = csmg( boolean, boolean, boolean) elemental type( boolean_t) function boolean_csmg( i, j, k) type( boolean_t), intent( in) :: i, j, k ! boolean_csmg() continue boolean_csmg% bits = ior( iand( i% bits, k% bits), iand( j% bits, not( k% bits)) ) return ! boolean_csmg() end function boolean_csmg ! ********************************************************************** ! bit-wise operators: .xor., .eqv., .neqv. ! ********************************************************************** ! b1 .xor. b2 elemental type( boolean_t) function boolean_xor( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_xor() continue boolean_xor% bits = ieor( b1% bits, b2% bits) return ! boolean_xor() end function boolean_xor ! ********************************************************************** ! b1 .eqv. b2 elemental type( boolean_t) function boolean_eqv( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_eqv() continue boolean_eqv% bits = not( ieor( b1% bits, b2% bits) ) return ! boolean_eqv() end function boolean_eqv ! ********************************************************************** ! b1 .neqv. b2 elemental type( boolean_t) function boolean_neqv( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_neqv() continue boolean_neqv% bits = ieor( b1% bits, b2% bits) return ! boolean_neqv() end function boolean_neqv ! ********************************************************************** ! logical operators: .eq., .ne., .ge., .gt., .le., .lt. ! ********************************************************************** ! b1 == b2 elemental logical function boolean_eq( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_eq() continue boolean_eq = b1% bits == b2% bits return ! boolean_eq() end function boolean_eq ! ********************************************************************** ! b1 /= b2 elemental logical function boolean_ne( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_ne() continue boolean_ne = b1% bits /= b2% bits return ! boolean_ne() end function boolean_ne ! ********************************************************************** ! b1 >= b2 elemental logical function boolean_ge( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_ge() continue boolean_ge = b1% bits >= b2% bits return ! boolean_ge() end function boolean_ge ! ********************************************************************** ! b1 > b2 elemental logical function boolean_gt( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_gt() continue boolean_gt = b1% bits > b2% bits return ! boolean_gt() end function boolean_gt ! ********************************************************************** ! b1 <= b2 elemental logical function boolean_le( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_le() continue boolean_le = b1% bits <= b2% bits return ! boolean_le() end function boolean_le ! ********************************************************************** ! b1 < b2 elemental logical function boolean_lt( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_lt() continue boolean_lt = b1% bits < b2% bits return ! boolean_lt() end function boolean_lt ! ********************************************************************** ! operators: +, -, *, / ! ********************************************************************** ! b1 + b2 elemental type( boolean_t) function boolean_add( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_add() continue boolean_add% bits = b1% bits + b2% bits return ! boolean_add() end function boolean_add ! ********************************************************************** ! b1 - b2 elemental type( boolean_t) function boolean_sub( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_sub() continue boolean_sub% bits = b1% bits - b2% bits return ! boolean_sub() end function boolean_sub ! ********************************************************************** ! b1 * b2 elemental type( boolean_t) function boolean_mul( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_mul() continue boolean_mul% bits = b1% bits * b2% bits return ! boolean_mul() end function boolean_mul ! ********************************************************************** ! b1 / b2 elemental type( boolean_t) function boolean_div( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_div() continue boolean_div% bits = b1% bits / b2% bits return ! boolean_div() end function boolean_div ! ********************************************************************** ! bit counts: leadz(), lastz(), popcnt(), poppar() ! ********************************************************************** ! leadz( b) elemental integer function boolean_leadz( b) type( boolean_t), intent( in) :: b ! scratch data and masks integer :: test, at_least ! boolean_leadz() continue test = b% bits if( test == 0 )then boolean_leadz = bit_size( 0) return endif if( iand( lead_probe16, test) == 0 )then at_least = 16 else at_least = 0 test = iand( lead_probe16, test) endif if( iand( lead_probe8, test) == 0 )then at_least = at_least + 8 else test = iand( lead_probe8, test) endif if( iand( lead_probe4, test) == 0 )then at_least = at_least + 4 else test = iand( lead_probe4, test) endif if( iand( lead_probe2, test) == 0 )then at_least = at_least + 2 else test = iand( lead_probe2, test) endif if( iand( lead_probe1, test) == 0 )then at_least = at_least + 1 endif boolean_leadz = at_least return ! boolean_leadz() end function boolean_leadz ! ********************************************************************** ! lastz( b) elemental integer function boolean_lastz( b) type( boolean_t), intent( in) :: b ! scratch data and masks integer :: test, at_least ! boolean_lastz() continue test = b% bits zero_arg: if( test == 0 )then boolean_lastz = bit_size( 0) return endif zero_arg if( iand( last_probe16, test) == 0 )then at_least = 16 else at_least = 0 test = iand( last_probe16, test) endif if( iand( last_probe8, test) == 0 )then at_least = at_least + 8 else test = iand( last_probe8, test) endif if( iand( last_probe4, test) == 0 )then at_least = at_least + 4 else test = iand( last_probe4, test) endif if( iand( last_probe2, test) == 0 )then at_least = at_least + 2 else test = iand( last_probe2, test) endif if( iand( last_probe1, test) == 0 )then at_least = at_least + 1 endif boolean_lastz = at_least return ! boolean_lastz() end function boolean_lastz ! ********************************************************************** ! popcnt( b) elemental integer function boolean_popcnt( b) type( boolean_t), intent( in) :: b ! scratch data and masks integer :: test, t1, t2, t4, t8 ! boolean_popcnt() continue test = b% bits t1 = iand( test, p1) t2 = iand( test, p2) t4 = iand( test, p4) t8 = iand( test, p8) test = t1 + ishft( t2, -1) + ishft( t4, -2) + ishft( t8, -3) ! each nibble now contains [ 0, 1, 2, 3] t1 = iand( test, hi_nibble) t2 = iand( test, lo_nibble) ! add each of 4 high nibbles with each of 4 low nibbles test = iand( ishft( t1, -4) + t2, lo_nibble) ! add each of 4 bytes & mask off low byte test = test + ishft( test, -8) + ishft( test, -16) + ishft( test, -24) boolean_popcnt = iand( test, low_byte) return ! boolean_popcnt() end function boolean_popcnt ! ********************************************************************** ! poppar( b) elemental integer function boolean_poppar( b) type( boolean_t), intent( in) :: b ! local data integer :: test, t1, t2, t4, t8 ! boolean_poppar() continue test = b% bits t1 = iand( test, p1) t2 = iand( test, p2) t4 = iand( test, p4) t8 = iand( test, p8) test = t1 + ishft( t2, -1) + ishft( t4, -2) + ishft( t8, -3) t1 = iand( test, hi_nibble) t2 = iand( test, lo_nibble) test = iand( ishft( t1, -4) + t2, lo_nibble) test = test + ishft( test, -8) + ishft( test, -16) + ishft( test, -24) boolean_poppar = iand( test, low_bit) return ! boolean_poppar() end function boolean_poppar ! ********************************************************************** ! .hamd. hamming distance elemental integer function boolean_hamd( b1, b2) type( boolean_t), intent( in) :: b1, b2 ! boolean_hamd() continue boolean_hamd = popcnt( bool( ieor( b1% bits, b2% bits))) return ! boolean_hamd() end function boolean_hamd ! ********************************************************************** ! .shift. shift operator elemental integer function boolean_shift( b, i) type( boolean_t), intent( in) :: b integer, intent( in) :: i ! boolean_shift() continue boolean_shift = ishft( b% bits, i) return ! boolean_shift() end function boolean_shift ! ********************************************************************** ! .rotate. rotate operator elemental integer function boolean_rotate( b, i) type( boolean_t), intent( in) :: b integer, intent( in) :: i ! boolean_rotate() continue boolean_rotate = ishftc( b% bits, i) return ! boolean_rotate() end function boolean_rotate ! ********************************************************************** ! masks: mask(), maskl(), maskr() ! ********************************************************************** ! mask( i) elemental type( boolean_t) function boolean_mask( i) integer, intent( in) :: i ! boolean_mask() local integer, parameter :: bs = bit_size( i) ! boolean_mask() continue bits: select case( i) case( 1: bs) bits boolean_mask% bits = right_mask( i) case( -bs: -1) bits boolean_mask% bits = left_mask( abs( i)) case default bits boolean_mask% bits = 0 end select bits return ! boolean_mask() end function boolean_mask ! ********************************************************************** ! maskl( i) elemental type( boolean_t) function boolean_maskl( i) integer, intent( in) :: i ! boolean_maskl() local integer, parameter :: bs = bit_size( i) ! boolean_maskl() continue bits: select case( i) case( 1: bs) bits boolean_maskl% bits = left_mask( i) case default bits boolean_maskl% bits = 0 end select bits return ! boolean_maskl() end function boolean_maskl ! ********************************************************************** ! boolean_maskr( i) elemental type( boolean_t) function boolean_maskr( i) integer, intent( in) :: i ! boolean_maskr() local integer, parameter :: bs = bit_size( i) ! boolean_maskr() continue bits: select case( i) case( 1: bs) bits boolean_maskr% bits = right_mask( i) case default bits boolean_maskr% bits = 0 end select bits return ! boolean_maskr() end function boolean_maskr ! ********************************************************************** ! shifts: ishft(), ishftc(), dshftl(), dshftr(), dshftc() ! ********************************************************************** ! ishft( b, i) elemental type( boolean_t) function boolean_ishft( b, i) type( boolean_t), intent( in) :: b integer, intent( in) :: i ! boolean_ishft() continue boolean_ishft% bits = ishft( b% bits, i) return ! boolean_ishft() end function boolean_ishft ! ********************************************************************** ! ishftc( b, i1, i2) elemental type( boolean_t) function boolean_ishftc( b, i1, i2) type( boolean_t), intent( in) :: b integer, intent( in) :: i1, i2 ! boolean_ishftc() continue boolean_ishftc% bits = ishftc( b% bits, i1, i2) return ! boolean_ishftc() end function boolean_ishftc ! ********************************************************************** ! dshftl( bl, br, i) elemental type( boolean_t) function boolean_dshftl( bl, br, i) type( boolean_t), intent( in) :: bl, br integer, intent( in) :: i ! local data type( boolean_t) :: btl, btr ! boolean_dshftl() continue ! trap out endcase shift_zero: if( i < 0 )then boolean_dshftl% bits = 0 return elseif( i == 0 )then shift_zero boolean_dshftl% bits = bl% bits return endif shift_zero shift_nonzero: if( i < bit_size( i) )then btl% bits = ishft( bl% bits, i) btr% bits = ishft( br% bits, i - bit_size( i)) boolean_dshftl% bits = ior( btl% bits, btr% bits) elseif( i == bit_size( i) )then shift_nonzero boolean_dshftl% bits = br% bits else shift_nonzero boolean_dshftl% bits = 0 endif shift_nonzero return ! boolean_dshftl() end function boolean_dshftl ! ********************************************************************** ! dshftr( bl, br, i) elemental type( boolean_t) function boolean_dshftr( bl, br, i) type( boolean_t), intent( in) :: bl, br integer, intent( in) :: i ! local data type( boolean_t) :: btl, btr ! boolean_dshftr() continue ! trap out endcase shift_zero: if( i < 0 )then boolean_dshftr% bits = 0 return elseif( i == 0 )then shift_zero boolean_dshftr% bits = br% bits return endif shift_zero shift_nonzero: if( i < bit_size( i) )then btl% bits = ishft( bl% bits, bit_size( i) - i) btr% bits = ishft( br% bits, -i) boolean_dshftr% bits = ior( btl% bits, btr% bits) elseif( i == bit_size( i) )then shift_nonzero boolean_dshftr% bits = bl% bits else shift_nonzero boolean_dshftr% bits = 0 endif shift_nonzero return ! boolean_dshftr() end function boolean_dshftr ! ********************************************************************** ! dshftc( bl, br, i) elemental subroutine boolean_dshftc( bl, br, i) type( boolean_t), intent( inout) :: bl, br integer, intent( in) :: i ! local data type( boolean_t) :: btl, btr, carryl, carryr integer :: ia ! boolean_dshftc() continue ia = abs( i) shift_off: if( ia > bit_size( i) )then return endif shift_off shift_sign: if( ia == bit_size( i) )then btl% bits = br% bits btr% bits = bl% bits bl% bits = btl% bits br% bits = btr% bits elseif( i=1 )then shift_sign carryl% bits = ishft( bl% bits, i - bit_size( i)) carryr% bits = ishft( br% bits, i - bit_size( i)) btl% bits = ishft( bl% bits, i) btr% bits = ishft( br% bits, i) bl% bits = ior( btl% bits, carryr% bits) br% bits = ior( btr% bits, carryl% bits) elseif( ia=1 )then shift_sign carryl% bits = ishft( bl% bits, bit_size( i) + i) carryr% bits = ishft( br% bits, bit_size( i) + i) btl% bits = ishft( bl% bits, i) btr% bits = ishft( br% bits, i) bl% bits = ior( btl% bits, carryr% bits) br% bits = ior( btr% bits, carryl% bits) endif shift_sign return ! boolean_dshftc() end subroutine boolean_dshftc ! ********************************************************************** ! mil std bit functions ! ********************************************************************** ! boolean ibset elemental type( boolean_t) function boolean_ibset(b, i) type( boolean_t), intent( in) :: b integer, intent( in) :: i ! boolean_ibset() continue boolean_ibset% bits = ibset( b% bits, i) return ! boolean_ibset() end function boolean_ibset ! ********************************************************************** ! boolean ibclr elemental type( boolean_t) function boolean_ibclr(b, i) type( boolean_t), intent( in) :: b integer, intent( in) :: i ! boolean_ibclr() continue boolean_ibclr% bits = ibclr( b% bits, i) return ! boolean_ibclr() end function boolean_ibclr ! ********************************************************************** ! boolean btest elemental logical function boolean_btest(b, i) type( boolean_t), intent( in) :: b integer, intent( in) :: i ! boolean_btest() continue boolean_btest = btest( b% bits, i) return ! boolean_btest() end function boolean_btest ! ********************************************************************** ! boolean bztest elemental logical function boolean_bztest(b, i) type( boolean_t), intent( in) :: b integer, intent( in) :: i ! boolean_bztest() local integer, parameter :: bit = 1 ! boolean_bztest() continue boolean_bztest = iand( ishft( bit, i), b% bits) == 0 return ! boolean_bztest() end function boolean_bztest ! ********************************************************************** ! boolean mvbits elemental subroutine boolean_mvbits(b1, i, l, b2, j) type( boolean_t), intent( in) :: b1 integer, intent( in) :: i, l, j type( boolean_t), intent( out) :: b2 ! boolean_mvbits() continue call mvbits( b1% bits, i, l, b2% bits, j) return ! boolean_mvbits() end subroutind%,+$*$%d%,+$+-'d%,+$+,+d%,+$+,'d%,+$+++d%,+$+''d%,+$+&'d%,+$+%+d%,+$+%%d%,+$+$-d%,+$,+-e%,+$,*%e%,+$,)-e%,+$,)'e%,+$,&-e%,+$,$+e%,+$--%e %,+$-*%e %,+$-)%e %,+$-''e %,+$-&+e%,+$-%-e%,+$-$+e%,+%%,+% %,+%$--e%,+%$,'e%,+%$,%e%,+%$)+e%,+%$'-e%,+%$&-e%,+%$&%e%,+%$%+e %,+%%,'e%,+%%+%e%,+%%)'e%,+%%(+e%,+%%'+e%,+%%%'e%,+%&-'e%,+%&+-e%,+%&*'e%,+%&(-e%,+%&%'e%,+%','e$%,+%')%e#%,+%''-e"%,+%'&+e!%,+%'&%e %,+%(-%e.%,+%(++e-%,+%(+'e,%,+%(*%e+%,+%()-e*%,+%((-e)%,+%((+e(%,+%('+e'%,+%(%+e&%,+%(%'e%%,+%)-%e5%,+%)*%e4%,+%)(-e3%,+%)('e2%,+%)'%e1%,+%)$-e0%,+%)$'e/%,+%*--e?%,+%*-'e>%,+%*++e=%,+%**-e<%,+%*)%e;%,+%*(%e:%,+%*&-e9%,+%*&+e8%,+%*&%e7%,+%*$'e6%,+%+,-eE%,+%+,'eD%,+%+++eC%,+%+('eB%,+%+%'eA%,+%+%%e@%,+%,+-eK%,+%,)%eJ%,+%,('eI%,+%,'-eH%,+%,&+eG%,+%,%'eF%,+%-,'eS%,+%-,%eR%,+%-)+eQ%,+%-)%eP%,+%-&-eO%,+%-&+eN%,+%-&'eM%,+%-%+eL%,+& #z, G*7*%,+&$-+eX%,+&$(-eW%,+&$('eV%,+&$$+eU%,+&$$%eT%,+&%+'e]%,+&%(-e\%,+&%'+e[%,+&%%'eZ%,+&%$-eY%,+&&,-ef%,+&&,+ee%,+&&,%ed%,+&&+%ec%,+&&)-eb%,+&&)'ea%,+&&'-e`%,+&&&-e_%,+&&%+e^%,+&',-el%,+&''+ek%,+&'&'ej%,+&'%-ei%,+&'%'eh%,+&'$%eg%,+&(-%Day-I/09-new-types/type_boolean.mod100777 0 0 105255 11776571534 12532 0GFORTRAN module version '6' created from typebool.f90 on Mon Jul 9 09:06:04 2012 MD5:0e432f731541b9478b9bb4f122d9e01f -- If you edit this, you'll get what you deserve. (() () (2 3) (4 5) (6) (7) () () (8) (9) (10) (11) () () () () () () (12) (13) (14) (15) (16) (17) (18) (19 20 21 22 23 24 25 26) ()) (('set' '' 27) ('clear' '' 28) ('rotate' '' 29) ('hamd' '' 30) ('eor' '' 31) ('isset' '' 32) ('isclear' '' 33) ('shift' '' 34) ('xor' '' 35)) (('bool' 'type_boolean' 36 37 38 39) ('bit_size' '(intrinsic)' 40) ( 'char' 'type_boolean' 41) ('bztest' 'type_boolean' 33) ('compl' 'type_boolean' 42) ('csmg' 'type_boolean' 43) ('dshftl' 'type_boolean' 44) ('dshftc' 'type_boolean' 45) ('dshftr' 'type_boolean' 46) ('btest' '(intrinsic)' 32) ('ibits' '(intrinsic)' 47) ('ibclr' '(intrinsic)' 28) ('ibset' '(intrinsic)' 27) ('ishftc' '(intrinsic)' 48) ('ishft' '(intrinsic)' 49) ('int' '(intrinsic)' 50) ('hamd' 'type_boolean' 30) ( 'leadz' 'type_boolean' 51) ('lastz' 'type_boolean' 52) ('logical' 'type_boolean' 53) ('maskl' 'type_boolean' 54) ('mvbits' 'type_boolean' 55) ('maskr' 'type_boolean' 56) ('popcnt' 'type_boolean' 57) ('poppar' 'type_boolean' 58) ('mask' 'type_boolean' 59) ('real' 'type_boolean' 60) ('rev_endian' 'type_boolean' 61) ('swap' 'type_boolean' 62)) () () () (63 'all_clear' 'type_boolean' 'all_clear' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (DERIVED 64 0 0 DERIVED ()) 0 0 () (STRUCTURE (DERIVED 64 0 0 DERIVED ()) 0 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') ())) ()) () 0 () () () 0 0) 65 'all_set' 'type_boolean' 'all_set' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (DERIVED 64 0 0 DERIVED ()) 0 0 () (STRUCTURE (DERIVED 64 0 0 DERIVED ()) 0 (((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '-1') ())) ()) () 0 () () () 0 0) 66 'bit_size' '(intrinsic)' 'bit_size' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 67 0 (68) () 66 () () () 0 0) 64 'boolean_t' 'type_boolean' 'boolean_t' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 PRIVATE_COMP) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ((69 'bits' (INTEGER 4 0 0 INTEGER ()) () (UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) UNKNOWN-ACCESS ())) PRIVATE (() () () ()) () 0 0 3313089) 70 'btest' '(intrinsic)' 'btest' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (LOGICAL 4 0 0 LOGICAL ()) 71 0 (72 73) () 70 () () () 0 0) 74 'char' 'type_boolean' 'char' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (CHARACTER 1 0 0 CHARACTER ()) 75 0 (76 77) () 0 () () () 0 0) 78 'ibclr' '(intrinsic)' 'ibclr' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 79 0 (80 81) () 78 () () () 0 0) 82 'ibits' '(intrinsic)' 'ibits' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 83 0 (84 85 86) () 82 () () () 0 0) 87 'ibset' '(intrinsic)' 'ibset' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 88 0 (89 90) () 87 () () () 0 0) 91 'int' '(intrinsic)' 'int' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 92 0 (93 94) () 91 () () () 0 0) 95 'ishft' '(intrinsic)' 'ishft' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 96 0 (97 98) () 95 () () () 0 0) 99 'ishftc' '(intrinsic)' 'ishftc' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 100 0 (101 102 103) () 99 () () () 0 0) 104 'logical' 'type_boolean' 'logical' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (LOGICAL 4 0 0 LOGICAL ()) 105 0 (106 107) () 0 () () () 0 0) 108 'mvbits' 'type_boolean' 'mvbits' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC SUBROUTINE GENERIC) (UNKNOWN 0 0 0 UNKNOWN ()) 109 0 (110 111 112 113 114) () 0 () () () 0 0) 115 'real' 'type_boolean' 'real' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (REAL 4 0 0 REAL ()) 116 0 (117 118) () 0 () () () 0 0) 119 'type_boolean_rcs_id' 'type_boolean' 'type_boolean_rcs_id' 1 (( PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) ( CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '56'))) 0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 56 '$Id: typebool.f90 1.9 2001/06/10 09:28:08Z Dan Release $') () 0 () () () 0 0) 26 'b_to_i' 'type_boolean' 'b_to_i' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 120 0 (121 122) () 0 () () () 0 0) 25 'i_to_b' 'type_boolean' 'i_to_b' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 123 0 (124 125) () 0 () () () 0 0) 24 'b_to_r' 'type_boolean' 'b_to_r' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 126 0 (127 128) () 0 () () () 0 0) 23 'r_to_b' 'type_boolean' 'r_to_b' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 129 0 (130 131) () 0 () () () 0 0) 22 'b_to_l' 'type_boolean' 'b_to_l' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 132 0 (133 134) () 0 () () () 0 0) 21 'l_to_b' 'type_boolean' 'l_to_b' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 135 0 (136 137) () 0 () () () 0 0) 20 'b_to_c' 'type_boolean' 'b_to_c' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 138 0 (139 140) () 0 () () () 0 0) 19 'c_to_b' 'type_boolean' 'c_to_b' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 141 0 (142 143) () 0 () () () 0 0) 39 'int_bool' 'type_boolean' 'int_bool' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( DERIVED 64 0 0 DERIVED ()) 144 0 (145) () 39 () () () 0 0) 38 'single_bool' 'type_boolean' 'single_bool' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 146 0 (147) () 38 () () () 0 0) 37 'logical_bool' 'type_boolean' 'logical_bool' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 148 0 (149) () 37 () () () 0 0) 36 'char_bool' 'type_boolean' 'char_bool' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( DERIVED 64 0 0 DERIVED ()) 150 0 (151) () 36 () () () 0 0) 50 'boolean_int' 'type_boolean' 'boolean_int' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 152 0 (153) () 50 () () () 0 0) 60 'boolean_real' 'type_boolean' 'boolean_real' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 4 0 0 REAL ()) 154 0 (155) () 60 () () () 0 0) 53 'boolean_logical' 'type_boolean' 'boolean_logical' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 156 0 (157) () 53 () () () 0 0) 41 'boolean_char' 'type_boolean' 'boolean_char' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4'))) 158 0 (159) () 41 () () () 0 0) 3 'boolean_plus' 'type_boolean' 'boolean_plus' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 160 0 (161) () 3 () () () 0 0) 5 'boolean_minus' 'type_boolean' 'boolean_minus' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 162 0 (163) () 5 () () () 0 0) 8 'boolean_and' 'type_boolean' 'boolean_and' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 164 0 (165 166) () 8 () () () 0 0) 9 'boolean_or' 'type_boolean' 'boolean_or' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( DERIVED 64 0 0 DERIVED ()) 167 0 (168 169) () 9 () () () 0 0) 31 'boolean_eor' 'type_boolean' 'boolean_eor' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 170 0 (171 172) () 31 () () () 0 0) 18 'boolean_not' 'type_boolean' 'boolean_not' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 173 0 (174) () 18 () () () 0 0) 42 'boolean_compl' 'type_boolean' 'boolean_compl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 175 0 (176) () 42 () () () 0 0) 43 'boolean_csmg' 'type_boolean' 'boolean_csmg' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 177 0 (178 179 180) () 43 () () () 0 0) 35 'boolean_xor' 'type_boolean' 'boolean_xor' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 181 0 (182 183) () 35 () () () 0 0) 10 'boolean_eqv' 'type_boolean' 'boolean_eqv' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 184 0 (185 186) () 10 () () () 0 0) 11 'boolean_neqv' 'type_boolean' 'boolean_neqv' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 187 0 (188 189) () 11 () () () 0 0) 12 'boolean_eq' 'type_boolean' 'boolean_eq' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( LOGICAL 4 0 0 LOGICAL ()) 190 0 (191 192) () 12 () () () 0 0) 13 'boolean_ne' 'type_boolean' 'boolean_ne' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( LOGICAL 4 0 0 LOGICAL ()) 193 0 (194 195) () 13 () () () 0 0) 15 'boolean_ge' 'type_boolean' 'boolean_ge' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( LOGICAL 4 0 0 LOGICAL ()) 196 0 (197 198) () 15 () () () 0 0) 14 'boolean_gt' 'type_boolean' 'boolean_gt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( LOGICAL 4 0 0 LOGICAL ()) 199 0 (200 201) () 14 () () () 0 0) 17 'boolean_le' 'type_boolean' 'boolean_le' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( LOGICAL 4 0 0 LOGICAL ()) 202 0 (203 204) () 17 () () () 0 0) 16 'boolean_lt' 'type_boolean' 'boolean_lt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( LOGICAL 4 0 0 LOGICAL ()) 205 0 (206 207) () 16 () () () 0 0) 2 'boolean_add' 'type_boolean' 'boolean_add' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 208 0 (209 210) () 2 () () () 0 0) 4 'boolean_sub' 'type_boolean' 'boolean_sub' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 211 0 (212 213) () 4 () () () 0 0) 6 'boolean_mul' 'type_boolean' 'boolean_mul' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 214 0 (215 216) () 6 () () () 0 0) 7 'boolean_div' 'type_boolean' 'boolean_div' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 217 0 (218 219) () 7 () () () 0 0) 51 'boolean_leadz' 'type_boolean' 'boolean_leadz' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 220 0 (221) () 51 () () () 0 0) 52 'boolean_lastz' 'type_boolean' 'boolean_lastz' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 222 0 (223) () 52 () () () 0 0) 57 'boolean_popcnt' 'type_boolean' 'boolean_popcnt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 224 0 (225) () 57 () () () 0 0) 58 'boolean_poppar' 'type_boolean' 'boolean_poppar' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 226 0 (227) () 58 () () () 0 0) 30 'boolean_hamd' 'type_boolean' 'boolean_hamd' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 228 0 (229 230) () 30 () () () 0 0) 34 'boolean_shift' 'type_boolean' 'boolean_shift' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 231 0 (232 233) () 34 () () () 0 0) 29 'boolean_rotate' 'type_boolean' 'boolean_rotate' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 234 0 (235 236) () 29 () () () 0 0) 59 'boolean_mask' 'type_boolean' 'boolean_mask' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 237 0 (238) () 59 () () () 0 0) 54 'boolean_maskl' 'type_boolean' 'boolean_maskl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 239 0 (240) () 54 () () () 0 0) 56 'boolean_maskr' 'type_boolean' 'boolean_maskr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 241 0 (242) () 56 () () () 0 0) 49 'boolean_ishft' 'type_boolean' 'boolean_ishft' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 243 0 (244 245) () 49 () () () 0 0) 48 'boolean_ishftc' 'type_boolean' 'boolean_ishftc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 246 0 (247 248 249) () 48 () () () 0 0) 44 'boolean_dshftl' 'type_boolean' 'boolean_dshftl' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 250 0 (251 252 253) () 44 () () () 0 0) 46 'boolean_dshftr' 'type_boolean' 'boolean_dshftr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 254 0 (255 256 257) () 46 () () () 0 0) 45 'boolean_dshftc' 'type_boolean' 'boolean_dshftc' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 258 0 (259 260 261) () 0 () () () 0 0) 27 'boolean_ibset' 'type_boolean' 'boolean_ibset' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 262 0 (263 264) () 27 () () () 0 0) 28 'boolean_ibclr' 'type_boolean' 'boolean_ibclr' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 265 0 (266 267) () 28 () () () 0 0) 32 'boolean_btest' 'type_boolean' 'boolean_btest' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 268 0 (269 270) () 32 () () () 0 0) 33 'boolean_bztest' 'type_boolean' 'boolean_bztest' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 271 0 (272 273) () 33 () () () 0 0) 55 'boolean_mvbits' 'type_boolean' 'boolean_mvbits' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 274 0 (275 276 277 278 279) () 0 () () () 0 0) 47 'boolean_ibits' 'type_boolean' 'boolean_ibits' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 280 0 (281 282 283) () 47 () () () 0 0) 61 'boolean_rev_endian' 'type_boolean' 'boolean_rev_endian' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 64 0 0 DERIVED ()) 284 0 (285) () 61 () () () 0 0) 40 'boolean_bit_size' 'type_boolean' 'boolean_bit_size' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 286 0 (287) () 40 () () () 0 0) 62 'boolean_swap' 'type_boolean' 'boolean_swap' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 288 0 (289 290) () 0 () () () 0 0) 121 'i' '' 'i' 120 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 122 'b' '' 'b' 120 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 124 'b' '' 'b' 123 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 125 'i' '' 'i' 123 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 127 'r' '' 'r' 126 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 93 'a' '' 'a' 92 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 94 'kind' '' 'kind' 92 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 128 'b' '' 'b' 126 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 130 'b' '' 'b' 129 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 131 'r' '' 'r' 129 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 117 'a' '' 'a' 116 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (UNKNOWN 4 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) 118 'kind' '' 'kind' 116 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 133 'l' '' 'l' 132 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 134 'b' '' 'b' 132 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 136 'b' '' 'b' 135 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 137 'l' '' 'l' 135 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 139 'c' '' 'c' 138 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4'))) 0 0 () () 0 () () () 0 0) 140 'b' '' 'b' 138 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 142 'b' '' 'b' 141 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 143 'c' '' 'c' 141 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4'))) 0 0 () () 0 () () () 0 0) 145 'i' '' 'i' 144 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 147 'r' '' 'r' 146 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 149 'l' '' 'l' 148 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 151 'c' '' 'c' 150 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4'))) 0 0 () () 0 () () () 0 0) 153 'b' '' 'b' 152 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 155 'b' '' 'b' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 157 'b' '' 'b' 156 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 159 'b' '' 'b' 158 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 161 'b' '' 'b' 160 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 163 'b' '' 'b' 162 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 165 'b1' '' 'b1' 164 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 166 'b2' '' 'b2' 164 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 168 'b1' '' 'b1' 167 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 169 'b2' '' 'b2' 167 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 171 'b1' '' 'b1' 170 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 172 'b2' '' 'b2' 170 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 174 'b' '' 'b' 173 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 176 'i' '' 'i' 175 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 178 'i' '' 'i' 177 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 179 'j' '' 'j' 177 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 180 'k' '' 'k' 177 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 182 'b1' '' 'b1' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 183 'b2' '' 'b2' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 185 'b1' '' 'b1' 184 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 186 'b2' '' 'b2' 184 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 188 'b1' '' 'b1' 187 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 189 'b2' '' 'b2' 187 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 191 'b1' '' 'b1' 190 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 192 'b2' '' 'b2' 190 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 194 'b1' '' 'b1' 193 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 195 'b2' '' 'b2' 193 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 197 'b1' '' 'b1' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 198 'b2' '' 'b2' 196 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 200 'b1' '' 'b1' 199 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 201 'b2' '' 'b2' 199 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 203 'b1' '' 'b1' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 204 'b2' '' 'b2' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 206 'b1' '' 'b1' 205 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 207 'b2' '' 'b2' 205 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 209 'b1' '' 'b1' 208 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 210 'b2' '' 'b2' 208 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 212 'b1' '' 'b1' 211 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 213 'b2' '' 'b2' 211 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 215 'b1' '' 'b1' 214 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 216 'b2' '' 'b2' 214 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 218 'b1' '' 'b1' 217 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 219 'b2' '' 'b2' 217 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 221 'b' '' 'b' 220 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 223 'b' '' 'b' 222 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 225 'b' '' 'b' 224 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 227 'b' '' 'b' 226 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 229 'b1' '' 'b1' 228 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 230 'b2' '' 'b2' 228 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 232 'b' '' 'b' 231 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 233 'i' '' 'i' 231 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 235 'b' '' 'b' 234 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 236 'i' '' 'i' 234 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 238 'i' '' 'i' 237 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 68 'i' '' 'i' 67 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 240 'i' '' 'i' 239 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 242 'i' '' 'i' 241 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 244 'b' '' 'b' 243 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 245 'i' '' 'i' 243 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 247 'b' '' 'b' 246 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 248 'i1' '' 'i1' 246 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 249 'i2' '' 'i2' 246 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 251 'bl' '' 'bl' 250 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 252 'br' '' 'br' 250 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 253 'i' '' 'i' 250 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 255 'bl' '' 'bl' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 256 'br' '' 'br' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 257 'i' '' 'i' 254 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 259 'bl' '' 'bl' 258 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 260 'br' '' 'br' 258 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 261 'i' '' 'i' 258 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 263 'b' '' 'b' 262 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 264 'i' '' 'i' 262 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 266 'b' '' 'b' 265 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 267 'i' '' 'i' 265 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 269 'b' '' 'b' 268 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 270 'i' '' 'i' 268 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 272 'b' '' 'b' 271 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 273 'i' '' 'i' 271 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 275 'b1' '' 'b1' 274 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 276 'i' '' 'i' 274 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 277 'l' '' 'l' 274 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 278 'b2' '' 'b2' 274 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 279 'j' '' 'j' 274 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 281 'b' '' 'b' 280 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 282 'i' '' 'i' 280 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 283 'l' '' 'l' 280 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 285 'a' '' 'a' 284 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 287 'b' '' 'b' 286 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 289 'a' '' 'a' 288 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 290 'b' '' 'b' 288 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 64 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 72 'i' '' 'i' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 73 'pos' '' 'pos' 71 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 76 'i' '' 'i' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 77 'kind' '' 'kind' 75 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 80 'i' '' 'i' 79 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 81 'pos' '' 'pos' 79 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 84 'i' '' 'i' 83 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 85 'pos' '' 'pos' 83 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 86 'len' '' 'len' 83 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 89 'i' '' 'i' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 90 'pos' '' 'pos' 88 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 97 'i' '' 'i' 96 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 98 'shift' '' 'shift' 96 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 101 'i' '' 'i' 100 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 102 'shift' '' 'shift' 100 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 103 'size' '' 'size' 100 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 106 'l' '' 'l' 105 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 107 'kind' '' 'kind' 105 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 110 'from' '' 'from' 109 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 111 'frompos' '' 'frompos' 109 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 112 'len' '' 'len' 109 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 113 'to' '' 'to' 109 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 114 'topos' '' 'topos' 109 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) ) ('all_clear' 0 63 'all_set' 0 65 'bit_size' 0 66 'boolean_t' 0 64 'btest' 0 70 'char' 0 74 'ibclr' 0 78 'ibits' 0 82 'ibset' 0 87 'int' 0 91 'ishft' 0 95 'ishftc' 0 99 'logical' 0 104 'mvbits' 0 108 'real' 0 115 'type_boolean_rcs_id' 0 119) Day-I/09-new-types/type_rational.mod100777 0 0 64210 11776643162 12674 0GFORTRAN module version '6' created from typerat.f90 on Mon Jul 9 15:00:34 2012 MD5:12031a3dcb69f9bea30e7d2c7da54348 -- If you edit this, you'll get what you deserve. (() () (2 3) (4 5) (6) (7) () () () () () () (8) (9) (10) (11) (12) ( 13) () () () () () () () (14 15) ()) (('inverse' '' 16) ('reduce' '' 17)) (('abs' '(intrinsic)' 18) ('bit_size' '(intrinsic)' 19) ('huge' '(intrinsic)' 20) ('epsilon' 'type_rational' 21) ('denominator' 'type_rational' 22) ('int' '(intrinsic)' 23) ('is_finite' 'type_rational' 24) ('inverse' 'type_rational' 16) ('is_nan' 'type_rational' 25) ( 'is_infinity' 'type_rational' 26) ('numerator' 'type_rational' 27) ( 'nint' '(intrinsic)' 28) ('rat' 'type_rational' 29 30 31 32) ('reduce' 'type_rational' 17) ('real' '(intrinsic)' 33) ('tiny' 'type_rational' 34) ('swap' 'standard_functions' 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50) ('sign' '(intrinsic)' 51)) () () () (52 'abs' '(intrinsic)' 'abs' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (REAL 4 0 0 REAL ()) 53 0 ( 54) () 52 () () () 0 0) 55 'bit_size' '(intrinsic)' 'bit_size' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 56 0 (57) () 55 () () () 0 0) 58 'epsilon' 'type_rational' 'epsilon' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (REAL 4 0 0 REAL ()) 59 0 (60) () 0 () () () 0 0) 61 'huge' '(intrinsic)' 'huge' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (REAL 4 0 0 REAL ()) 62 0 ( 63) () 61 () () () 0 0) 64 'int' '(intrinsic)' 'int' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 65 0 (66 67) () 64 () () () 0 0) 68 'nint' '(intrinsic)' 'nint' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (INTEGER 4 0 0 INTEGER ()) 69 0 (70 71) () 68 () () () 0 0) 72 'rational_t' 'type_rational' 'rational_t' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 PRIVATE_COMP) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ((73 'n' (INTEGER 4 0 0 INTEGER ()) () (UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) UNKNOWN-ACCESS ()) (74 'd' (INTEGER 4 0 0 INTEGER ()) () (UNKNOWN-FL UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0) UNKNOWN-ACCESS ())) PRIVATE (() () () ()) () 0 0 63635887) 75 'real' '(intrinsic)' 'real' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (REAL 4 0 0 REAL ()) 76 0 ( 77 78) () 75 () () () 0 0) 79 'sign' '(intrinsic)' 'sign' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (REAL 4 0 0 REAL ()) 80 0 ( 81 82) () 79 () () () 0 0) 83 'tiny' 'type_rational' 'tiny' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC DECL UNKNOWN 0 0 INTRINSIC FUNCTION GENERIC) (REAL 4 0 0 REAL ()) 84 0 (85) () 0 () () () 0 0) 86 'type_rational_rcs_id' 'type_rational' 'type_rational_rcs_id' 1 (( PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) ( CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '55'))) 0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 55 '$Id: typerat.fpp 1.3 2003/10/03 02:53:54Z Dan Release $') () 0 () () () 0 0) 15 'rational_to_int' 'type_rational' 'rational_to_int' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 87 0 (88 89) () 0 () () () 0 0) 14 'int_to_rational' 'type_rational' 'int_to_rational' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) ( UNKNOWN 0 0 0 UNKNOWN ()) 90 0 (91 92) () 0 () () () 0 0) 3 'rational_plus' 'type_rational' 'rational_plus' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 93 0 (94) () 3 () () () 0 0) 5 'rational_minus' 'type_rational' 'rational_minus' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 95 0 (96) () 5 () () () 0 0) 2 'rational_add' 'type_rational' 'rational_add' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 97 0 (98 99) () 2 () () () 0 0) 4 'rational_sub' 'type_rational' 'rational_sub' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 100 0 (101 102) () 4 () () () 0 0) 6 'rational_mul' 'type_rational' 'rational_mul' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 103 0 (104 105) () 6 () () () 0 0) 7 'rational_div' 'type_rational' 'rational_div' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 106 0 (107 108) () 7 () () () 0 0) 8 'rational_eq' 'type_rational' 'rational_eq' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 109 0 (110 111) () 8 () () () 0 0) 9 'rational_ne' 'type_rational' 'rational_ne' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 112 0 (113 114) () 9 () () () 0 0) 12 'rational_lt' 'type_rational' 'rational_lt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 115 0 (116 117) () 12 () () () 0 0) 13 'rational_le' 'type_rational' 'rational_le' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 118 0 (119 120) () 13 () () () 0 0) 11 'rational_ge' 'type_rational' 'rational_ge' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 121 0 (122 123) () 11 () () () 0 0) 10 'rational_gt' 'type_rational' 'rational_gt' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 124 0 (125 126) () 10 () () () 0 0) 32 'int8_rat' 'type_rational' 'int8_rat' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( DERIVED 72 0 0 DERIVED ()) 127 0 (128 129) () 32 () () () 0 0) 31 'int16_rat' 'type_rational' 'int16_rat' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( DERIVED 72 0 0 DERIVED ()) 130 0 (131 132) () 31 () () () 0 0) 30 'int32_rat' 'type_rational' 'int32_rat' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( DERIVED 72 0 0 DERIVED ()) 133 0 (134 135) () 30 () () () 0 0) 29 'int64_rat' 'type_rational' 'int64_rat' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) ( DERIVED 72 0 0 DERIVED ()) 136 0 (137 138) () 29 () () () 0 0) 23 'rational_int' 'type_rational' 'rational_int' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 139 0 (140) () 23 () () () 0 0) 28 'rational_nint' 'type_rational' 'rational_nint' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 141 0 (142) () 28 () () () 0 0) 33 'rational_real' 'type_rational' 'rational_real' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (REAL 8 0 0 REAL ()) 143 0 (144) () 33 () () () 0 0) 51 'rational_sign' 'type_rational' 'rational_sign' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 145 0 (146 147) () 51 () () () 0 0) 18 'rational_abs' 'type_rational' 'rational_abs' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 148 0 (149) () 18 () () () 0 0) 20 'rational_huge' 'type_rational' 'rational_huge' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 150 0 (151) () 20 () () () 0 0) 34 'rational_tiny' 'type_rational' 'rational_tiny' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 152 0 (153) () 34 () () () 0 0) 21 'rational_epsilon' 'type_rational' 'rational_epsilon' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 154 0 (155) () 21 () () () 0 0) 27 'rational_numerator' 'type_rational' 'rational_numerator' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 156 0 (157) () 27 () () () 0 0) 22 'rational_denominator' 'type_rational' 'rational_denominator' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 158 0 (159) () 22 () () () 0 0) 24 'rational_is_finite' 'type_rational' 'rational_is_finite' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 160 0 (161) () 24 () () () 0 0) 26 'rational_is_infinity' 'type_rational' 'rational_is_infinity' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 162 0 (163) () 26 () () () 0 0) 25 'rational_is_nan' 'type_rational' 'rational_is_nan' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (LOGICAL 4 0 0 LOGICAL ()) 164 0 (165) () 25 () () () 0 0) 16 'rational_inverse' 'type_rational' 'rational_inverse' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 166 0 (167) () 16 () () () 0 0) 17 'rational_reduce' 'type_rational' 'rational_reduce' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (DERIVED 72 0 0 DERIVED ()) 168 0 (169) () 17 () () () 0 0) 19 'rational_bit_size' 'type_rational' 'rational_bit_size' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 FUNCTION ELEMENTAL PURE ALWAYS_EXPLICIT) (INTEGER 4 0 0 INTEGER ()) 170 0 (171) () 19 () () () 0 0) 35 'rational_swap' 'type_rational' 'rational_swap' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 172 0 (173 174) () 0 () () () 0 0) 88 'b' '' 'b' 87 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2')) 0 () () () 0 0) 89 'a' '' 'a' 87 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 91 'b' '' 'b' 90 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 92 'a' '' 'a' 90 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 0 EXPLICIT ( CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2')) 0 () () () 0 0) 94 'a' '' 'a' 93 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 96 'a' '' 'a' 95 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 98 'a' '' 'a' 97 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 99 'b' '' 'b' 97 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 101 'a' '' 'a' 100 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 102 'b' '' 'b' 100 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 104 'a' '' 'a' 103 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 105 'b' '' 'b' 103 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 107 'a' '' 'a' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 108 'b' '' 'b' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 110 'a' '' 'a' 109 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 111 'b' '' 'b' 109 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 113 'a' '' 'a' 112 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 114 'b' '' 'b' 112 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 116 'a' '' 'a' 115 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 117 'b' '' 'b' 115 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 119 'a' '' 'a' 118 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 120 'b' '' 'b' 118 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 122 'a' '' 'a' 121 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 123 'b' '' 'b' 121 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 125 'a' '' 'a' 124 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 126 'b' '' 'b' 124 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 128 'i' '' 'i' 127 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 129 'j' '' 'j' 127 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 131 'i' '' 'i' 130 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 132 'j' '' 'j' 130 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 134 'i' '' 'i' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 135 'j' '' 'j' 133 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 36 'quad_complex_swap' 'standard_functions' 'quad_complex_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 175 0 (176 177) () 0 () () () 0 0) 38 'single_complex_swap' 'standard_functions' 'single_complex_swap' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 178 0 (179 180) () 0 () () () 0 0) 39 'quad_real_swap' 'standard_functions' 'quad_real_swap' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 181 0 (182 183) () 0 () () () 0 0) 41 'single_real_swap' 'standard_functions' 'single_real_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 184 0 (185 186) () 0 () () () 0 0) 42 'l_long_logical_swap' 'standard_functions' 'l_long_logical_swap' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 187 0 (188 189) () 0 () () () 0 0) 40 'double_real_swap' 'standard_functions' 'double_real_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 190 0 (191 192) () 0 () () () 0 0) 37 'double_complex_swap' 'standard_functions' 'double_complex_swap' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 193 0 (194 195) () 0 () () () 0 0) 44 'l_short_logical_swap' 'standard_functions' 'l_short_logical_swap' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 196 0 (197 198) () 0 () () () 0 0) 45 'l_byte_logical_swap' 'standard_functions' 'l_byte_logical_swap' 1 ( (PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 199 0 (200 201) () 0 () () () 0 0) 46 'long_integer_swap' 'standard_functions' 'long_integer_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 202 0 (203 204) () 0 () () () 0 0) 47 'int_integer_swap' 'standard_functions' 'int_integer_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 205 0 (206 207) () 0 () () () 0 0) 43 'l_int_logical_swap' 'standard_functions' 'l_int_logical_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 208 0 (209 210) () 0 () () () 0 0) 49 'byte_integer_swap' 'standard_functions' 'byte_integer_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 211 0 (212 213) () 0 () () () 0 0) 50 'ascii_character_swap' 'standard_functions' 'ascii_character_swap' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 214 0 (215 216) () 0 () () () 0 0) 48 'short_integer_swap' 'standard_functions' 'short_integer_swap' 1 (( PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE ELEMENTAL PURE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 217 0 (218 219) () 0 () () () 0 0) 213 'b' '' 'b' 211 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 219 'b' '' 'b' 217 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 218 'a' '' 'a' 217 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 2 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 212 'a' '' 'a' 211 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 1 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 215 'a' '' 'a' 214 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 0 () () 0 () () () 0 0) 207 'b' '' 'b' 205 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 189 'b' '' 'b' 187 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 8 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 188 'a' '' 'a' 187 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 8 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 186 'b' '' 'b' 184 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 185 'a' '' 'a' 184 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 66 'a' '' 'a' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 67 'kind' '' 'kind' 65 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 70 'a' '' 'a' 69 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 71 'kind' '' 'kind' 69 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 77 'a' '' 'a' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( UNKNOWN 4 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) 78 'kind' '' 'kind' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 81 'a' '' 'a' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 82 'b' '' 'b' 80 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 85 'x' '' 'x' 84 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 137 'i' '' 'i' 136 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 138 'j' '' 'j' 136 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 OPTIONAL DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 216 'b' '' 'b' 214 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 0 () () 0 () () () 0 0) 206 'a' '' 'a' 205 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 203 'a' '' 'a' 202 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 204 'b' '' 'b' 202 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 201 'b' '' 'b' 199 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 1 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 197 'a' '' 'a' 196 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 2 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 210 'b' '' 'b' 208 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 209 'a' '' 'a' 208 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 198 'b' '' 'b' 196 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 2 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 200 'a' '' 'a' 199 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (LOGICAL 1 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0) 192 'b' '' 'b' 190 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 182 'a' '' 'a' 181 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 183 'b' '' 'b' 181 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 10 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 179 'a' '' 'a' 178 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 4 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 191 'a' '' 'a' 190 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 195 'b' '' 'b' 193 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 177 'b' '' 'b' 175 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 10 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 176 'a' '' 'a' 175 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 10 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 194 'a' '' 'a' 193 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 8 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 180 'b' '' 'b' 178 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (COMPLEX 4 0 0 COMPLEX ()) 0 0 () () 0 () () () 0 0) 140 'r' '' 'r' 139 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 142 'r' '' 'r' 141 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 144 'r' '' 'r' 143 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 146 'i' '' 'i' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 147 'r' '' 'r' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 149 'r' '' 'r' 148 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 151 'r' '' 'r' 150 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 153 'r' '' 'r' 152 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 155 'r' '' 'r' 154 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 157 'r' '' 'r' 156 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 159 'r' '' 'r' 158 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 161 'r' '' 'r' 160 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 163 'r' '' 'r' 162 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 165 'r' '' 'r' 164 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 167 'r' '' 'r' 166 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 169 'r' '' 'r' 168 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 171 'r' '' 'r' 170 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 173 'a' '' 'a' 172 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 174 'b' '' 'b' 172 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) (DERIVED 72 0 0 DERIVED ()) 0 0 () () 0 () () () 0 0) 54 'a' '' 'a' 53 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 57 'i' '' 'i' 56 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 60 'x' '' 'x' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0) 63 'x' '' 'x' 62 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DUMMY) ( UNKNOWN 4 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0) ) ('abs' 0 52 'bit_size' 0 55 'epsilon' 0 58 'huge' 0 61 'int' 0 64 'nint' 0 68 'rational_t' 0 72 'real' 0 75 'sign' 0 79 'tiny' 0 83 'type_rational_rcs_id' 0 86)