应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » 其他 » marc二次开发 子程序flux导入 退出号3
81/1返回列表
查看: 2443  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

viegwang

铜虫 (小有名气)

[求助] 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
求大侠帮忙看看
回复此楼

» 猜你喜欢
1楼 2014-11-04 11:11:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sibo080302

铁虫 (小有名气)

【答案】应助回帖

呵呵，楼主不上传模型，光让我们看源代码怎么看出错误啊。
赞一下 回复此楼
2楼2014-12-04 10:19:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fangdian

木虫 (正式写手)
你这个子程序是双椭球热源形式，软件自带的那个体热源和这个一样，会有冲突不？我对Marc了解不多，就是问问哈。
赞一下 回复此楼
3楼2015-01-13 10:14:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fangdian

木虫 (正式写手)
你程序没有问题，应该是连接的问题，也就是说子程序的Fortran安装与环境变量设置的问题。
赞一下(3人) 回复此楼
4楼2015-01-13 19:57:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gkang

新虫 (初入文坛)
引用回帖:
4楼: Originally posted by fangdian at 2015-01-13 19:57:21
你程序没有问题，应该是连接的问题，也就是说子程序的Fortran安装与环境变量设置的问题。

你好，可以加个球球好友，请教一下问题吗，谢谢
赞一下 回复此楼
5楼2015-04-07 13:37:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (小有名气)
本帖仅楼主可见
6楼2016-05-02 23:02:36
已阅   申请仿真EPI   回复此楼   编辑   查看我的主页

玲珑133

新虫 (著名写手)
您好，您的这个问题解决了吗？我也遇到了类似的问题，我报错：无法打开输入文件“test_job1.tmp”
赞一下 回复此楼
好好干活
7楼2019-01-22 17:12:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ljz1600610

新虫 (正式写手)
引用回帖:
7楼: Originally posted by 玲珑133 at 2019-01-22 17:12:16
您好，您的这个问题解决了吗？我也遇到了类似的问题，我报错：无法打开输入文件“test_job1.tmp”

请问您这个问题解决了吗？

发自小木虫Android客户端
赞一下 回复此楼
8楼2020-05-14 12:15:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 viegwang 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 化学工程085602 305分求调剂 +13 RichLi_ 2026-03-25 13/650 2026-03-26 14:35 by xiongkun222
[考研] 一志愿厦门大学化学学硕307求调剂 +5 y7czhao 2026-03-26 5/250 2026-03-26 14:31 by 哒哒哒呱呱呱
[考研] 材料学硕297已过四六级求调剂推荐 +13 adaie 2026-03-19 13/650 2026-03-26 14:05 by 小小麦片
[考研] 一志愿北京化工大学材料与化工（085600）296求调剂 +5 稻妻小编 2026-03-26 5/250 2026-03-26 13:32 by yujianx
[考研] 263求调剂 +6 yqdszhdap－ 2026-03-22 10/500 2026-03-26 13:11 by 公瑾逍遥
[考研] 生物技术与工程 +3 1294608413 2026-03-25 4/200 2026-03-25 18:02 by 1294608413
[考研] 材料277求调剂 +4 min3 2026-03-24 4/200 2026-03-25 15:29 by fch1983
[考研] 271求调剂 +4 生如夏花… 2026-03-22 4/200 2026-03-25 11:25 by userper
[考研] 一志愿武理085500机械专业总分300求调剂 +3 an10101 2026-03-24 7/350 2026-03-25 00:00 by 山鬼0-
[考研] 300分，材料，求调剂，英一数二 +5 超赞的 2026-03-24 5/250 2026-03-24 21:07 by 星空星月
[考研] 一志愿河北工业大学0817化工278分求调剂 +7 jhybd 2026-03-23 12/600 2026-03-24 09:03 by jhybd
[考研] 335求调剂 +4 yuyu宇 2026-03-23 5/250 2026-03-23 23:49 by Txy@872106
[考研] 求调剂 +7 十三加油 2026-03-21 7/350 2026-03-23 23:48 by 热情沙漠
[考研] 环境学硕288求调剂 +8 皮皮皮123456 2026-03-22 8/400 2026-03-23 23:47 by 热情沙漠
[考研] 化学308分求调剂 +3 你好明天你好 2026-03-23 3/150 2026-03-23 20:11 by macy2011
[考研] 一志愿陕师大生物学071000，298分，求调剂 +3 SYA！ 2026-03-23 3/150 2026-03-23 19:09 by macy2011
[考研] 070300，一志愿北航320求调剂 +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by 。。堂堂
[考研] 275求调剂 +6 shansx 2026-03-22 8/400 2026-03-22 15:27 by barlinike
[考研] 一志愿南大，0703化学，分数336，求调剂 +3 收到VS 2026-03-21 3/150 2026-03-21 18:42 by 学员8dgXkO
[考研] 353求调剂 +3 拉钩不许变 2026-03-20 3/150 2026-03-20 19:56 by JourneyLucky
信息提示
关闭
请填处理意见
关闭