Lines Matching refs:numphavg
64 integer :: numts, numphavg, its, isize, sumts, totsumts, debug local
85 read(24,*) numphavg
122 if(numphavg .gt. 0) then
123 write(*,*) 'The phase average fields (',numphavg,
148 call MPI_Bcast(numphavg,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
280 if(numphavg .gt. 0) then
281 do iphavg = 1,numphavg
312 allocate( qyphbarcumul(nshg2,ndofyphbar,numphavg) )
435 if(numphavg .gt. 0) then
436 do iphavg = 1,numphavg
443 …nsynciofieldswriterestart = 2 + ierror + numphavg + ivort + idwal ! 2 for solution and accumulated…
467 if(numphavg .gt. 0) then
468 do iphavg = 1,numphavg
470 & numphavg,qyphbarcumul(:,:,iphavg),'d',nshg2,ndofyphbar,
488 if(numphavg .gt. 0) then