请教个Marc的子程序的问题

syj_soc

我在子程序用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