Home
last modified time | relevance | path

Searched refs:numpe (Results 1 – 25 of 99) sorted by relevance

1234

/phasta/phSolver/common/
H A Dsonfath.f2 & numpe, numnp, maxnode) argument
9 integer inform,n1m,n2m,n3m,numpe,numpe1,numnp,maxnode, tfath, local
11 integer gfath(0:numnp),ifath(numpe,maxnode),ncorp(numpe,maxnode),
12 & nsons(tfath),dummy(numnp),iper(numnp), vnumnpl(numpe)
53 if (numpe.eq.1)then
72 if(numpe.gt.1)then
73 do j = 1, numpe
103 if(numpe.gt.1)then
104 do j = 1, numpe
145 do i = 1, numpe
H A Dturbsa.f50 integer nwall(numpe), idisp(numpe), npwmark(numnp)
128 if (numpe.gt.1) then ! multiple processors
134 do j=1,numpe
146 if (numpe.gt.1) then ! multiple processors
170 do j=2,numpe
H A Dmpitools.f13 if (numpe > 1) then
44 if (numpe > 1) then
77 if (numpe > 1) then
115 if (numpe > 1) then
158 if (numpe > 1) then
202 if (numpe > 1) then
H A Dnew_interface.c47 isThisRank=workfc.numpe+1; in rgetMinMaxAvg()
53 isThisRank=workfc.numpe+1; in rgetMinMaxAvg()
59 stats[2] /= workfc.numpe; in rgetMinMaxAvg()
63 sqValueAvg /= workfc.numpe; in rgetMinMaxAvg()
265 numparts = workfc.numpe; in Write_Restart()
266 nprocs = workfc.numpe; in Write_Restart()
348 numparts = workfc.numpe; in Write_Error()
349 nprocs = workfc.numpe; in Write_Error()
409 numparts = workfc.numpe; in Write_Field()
410 nprocs = workfc.numpe; in Write_Field()
[all …]
H A Dqpbc.f36 if (numpe > 1) then
89 if(numpe > 1) then
140 if (numpe > 1) then
172 if(numpe > 1) then
H A Dd2wall.c37 numparts = workfc.numpe; in read_d2wall()
39 nprocs = workfc.numpe; in read_d2wall()
H A Dmemoryusage.c45 …if (workfc.myrank == 0 || workfc.myrank == (workfc.numpe/2) || workfc.myrank == (workfc.numpe-1) )… in printmeminfo()
H A Dgetdmc.f115 if(numpe>1) call commu (fres, ilwork, 24, 'in ')
134 if(numpe>1) call commu (fres, ilwork, 24, 'out')
217 if (numpe.gt.1 .and. nsons(1).gt.1) then
276 if(numpe .gt. 1 .and. ihomog.eq.1 )then
365 if(numpe>1) then
H A Dproces.f223 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
232 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
244 if(numpe.gt.1) then
H A Dgenbc.f291 if (numpe.gt.1) then
306 if (numpe.gt.1) then
540 integer nsid(numpe) ! array of nsidl's
541 integer idisp(numpe) ! needed by mpi: see note below
615 if (numpe.gt.1) then ! multiple processors
621 do j=1,numpe
636 if (numpe.gt.1) then ! multiple processors
660 do j=2,numpe
/phasta/phSolver/incompressible/
H A Dforces.f31 if (numpe > 1) then
35 if (numpe.eq.1)
38 if ((myrank .eq. master).and.(numpe > 1)) then
58 if (numpe > 1) then
69 if (numpe > 1) then
145 if (numpe .gt. 1) then
193 iv_totnodes = numpe/iv_rankpernode
218 & irankfilesforce(isrf) .ge. numpe) then
222 irankfilesforce(isrf) = numpe-1
239 if ( numpe > 1 ) then
H A DsolveGradV.f21 if (numpe > 1) then
54 if(numpe > 1) then
H A DadvLES.f606 if(numpe>1) call commu (fres, ilwork, 24, 'in ')
626 if (numpe.gt.1) then
739 if(numpe.gt.1) then
1013 if(numpe>1) call commu (hfres, ilwork, 16, 'in ')
1032 if(numpe>1) call commu (hfres, ilwork, 16, 'out')
1069 if(numpe>1) call commu (fres, ilwork, 33, 'in ')
1087 if(numpe>1)then
1165 if (numpe.gt.1) then
1215 if(numpe .gt. 1)then
1250 if (numpe .gt. 1) then
[all …]
H A Ditrdrv.f128 if(numpe.gt.0 .and. myrank.ne.master)iverbose=0
268 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
648 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
656 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
672 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
677 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
700 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
713 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
723 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
729 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
[all …]
/phasta/phSolver/compressible/
H A Dd2wall.f18 & nwall(numpe), idisp(numpe)
72 if (numpe.gt.1) then
76 do j=1,numpe
87 if (numpe.gt.1) then
89 do j=2,numpe
H A DrstatCheck.f30 if (numpe == 1) nshgt=nshg ! global = this processor
47 if (numpe > 1) then
77 if (numpe > 1) call MPI_BARRIER(MPI_COMM_WORLD, ierr)
119 if (numpe == 1) nshgt=nshg ! global = this processor
136 if (numpe > 1) then
H A Drstat.f36 if (numpe == 1) nshgt=nshg ! global = this processor
40 if (numpe > 1) then
76 if (numpe > 1) then
180 if (numpe == 1) nshgt=nshg ! global = this processor
197 if (numpe > 1) then
286 if (numpe == 1) nshgt=nshg ! global = this processor
290 if (numpe > 1) then
322 if (numpe > 1) then
405 if (numpe == 1) nshgt=nshg ! global = this processor
H A Dau1gmr.f29 if (numpe > 1) then
73 if (numpe > 1) then
136 if (numpe > 1) then
169 if (numpe > 1) then
H A Dtimedata.f9022 if(numpe .gt. 1) then
94 if(numpe .gt. 1) then
119 if(numpe .gt. 1) then
197 if (numpe > 1) then
H A DMachControl.f9082 if(numpe > 1) then
160 if(numpe .gt. 1)
236 if(numpe > 1) then
/phasta/M2NFixBnd/src/
H A Dnew_interface.c62 numparts = workfc.numpe; in Write_M2NFixBnd()
63 nprocs= workfc.numpe; in Write_M2NFixBnd()
201 numparts = workfc.numpe; in Write_M2NFixBnd_SolOnly()
203 nprocs = workfc.numpe; in Write_M2NFixBnd_SolOnly()
291 numparts = workfc.numpe; in Write_Restart()
293 nprocs = workfc.numpe; in Write_Restart()
398 numparts = workfc.numpe; in Write_Error()
400 nprocs = workfc.numpe; in Write_Error()
541 numparts = workfc.numpe; in Write_Field()
543 nprocs = workfc.numpe; in Write_Field()
[all …]
/phasta/AcuStat/src/
H A Dnew_interface.c59 numparts = workfc.numpe; in Write_AcuStat()
60 nprocs= workfc.numpe; in Write_AcuStat()
156 numparts = workfc.numpe; in Write_AcuStat2()
157 nprocs= workfc.numpe; in Write_AcuStat2()
312 numparts = workfc.numpe; in Write_Ybar()
314 nprocs = workfc.numpe; in Write_Ybar()
400 numparts = workfc.numpe; in Write_Restart()
402 nprocs = workfc.numpe; in Write_Restart()
507 numparts = workfc.numpe; in Write_Error()
509 nprocs = workfc.numpe; in Write_Error()
[all …]
/phasta/M2N/src/
H A Dnew_interface.c342 numparts = workfc.numpe; in Write_M2N_Field()
343 nprocs = workfc.numpe; in Write_M2N_Field()
470 numparts = workfc.numpe; in Write_M2N_PhAvg2()
471 nprocs = workfc.numpe; in Write_M2N_PhAvg2()
549 numparts = workfc.numpe; in Write_Restart()
551 nprocs = workfc.numpe; in Write_Restart()
656 numparts = workfc.numpe; in Write_Error()
658 nprocs = workfc.numpe; in Write_Error()
799 numparts = workfc.numpe; in Write_Field()
801 nprocs = workfc.numpe; in Write_Field()
[all …]
H A Dreadnblk.f61 integer :: icountN(numpe) ! integers read from headers
63 integer :: maxvID(numpe),maxvIDout(numpe)
187 …numparts = numpe !This is the common settings. Beware if you try to compute several parts per proc…
684 & numpe, 'and N =',irankN
692 do i=1,numpe
718 do i=irankN+1,numpe
829 allocate(getinfo(numpe))
841 do irM = 0,numpe-1 ! all the irM ranks 1..M
1047 do i = 1,numpe
1257 do j=1,numpe ! potentially all M have a map for me
/phasta/phSolver/AMG/
H A Dramg_control.f155 IF (( iamg_reduce.le.1).or.(numpe.gt.1)) THEN
157 if (numpe.ge.2) then
163 allocate(subcfrev(numpe))
213 IF ((iamg_reduce.le.1).or.(numpe.gt.1)) THEN
242 IF ((iamg_reduce.le.1).or.(numpe.gt.1)) THEN

1234