Lines Matching refs:ndof
45 dimension y(nshg,ndof), ac(nshg,ndof),
46 & yold(nshg,ndof), acold(nshg,ndof),
52 & rest(nshg), solinc(nshg,ndof)
60 dimension ifath(numnp), velbar(nfath,ndof), nsons(nfath)
61 …real*8 rerr(nshg,10),ybar(nshg,ndof+8) ! 8 is for avg. of square as uu, vv, ww, pp, TT, uv, uw, an…
197 ybar(:,1:ndof) = y(:,1:ndof)
199 ybar(:,ndof+idof) = y(:,idof)*y(:,idof)
201 ybar(:,ndof+6) = y(:,1)*y(:,2)
202 ybar(:,ndof+7) = y(:,1)*y(:,3)
203 ybar(:,ndof+8) = y(:,2)*y(:,3)
342 yold(:,6:ndof)=y(:,6:ndof)*tdecay
718 do idof=1,ndof
725 ybar(:,ndof+idof) = tfact*yold(:,idof)**2 +
726 & (one-tfact)*ybar(:,ndof+idof)
728 ybar(:,ndof+6) = tfact*yold(:,1)*yold(:,2) + !uv
729 & (one-tfact)*ybar(:,ndof+6)
730 ybar(:,ndof+7) = tfact*yold(:,1)*yold(:,3) + !uw
731 & (one-tfact)*ybar(:,ndof+7)
732 ybar(:,ndof+8) = tfact*yold(:,2)*yold(:,3) + !vw
733 & (one-tfact)*ybar(:,ndof+8)
876 real*8 velbar(nfath,ndof),
877 & yold(nshg,ndof), acold(nshg,ndof),
878 & rerr(nshg,10), ybar(nshg,ndof+8)
907 & ybar,'d'//char(0),nshg,ndof+8,lstep)