Y#k820309 919.0×ZŽe  ../phys/module_checkerror.f90MODULE_CHECKERRORgen@CHECKERROR u #CHECKERROR_SINGLE#CHECKERROR_DOUBLE#@@X#SUBROUTINE_NAME#PARAM_ID#I#K#J#INPUT_REAL @1 @1    @ #@@X#SUBROUTINE_NAME #PARAM_ID #I #K #J #INPUT_REAL @ 1 @ 1       @  € X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000008#CHECKERROR_DOUBLE%IEEE_FLAG_TYPE € X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000008#CHECKERROR_SINGLE%IEEE_FLAG_TYPE € X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000002#CHECKERROR_DOUBLE%IEEE_FLAG_TYPE € X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000002#CHECKERROR_SINGLE%IEEE_FLAG_TYPE € X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000004#CHECKERROR_DOUBLE%IEEE_FLAG_TYPE € X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000004#CHECKERROR_SINGLE%IEEE_FLAG_TYPE € X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000001#CHECKERROR_DOUBLE%IEEE_FLAG_TYPE € X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000001#CHECKERROR_SINGLE%IEEE_FLAG_TYPE € X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000010#CHECKERROR_DOUBLE%IEEE_FLAG_TYPE € X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000010#CHECKERROR_SINGLE%IEEE_FLAG_TYPE  € T#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEW#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEpX#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000002X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000004X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000008hpppp#CHECKERROR_DOUBLE%IEEE_FLAG_TYPE  € T#CHECKERROR_SINGLE%IEEE_FLAG_TYPEW#CHECKERROR_SINGLE%IEEE_FLAG_TYPEpX#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000002X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000004X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000008hpppp#CHECKERROR_SINGLE%IEEE_FLAG_TYPE  € T#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEW#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEpW#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEpX#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000002X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000004X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000008X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000001X#CHECKERROR_DOUBLE%IEEE_FLAG_TYPEn X00000010hpppp#CHECKERROR_DOUBLE%IEEE_FLAG_TYPE  € T#CHECKERROR_SINGLE%IEEE_FLAG_TYPEW#CHECKERROR_SINGLE%IEEE_FLAG_TYPEpW#CHECKERROR_SINGLE%IEEE_FLAG_TYPEpX#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000002X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000004X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000008X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000001X#CHECKERROR_SINGLE%IEEE_FLAG_TYPEn X00000010hpppp#CHECKERROR_SINGLE%IEEE_FLAG_TYPE  @'#IEEE_FLAGD  @'#IEEE_FLAG D  8fn#fn'Øbuapp(MODULE_CHECKERROR÷ngen@CHECKERROR"eCHECKERROR_SINGLE2õLaCHECKERROR_SINGLE%SUBROUTINE_NAME+ALaCHECKERROR_SINGLE%PARAM_ID$@aCHECKERROR_SINGLE%I$Í@aCHECKERROR_SINGLE%K$ @aCHECKERROR_SINGLE%J-M@aCHECKERROR_SINGLE%INPUT_REAL"CHECKERROR_DOUBLE2LaCHECKERROR_DOUBLE%SUBROUTINE_NAME+iLaCHECKERROR_DOUBLE%PARAM_ID$ĩ@aCHECKERROR_DOUBLE%I$õ@aCHECKERROR_DOUBLE%K$5@aCHECKERROR_DOUBLE%J-u@aCHECKERROR_DOUBLE%INPUT_REAL-ĩIEEE_INVALID+IEEE_EXCEPTIONS-ĘIEEE_INVALID+IEEE_EXCEPTIONS.ßIEEE_OVERFLOW+IEEE_EXCEPTIONS.ôIEEE_OVERFLOW+IEEE_EXCEPTIONS4 IEEE_DIVIDE_BY_ZERO+IEEE_EXCEPTIONS4 IEEE_DIVIDE_BY_ZERO+IEEE_EXCEPTIONS/3 IEEE_UNDERFLOW+IEEE_EXCEPTIONS/H IEEE_UNDERFLOW+IEEE_EXCEPTIONS-]IEEE_INEXACT+IEEE_EXCEPTIONS-rIEEE_INEXACT+IEEE_EXCEPTIONS+‡ĪIEEE_USUAL+IEEE_EXCEPTIONS+VĪIEEE_USUAL+IEEE_EXCEPTIONS)%ķIEEE_ALL+IEEE_EXCEPTIONS)ķIEEE_ALL+IEEE_EXCEPTIONSA _CHECKERROR_SINGLE%IEEE_FLAG_TYPE+IEEE_EXCEPTIONSUjH%CHECKERROR_SINGLE%IEEE_FLAG_TYPE%IEEE_FLAG+IEEE_EXCEPTIONS=IEEE_FLAGA˛_CHECKERROR_DOUBLE%IEEE_FLAG_TYPE+IEEE_EXCEPTIONSUH%CHECKERROR_DOUBLE%IEEE_FLAG_TYPE%IEEE_FLAG+IEEE_EXCEPTIONS=IEEE_FLAG