程序 .OR. 续行的问题

vvt

第28，29行，续行不对，不能把 .OR. 拆开。而且后面多一个括号 ）
改为

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

if(month==1.or.month==3.or.month==5.or.month==7.or.month==8.or.month==10&
         .or.month==12)then

实际上，对于这种情况，用 Selece Case 更合适。
27 到 35 行可改为

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

  Select Case ( Month )
  case ( 1 , 3 , 5 , 7 , 8 , 10 , 12 )
    L = 558.0
  case ( 4 , 6 , 9 , 11 )
    L = 540.0
  case ( 2 )
    L = 29*2*3.0 + 28*4*3.0
  End Select

就可以了。