Lines Matching refs:qold
16 real*8, allocatable :: qold(:,:) variable
353 allocate( qold(nshg,ndof2) )
358 qold(:,1:ndof)=qread(:,1:ndof)
370 qold=zero
372 qold(:,1)=one ! avoid zero pressure
373 qold(:,nflow)=one ! avoid zero temperature
859 qoldN(intvID,idof) = qold(i,idof)
979 qsend( (ifill-1)*numvar+sumvar) = qold(i,idof)
1157 write(700+ifileN) intvID,(qold(i,j),j=1,ndof)
1159 write(700+ifileN,925) intvID,(qold(i,j),j=1,ndof)
1209 deallocate(qold)