24小时热门版块排行榜

返回列表

viegwang

铜虫 (小有名气)

应助: 2 (幼儿园)
金币: 496.2
红花: 1
帖子: 53
在线: 19小时
虫号: 3036227
注册: 2014-03-10
专业: 零件成形制造

[求助] marc二次开发子程序flux导入退出号3 已有1人参与

附log文件
Marc 2013.0.0 , Build  194640  Windows_NT version
--------------------------------
                  :
Program name       : marc
Job ID             : C:\Users\Administrator\double goal_job1
Version type       : i8
User subroutine name : flux (2)
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
GPGPU option       :
Host file          :
Distributed i/o    :
Run directory       : C:\Users\Administrator
Scratch directory : C:\Users\Administrator
Default bin directory: C:\MSC.Software\Marc\2013.0.0\marc2013\bin\win64i8
Material database : C:\MSC.Software\Marc\2013.0.0\marc2013\AF_flowmat\
                  :
ifort  /fpp /c /DWIN32_intel  -D_IMPLICITNONE /nologo /integer_size:64 -DI64 -DOPENMP -DMKL -D_MSCMARC -DWIN64 /I"C:\MSC.Software\Marc\2013.0.0\marc2013\common" /I"C:\MSC.Software\Marc\2013.0.0\marc2013\bcsgpusolver\common" /I"C:\MSC.Software\Marc\2013.0.0\marc2013\mumpssolver\include" /I"C:\MSC.Software\Marc\2013.0.0\marc2013\intelmpi\win64\include" /O2 /Qip /Qsave /Qzero /Qvec- /switch:fe_old_modvar /W0 -DCASI -DPARDISO -DMUMPS -DBCSGPU -DCUDA /MD -DDDM /object:"C:\Users\Administrator\flux (2).obj"  "E:\userprogram\flux (2).f"
ifort: command line warning #10161: unrecognized source type 'goal_job1.tmp'; object file assumed
ifort: warning #10145: no action performed for file 'goal_job1.tmp'

LINK /nologo  /out:"flux (2).exe" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\main.obj" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\blkdta.obj" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\comm1.obj" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\comm2.obj" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\comm3.obj" "C:\Users\Administrator\flux (2).obj"  "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\srclib.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\mcvfit.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\mnflib.lib" ""C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\md_user.lib"" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\mdsrc.lib"  "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\bcsgpulib.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\marccuda.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\intelmkl\win64i8\mkl_intel_ilp64.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\intelmkl\win64i8\mkl_intel_thread.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\intelmkl\win64i8\mkl_core.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\intelmkl\win64i8\libiomp5mt.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\blas_src.lib"  "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\casilib.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\intelmkl\win64i8\mkl_solver_ilp64.lib"  "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\mumps.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\intelmkl\win64i8\mkl_scalapack_ilp64.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\intelmkl\win64i8\mkl_lapack95_ilp64.lib"  ""C:\MSC.Software\Marc\2013.0.0\marc2013\intelmkl\win64i8\mkl_blacs_intelmpi_ilp64.lib"" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\stubs.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\clib.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\lib\win64i8\metislib.lib" "C:\MSC.Software\Marc\2013.0.0\marc2013\xdr_lib\win64\xdr_irc.lib" /release /subsystem:console /incremental:no /nodefaultlib:libc.lib /nodefaultlib:libcmt.lib /nodefaultlib:libifcoremt.lib libmmd.lib libifcoremd.lib /LIBPATH:"C:\MSC.Software\Marc\2013.0.0\marc2013\intelmpi\win64\lib" impi.lib ws2_32.lib kernel32.lib user32.lib netapi32.lib advapi32.lib comdlg32.lib comctl32.lib
LINK : fatal error LNK1181: 无法打开输入文件“goal_job1.tmp”
link failed for flux (2).obj
      Marc 2013.0.0 Exit number 3
附源代码：
subroutine flux(f,temflu,mibody,time)
   implicit real*8 (a-h,o-z)
c    ** Start of generated type statements **
   real*8 f
   integer mibody
   real*8 temflu, time
c    ** End of generated type statements **
   dimension f(2),mibody(*),temflu(*)
c* * * * * *
c
c    user subroutine for non-uniform flux input.
c
c    f(1)       flux value (to be defined)
c    f(2)       derivative of flux with respect to temperature
c                (to be defined; optional, this might improve the
c                convergence behavior)
c
c    temflu(1) estimated temperature
c    temflu(2) previous volumetric flux
c    temflu(3) temperature at beginning of increment
c    temflu(4,5,6)integration point coordinates
c    mibody(1) element number
c    mibody(2) flux type
c    mibody(3) integration point number
c    mibody(4) flux index - not used if table input
c    mibody(5) not used
c    mibody(6) =1 : heat transfer
c                =2 : joule
c                =3 : bearing
c                =4 : electrostatic
c                =5 : magnetostatic
c                =6 : acoustic
c    mibody(7) internal element number
c    mibody(8) layer number for heat transfer shells elements
c                and volume flux
c    mibody(9) Not used
c    mibody(10) boundary condition number if table input
c    time       time
c
c* * * * * *
   a=0.005
   b=0.005
   c=0.01
   v=0.002
   d=v*time
   q=3000*0.7
   pi=3.14
   x=temflu(4)
   y=temflu(5)
   z=temflu(6)
   y0=0.02
   x0=0.3
   heat=6*sqrt(3.0)*q/(a*b*c*pi)
   ex=exp(-3*(z-d)**2/c**2-3*(y-y0)**2/b**2-3*(x-x0)**2/a**2)
   f(1)=heat*ex
   return
   end

源程序编译ok  0error  0warning
求大侠帮忙看看

回复此楼