Question

fortran 错误error LNK2001: unresolved external symbol __

use msflib
implicit none
complex*16 :: dA1, dA2, dB1, dB2, A1, B1, A2, B2, I=(0,1)
real*8 :: kw, k2w, dk, K1=0.05
real*8 :: x, dx=0.0001
A1=1
B1=0
dk=0.2
kw=0.12
k2w=0.098
do x=0, 1000, dx
dA1=-I*kw*B1
dB1=-I*kw*A1
dA2=-I*k2w*B2-I*K1*A1*A1*exp(I*dk*x)
dB2=-I*k2w*A2-I*K1*B1*B1*exp(I*dk*x)
A1=A1+dA1*dx
A2=A2+dA2*dx
B1=B1+dB1*dx
B2=B2+dB2*dx
call setpixelrgb(x, 1000-abs(A1*A1)*10, 255)
call setpixelrgb(x, 1000-abs(B1*B1)*10, 255*256)
call setpixelrgb(x, 600-abs(A2)*10, 255)
call setpixelrgb(x, 600-abs(B2)*10, 255*256)
end do
end

build时提示：
--------------------Configuration: a - Win32 Debug--------------------
Linking...
a.obj : error LNK2001: unresolved external symbol __setpixelrgb
Debug/a.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
a.exe - 2 error(s), 0 warning(s)
求大侠解释

Answer 1

如果你需要使用编译器提供的绘图函数，请按照编译器相关设置，将工程类型改为 QuickWin 或
STANDARD GRAPHICS。

而不是选择为 Console

你可能需要重新新建工程，选择正确的工程类型。

Answer 2

可能调用子函数时变量定义之类的问题，这种药一点一点就找，你先写个简单的调用慢慢看