Lines Matching refs:numphavg
79 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg, irankN local
111 read(72,*) numphavg
132 call mpi_bcast(numphavg,1,MPI_INTEGER,0,mpi_comm_world,ierr)
156 if(numphavg .gt. 0) then
157 write(*,*) 'The phase average fields (',numphavg,
446 if(numphavg .gt. 0) then
447 do iphavg = 1,numphavg
466 allocate( yphbar(nshg,ndofyphbar,numphavg) )
480 numphavg = 0
769 if(numphavg .gt. 0) then
770 allocate(yphbarN(nshgN,ndofyphbar,numphavg)) ! size of my final mapped field array
793 if(numphavg .gt. 0) then
818 & +(numphavg*ndofyphbar)+ndofvort+ndofdwal
874 if(numphavg .gt. 0) then
875 do iphavg = 1,numphavg
934 if(numphavg .gt. 0) then
935 do iphavg = 1,numphavg
948 & numphavg*ndofyphbar+idof
956 & numphavg*ndofyphbar+ndofvort+1
997 if(numphavg .gt. 0) then
998 do iphavg = 1,numphavg
1011 & numphavg*ndofyphbar+idof
1019 & numphavg*ndofyphbar+ndofvort+1
1216 if(numphavg .gt. 0) then
1405 nsynciofieldswriterestart = 1+iybar+ierror+numphavg+ivort+idwal
1436 if(numphavg .gt. 0) then
1437 do iphavg=1,numphavg
1439 & iphavg,numphavg,yphbarN(:,:,iphavg),'d',