Lines Matching refs:qold
16 real*8, allocatable :: qold(:,:) variable
330 allocate( qold(nshg,ndof) )
331 qold(:,:) = -9.87654321e32
346 qold(1:nshg2,1:ndof2)=qread(1:nshg2,1:ndof2)
357 qold=zero
359 qold(:,1)=one ! avoid zero pressure
360 qold(:,nflow)=one ! avoid zero temperature
621 call commuMax (qold, point2ilwork, ndof, 'in '//char(0))
622 call commuMax (qold, point2ilwork, ndof, 'out'//char(0))
678 call mpi_allreduce(maxval(qold(:,idof)),globmax,1,MPI_DOUBLE,
680 call mpi_allreduce(minval(qold(:,idof)),globmin,1,MPI_DOUBLE,
786 & ndof, qold)
787 deallocate(qold)