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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » 其他 » marc二次开发 子程序flux导入 退出号3
81/1返回列表
查看: 2425  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿华东理工大学081700，初试分数271 +4 kotoko_ik 2026-03-23 5/250 2026-03-23 23:23 by 呆呆师姐
[考研] 0854 考研调剂 招生了！AI 方向 +4 pk3725069 2026-03-19 16/800 2026-03-23 23:09 by 汪！？！
[考研] 生物学学硕求调剂 +4 小羊睡着了? 2026-03-23 4/200 2026-03-23 21:42 by hyzs6688
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
[考研] 招08考数学 +6 laoshidan 2026-03-20 14/700 2026-03-23 14:37 by 15614359529
[考研] 求老师收我 +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
[考研] 280分求调剂 一志愿085802 +4 PUMPT 2026-03-22 7/350 2026-03-22 22:13 by 星空星月
[考研] 生物学071000 329分求调剂 +5 我爱生物生物爱� 2026-03-17 5/250 2026-03-22 16:42 by tcx007
[考研] 319求调剂 +4 小力气珂珂 2026-03-20 4/200 2026-03-22 15:53 by ColorlessPI
[考研] 求调剂 +7 Auroracx 2026-03-22 7/350 2026-03-22 12:38 by 素颜倾城1988
[考博] 招收博士1-2人 +3 QGZDSYS 2026-03-18 4/200 2026-03-22 10:25 by QGZDSYS
[基金申请] 山东省面上项目限额评审 +4 石瑞0426 2026-03-19 4/200 2026-03-22 08:50 by Wei_ren
[考研] 资源与环境 调剂申请(333分) +5 holy J 2026-03-21 5/250 2026-03-21 22:42 by Catalysis25
[考研] 279求调剂 +5 红衣隐官 2026-03-21 5/250 2026-03-21 14:59 by lature00
[考研] 070300化学319求调剂 +7 锦鲤0909 2026-03-17 7/350 2026-03-21 03:46 by JourneyLucky
[考研] 化学求调剂 +4 临泽境llllll 2026-03-17 5/250 2026-03-21 02:23 by JourneyLucky
[考研] 一志愿重庆大学085700资源与环境专硕，总分308求调剂 +3 墨墨漠 2026-03-18 3/150 2026-03-21 00:39 by JourneyLucky
[考研] 294求调剂材料与化工专硕 +15 陌の森林 2026-03-18 15/750 2026-03-20 23:28 by JourneyLucky
[考博] 申博26年 +3 八6八68 2026-03-19 3/150 2026-03-19 19:43 by nxgogo
[考研] 085600材料与化工调剂 324分 +10 llllkkkhh 2026-03-18 12/600 2026-03-19 14:33 by llllkkkhh
信息提示
关闭
请填处理意见
关闭