| /phasta/phSolver/compressible/ |
| H A D | timedata.f90 | 21 if(myrank.eq.master) inquire(file='xyzts.dat',exist=exts)
24 call MPI_BCAST(exts,1,MPI_INTEGER,master,MPI_COMM_WORLD,ierr)
48 if(myrank .eq. master) then
87 if(myrank.eq.master) then
96 call MPI_Bcast(ntspts, 1, MPI_INTEGER, master,
98 call MPI_Bcast(freq, 1, MPI_INTEGER, master,
100 call MPI_Bcast(tolpt, 1, MPI_DOUBLE_PRECISION, master,
102 call MPI_Bcast(iterat, 1, MPI_INTEGER, master,
104 call MPI_Bcast(nbuff, 1, MPI_INTEGER, master,
112 if(myrank .eq. master) then
[all …]
|
| H A D | MachControl.f90 | 50 if(myrank == master) then
108 if(myrank == master) then !MC_* are not set on other processors
150 if(myrank .eq. master) then
162 & master, MPI_COMM_WORLD, ierr)
184 if(myrank == master) then
214 if(myrank == master) then
238 & master, MPI_COMM_WORLD, ierr)
240 & master, MPI_COMM_WORLD, ierr)
242 & master, MPI_COMM_WORLD, ierr)
257 if(myrank == master) then
|
| H A D | rstat.f | 78 & MPI_SUM, master,
83 if (myrank .eq. master) then
120 if (myrank .eq. master) then
235 if (myrank .eq. master) then
324 & MPI_SUM, master,
329 if (myrank .eq. master) then
354 if (myrank .eq. master) then
426 if (myrank .eq. master) then
|
| H A D | itrdrv.f | 118 if(myrank .eq. master) then
136 if (myrank .eq. master) then
283 if(myrank.eq.master) then
291 if(myrank.eq.master) then
449 if (myrank .eq. master)
601 if((irscale.ge.0).and.(myrank.eq.master)) then
637 if(myrank.eq.master) write(*,*) 'istop =', istop
654 if((irscale.ge.0).and.(myrank.eq.master)) then
790 if(myrank.eq.master) then
836 if (myrank .eq. master) then
|
| H A D | itrPC.f | 82 if((irscale.ge.0).and.(myrank.eq.master)) then
95 if((irscale.ge.0).and.(myrank.eq.master)) then
111 if((irscale.ge.0).and.(myrank.eq.master)) then
|
| H A D | timer.f | 118 if (myrank == master) then
142 if (myrank == master) then
|
| H A D | wtime.f | 13 & MPI_DOUBLE_PRECISION, master,
16 if (myrank .eq. master) then
|
| /phasta/phSolver/common/ |
| H A D | new_interface.c | 73 if(workfc.myrank==workfc.master) in print_mesh_stats()
76 if(workfc.myrank==workfc.master) in print_mesh_stats()
79 if(workfc.myrank==workfc.master) in print_mesh_stats()
82 if(workfc.myrank==workfc.master) { in print_mesh_stats()
94 if(workfc.myrank==workfc.master) in print_mpi_stats()
97 if(workfc.myrank==workfc.master) in print_mpi_stats()
100 if(workfc.myrank==workfc.master) in print_mpi_stats()
103 if(workfc.myrank==workfc.master) in print_mpi_stats()
107 if(workfc.myrank==workfc.master) in print_mpi_stats()
110 if(workfc.myrank==workfc.master) in print_mpi_stats()
[all …]
|
| H A D | input.f | 38 if (myrank == master)
53 if (myrank == master) then
80 if (myrank == master) then
108 if (mod(i,50).eq.1 .and. myrank .eq. master)
111 if (myrank .eq. master)
121 if (mod(i,50).eq.1 .and. myrank .eq. master)
123 if (myrank .eq. master)
130 if (myrank .eq. master)
134 if (myrank .eq. master) then
138 if (iLSet .gt. 0 .and. myrank .eq. master)then
[all …]
|
| H A D | rerun_check.f | 10 if(myrank.eq.master) then
16 call MPI_BCAST(stopjob,1,MPI_INTEGER,master,
|
| H A D | genini.f | 86 if(myrank.eq.master) then
116 if(myrank.eq.master) then
153 if((irscale.ge.0) .and. (myrank.eq.master)) then
161 if ((necho .lt. 0).and.(myrank.eq.master)) then
|
| H A D | turbsa.f | 65 if(myrank.eq.master) then
75 if(myrank.eq.master) then
204 if(myrank.eq.master) then
|
| H A D | gendat.f | 78 if ((necho .lt. 2).and.(myrank.eq.master)) then
217 if((myrank.eq.master).and.(irscale.ge.0)) then
303 if(myrank.eq.master) then
|
| H A D | readnblk.f | 73 if (myrank.eq.master) then
154 if (myrank == master) then
468 if (myrank.eq.master) then
517 if (myrank.eq.master) then
553 if (myrank.eq.master) then
600 if (myrank.eq.master) then
|
| H A D | getdmc.f | 367 & MPI_MIN, master, MPI_COMM_WORLD, ierr)
369 & MPI_MAX, master, MPI_COMM_WORLD, ierr)
373 if (myrank .EQ. master) then !print CDelta^2 range
379 if (myrank .eq. master) then
|
| H A D | gtnods.c | 31 if (workfc.myrank == workfc.master) { in gtnods()
|
| H A D | error.f | 27 if(myrank.eq.master) then
|
| H A D | blowerControl.f90 | 206 if(myrank == master) then
241 & master, MPI_COMM_WORLD, ierr)
260 if(myrank == master) then
|
| /phasta/svLS/ |
| H A D | COMMU.f | 64 CALL MPI_ALLREDUCE(commu%task, commu%master, 1, mpint, MPI_MIN,
67 IF (commu%master .NE. 0) THEN
75 IF (commu%task .EQ. commu%master) THEN
|
| H A D | svLS_STRUCT_c.h | 58 int master; // Master ID (USE) member
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_cheby.f | 125 if (myrank.eq.master) then
134 if (myrank.eq.master) then
139 if (myrank.eq.master) then
|
| /phasta/phSolver/incompressible/ |
| H A D | forces.f | 33 & MPI_SUM, master, MPI_COMM_WORLD,ierr)
38 if ((myrank .eq. master).and.(numpe > 1)) then
96 if (myrank .eq. master) then
|
| H A D | itrdrv.f | 128 if(numpe.gt.0 .and. myrank.ne.master)iverbose=0
137 if (myrank .eq. master) then
299 if(myrank.eq.master) write(*,*)
304 if(myrank.eq.master) write(*,*)
308 if(myrank.eq.master)
562 if(myrank.eq.master) then
607 if((irscale.ge.0).and.(myrank.eq.master)) then
795 if (myrank .eq. master) then
1111 & (myrank .eq. master)) then
1138 if ((irs .ge. 1) .and. (myrank .eq. master)) then
[all …]
|
| /phasta/AcuStat/src/ |
| H A D | error.f | 27 if(myrank.eq.master) then
|
| /phasta/M2NFixBnd/src/ |
| H A D | error.f | 27 if(myrank.eq.master) then
|