marc子程序不正确，求大神帮忙看一下

jakiepeng

子程序如下：
subroutine wkslp(m,nn,kc,mats,dy,x,erat,y,dt,ifirst)
c
      implicit real*8(a-h,o-z)
c* * * * * *
      y0=1.D+03
      yinf=1.3D+03
      xinf=6.D-01
      fac1=yinf-y0
      alpha=x/xinf
      y=y0+fac1*alpha*(2.D0-alpha)
      dy=fac1*2.D0*(1.D0-alpha)/xinf
        return
      end
log文件：
Marc 2010.1.0 , Build  66784  Windows_NT version
--------------------------------
                     :         
Program name         : marc  
Job ID               : C:\Users\z\desktop\marc\shili_job1   
Version type         : i4  
User subroutine name : uwkslpl  
User objects/libs    :   
Restart file job ID  :   
Substructure file ID :   
Post file job ID     :   
Defaults file ID     :   
View factor file ID  :   
Save generated module: no
MPI library          : intel-mpi
Auto restart         : 0  
Contact decoupling   : 0
DDM processes        : 0
Solver processes     : 0
Host file            :   
Distributed i/o      :   
Run directory        : C:\Users\z\desktop\marc
Scratch directory    : C:\Users\z\desktop\marc
Default bin directory: D:\MSC.Software\Marc\2010\marc2010\bin\win64
Material database    : D:\MSC.Software\Marc\2010\marc2010\AF_flowmat\   
                     :            
ifort  /Qfpp /c /DWIN32_intel  -D_IMPLICITNONE /nologo   -DOPENMP -DMKL -D_MSCMARC -DWIN64 /I"D:\MSC.Software\Marc\2010\marc2010\common" /I"D:\MSC.Software\Marc\2010\marc2010\bcssolver\common" /I"D:\MSC.Software\Marc\2010\marc2010\mumpssolver\include" /I"D:\MSC.Software\Marc\2010\marc2010\intelmpi\win64\include" /O2 /Qip /Qsave /Qzero /Qvec- /switch:fe_old_modvar /W0   -DCASI -DPARDISO -DMUMPS /MT /object:"C:\Users\z\desktop\marc\uwkslpl.obj"  "C:\Users\z\desktop\marc\uwkslpl.f"

LINK /nologo  /out:"uwkslpl.exe" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\main.obj" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\blkdta.obj" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\comm1.obj" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\comm2.obj" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\comm3.obj" "C:\Users\z\desktop\marc\uwkslpl.obj"  "D:\MSC.Software\Marc\2010\marc2010\lib\win64\srclib.lib" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\mcvfit.lib" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\mnflib.lib" ""D:\MSC.Software\Marc\2010\marc2010\lib\win64\md_user.lib"" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\mdsrc.lib"  "D:\MSC.Software\Marc\2010\marc2010\lib\win64\bcslib.lib" "D:\MSC.Software\Marc\2010\marc2010\intelmkl\win64\mkl_intel_lp64.lib" "D:\MSC.Software\Marc\2010\marc2010\intelmkl\win64\mkl_intel_thread.lib" "D:\MSC.Software\Marc\2010\marc2010\intelmkl\win64\mkl_core.lib" "D:\MSC.Software\Marc\2010\marc2010\intelmkl\win64\libguide.lib" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\blas_src.lib"  "D:\MSC.Software\Marc\2010\marc2010\lib\win64\casilib.lib" "D:\MSC.Software\Marc\2010\marc2010\intelmkl\win64\mkl_solver_lp64.lib"  "D:\MSC.Software\Marc\2010\marc2010\lib\win64\zmumps.lib" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\dmumps.lib" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\libpord.lib" "D:\MSC.Software\Marc\2010\marc2010\intelmkl\win64\mkl_scalapack_lp64.lib" "D:\MSC.Software\Marc\2010\marc2010\intelmkl\win64\mkl_lapack.lib"  ""D:\MSC.Software\Marc\2010\marc2010\intelmkl\win64\mkl_blacs_intelmpi_lp64.lib""    "D:\MSC.Software\Marc\2010\marc2010\lib\win64\stubs.lib" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\clib.lib" "D:\MSC.Software\Marc\2010\marc2010\lib\win64\metislib.lib" "D:\MSC.Software\Marc\2010\marc2010\xdr_lib\win64\xdr_irc.lib" /release /subsystem:console /incremental:no /nodefaultlib:libc.lib libmmt.lib libifcoremt.lib /LIBPATH:"D:\MSC.Software\Marc\2010\marc2010\intelmpi\win64\lib" impi.lib ws2_32.lib kernel32.lib user32.lib netapi32.lib advapi32.lib comdlg32.lib comctl32.lib
mnflib.lib(mnftools.obj) : error LNK2019: unresolved external symbol _winver referenced in function MNF_uname
mnflib.lib(mnftools.obj) : error LNK2019: unresolved external symbol _osver referenced in function MNF_uname
mnflib.lib(mnftools.obj) : error LNK2019: unresolved external symbol _winmajor referenced in function MNF_uname
mnflib.lib(mnftools.obj) : error LNK2019: unresolved external symbol _winminor referenced in function MNF_uname
uwkslpl.exe : fatal error LNK1120: 4 unresolved externals
link failed for uwkslpl.obj
          Marc 2010.1.0 Exit number 3
新学的marc子程序，安装调用都不会，不懂问题在哪，求帮忙

liuxinpeng

看log文件是marc与fortran没连接上

puma21

intel fortran 版本对不？

corehearty

最好能上传代码

51465

你的Fortran没连接上