[转帖]如何同时调用两个或两个以上的子程序
本帖最后由 wdhd 于 2016-3-16 10:42 编辑1.如何同时调用两个或两个以上的子程序!!
Posted by: hansongmuchun
Posted on: 2005-11-13 11:09
各位大侠问个很菜的问题,如何同时调用两个或两个以上的子程序!!我现在有一个DLOAD程序,一个UGENS程序,一个材料方向的程序,怎样一起调用??谢谢各位大侠了.
2.Re:如何同时调用两个或两个以上的子程序!!
Posted by: jinlin
Posted on: 2005-11-13 11:31
放在同一个子程序里就可
3.Re:如何同时调用两个或两个以上的子程序!!
Posted by: wu_lei
Posted on: 2005-11-13 12:23
强烈建议斑竹举一个例子!谢谢
4.Re:如何同时调用两个或两个以上的子程序!!
Posted by: hansongmuchun
Posted on: 2005-11-14 22:28
请问怎样把这个材料子程序和载荷子程序放在同一个子程序里,能否详细点,谢谢!!
5.Re:如何同时调用两个或两个以上的子程序!!
Posted by: wang654321
Posted on: 2005-11-25 10:28
请把所有的subroutine放入一个文件。name it as something as "all_sub.f".
也可以用dos命令：
c:> copy dload.f +ori.f all_sub.f
run ABAQUS as
abaqus job=myjob user=all_sub.f
C
C Dload subroutine (dload.f)
C
SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,
1 COORDS,JLTYP,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION TIME(2), COORDS (3)
CHARACTER*80 SNAME
F= 1.0*TIME(1)
RETURN
END
C
C Orientation subroutine (ori.f)
C
SUBROUTINE ORIENT(T,NOEL,NPT,LAYER,KSPT,COORDS,BASIS,
1 ORNAME,NNODES,CNODES,JNNUM)
C
INCLUDE 'ABA_PARAM.INC'
C
CHARACTER*80 ORNAME
C
DIMENSION T(3,3),COORDS(3),BASIS(3,3),CNODES(3,NNODES)
DIMENSION JNNUM(NNODES)
T(1,1) = 0.5
T(1,2) = 0.1
RETURN
END
6.Re:如何同时调用两个或两个以上的子程序!!
Posted by: xyshangsace
Posted on: 2005-11-25 10:32
实际上是fortran的做法，fortran中有仔细讲，可以参考
来自simwe
{:3_53:}{:3_53:}{:3_53:}
页:
[1]