【原创】子程序应用总结

duanyuanpei

请问:这个子程序你编译过吗?
我也做过这个例子,可是编译的时候发现这个子程序有点错误,修改以后才通过的,
你编译一下试试看

xinjin

nod，原书上的那个程序好像有点错误，我记不起来当时自己改了个什么就可以run了

duanyuanpei

我当时是把这个句子该了
   if(th1(1).le.xmax.and.th1(1).ge.xmin.and.  
      $ th1(2).le.ymax.and.th1(2).ge.ymin)press=2.0d0  
             
  
该为两句:
                   if(th1(1).le.xmax.and.th1(1).ge.xmin) then
                   if( th1(2).le.ymax.and.th1(2).ge.ymin)then         
                       
                   press=2.0d0  
                   endif
                   endif
你试试看吧

ych

可以看out檔，一般都會寫訊息，在這個子程式中會有問題的，應該是fortran
在對 if(th1(1).le.xmax.and.th1(1).ge.xmin.and.  
      $ th1(2).le.ymax.and.th1(2).ge.ymin)press=2.0d0  
這2行字格式complie有問題，可以看fortran的書。

liulangtiany

强奸了本贴的标题！
亵渎了楼主的好意！

liulangtiany

[quote]飞龙再生 wrote:
   subroutine forcem(press,th1,th2,nn,n)
      implicit real*8 (a-h,o-z)                                             
      dimension th1(3),th2(3),n(7)
   include'c:/MSC/marc2003/common/creeps'
c
c* * * * * *
c
c     defined non-uniformed distributed force on an element.
c
c     press        distributed load increment magnitude
c     th1          coordinate
c     th2          coordinate
c     nn           integration point number
c     n            element number,etc
c
c* * * * * *
c
c   
  
这种烂帖还帖
真恶心！
  
眼睛不好使还是砸滴！？？？

liulangtiany

ych wrote:
可以看out檔，一般都會寫訊息，在這個子程式中會有問題的，應該是fortran
在對 if(th1(1).le.xmax.and.th1(1).ge.xmin.and.  
      $ th1(2).le.ymax.and.th1(2).ge.ymin)press=2.0d0  
這2行字格式complie有問題，可以看fortran的書。

  
看来做斑竹得确实很辛苦滴！！！

zhangjinf

飞龙再生 ，这个是说子程序没有主程序，不能生成exe文件，你是在fortran里面编译的，我也遇过这个问题，但在marc里面好像是只需要编译通过就可以了，不生成exe文件的。连接有问题可能是别的问题，只要子程序编译通过，应该没什么问题的

simulationstar

版主很辛苦，在次表示感谢！
子程序我涉及的不多，还提不出像样的问题！

天天向上吗

我现在装了fortran和marc。连不上，是不是把Marc卸载，再重装marc就可以了？

hsmy

我也连不上，ｍａｒｃ２００５和ｖｆ６．５行不行阿？　我以前是先装的ｍａｒｃ然后装的ｖｆ，就连不上，然后我又卸了ｍａｒｃ重装的，现在还是连不上５５５５５５！望高手指点

lglwait

我还没用到过子程序，请问在什么书中有这方面的介绍，敬盼回帖，谢谢！

hsmy

MSC.Marc二次开发指南
　　　陈红火　　尹伟奇　　薛小香　编著

科学出版社出版

websim

我上次也为子程序的连接郁闷了好久，按照版上各位大侠的提示，反复装卸了好多次fortran和marc，还是连接有问题。后来干脆重装系统，还是不行：（老是提醒我有一个什么security之类的错误。
      在我同学的建议下，我把norton防火墙关了，之后就一切ok了：）

cygalice

因为看了此贴，才解决了困扰很久的问题，谢谢！