Fortran 编译出错LNK2001: unresolved external symbol _F@ 急

Question

在主程序里也没出现变量F啊。实在是不懂。着急
PROGRAM Piston

use fml ! Use module fml
use fgl ! Use visualization routines

IMPLICIT REAL*8 (A-H,J,K,L,M,O-Z)
COMMON /INITL/ Fx,Ch,Kh,Mh,Jh,La,Lb,Aa,Ab,Lc,Dert
COMMON /INITL/ NUM
DIMENSION Ah(100000),Xp(100000)
DIMENSION DXp(100000),DDXp(100000),DDAh(100000),Fx(100000)
DIMENSION t(100000),Xa(100000),Xb(100000)
DIMENSION F1(100000),F2(100000),F3(100000),F4(100000)
DIMENSION N1(100000),N2(100000),N3(100000),N4(100000)
DIMENSION X1(100000),X2(100000),X3(100000),X4(100000)
DOUBLE PRECISION Xp,Ah,Fx
DOUBLE PRECISION Xp0,Xp1,Xp2,Ah0,Ah1,Ah2
DOUBLE PRECISION DXpQ,DDXpQ,DAhQ
DOUBLE PRECISION F1Q,F2Q,F3Q,F4Q
DOUBLE PRECISION XaQ,XbQ

OPEN(UNIT=10,FILE='Piston.DAT',STATUS='OLD')
C
READ(10,*)
READ(10,*)Ch,Kh
READ(10,*)
READ(10,*)Mh,Jh
READ(10,*)
READ(10,*)La,Lb
READ(10,*)
READ(10,*)Aa,Ab
READ(10,*)
READ(10,*)Lc,Dert
READ(10,*)
READ(10,*)NUM
C
READ(10,*)
DO 5 I=1,NUM
READ(10,*) t(I),Fx(I)
5 CONTINUE

Xp0=0.0000001
Xp1=0.0000001
DXpQ=(Xp1-Xp0)/Dert

C
Ah0=0
Ah1=0
DAhQ=(Ah1-Ah0)/Dert
C
DO 10 I=1,NUM
c
XaQ=La*SIN(Aa+Ah0)-La*SIN(Aa)
XbQ=Lb*SIN(Ab+Ah0)-Lb*SIN(Ab)
X1Q=Xp0-XaQ
X2Q=Xp0-XaQ
X3Q=Xp0+XbQ
X4Q=Xp0+XbQ
c
IF(X1Q.lT.0.0) THEN
F1Q=-Kh*X1Q-Ch*(DXpQ-La*COS(Aa+Ah0))
ELSE
F1Q=0
ENDIF
c
IF(X2Q.GT.0.0) THEN
F2Q=-Kh*X2Q-Ch*(DXpQ-La*COS(Aa+Ah0))
ELSE
F2Q=0
ENDIF
c
IF(X3Q.GT.Lc) THEN
F3Q=-Kh*X3Q-Ch*(DXpQ+Lb*COS(Ab+Ah0))
ElSE
F3Q=0
ENDIF
c
IF(X4Q.lT.(-Lc))THEN
F4Q=-Kh*X4Q-Ch*(DXpQ+Lb*COS(Ab+Ah0))
ELSE
F4Q=0
ENDIF
c
Xp2=2*Xp1-Xp0+Dert**2*(F1Q+F2Q+F3Q+F4Q+F(I))/Mh
DXpQ=(Xp2-Xp1)/Dert
DDXpQ=(Xp0-2*Xp1+Xp2)/(Dert**2)

Xp(I)=Xp0
DXp(I)=DXpQ
DDXp(I)=DDXpQ

Xp0=Xp1
Xp1=Xp2

10 CONTINUE
C*
call msFigure(1)
call msPlot(mf(t),mf(Fx),'A-')
call msFigure(2)
call msPlot(mf(t),mf(Xp),'A-')
C
call msViewPause()
call msCloseFigure(35)
C
END
Piston.obj : error LNK2001: unresolved external symbol _F@4
Debug/Piston.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

Answer 1

您好，1. 先弄清楚到底缺了哪些库，再在project＝》setting＝》link里面的moldul/lib 添加这些库的文件。
2. 可以用以下形式在源程序里面添加下面代码：

#pragma comment(lib, "openGL32.lib");

#pragma comment(lib, "glu32.lib");
#pragma comment(lib, "glaux.lib");
vc编译报错 unresolved external symbol __imp__PlaySoundA@12 解决办法

添加Winmm.lib和 头文件中包含 Mmsystem.h

选择"project"->"setting"->"link"->"Object/library modules"然后添加"Winmm.lib"就可以了。追问

1.怎么才能够添加那些库呢？我在"project"->"setting"->"link"->"Object/library 这里面添加了Winmm.lib之后出现了fatal error LNK1104: cannot open file "kernel32.lib;Winmm.lib;"。
2.我这个是Fortran语言。那些代码添加好像没有符合语法。