Searched refs:iphavg (Results 1 – 3 of 3) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 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
[all …]
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 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,
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 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)
[all …]
|