fortran 求救

答案:2 悬赏:80 手机版

解决时间 2021-01-30 21:59

提问者网友：末路
2021-01-30 01:51

有谁看的懂这个，说说哪里错了。呵呵，谢谢各位了~~

-------------Configuration: text - Win32 Debug--------------
Compiling Fortran...
C:\Documents and Settings\user\text.f90
C:\Documents and Settings\user\text.f90(45) : Warning: Variable FC is used before its value has been defined
area1=(N*e-1.0*Fc*b*((h-as)**2)*kesib*(1.0-0.5*kesib))/(fy1*((h-as)-as1))
-----------------------^
C:\Documents and Settings\user\text.f90(45) : Warning: Variable KESIB is used before its value has been defined
area1=(N*e-1.0*Fc*b*((h-as)**2)*kesib*(1.0-0.5*kesib))/(fy1*((h-as)-as1))
----------------------------------------^
C:\Documents and Settings\user\text.f90(45) : Warning: Variable E is used before its value has been defined
area1=(N*e-1.0*Fc*b*((h-as)**2)*kesib*(1.0-0.5*kesib))/(fy1*((h-as)-as1))
-----------------^
C:\Documents and Settings\user\text.f90(45) : Warning: Variable FY1 is used before its value has been defined
area1=(N*e-1.0*Fc*b*((h-as)**2)*kesib*(1.0-0.5*kesib))/(fy1*((h-as)-as1))
----------------------------------------------------------------^
C:\Documents and Settings\user\text.f90(52) : Warning: Variable FY1 is used before its value has been defined
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
------------------------------------------------^
C:\Documents and Settings\user\text.f90(52) : Warning: Variable AREA1 is used before its value has been defined
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
------------------------------------------^
C:\Documents and Settings\user\text.f90(52) : Warning: Variable FY is used before its value has been defined
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
----------------------------------------------------^
C:\Documents and Settings\user\text.f90(52) : Warning: Variable FC is used before its value has been defined
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
------------------^
C:\Documents and Settings\user\text.f90(52) : Warning: Variable KESIB is used before its value has been defined
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
------------------------------^

text.obj - 0 error(s), 9 warning(s)

最佳答案

五星知识达人网友：持酒劝斜阳
2021-01-30 02:37

翻译了一遍
配置: 文本- Win32 调试--------------
编写的FORTRAN...
C:\Documents 和Settings\user\text.f90
C:\Documents 和Settings\user\text.f90(45): 警告: 易变的FC 被使用在它的价值被定义了之前
area1=(N*e-1.0*Fc*b*((h-as)**2)*kesib*(1.0-0.5*kesib))/(fy1*((h-as)-as1))
-----------------------^
C:\Documents 和Settings\user\text.f90(45): 警告: 易变的KESIB 被使用在它的价值被定义了之前
area1=(N*e-1.0*Fc*b*((h-as)**2)*kesib*(1.0-0.5*kesib))/(fy1*((h-as)-as1))
----------------------------------------^
C:\Documents 和Settings\user\text.f90(45): 警告: 易变的E 被使用在它的价值被定义了之前
area1=(N*e-1.0*Fc*b*((h-as)**2)*kesib*(1.0-0.5*kesib))/(fy1*((h-as)-as1))
-----------------^
C:\Documents 和Settings\user\text.f90(45): 警告: 易变的FY1 被使用在它的价值被定义了之前
area1=(N*e-1.0*Fc*b*((h-as)**2)*kesib*(1.0-0.5*kesib))/(fy1*((h-as)-as1))
----------------------------------------------------------------^
C:\Documents 和Settings\user\text.f90(52): 警告: 易变的FY1 被使用在它的价值被定义了之前
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
------------------------------------------------^
C:\Documents 和Settings\user\text.f90(52): 警告: 易变的AREA1 被使用在它的价值被定义了之前
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
------------------------------------------^
C:\Documents 和Settings\user\text.f90(52): 警告: 易变的FY 被使用在它的价值被定义了之前
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
----------------------------------------------------^
C:\Documents 和Settings\user\text.f90(52): 警告: 易变的FC 被使用在它的价值被定义了之前
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
------------------^
C:\Documents 和Settings\user\text.f90(52): 警告: 易变的KESIB 被使用在它的价值被定义了之前
area=(1.0*Fc*b*(h-as)*kesib-N)/fy+area1*fy1/fy
------------------------------^

text.obj - 0 error(s), 9 warning(s)

全部回答

1楼网友：天凉才是好个秋
2021-01-30 04:05

你的use numerical_libraries这句,是你原先预封装的什么东西吧?现在这个程序没有包含进来,现在程序找不到它,所以就没有办法执行了!!!

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息