[求助]向各位请教一个fortran问题！

niaomuxiong

我在编译fortran程序时出现如下问题：
xljs.obj : error LNK2001: unresolved external symbol _PR@4
Debug/xnygmain.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
我只是把一些变量改为数组，结果就出现这个问题，因为对fortran研究不是很深，所以请各位帮帮忙！谢谢！

shyang5

原因1：有个subroutine pr*没有定义
原因2：pr里的虚参和实参不一致（个数、类型）

niaomuxiong

斑竹，但是我的pr不是子程序名，而是子程序里的一个数组变量
我把我的程序的定义部分给你看一下

niaomuxiong

           subroutine xljs(Qt,Ht,n11,D1,Yt)
real Qt,Ht,n11,D1
c
real Zz1(5000),Pz1(5000),vz1(5000)
real vz1x(5000),vz1y(5000),vz1z(5000)
real Zz2(5000),Pz2(5000),vz2(5000)
real vz2x(5000),vz2y(5000),vz2z(5000)
c
real Zy1(5000),Py1(5000),vy1(5000)
real vy1x(5000),vy1y(5000),vy1z(5000)
real Zy2(5000),Py2(5000),vy2(5000)
real vy2x(5000),vy2y(5000),vy2z(5000)
c
real Zr1(5000),Pr1(5000),vr1(5000)
real vr1x(5000),vr1y(5000),vr1z(5000)
real Zr2(5000),Pr2(5000),vr2(5000)
real vr2x(5000),vr2y(5000),vr2z(5000)
c
real Zw1(5000),Pw1(5000),vw1(5000)
real vw1x(5000),vw1y(5000),vw1z(5000)
real Zw2(5000),Pw2(5000),Vw2(5000)
real vw2x(5000),vw2y(5000),vw2z(5000)
c
real Hsl,Hy,Hr,Hw
real Ys,Yv,Ymd,Ymu,Yt
real Dp,miu,sa,cfo,wo,Rdm,Ru,Lu
real s1,s2,s3,s4,s5,s6,s7,s8,sp1,sp2
integer ncnum,numr,numz1,numz2
integer numy1,numy2,numr1,numr2,numw1,numw2
character xz,name,fluency

ycz2004

这个错误很明显，PR没有定义为数组，程序中当数组使用了，编译器将其作为函数对待，编译不会出错，连接时报错

niaomuxiong

谢谢各位高手，我已经发现错误了