| 查看: 2596 | 回复: 7 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
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 求大侠帮忙看看 |
回复此楼» 猜你喜欢
29号明天会评吗
已经有4人回复
-
国社科又开始会评了，不知道这次命运如何
已经有10人回复
-
梦想
已经有4人回复
-
中青基了要发朋友圈吗？
已经有6人回复
-
基金不中，共勉
已经有12人回复
-
能否申诉？
已经有7人回复
-
有多少人是今天查系统知道结果的？
已经有19人回复
-
面上意见出来了
已经有19人回复
-
为什么到现在没收到通知？
已经有5人回复
-
有没有仍没收到信息的
已经有8人回复
 本帖仅楼主可见 |
6楼2016-05-02 23:02:36
sibo080302
铁虫 (小有名气)
- 应助: 4 (幼儿园)
- 金币: 212
- 红花: 1
- 帖子: 80
- 在线: 46.2小时
- 虫号: 2531007
- 注册: 2013-07-03
- 专业: 机械摩擦学与表面技术
2楼2014-12-04 10:19:37
fangdian
木虫 (正式写手)
- 应助: 201 (大学生)
- 金币: 2836.4
- 散金: 64
- 红花: 33
- 帖子: 818
- 在线: 206.9小时
- 虫号: 1926821
- 注册: 2012-08-06
- 专业: 多相流热物理学
3楼2015-01-13 10:14:42
fangdian
木虫 (正式写手)
- 应助: 201 (大学生)
- 金币: 2836.4
- 散金: 64
- 红花: 33
- 帖子: 818
- 在线: 206.9小时
- 虫号: 1926821
- 注册: 2012-08-06
- 专业: 多相流热物理学
4楼2015-01-13 19:57:21
投票:
30