COSANG0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ò ¼COSANGPà¯>Éy®Ç<¯>Éy®Ç<¯>Éy®Ç<¯>Éy®Ç<PøÿÿÿÿR÷ÿÿQðÿÿÿø¯>Éy®ÇÉy®Ç<COSANG½ COSMOL½$ANGINI½WHICH½ARTHUR½FIXþ½INICOS0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ò ¼INICOSP‹INICOS ERROR 1: OMEGA < 0.0; OMEGA = INICOS ERROR 2: ETA OUT OF RANGE; ETA = INICOS ERROR 3: ROUNDOFF ERROR, BAD ZMAXý ¾ùINICOS0Pü%ü(%ô(MPùüO¸�@Þé[Â^V¼XV¼kV¼ «skÐ÷é¼Î~û FOR$WRITE_SLûŸ«0û FOR$IO_T_DSû}k~û FOR$IO_D_Vþû FOR$IO_ENDìs«q«è¼Ð÷é¼Î~û FOR$WRITE_SLûŸ«8û FOR$IO_T_DSú}«~û FOR$IO_D_Vþû FOR$IO_ENDûÔÿÐ÷¼(èýqXüqkú1ÔùaXkPcPûsXÔÿÔ ÿsøskÐ ûÐ úsüÐ ùÐ ú1ÞôZsXÔªÔª sêskЪ Ъ síЪ Ð ª 1såÔªÔª skÐ ª Ð ª 1sáÔªÔª skÐ ª Ð ª 1sk}ÖPª�€PqP�†6½7¯jlÐ ª ÔªÔª Ъ Ϊ€Ä¹«ðüü ûüùüÛýñùüÚüúø úäúôüúúøüöùûøôùûõýýøüùüüø»øüüøýýüúüüøýýüúüüüçüýøüóΪ cXPgPXP MTH$DSQRT_R5ÞcPj1ekRcXRT}�*@ªªªª«ª~}R~û OTS$POWDDìePV}�ª?ªªªª«ª~}X~û OTS$POWDDüdPVbŸVqV�†6½7¯jlЪ ÔªÔª 1}VPª�€PqP�†6½7¯jlsTЪ ÔªÔª Ъ ΪԪ }�ª?ªªªª«ª~gRX~û OTS$POWDDÓ}Pj1sTЪ ÔªÔª 1Ъ ΪΪ eXTgTþP MTH$DSQRT_R5ð}P«eXTÝ}«~û OTS$POWDJõdPTgTkTrTP MTH$DACOS_R7ögP«}«P MTH$DCOS_R7æe«­øe­øP« c�†@‘ kÁ*›«P MTH$DCOS_R7êd­øPrP«(a�†@‘ kÁ*›«P MTH$DCOS_R7Öd­øPrPP}« TqT«(}«(T}TRqRP}PRgRRcRj}Xþ}kÿÞýX}híé¨ÔZah~Ð^«Dú«@QQÑÀ^qP�†6½7¯jlb�'8¬ÅG…GhÖZÑZ�dé¼Î~û FOR$WRITE_SLûŸ«Hû FOR$IO_T_DSþû FOR$IO_ENDî|hÐ¨Ш¼(ž}«çм¨м¨Ш ¼Ш¼é¼}îP|PШ ¼$vP¼ €Ä¹üüîúüü&Èóüýøëüüýøüüýçüüüý÷üüüêÚêåæßù$ùòü»üíóõþ÷üåþüûþþøûûûûüôþ ûü üOINICOS QQ MTH$DSQRT MTH$DACOSMTH$DCOSé4$CODE©u$PDATA‰P$LOCAL½ COSMOL½$ANGINI½FIX FOR$IO_END FOR$IO_D_V FOR$IO_T_DS FOR$WRITE_SL OTS$POWDJ OTS$POWDD MTH$DCOS_R7 MTH$DACOS_R7 MTH$DSQRT_R5 Pÿ3+Pÿ%RPÿKXPÿ^Pÿ9bPÿ5mPÿ&•Pÿ§Pÿ²Pÿ»Pÿ ÆPþºÝPÿNñPÿõPÿ þPÿPÿPÿ Pÿ (PþJ6Pÿ9DPÿHPÿNPÿUPÿ_PÿePÿmPþwPÿ�Pÿ‡Pÿ�Pþå—Pÿ¡Pÿ§Pÿ­PþųPÿLÌPÿØPÿ!ûPþwLPÿXPþpPÿ;tPÿ€Pÿ'©PþɯPÿ»Pþ·“Pÿh·PÿDÍPÿ%ÑPÿPÿ $Pÿô¹ÿ¿4½QQ0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ö ¼QQý ¾ýQQPù H¸�@Þ÷[Ý}¼~û OTS$POWDJÿdøPe¼¼RdûRbRP`þP HQQé9$CODE©$PDATA‰$LOCAL½ COSMOL OTS$POWDJî¹7óÔ¿9½ANGSIZ0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ò ¼ANGSIZP€ANOT REALLY LARGER THAN ZMAX BUT CLOSE ENOUGH FOR TROUBLEYOU MUST CALL INICOS FIRST!!!!!!!!!!!!!!!!!!!!!!!!!!!ERROR : INI€COS ERRORERROR 4: COMPUTATION NOT RECOMMENDED IN WMTYPE 17ERROR 9: Z2 > ZMAXZ2 ERROR 7: Z1 > ZMAXZ1 ERROR 5: Z1 < 0.0ERROR 6: Z2Î < 0.0ERROR 11: OVERFLOW ERROR POSSIBLE ))©ý ¾ùANGSIZ(Pü5@üuü{ü1‰üºüÌü8üÏüáü8üäüõô!äøPùüO¸�@Þó[V¼VV¼XÔ¼ÞöZéªÎ~û FOR$WRITE_SLûŸ«û FOR$IO_T_DSþû FOR$IO_ENDíÕªѪéªßï'ûÎ~û FOR$WRITE_SFûŸ« û FOR$IO_T_DSûݪû FOR$IO_L_VûŸ«(û FOR$IO_T_DSþû FOR$IO_ENDõ1Ѫ èòмéªÎ~û FOR$WRITE_SLûŸ«0û FOR$IO_T_DSþû FOR$IO_ENDî1èª1qXjqXñÐ ¼éªÎ~û FOR$WRITE_SLûŸ«8û FOR$IO_T_DSþû FOR$IO_ENDòÐ ¼éªßï.ûÎ~û FOR$WRITE_SFûŸ«@û FOR$IO_T_DSûŸ«Hû FOR$IO_T_DSþû FOR$IO_ENDôqVjqVñмéªÎ~û FOR$WRITE_SLûŸ«Pû FOR$IO_T_DSþû FOR$IO_ENDóмéªßï.ûÎ~û FOR$WRITE_SFûŸ«Xû FOR$IO_T_DSûŸ«`û FOR$IO_T_DSþû FOR$IO_ENDïsVмéªÎ~û FOR$WRITE_SLûŸ«hû FOR$IO_T_DSþû FOR$IO_ENDísXмéªÎ~û FOR$WRITE_SLûŸ«pû FOR$IO_T_DSþû FOR$IO_ENDòÕ¼мªÔðaVkaX«~k«|ú«xQQÿ MTH$DSQRT_R5ã}PRqR�YÜÇSí"ÇÐ ¼éªÎ~û FOR$WRITE_SLúŸË€û FOR$IO_T_DSþû FOR$IO_ENDÛ P|@«èdkRgR~Ð^ËŒck«~Ð^Ë�úˈ MTH$DSIGNÐÀ^ R}PB«èÞª˘~kËœ~«Ë ~«ð˨~«ˬúË”LOWLEVÿÕòÐ ¼мª€Ä¹ãóü üýõåÿ ÿõüËüóüüåüùû÷üÝüÑûû÷üÞüÑüüüåþüüü»å ûûÿþúüûëóüüäõÒÚøüûÿùv«¼ }Vþ}Xý}«ÿ üOANGSIZLOWLEVQQ MTH$DSQRT MTH$DSIGNéØ$CODE©2$PDATA‰À$LOCAL½$ANGINI½BNCSIZ½CNTRCT½MERROR½ARTHUR½FIX FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_SL MTH$DSQRT_R5"PÿDPÿCJPÿ=NPÿ5…Pþ`�Pÿ.”Pÿ'œPÿ¹Pþ,ÁPþÔÇPÿhÐPÿ'ØPÿõPÿ5ÿPÿ+,Pÿj4Pÿb=Pÿ&EPÿbPÿ4kPÿ+šPÿ%¢Pÿ¿Pÿ'ÃPÿ#ËPÿëPÿ$Pÿ$,Pÿ¯Pÿ å¹þûùùøÿ¿Ø½BNGSIZ0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ò ¼BNGSIZP€HDERROR : INICOS ERRORERROR 13: BNGSIZ INVALID FOR WMTYPE : ANGSIZ ERRORERROR 11: OVERFLOW ERROR POSSIBLEERROR 12: ERROR C€ALCULATING D14, EXPANDING PHASEERROR 12: ERROR CALCULATING D14, CONTRACTING PHASEERROR 12: ERROR CALCULATING D34, CONTRACTING PHŽASEERROR 12: ERROR CALCULATING D32, CONTRACTING PHASEERROR 12: ERROR CALCULATING D32, EXPANDING PHASE )) )ý ¾ùBNGSIZ0Püüü$üü@ô!Nðô0oðô2Ÿô!Näô2Ñô!Nðô2ðô05PùüO¸�@Þû[Ô¼ÞîVÕ¦Ѧé¦ßïeûÎ~û FOR$WRITE_SFûŸ«0û FOR$IO_T_DSûݦû FOR$IO_L_VûŸ«8û FOR$IO_T_DSþû FOR$IO_ENDöè¦ é¦ßïlûÎ~û FOR$WRITE_SFûŸ«@û FOR$IO_T_DSûݦ û FOR$IO_L_Vþû FOR$IO_ENDäÐ ¦Ѧ ѦѦ é¦ßïeûÎ~û FOR$WRITE_SFûŸ«Hû FOR$IO_T_DSûݦû FOR$IO_L_VûŸ«Pû FOR$IO_T_DSþû FOR$IO_ENDìЦ¼Õ¦Ѧ ÔÿÞþWÞÖXq§ga§«af« ag«afP}P« ~««\ú«XQQÿ MTH$DSQRT_R5ã}PRqR�YÜÇSí"ÇÐ ¼é¦Î~û FOR$WRITE_SLûŸ«`û FOR$IO_T_DSþû FOR$IO_ENDÈ P|@¨ød«R PgR@¨øÞ¦«l~««p~« «t~h«|~«(Ë€ú«hLOWLEVÿÕñÐ ¼é¦Î~û FOR$WRITE_SLúŸË„û FOR$IO_T_DSþû FOR$IO_ENDúÎÆaf«a§« YrI¨øI¨øÞ¦Ë�~«Ë”~« ˘~hË ~«(ˤúËŒLOWLEVÿÕñÐ ¼é¦Î~û FOR$WRITE_SLúŸË¨û FOR$IO_T_DSþû FOR$IO_ENDõ}«(ké¦Õì}§«}«(«1Îëag«a§« ~«Ë´ú˰QQÿ MTH$DSQRT_R5ã}PRqR�YÜÇSí"ÇÐ ¼é¦Î~û FOR$WRITE_SLúŸË¸û FOR$IO_T_DSþû FOR$IO_ENDÙ Z|J¨ød«RgR~Ð^ËÄc«« ~Ð^ËÈúËÀ MTH$DSIGNøÀ^}PI¨ø€Ä¹¿ó ýîüËüüÕüîüËû õÿ þúìú øûøêóüüåõïßøüü äÿýùû»úòÚøüü äÿÿüôû õùûúèóüüäõßÞ¦ËÐ~«ËÔ~« ËØ~hËà~«(ËäúËÌLOWLEVÿÕñÐ ¼é¦Î~û FOR$WRITE_SLúŸËèû FOR$IO_T_DSþû FOR$IO_ENDö}«(«ÎÕq§ga§«af« ag«afP}P« ~«ËôúËðQQÿ MTH$DSQRT_R5ã}PRqR�YÜÇSí"ÇÐ ¼é¦Î~û FOR$WRITE_SLúŸËøû FOR$IO_T_DSþû FOR$IO_ENDÑ|J¨ød«RgRI¨øÞ¦Ë~«Ë~« Ë ~hË~«(ËúËLOWLEVÿÕñÐ ¼é¦Î~û FOR$WRITE_SLúŸËû FOR$IO_T_DSþû FOR$IO_ENDýÔÔaf«a§« Þ¦Ë(~«Ë,~« Ë0~hË8~«(Ë<úË$LOWLEVÿÕñÐ ¼é¦Î~û FOR$WRITE_SLúŸË@û FOR$IO_T_DSþû FOR$IO_ENDë}«(«vk¼v«¼v«¼  üOBNGSIZLOWLEVQQ MTH$DSQRT MTH$DSIGNé $CODE©r$PDATA‰H$LOCAL½$ANGINI½BNCSIZ½LOWSIZ½WHICH½CNTRCT½MERROR FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_SL MTH$DSQRT_R5Pÿ?!Pÿ9%Pÿ5^Pÿ3bPÿ+—Pÿ �Pÿ?£Pÿ9§Pÿ5æPÿ ìPÿ PÿPÿpGPÿ#OPÿ¯Pÿ(·Pÿ%Pÿ&-PÿSPÿ[PÿgPþ(¢Pÿ$ªPÿ(Pÿ'0PÿaPÿnPÿe¡Pÿ$©PÿPÿ& PÿfPÿ%nPÿ€†¹×Úøüü äÿþ ûùúú øûøèóüüäüöÚøüü äÿÿúûúÚøüü äÿ ûüðûûÿ¿ ½LOWLEV0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ò ¼LOWLEVP�†6½7¯jlERROR IN BSSTEPERROR IN ODEINT: STEPSIZE TOO SMALLERROR IN ODEINT: TOO MANY STEPSCAN'T GET HEREý ¾ùLOWLEVPè   øüBSSTEPASDRHSðü##üFüePùH¸�@Þó[Ь«Ã¬« Ô€q¼q¼ �€@{c[Ðc¼¼ P}PRª�€RqR�fAffffffpkc¼¼ Rg¼Rk}kRª�€R~» TqR�Ö4”¿åÕCz|¼1~¼«,~¼ «0~k«8~¼«HÞ««LÞ« «Púþ«$ODEINTÿÕó1è¼1ÑøÎ~û FOR$WRITE_SLûŸ«Tû FOR$IO_T_DSþû FOR$IO_ENDúÑøÎ~û FOR$WRITE_SLûŸ«\û FOR$IO_T_DSþû FOR$IO_ENDûÑøÎ~û FOR$WRITE_SLûŸ«dû FOR$IO_T_DSþû FOR$IO_END÷Î~û FOR$WRITE_SLûŸ«lû FOR$IO_T_DSþû FOR$IO_ENDä P}@d¼ÐP PR}BdBøûóPì HLOWLEVODEINTASDRHSBSSTEPéq$CODE©s$PDATA‰t$LOCAL½LOWSIZ½MERROR FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL#Pÿ1Pÿ"LPÿQPÿ wPÿ|PþÚ®PþœµPþ”¿Pÿ ÜPÿnèPÿPÿEPÿ-Pÿ©M¹Šè úÑùõçøÛõù÷à÷á÷áåÿ ôüðüÿ¿q½ODEINT0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ò ¼ODEINTý ¾ùODEINTèP� à PùüO¸�@Þ°ð[м«\Ь$«DÞ«@PFOR$INI_DES1_R2ÿÔÿÞãRÔâÈ>}¼k~¼«dc¼¼ ~Ð^«hú«` MTH$DSIGN€À^}P«Ô¼(Ô¼,ÔâÌ>мPÐQÕP~»PU Q2V Q«X«\W}GeFËHûóPQåЫ(~k«p~ËPû«t~Ëàü«xú«l¼ мPÐQÕP Q2W~GËHûX}hYª�€YeGËØü«ƒU}USª�€S`SYa�¢_B^÷üYGËhþóPQÅÕâÈ>1c« kP}PWª�€W}bPª�€PqWPÃâÈ>PÑâÌ>PÖâÌ> âÌ>�ÈP}k@bмPÐWÕ¼ â·Ì>�È2Q W2QY W2S}CËHûI°óPWå}k« a«kPc¼ PWb¼PdPWck¼ «Ñ€Þ¼Ë€~ËàüË„~«ˈ~¼ËŒ~ËpþË�Þ¼ Ë”~k˘~ËPûËœ~«Ë ~«ˤú«|¼q««Ö¼(Ö¼,c¼ kPc¼¼ WdWP1мPÐWÕ¼~»PQ W€«X«\Y W2S}CËHûIaóPWåÕâÈ>ÖâÌ> âÌ>�ÈQ}kAbмQÐPÕ¼ âÌ>�È2W P2WY P2S}CËHûI°óQPå}«Wª�€WqW¼ýÐì}««ñ�'«(àýÐÿ üOODEINT  MTH$DSIGNé¼$CODE©$PDATA‰X$LOCAL½Ð>PATH½MERRORFOR$INI_DES1_R2lPÿ"³Pÿ;øPþ�Pÿg$PÿVIPÿ-�PÿœPÿéPÿîPÿPþ†Pÿ!:PÿP_Pÿ+šPÿ €¤¹7óhìúóüâýý úîé üûëõÉüõæïúíâéüüçô½ùúýíîéüøúíÒäéüÿñùÿÿûõùÿ¿¼½BSSTEP0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ò ¼BSSTEPPüý ¾ùBSSTEPŒP€ à à àÐøQøþÿÿÔ  0@`PùüI¸�@Þpð[м«@Ь«(Þ«$PFOR$INI_DES1_R2ñм«hЬ«PÞ«LPFOR$INI_DES1_R2ðмË�Ь «xÞ«tPFOR$INI_DES1_R2ÿÔ€}¼ «}¼kмPÐQÕP~»4R~Û„S Q T QËŒË�U}EcDˈþ}EbDËØþóPQÜ~»\RЫ~k˘޼Ëœ~Ë�þË ~Ëàþˤ~«˨ « SÞC«Ìˬ޼˰õ~Ë0ÿË´úË”MMMÈnC«ÌSgS«SeSS«Þ¼˼~«ËÀ~Ë0ÿËÄÞ«ËÈ~¼ ËÐ~«€ËÔú˸POLEX€|PмSÐTÕS T U TËŒË�VgFbEËxÿU}UWª�€W}PUqUW}WU}UPóSTÌf¼PqP`«¼}«¼$Ñ«e�s@333333«¼(Ñ«e�™@™™™™š™«¦¼(  Pn@«ÌPd«P « SnC«ÌSgSP¼(ñ «Íþe�€?«Pe�€?P«a«¼PqP¼Ðù1•þ üIBSSTEP MMMPOLEXé$CODE©$PDATA‰H$LOCAL½MERRORFOR$INI_DES1_R2cPÿ0)Pÿ6hPÿ_xPÿˆPÿ=‘Pÿ¡Pÿ$ôPÿ ˆn¹:órÃúû üéçùüüü¼ñÒþóÐüüûûûúíúîÞÿÿ ùæôùÿýý¿½MMM0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119õ ¼MMMý ¾üMMM0P€ à à àèPùüO¸�@Þ ð[м«4Ь «Þ«PFOR$INI_DES1_R2ñм«\Ь«DÞ«@PFOR$INI_DES1_R2ðм˄Ь «lÞ«hPFOR$INI_DES1_R2€n¼PgP¼RмPÐQÕP~»PT~»(U Q2V Q«0«4W}GeFËhþeGdRXaGeXFËØüóPQØaR¼k~kËŒ~ËàüË�~¼ Ë”úˈ¼eRTмVÐWѼмPÐQÕP€ Q«0«4YeI»xTY Q2X`HËhþY}HËØüHËhþ}YHËØüóPQÑ`Rk~kËœ~ËàüË ~¼ ˤú˘¼óVW¦Ð¼TÐVÕ¼~»xW V2Pa@ËØü@ËhþP V«0«4XeHgRòY`YPePHgóTVÕ üOMMMéX$CODE©$PDATA‰È$LOCALFOR$INI_DES1_R2]Pÿ2½Pÿ\ÊPÿ0%Pÿ1¬J¹-ó Ø*ë÷ëéóüûèüñôä÷úüýèüîÙüÿ¿X½POLEX0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ó ¼POLEXý ¾úPOLEX\Pˆ à à àPùüO¸�@ÞHí[Â^м«8Ь « Þ«PFOR$INI_DES1_R2ñм«`Ь«HÞ«DPFOR$INI_DES1_R2ðмˈЬ«pÞ«lPFOR$INI_DES1_R2€ ¼ P}¼@˰éмPÐQ~»,RÕ¼~»TT~»|S Q˄ˈU}EbEc}EbEdóPQçѼмPÐQÕP  2U Q2UV Q˄ˈW}GbFˈèóPQã1мUÑ€U¼мUÐU«мPÐQÕP Q2V Q˄ˈW}GbFËhþóPQãЫ­üÐkÑ­ü1Ãk¼R R Rc¼B˰éVgVVeV¼XdB˰éVмRÐZÕ¼ k 2€­ø Z2­øS}CˈèP Z˄ˈT~»|U}DeCˈè Z2ScPCËhþPePXDeePVCËhþ`DeD»TóRZ¸ò­ük1vÿмVÐXÕV~»|R « 2Z X2ZT X˄ˈóU}EbDˈèóVXã üOPOLEXéÚ$CODE©$PDATA‰Ô$LOCALFOR$INI_DES1_R2kPÿ!’Pÿ5�Pÿ'ÆPþäPÿ PþŒFPÿQ¬Pÿ,‘e¹-ð ì×ñèðûüúëçùîòçüíèûúëòêòûùúüöæçüÿ¿Ú½ASDRHS0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ò ¼ASDRHSý ¾ùASDRHSPÈ    PùüO¸�@Þá[Ь«Ã¬«Ь «Ã¬ «$~¼«,ú«(QQù}PV}VP MTH$DSQRT_R5û}PReôPe¼¼TdTPe×Td¼TbTPeRTgTPT X Y~»Z}IjH»$éóc¼~Ð^«4ú«0ETAZûÀ^}PþeþPdÙPd¼PdHjP`VVfVPg¼VfRT`TVdIjV`VPrPI»$ üOASDRHSETAZQQ MTH$DSQRTéÖ$CODE©$PDATA‰8$LOCAL½ COSMOL½$ANGINI MTH$DSQRT_R5…PÿܹcÝðôØèÞÌÿ¿Ö½ETAZ0116-Jun-1997 18:1216-Jun-1997 18:12VAX FORTRAN V5.6-119ô ¼ETAZPéSOMETHING'S WRONG!!!!!!ý ¾ûETAZPüPùüO¸�@Þõ[a¼PgPYÕ÷|«ø1Ñø�ÿÿÿÿéîp«ø|«ø1Ñø�þÿÿÿéýaîRgR«ø}Y«ø1ÑõcY«øÑõeYY«øÑñeYYRcR«øÑöq¼! MTH$DLOG10_R8ð}P«øp«øÑù }YP MTH$DSQRT_R5ícYRdRReRP«øcYP MTH$DSQRT_R5ÁdYYeYP«øq«øb�Ñ9·âXe«øs«ø`�Ñ9·âXe«øs«øq«øÎ~û FOR$WRITE_SLüŸkû FOR$IO_T_DSþû FOR$IO_ENDþûFOR$STOPø}«øP üOETAZ MTH$DLOG10 MTH$DSQRTéY$CODE©$PDATA‰$LOCAL½$ANGINI½WHICH½CNTRCTFOR$STOP FOR$IO_END