关于M6203：MATH - exp：OVERFLOW error的问题

须佐能乎

求助论坛里的大神，小弟在写子程序时，用到下面的子程序会出现run-time error M6203：MATH - exp：OVERFLOW error 的错误，但是小弟怎么也找不到原因，劳烦论坛里的大牛们帮帮小弟，小弟感激不尽啊

      SUBROUTINE CAL_THSE(T,P,TD,E,R,THSE)
      real :: P,T,TD,E,R,THSE
      REAL A,B,TCM,PCM,ECM,lv
     CPD=1005.
    RD=287.04
    if((T < 9999.0).and.(TD <  9999.0).and.(P < 9999.0))then
        IF(T.LT.80.AND.TD.LT.80)THEN
            TCM=T-(T-TD)*0.976/(0.976-0.000833*(237.3+TD)**2/(273.+TD))
            PCM=P*((273.+TCM)/(273.+T))**(CPD/RD)
              IF(TCM.GE.0)A=7.5*TCM/(237.3+TCM)
              IF(TCM.LT.0)A=9.5*TCM/(265.5+TCM)
              ECM=6.112*10.**A
              B=(T+273.15)*(1000./(P-E))**(RD/CPD)
            lv=2501000.-2368*T                 
              THSE=B*EXP(lv*R/(CPD*(273.15+TCM)))
        ELSE
            THSE=99999.9
        ENDIF
    else
        THSE=99999.9
    endif
    END

爆浆炸鸡

遇到同样的问题，好像是做指数运算的时候数值太大，超出了fortran 的阈值，但是至今也没有解决，希望楼主能找到好方法

须佐能乎

爆浆炸鸡 发表于 2018-7-22 00:34
遇到同样的问题，好像是做指数运算的时候数值太大，超出了fortran 的阈值，但是至今也没有解决，希望楼主能 ...

换了个编译器，现在使用VS2010的FORTRSN就没有这个问题了

须佐能乎

爆浆炸鸡 发表于 2018-7-22 00:34
遇到同样的问题，好像是做指数运算的时候数值太大，超出了fortran 的阈值，但是至今也没有解决，希望楼主能 ...

换了个编译器，现在使用VS2010的FORTRSN就没有这个问题了

须佐能乎

爆浆炸鸡 发表于 2018-7-22 00:34
遇到同样的问题，好像是做指数运算的时候数值太大，超出了fortran 的阈值，但是至今也没有解决，希望楼主能 ...

换了个编译器，现在使用VS2010的FORTRSN就没有这个问题了

须佐能乎

爆浆炸鸡 发表于 2018-7-22 00:34
遇到同样的问题，好像是做指数运算的时候数值太大，超出了fortran 的阈值，但是至今也没有解决，希望楼主能 ...

换了个编译器，现在使用VS2010的FORTRSN就没有这个问题了

爆浆炸鸡

须佐能乎 发表于 2018-8-12 23:49
换了个编译器，现在使用VS2010的FORTRSN就没有这个问题了

感谢感谢~~~~~已经安装，去试试~~