声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 4226|回复: 1

[转帖]如何同时调用两个或两个以上的子程序

[复制链接]
发表于 2006-3-25 07:05 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
本帖最后由 wdhd 于 2016-3-16 10:42 编辑

  1.如何同时调用两个或两个以上的子程序!!

  Posted by: hansongmuchun

  Posted on: 2005-11-13 11:09

  各位大侠问个很菜的问题,如何同时调用两个或两个以上的子程序!!我现在有一个DLOAD程序,一个UGENS程序,一个材料方向的程序,怎样一起调用??谢谢各位大侠了.

  2.Re:如何同时调用两个或两个以上的子程序!!

  [Re: hansongmuchun]

  Posted by: jinlin

  Posted on: 2005-11-13 11:31

  放在同一个子程序里就可

  3.Re:如何同时调用两个或两个以上的子程序!!

  [Re: hansongmuchun]

  Posted by: wu_lei

  Posted on: 2005-11-13 12:23

  强烈建议斑竹举一个例子!谢谢

  4.Re:如何同时调用两个或两个以上的子程序!!

  [Re: hansongmuchun]

  Posted by: hansongmuchun

  Posted on: 2005-11-14 22:28

  请问怎样把这个材料子程序和载荷子程序放在同一个子程序里,能否详细点,谢谢!!

  5.Re:如何同时调用两个或两个以上的子程序!!

  [Re: hansongmuchun]

  Posted by: wang654321

  Posted on: 2005-11-25 10:28

  请把所有的subroutine放入一个文件。name it as something as "all_sub.f".

  也可以用dos命令:

  
  1. c:> copy dload.f +ori.f all_sub.f

  2.   run ABAQUS as

  3.   abaqus job=myjob user=all_sub.f

  4.   C

  5.   C Dload subroutine (dload.f)

  6.   C

  7.   SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,

  8.   1 COORDS,JLTYP,SNAME)

  9.   C

  10.   INCLUDE 'ABA_PARAM.INC'

  11.   C

  12.   DIMENSION TIME(2), COORDS (3)

  13.   CHARACTER*80 SNAME

  14.   F= 1.0*TIME(1)

  15.   RETURN

  16.   END

  17.   C

  18.   C Orientation subroutine (ori.f)

  19.   C

  20.   SUBROUTINE ORIENT(T,NOEL,NPT,LAYER,KSPT,COORDS,BASIS,

  21.   1 ORNAME,NNODES,CNODES,JNNUM)

  22.   C

  23.   INCLUDE 'ABA_PARAM.INC'

  24.   C

  25.   CHARACTER*80 ORNAME

  26.   C

  27.   DIMENSION T(3,3),COORDS(3),BASIS(3,3),CNODES(3,NNODES)

  28.   DIMENSION JNNUM(NNODES)

  29.   T(1,1) = 0.5

  30.   T(1,2) = 0.1

  31.   RETURN

  32.   END
复制代码


  6.Re:如何同时调用两个或两个以上的子程序!!

  [Re: hansongmuchun]

  Posted by: xyshangsace

  Posted on: 2005-11-25 10:32

  实际上是fortran的做法,fortran中有仔细讲,可以参考

  来自simwe
回复
分享到:

使用道具 举报

发表于 2023-11-8 10:03 | 显示全部楼层
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-7-15 05:11 , Processed in 0.054306 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表