Searched refs:numphavg (Results 1 – 3 of 3) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 64 integer :: numts, numphavg, its, isize, sumts, totsumts, debug local
85 read(24,*) numphavg
122 if(numphavg .gt. 0) then
123 write(*,*) 'The phase average fields (',numphavg,
148 call MPI_Bcast(numphavg,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
280 if(numphavg .gt. 0) then
281 do iphavg = 1,numphavg
312 allocate( qyphbarcumul(nshg2,ndofyphbar,numphavg) )
435 if(numphavg .gt. 0) then
436 do iphavg = 1,numphavg
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 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
[all …]
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 62 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg local
84 read(72,*) numphavg
104 call mpi_bcast(numphavg,1,MPI_INTEGER,0,mpi_comm_world,ierr)
127 if(numphavg .gt. 0) then
128 write(*,*) 'The phase average fields (',numphavg,
432 if(numphavg .gt. 0) then
433 do iphavg = 1,numphavg
452 allocate( yphbar(nshg,ndofyphbar,numphavg) )
468 numphavg = 0
642 if(numphavg .gt. 0) then
[all …]
|