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

TNC

　　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. 
   
3. 　　run ABAQUS as
   
4. 
   
5. 　　abaqus job=myjob user=all_sub.f
   
6. 
   
7. 　　C
   
8. 
   
9. 　　C Dload subroutine (dload.f)
   
10. 
    
11. 　　C
    
12. 
    
13. 　　SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,
    
14. 
    
15. 　　1 COORDS,JLTYP,SNAME)
    
16. 
    
17. 　　C
    
18. 
    
19. 　　INCLUDE 'ABA_PARAM.INC'
    
20. 
    
21. 　　C
    
22. 
    
23. 　　DIMENSION TIME(2), COORDS (3)
    
24. 
    
25. 　　CHARACTER*80 SNAME
    
26. 
    
27. 　　F= 1.0*TIME(1)
    
28. 
    
29. 　　RETURN
    
30. 
    
31. 　　END
    
32. 
    
33. 　　C
    
34. 
    
35. 　　C Orientation subroutine (ori.f)
    
36. 
    
37. 　　C
    
38. 
    
39. 　　SUBROUTINE ORIENT(T,NOEL,NPT,LAYER,KSPT,COORDS,BASIS,
    
40. 
    
41. 　　1 ORNAME,NNODES,CNODES,JNNUM)
    
42. 
    
43. 　　C
    
44. 
    
45. 　　INCLUDE 'ABA_PARAM.INC'
    
46. 
    
47. 　　C
    
48. 
    
49. 　　CHARACTER*80 ORNAME
    
50. 
    
51. 　　C
    
52. 
    
53. 　　DIMENSION T(3,3),COORDS(3),BASIS(3,3),CNODES(3,NNODES)
    
54. 
    
55. 　　DIMENSION JNNUM(NNODES)
    
56. 
    
57. 　　T(1,1) = 0.5
    
58. 
    
59. 　　T(1,2) = 0.1
    
60. 
    
61. 　　RETURN
    
62. 
    
63. 　　END

复制代码

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

　　[Re: hansongmuchun]

　　Posted by: xyshangsace

　　Posted on: 2005-11-25 10:32

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

　　来自simwe

tonan_888@163.c