在函数子程序中用if结构时遇到奇怪的报错，望各位大大斧正

McP

函数子程序代码如下

[Fortran] 纯文本查看 复制代码

function ks(n,th,thwp,thj,c1,c2,c3,c4,d1,d2,d3,d4,dx1,dx2,dx3,dx4,t) result(kss)
implicit none
integer,intent(in)::n,dx1,dx2,dx3,dx4,t
real,intent(in)::th,thwp,thj,c1,c2,c3,c4,d1,d2,d3,d4
real::kss
first: if(th>thj) then kss=1.0 !此行报错为Error: Syntax error, found IDENTIFIER 'THEN' when expecting one of: THEN
             else !此行报错为Error: An ELSE statement occurred without a corresponding IF THEN statement.
next: if(t>=0.and.t<dx1) then kss=c1*((th-thwp)/(thj-thwp))**d1  !此行报错为Error: Syntax error, found IDENTIFIER 'THEN' when expecting one of: THEN
            elseif(t>=dx1.and.t<(dx1+dx2)) then kss=c2*((th-thwp)/(thj-thwp))**d2   !此行报错为Error: Syntax error, found IDENTIFIER 'THEN' when expecting one of: THEN
         elseif(t>=(dx1+dx2).and.t<(dx1+dx2+dx3)) then kss=c3*((th-thwp)/(thj-thwp))**d3   !此行报错为Error: Syntax error, found IDENTIFIER 'THEN' when expecting one of: THEN
         elseif(t>=(dx1+dx2+dx3).and.t<=(dx1+dx2+dx3+dx4)) then kss=c4*((th-thwp)/(thj-thwp))**d4   !此行报错为Error: Syntax error, found IDENTIFIER 'THEN' when expecting one of: THEN
         else print*,'该时间超出计算范围' !此行报错为Error: Syntax error, found '*' when expecting one of: <END-OF-STATEMENT> ;
         endif next !此行报错为Error: An ENDIF occurred without a corresponding IF THEN or ELSE statement.
endif first
end function

当然，一但把if结构改成if语句就没问题了，但希望弄清楚为什么会出现这么诡异的情况。望得闻圣音！

vvt

if ( ... ) a = 1
注意这种用法不写 then

或者

if ( ... ) then
  a = 1
else
  a = 2
end if

这两种用法

McP

vvt 发表于 2015-5-17 21:43
if ( ... ) a = 1
注意这种用法不写 then

您好！您说的第一种应该是if语句，改成这种确实就没问题了。
但这个程序里用的是if结构，也就是您说的第二种（还有if结构的嵌套，next嵌套在first内），但编译出错，错误在每一行出错程序后面附有，还望能指点一二！

vvt

[Fortran] 纯文本查看 复制代码

function ks(n,th,thwp,thj,c1,c2,c3,c4,d1,d2,d3,d4,dx1,dx2,dx3,dx4,t) result(kss)
implicit none
integer,intent(in)::n,dx1,dx2,dx3,dx4,t
real,intent(in)::th,thwp,thj,c1,c2,c3,c4,d1,d2,d3,d4
real::kss
if(th>thj) then 
   kss=1.0
else
  if(t>=0.and.t<dx1) then
    kss=c1*((th-thwp)/(thj-thwp))**d1
  elseif(t>=dx1.and.t<(dx1+dx2)) then 
    kss=c2*((th-thwp)/(thj-thwp))**d2
  elseif(t>=(dx1+dx2).and.t<(dx1+dx2+dx3)) then 
    kss=c3*((th-thwp)/(thj-thwp))**d3
  elseif(t>=(dx1+dx2+dx3).and.t<=(dx1+dx2+dx3+dx4)) then 
    kss=c4*((th-thwp)/(thj-thwp))**d4
  else 
    print*,'该时间超出计算范围'
  endif
endif
end function 

McP

vvt 发表于 2015-5-17 21:50
[mw_shl_code=fortran,true]function ks(n,th,thwp,thj,c1,c2,c3,c4,d1,d2,d3,d4,dx1,dx2,dx3,dx4,t) resul ...

if(...)then后的语句写在下一行就好了啊。。。如此神奇！
多谢大大指点！

vvt

另外，我从来没使用命名的 if，比如你的 first 和 next。一点用都没有，还破坏程序可读性。
我也极少使用命名的 Do，这个稍微有点用，但能不用就不用。

McP

vvt 发表于 2015-5-18 08:29
另外，我从来没使用命名的 if，比如你的 first 和 next。一点用都没有，还破坏程序可读性。
我也极少使用命 ...

命名是看教材例题上有才模仿的，说是层次性比较强，也增加可读性。。。
do我一般也直接enddo，但看网上也有不少码友用命名和continue的。