Home
last modified time | relevance | path

Searched refs:myrank (Results 1 – 25 of 92) sorted by relevance

1234

/phasta/M2NFixBnd/src/
H A Dreadnblk.f74 if(myrank == 0) then
109 if(myrank == 0 ) then
152 if(myrank == 0) then
164 color = int(myrank/(numparts/nfiles)) !Should call the color routine in SyncIO here
173 itmp = int(log10(float(myrank+1)))+1
176 if (myrank == 0) then
185 write (fname2,temp1) (myrank+1),'?'
190 write (fname2,temp1) (myrank+1),'?'
196 write (fname2,temp1) (myrank+1),'?'
202 write (fname2,temp1) (myrank+1),'?'
[all …]
H A Dphasta.cc30 int myrank; /* made file global for ease in debugging */ variable
71 MPI_Comm_rank (MPI_COMM_WORLD, &myrank); in phasta()
74 workfc.myrank = myrank; in phasta()
127 if ( myrank == 0 ) { in phasta()
H A Dsetsyncioparam.cc34 if(workfc.myrank == 0){ in setIOparam()
54 if(workfc.myrank == 0) { in setIOparam()
72 if(workfc.myrank == 0){ in detectd2wallfiles()
89 if(workfc.myrank == 0) { in detectd2wallfiles()
/phasta/M2N/src/
H A Dreadnblk.f101 if(myrank == 0) then
138 if(myrank == 0 ) then
180 if(myrank == 0) then
189 color = int(myrank/(numparts/nfiles)) !Should call the color routine in SyncIO here
198 itmp = int(log10(float(myrank+1)))+1
201 if (myrank == 0) then
210 write (fname2,temp1) (myrank+1),'?'
215 write (fname2,temp1) (myrank+1),'?'
221 write (fname2,temp1) (myrank+1),'?'
227 write (fname2,temp1) (myrank+1),'?'
[all …]
H A Dphasta.cc32 int myrank; /* made file global for ease in debugging */ variable
73 MPI_Comm_rank (MPI_COMM_WORLD, &myrank); in phasta()
76 workfc.myrank = myrank; in phasta()
129 if ( myrank == 0 ) { in phasta()
H A Dsetsyncioparam.cc36 if(workfc.myrank == 0){ in setIOparam()
73 if(workfc.myrank == 0) { in setIOparam()
92 if(workfc.myrank == 0){ in detectd2wallfiles()
109 if(workfc.myrank == 0) { in detectd2wallfiles()
/phasta/AcuStat/src/
H A Dreadnblk.f77 if(myrank == 0) then
103 if(myrank == 0 ) then
165 color = int(myrank/(numparts/nfiles))
191 write(*,*)myrank,timestep,nfiles,numparts,trim(adjustl(fnamer))
198 if (myrank == 0) then
211 itmp = int(log10(float(myrank+1)))+1
213 write (fname1,temp1) (myrank+1),'?'
225 & in AcuStat_input',myrank
248 write (fname1,temp1) (myrank+1),'?'
259 & in AcuStat_input',myrank
[all …]
H A Dphasta.cc31 int myrank; /* made file global for ease in debugging */ variable
72 MPI_Comm_rank (MPI_COMM_WORLD, &myrank); in phasta()
75 workfc.myrank = myrank; in phasta()
128 if ( myrank == 0 ) { in phasta()
H A Dsetsyncioparam.cc35 if(workfc.myrank == 0){ in setIOparam()
55 if(workfc.myrank == 0) { in setIOparam()
73 if(workfc.myrank == 0){ in detectd2wallfiles()
90 if(workfc.myrank == 0) { in detectd2wallfiles()
/phasta/phSolver/common/
H A Dphasta.cc57 int myrank; /* made file global for ease in debugging */ variable
100 MPI_Comm_rank (MPI_COMM_WORLD, &myrank); in run()
102 if(!myrank) in run()
106 workfc.myrank = myrank; in run()
129 if ( myrank == 0 ) { in run()
174 MPI_Comm_rank (MPI_COMM_WORLD, &myrank); in phasta()
175 if(!myrank) in phasta()
186 if(myrank == 0) fprintf(stderr, "Attempting to set ulimit from phasta exec "); in phasta()
203 if(myrank == 0) in phasta()
210 if(myrank == 0) in phasta()
[all …]
H A Dnew_interface.c49 isThisRank=workfc.myrank; in rgetMinMaxAvg()
55 isThisRank=workfc.myrank; in rgetMinMaxAvg()
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()
[all …]
H A Drwvelb.f31 fname1 = trim(fname1) // cname(myrank+1)
43 fname1 = trim(fname1) // cname(myrank+1)
62 write(*,*) "numDen found and read properly",myrank+1
80 fname1 = trim(fname1) // cname(myrank+1)
99 fname2 = trim(fname2) // cname(myrank+1)
H A Dinput.f38 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 Dsetsyncioparam.cc35 if(workfc.myrank == 0){ in setIOparam()
55 if(workfc.myrank == 0) { in setIOparam()
76 if(workfc.myrank == 0){ in detectd2wallfiles()
93 if(workfc.myrank == 0) { in detectd2wallfiles()
H A Dmemoryusage.c45 …if (workfc.myrank == 0 || workfc.myrank == (workfc.numpe/2) || workfc.myrank == (workfc.numpe-1) )… in printmeminfo()
67 …msg, workfc.myrank, rheapnew, rdiffheap, rheapavailnew, rdiffheapavail, rstacknew, rdiffstack, rst… in printmeminfo()
H A Dturbsa.f65 if(myrank.eq.master) then
71 call read_d2wall(myrank,numnp,d2wall,ifoundd2wall)
75 if(myrank.eq.master) then
204 if(myrank.eq.master) then
H A Dreadnblk.f73 if (myrank.eq.master) then
83 fname1= trim(fname1) // cname2(myrank+1)
89 fnamer = trim(fnamer) // cname2(myrank+1)
99 itmp = int(log10(float(myrank+1)))+1
154 if (myrank == master) then
468 if (myrank.eq.master) then
490 itmp = int(log10(float(myrank+1)))+1
517 if (myrank.eq.master) then
553 if (myrank.eq.master) then
600 if (myrank.eq.master) then
/phasta/phSolver/compressible/
H A Dtimedata.f9021 if(myrank.eq.master) inquire(file='xyzts.dat',exist=exts)
48 if(myrank .eq. master) then
87 if(myrank.eq.master) then
112 if(myrank .eq. master) then
143 if (myrank .eq. master) then
220 if (myrank.eq.master) then
234 if (myrank.eq.master) then
270 if (myrank.eq.master) then
H A DMachControl.f9050 if(myrank == master) then
108 if(myrank == master) then !MC_* are not set on other processors
150 if(myrank .eq. master) then
184 if(myrank == master) then
214 if(myrank == master) then
257 if(myrank == master) then
H A Dsolgmrpetsc.c182 printf("myrank,i,iownnodes,nshg %d %d %d %d \n",workfc.myrank,i,iownnodes,nshg); in SolGMRp()
183 printf("myrank,mind,maxd,mino,maxo %d %d %d %d %d \n",workfc.myrank,mind,maxd,mino,maxo); in SolGMRp()
189 if(irank == workfc.myrank){ in SolGMRp()
190 printf("mbeg,mend,myrank,idiagnz, iodiagnz %d %d %d \n",mbeg,mend,workfc.myrank); in SolGMRp()
192 printf("%d %ld %ld \n",workfc.myrank,idiagnz[i],iodiagnz[i]); in SolGMRp()
216 …if(workfc.myrank == rankdump) printf("Flow myrank,myMatStart,myMatEnd %d,%d,%d, \n", workfc.myrank… in SolGMRp()
254 if(workfc.myrank == rankdump) { in SolGMRp()
255 printf("myrank,i,iownnodes,nshg %d %d %d %d \n",workfc.myrank,i,iownnodes,nshg); in SolGMRp()
256 printf("myrank,mbeg,mend %d %d %d \n",workfc.myrank,mbeg,mend); in SolGMRp()
262 if(workfc.myrank == rankdump) { in SolGMRp()
[all …]
H A DrstatCheck.f75 if(myrank.eq.0) write(*,*) 'ResLast totres', ResLast, totres
76 if(myrank.eq.0) write(*,*) 'resmax', resmax
167 if(myrank.eq.0) write(*,*) 'ResLast totres', ResLast, totres
168 if(myrank.eq.0) write(*,*) 'resmax', resmax
H A Ditrdrv.f118 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)
473 … if(myrank.eq.0) write(*,*) 'exiting because run time input asked for PETSc, not linked in exec'
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
[all …]
/phasta/phSolver/incompressible/
H A Ditrdrv.f128 if(numpe.gt.0 .and. myrank.ne.master)iverbose=0
137 if (myrank .eq. master) then
271 if(myrank.eq.0) then
299 if(myrank.eq.master) write(*,*)
304 if(myrank.eq.master) write(*,*)
308 if(myrank.eq.master)
556 call write_field(myrank,'a','vorticity',9,vorticity,
562 if(myrank.eq.master) then
607 if((irscale.ge.0).and.(myrank.eq.master)) then
649 if(myrank.eq.0) then
[all …]
H A Dforces.f38 if ((myrank .eq. master).and.(numpe > 1)) then
96 if (myrank .eq. master) then
119 if(myrank.eq.0) then
211 if(myrank == 0 .and. isrf.le.iv_rankpernode) then
228 & myrank.eq.irankfilesforce(isrf)) then
246 if(myrank.eq.irankfilesforce(isrf)) then
/phasta/converterIO/
H A DconverterO2N.cc39 computenitems(const int localpartid, const int fieldid, const int myrank, const char *fieldName, in… in computenitems() argument
62 int myrank, N_procs; in main() local
63 MPI_Comm_rank(MPI_COMM_WORLD, &myrank); in main()
110 if(myrank==0){ in main()
128 int startpart = myrank * nppp +1; in main()
160 if (myrank==0) in main()
197 if(myrank==0){ in main()
221 printf("[%d] File %s does not exit - abort\n",myrank, gfname); in main()
354 if(myrank==0){ in main()
438 isize = computenitems(i,j,myrank,fieldNameD[j],paraD,expectD[j],numVariables[i]); in main()
[all …]

1234