Lines Matching refs:ndofvort
480 ndofvort=0
491 ndofvort=intfromfile(2)
494 if(ndofvort .ne. 0) then
495 allocate(vort(nshg,ndofvort))
497 allocate(qread(nshg2,ndofvort))
498 iqsiz = nshg2*ndofvort
501 vort(1:nshg2,1:ndofvort)=qread(1:nshg2,1:ndofvort)
654 call commuMax (vort, point2ilwork, ndofvort, 'in '//char(0))
655 call commuMax (vort, point2ilwork, ndofvort, 'out'//char(0))
743 do idof=1,ndofvort
816 & nshg,ndofvort,lstep)