请教个Marc的子程序的问题
我在子程序用nodvar查看节点的电势，其结果都是0，但是用marc的后处理查看去不是我的程序如下：希望大家帮我看看，
先谢谢了，我的QQ：359573746
subroutine forcdt(u,v,a,dp,du,time,dtime,ndeg,node,
* ug,xord,ncrd,iacflg,inc,ipass)
c
c
implicit real*8 (a-h,o-z) dp
dimension u(ndeg),v(ndeg),a(ndeg),dp(ndeg),du(ndeg),ug(ndeg),
* xord(ncrd)
c
c dimension valno(1)
call nodvar(17,27,valno,nqncomp,nqdatatype)
du(4)=sin(2*3.14*19*(time+dtime))-sin(2*3.14*19*time)
write(0,*)inc,nqncomp，valno(1)
c open(11,file='syj.txt',status='new')
c write(11,*) inc,nqncomp,valno
return
end
页:
[1]