‹*ek820309 919.0JBĒe  w3parall.F90W3PARALL &&&&&& 2   ĢĒ*>   ĢĒĒ>    0.0D0    € TINY    €#@ #ETIMED@ #@#STRING 1#@#PROP_REFRACTION_PR1%NY#PROP_REFRACTION_PR1%NX#PROP_REFRACTION_PR1%NSPEC#PROP_REFRACTION_PR1%NK#ISEA#DTG#CAD        D p5r5r#@#PROP_REFRACTION_PR3%NY#PROP_REFRACTION_PR3%NX#PROP_REFRACTION_PR3%NSPEC#PROP_REFRACTION_PR3%NK#IP#ISEA#DTG #CAD!#DOLIMITER"          D! p5r5r "#@##PROP_FREQ_SHIFT%NY$#PROP_FREQ_SHIFT%NX%#PROP_FREQ_SHIFT%NSPEC&#PROP_FREQ_SHIFT%NTH'#PROP_FREQ_SHIFT%NK2(#PROP_FREQ_SHIFT%NK)#IP*#ISEA+#CAS,#DMM-#DTG. $ % & ' ( ) * + D, p5r&5r& D- p&p5r(5r(pp . #@/#PROP_FREQ_SHIFT_M2%NY0#PROP_FREQ_SHIFT_M2%NX1#PROP_FREQ_SHIFT_M2%NSPEC2#PROP_FREQ_SHIFT_M2%NTH3#PROP_FREQ_SHIFT_M2%NK4#IP5#ISEA6#CWNB_M27#DWNI_M28#DTG9 0 1 2 3 4 5 6 D7 n15r3&n15r35r25r2n15r3p D8 p5r45r4 9 #@:#IMOD;#ISMULTI< ; <#@=#SET_UP_NSEAL_NSEALM%NY>#SET_UP_NSEAL_NSEALM%NX?#NSEALOUT@#NSEALMOUTA > ?D@DA#@B#INIT_GET_JSEA_ISPROC%NYC#INIT_GET_JSEA_ISPROC%NXD#ISEAE#JSEAF#ISPROCG C D EDFDG#@H#GET_JSEA_IBELONG%NYI#GET_JSEA_IBELONG%NXJ#ISEAK#JSEAL#IBELONGM I J KDLDM#@N#INIT_GET_ISEA%NYO#INIT_GET_ISEA%NXP#ISEAQ#JSEAR O PDQ R#@S#SYNCHRONIZE_GLOBAL_ARRAY%NYT#SYNCHRONIZE_GLOBAL_ARRAY%NXU#W3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIFCMB5V#W3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIFCMB9X#W3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIPRIV1Z#W3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIPRIV2^#W3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIPRIVCa#THEVARd T UV#SYNCHRONIZE_GLOBAL_ARRAY%MPIFCMB5%MPI_UNWEIGHTEDW€€WX#SYNCHRONIZE_GLOBAL_ARRAY%MPIFCMB9%MPI_WEIGHTS_EMPTYY€€YZ#SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV1%MPI_BOTTOM[#SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV1%MPI_IN_PLACE\#SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV1%MPI_STATUS_IGNORE]€€[€€\ €€]ppp^#SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV2%MPI_STATUSES_IGNORE_#SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV2%MPI_ERRCODES_IGNORE` €€_ppppp €€`pppa#SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIVC%MPI_ARGVS_NULLb#SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIVC%MPI_ARGV_NULLc- €€bppppp- €€cppp d "p5rU5rU fn#fnž¤AC_TOTbŒLISTISPNEXTDIRîŒLISTISPPREVDIR zŒLISTISPNEXTFREQ ŒLISTISPPREVFREQ’qIMEMpONESIXTHspONETHIRDãuZEROXpTHR8Č=TINYpTHRuSWAV_MY_WTIME#Č@aWAV_MY_WTIME%ETIMETPRINT_MY_TIME%\LaPRINT_MY_TIME%STRING$¨×PROP_REFRACTION_PR13@PROP_REFRACTION_PR1%NY+W3GDATMD=NY3ŋ@PROP_REFRACTION_PR1%NX+W3GDATMD=NX3˙@PROP_REFRACTION_PR1%NSPEC+W3GDATMD0? @PROP_REFRACTION_PR1%NK+W3GDATMD) @aPROP_REFRACTION_PR1%ISEA(ŋ @aPROP_REFRACTION_PR1%DTG(˙ ”aPROP_REFRACTION_PR1%CAD$“ îPROP_REFRACTION_PR33 @PROP_REFRACTION_PR3%NY+W3GDATMD=NY3Á @PROP_REFRACTION_PR3%NX+W3GDATMD=NX3 @PROP_REFRACTION_PR3%NSPEC+W3GDATMD0A @PROP_REFRACTION_PR3%NK+W3GDATMD' @aPROP_REFRACTION_PR3%IP)Á @aPROP_REFRACTION_PR3%ISEA( @aPROP_REFRACTION_PR3%DTG(A ”aPROP_REFRACTION_PR3%CAD.Õ @aPROP_REFRACTION_PR3%DOLIMITER  PROP_FREQ_SHIFT/@PROP_FREQ_SHIFT%NY+W3GDATMD=NY/_@PROP_FREQ_SHIFT%NX+W3GDATMD=NX/Ÿ@PROP_FREQ_SHIFT%NSPEC+W3GDATMD-ß@PROP_FREQ_SHIFT%NTH+W3GDATMD-@PROP_FREQ_SHIFT%NK2+W3GDATMD,_@PROP_FREQ_SHIFT%NK+W3GDATMD#Ÿ@aPROP_FREQ_SHIFT%IP%ß@aPROP_FREQ_SHIFT%ISEA$”aPROP_FREQ_SHIFT%CAS$ŗÄaPROP_FREQ_SHIFT%DMM$w@aPROP_FREQ_SHIFT%DTG#ˇPROP_FREQ_SHIFT_M22ŋ@PROP_FREQ_SHIFT_M2%NY+W3GDATMD=NY2˙@PROP_FREQ_SHIFT_M2%NX+W3GDATMD=NX2?@PROP_FREQ_SHIFT_M2%NSPEC+W3GDATMD0@PROP_FREQ_SHIFT_M2%NTH+W3GDATMD/ŋ@PROP_FREQ_SHIFT_M2%NK+W3GDATMD&˙@aPROP_FREQ_SHIFT_M2%IP(?@aPROP_FREQ_SHIFT_M2%ISEA+oaPROP_FREQ_SHIFT_M2%CWNB_M2+î”aPROP_FREQ_SHIFT_M2%DWNI_M2'‚@aPROP_FREQ_SHIFT_M2%DTG+Â_SYNCHRONIZE_IPGL_ETC_ARRAY0!@aSYNCHRONIZE_IPGL_ETC_ARRAY%IMOD3a@aSYNCHRONIZE_IPGL_ETC_ARRAY%ISMULTI$ĄSET_UP_NSEAL_NSEALM3>@SET_UP_NSEAL_NSEALM%NY+W3GDATMD=NY3~@SET_UP_NSEAL_NSEALM%NX+W3GDATMD=NX-ž@aSET_UP_NSEAL_NSEALM%NSEALOUT.ū@aSET_UP_NSEAL_NSEALM%NSEALMOUT%>ÄINIT_GET_JSEA_ISPROC4@INIT_GET_JSEA_ISPROC%NY+W3GDATMD=NY4B@INIT_GET_JSEA_ISPROC%NX+W3GDATMD=NX*‚@aINIT_GET_JSEA_ISPROC%ISEA*Â@aINIT_GET_JSEA_ISPROC%JSEA,@aINIT_GET_JSEA_ISPROC%ISPROC!BšGET_JSEA_IBELONG0û@GET_JSEA_IBELONG%NY+W3GDATMD=NY0;@GET_JSEA_IBELONG%NX+W3GDATMD=NX&{@aGET_JSEA_IBELONG%ISEA&ģ@aGET_JSEA_IBELONG%JSEA)û@aGET_JSEA_IBELONG%IBELONG;ŖINIT_GET_ISEA-Ū@INIT_GET_ISEA%NY+W3GDATMD=NY-@INIT_GET_ISEA%NX+W3GDATMD=NX#^@aINIT_GET_ISEA%ISEA#ž@aINIT_GET_ISEA%JSEA)Ū†SYNCHRONIZE_GLOBAL_ARRAY8d!@SYNCHRONIZE_GLOBAL_ARRAY%NY+W3GDATMD=NY5¤!@SYNCHRONIZE_GLOBAL_ARRAY%NX+W3GDATMD;ä!†ƒW3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIFCMB5Aj"HSYNCHRONIZE_GLOBAL_ARRAY%MPIFCMB5%MPI_UNWEIGHTED;˛"‰ƒW3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIFCMB9D;#HSYNCHRONIZE_GLOBAL_ARRAY%MPIFCMB9%MPI_WEIGHTS_EMPTY;ƒ#īƒW3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIPRIV1=r$HSYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV1%MPI_BOTTOM?ē$HSYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV1%MPI_IN_PLACED%¤SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV1%MPI_STATUS_IGNORE;Ļ%ƃW3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIPRIV2Fl&ÄSYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV2%MPI_STATUSES_IGNOREF0'¤SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIV2%MPI_ERRCODES_IGNORE;Ô'ģƒW3PARALL!SYNCHRONIZE_GLOBAL_ARRAY!MPIPRIVCA(ÄSYNCHRONIZE_GLOBAL_ARRAY%MPIPRIVC%MPI_ARGVS_NULL@S)¤SYNCHRONIZE_GLOBAL_ARRAY%MPIPRIVC%MPI_ARGV_NULL0÷)”aSYNCHRONIZE_GLOBAL_ARRAY%THEVAR