Lines Matching refs:iphavg
62 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg local
433 do iphavg = 1,numphavg
435 itmp2 = int(log10(float(iphavg)))+1
439 write (fname1,temp1) iphavg,(myrank+1),'?'
451 if(iphavg==1) then
460 yphbar(1:nshg2,1:ndofyphbar,iphavg) =
469 if(iphavg > 1) then
643 do iphavg = 1,numphavg
644 call commuMax (yphbar(:,:,iphavg), point2ilwork,
646 call commuMax (yphbar(:,:,iphavg), point2ilwork,
724 do iphavg = 1,numphavg
726 call mpi_allreduce(maxval(yphbar(:,idof,iphavg)), globmax,1,
728 call mpi_allreduce(minval(yphbar(:,idof,iphavg)), globmin,1,
731 write(*,926) 'max/min yphbar(',idof,iphavg,'):',
805 do iphavg=1,numphavg
807 & iphavg,numphavg,yphbar(:,:,iphavg),'d',