if(h<5) then c=(18/h)
是不是这句错了，fortran中应该没有<>号的
应该改成
IF（H.LT.5）THEN C=(18/H)
fortran中不区分大小写，建议看一下fortran语法，谢谢
因为你的文件不存在，所以没法调用运行，不知道是不是这里错了
real h,c
c=0
open(unit=10,file='C:\soft\Drag\Drag.dat')
read(10,*)h
if(h<5) then c=(18/h)
print *, '干扰阻力系数=', c
end
!c 没有初始化吧！
if(h<5) then
c=(18/h)
then 后要换行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024