| 查看: 2469 | 回复: 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 求大侠帮忙看看 |
回复此楼» 猜你喜欢
327求调剂
已经有28人回复
-
一志愿中科大材料与化工，353分还有调剂学校吗
已经有6人回复
-
0854求调剂
已经有17人回复
-
售SCI一区文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急
已经有3人回复
-
药学求调剂
已经有15人回复
-
初试324 中药学 一志愿天中医 求调剂
已经有4人回复
-
279学硕食品专业求调剂院校
已经有29人回复
-
294求调剂
已经有10人回复
-
恳请有学校收留
已经有6人回复
-
求调剂推荐
已经有8人回复
玲珑133
新虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 3500.9
- 散金: 1101
- 红花: 3
- 帖子: 1255
- 在线: 414.4小时
- 虫号: 1376993
- 注册: 2011-08-23
- 性别: GG
- 专业: 核技术及其应用
7楼2019-01-22 17:12:16
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
