Lines Matching refs:iphavg
79 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg, irankN local
447 do iphavg = 1,numphavg
449 itmp2 = int(log10(float(iphavg)))+1
453 write (fname1,temp1) iphavg,(myrank+1),'?'
465 if(iphavg==1) then
473 yphbar(:,:,iphavg) = qread(:,:)
481 if(iphavg > 1) then
875 do iphavg = 1,numphavg
877 yphbarN(intvID,idof,iphavg) =
878 & yphbar(i,idof,iphavg)
935 do iphavg = 1,numphavg
938 & (iphavg-1)*ndofyphbar+idof
939 yphbarN(intvID,idof,iphavg) =
998 do iphavg = 1,numphavg
1001 & (iphavg-1)*ndofyphbar+idof
1003 & yphbar(i,idof,iphavg)
1437 do iphavg=1,numphavg
1439 & iphavg,numphavg,yphbarN(:,:,iphavg),'d',