Lines Matching refs:iphavg
65 integer :: ierror, idwal, iphavg, ivort, ndofvort local
281 do iphavg = 1,numphavg
283 itmp2 = int(log10(float(iphavg)))+1
290 write (fname1,temp1) iphavg,(myrank+1),'?'
295 & iphavg,' - field: ',trim(fname1)
311 if(its==1 .and. iphavg==1) then
322 qyphbarcumul(:,:,iphavg) = qyphbarcumul(:,:,iphavg)
436 do iphavg = 1,numphavg
437 qyphbarcumul(:,:,iphavg) = qyphbarcumul(:,:,iphavg)/totsumts
468 do iphavg = 1,numphavg
469 call write_phavg2(myrank,'a','phase_average',13,iphavg,
470 & numphavg,qyphbarcumul(:,:,iphavg),'d',nshg2,ndofyphbar,