Lines Matching refs:numphavg
62 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg local
84 read(72,*) numphavg
104 call mpi_bcast(numphavg,1,MPI_INTEGER,0,mpi_comm_world,ierr)
127 if(numphavg .gt. 0) then
128 write(*,*) 'The phase average fields (',numphavg,
432 if(numphavg .gt. 0) then
433 do iphavg = 1,numphavg
452 allocate( yphbar(nshg,ndofyphbar,numphavg) )
468 numphavg = 0
642 if(numphavg .gt. 0) then
643 do iphavg = 1,numphavg
723 if(numphavg .gt. 0) then
724 do iphavg = 1,numphavg
784 nsynciofieldswriterestart = 1+iybar+ierror+numphavg+ivort+idwal
804 if(numphavg .gt. 0) then
805 do iphavg=1,numphavg
807 & iphavg,numphavg,yphbar(:,:,iphavg),'d',