刚用cvf 6.6试了下，这个语句编译不通，不过，可以自己定义一个叫 if 的函数实现这个功能

real function if(a,b,c)
  real::c,b
  logical:: a
  if(a .eq. .True.)then
      if=b
  else 
      if=c
  endif
  return
end function

F=if(F<0,0,F)

Fortran中没有这种内部函数

但是Excel中有

意思为：

当F<0成立时，函数值为0

当F<0不成立时，函数值为F

谢谢...又学到了