| /phasta/M2NFixBnd/src/ |
| H A D | new_interface.c | 50 int nfiles; in Write_M2NFixBnd() local
60 nfiles = outpar.nsynciofiles; //We use the same number of files as before in Write_M2NFixBnd()
65 int nppf = numparts/nfiles; in Write_M2NFixBnd()
78 sprintf(filename,"restartRed-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1)); in Write_M2NFixBnd()
83 initphmpiio(&nfields, &nppf, &nfiles, &f_descriptor, "write"); in Write_M2NFixBnd()
189 int nfiles; in Write_M2NFixBnd_SolOnly() local
199 nfiles = outpar.nsynciofiles; in Write_M2NFixBnd_SolOnly()
204 int nppf = numparts/nfiles; in Write_M2NFixBnd_SolOnly()
217 sprintf(filename,"restartRed-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1)); in Write_M2NFixBnd_SolOnly()
219 initphmpiio(&nfields, &nppf, &nfiles, &f_descriptor, "write"); in Write_M2NFixBnd_SolOnly()
[all …]
|
| H A D | readnblk.f | 54 integer :: descriptor, color, nfiles, nfields local
158 nfiles = nsynciofiles
164 color = int(myrank/(numparts/nfiles)) !Should call the color routine in SyncIO here
180 call initphmpiio( nfields, nppf, nfiles, igeom,
305 call initphmpiio(nfields,nppf,nfiles,descriptor,
562 color = int(myrank/(numparts/nfiles)) !Should call the color routine in SyncIO here
578 call initphmpiio( nfields, nppf, nfiles, igeom,
|
| /phasta/phSolver/common/ |
| H A D | syncio.cc | 41 void syncio_setup_read(int nfiles, phio_fp* f) { in syncio_setup_read() argument
45 sf->nfiles = nfiles; in syncio_setup_read()
50 void syncio_setup_write(int nfiles, int nfields, int nppf, phio_fp* f) { in syncio_setup_write() argument
54 sf->nfiles = nfiles; in syncio_setup_write()
|
| H A D | syncio.f | 4 subroutine syncio_setup_read(nfiles, handle)
7 integer(c_int), value :: nfiles
10 subroutine syncio_setup_write(nfiles, nfields, nppf, handle)
13 integer(c_int), value :: nfiles
|
| H A D | syncio.h | 7 void syncio_setup_read(int nfiles, phio_fp* f);
8 void syncio_setup_write(int nfiles, int nfields, int nppf, phio_fp* f);
|
| H A D | phio_sync.cc | 46 std::string syncName = appendColor(filename, sf->nfiles); in sync_openfile_read()
52 initphmpiio(&nfields, &nppf, &(sf->nfiles), file, mode); in sync_openfile_read()
60 std::string syncName = appendColor(filename, sf->nfiles); in sync_openfile_write()
64 &(sf->nfiles), file, mode); in sync_openfile_write()
|
| H A D | phio_sync.h | 5 int nfiles; member
|
| H A D | new_interface.c | 251 int nfiles; in Write_Restart() local
263 nfiles = outpar.nsynciofiles; in Write_Restart()
277 syncio_setup_write(nfiles, nfields, numparts/nfiles, &f_descriptor); in Write_Restart()
|
| /phasta/AcuStat/src/ |
| H A D | new_interface.c | 47 int nfiles; in Write_AcuStat() local
57 nfiles = outpar.nsynciofiles; //We use the same number of files as before in Write_AcuStat()
62 int nppf = numparts/nfiles; in Write_AcuStat()
76 …lename,"restartAcuStat.%d.%d.%d.%d",*stepstart,*stepend,*steptot,((int)(irank/(nprocs/nfiles))+1)); in Write_AcuStat()
81 initphmpiio(&nfields, &nppf, &nfiles, &f_descriptor, "write"); in Write_AcuStat()
144 int nfiles; in Write_AcuStat2() local
154 nfiles = outpar.nsynciofiles; //We use the same number of files as before in Write_AcuStat2()
159 int nppf = numparts/nfiles; in Write_AcuStat2()
172 …lename,"restartAcuStat.%d.%d.%d.%d",*stepstart,*stepend,*steptot,((int)(irank/(nprocs/nfiles))+1)); in Write_AcuStat2()
177 initphmpiio(&nfields, &nppf, &nfiles, &f_descriptor, "write"); in Write_AcuStat2()
[all …]
|
| H A D | readnblk.f | 53 integer :: descriptor, color, nfiles, nfields local
163 nfiles = nsynciofiles
165 color = int(myrank/(numparts/nfiles))
191 write(*,*)myrank,timestep,nfiles,numparts,trim(adjustl(fnamer))
205 call initphmpiio(nfields,nppf,nfiles,descriptor,'read'//char(0))
|
| /phasta/M2N/src/ |
| H A D | new_interface.c | 51 int nfiles; in Write_M2N() local
71 nfiles = outpar.nsynciofilesred; //We use the same number of files as for geombcRed in Write_M2N()
76 int nppf = numparts/nfiles; in Write_M2N()
89 sprintf(filename,"restartRedTmp-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1)); in Write_M2N()
94 initphmpiiosub(&nfields, &nppf, &nfiles, &f_descriptor, "write", mpi_comm_local); in Write_M2N()
203 int nfiles; in Write_M2N_SolOnly() local
223 nfiles = outpar.nsynciofilesred; //We use the same number of files as for geombcRed in Write_M2N_SolOnly()
228 int nppf = numparts/nfiles; in Write_M2N_SolOnly()
241 sprintf(filename,"restartRedTmp-dat.%d.%d",*stepno,((int)(irank/(nprocs/nfiles))+1)); in Write_M2N_SolOnly()
246 initphmpiiosub(&nfields, &nppf, &nfiles, &f_descriptor, "write", mpi_comm_local); in Write_M2N_SolOnly()
[all …]
|
| H A D | readnblk.f | 74 integer :: descriptor, descriptorG, GPID, color, nfiles, nfields local
186 nfiles = nsynciofiles
189 color = int(myrank/(numparts/nfiles)) !Should call the color routine in SyncIO here
205 call initphmpiio( nfields, nppf, nfiles, igeom,
317 call initphmpiio(nfields,nppf,nfiles,descriptor,
582 call initphmpiio(nfields,nppf,nfiles,descriptor,
|
| /phasta/phSolver/common/test/ |
| H A D | phIOwrite.f | 8 integer, target :: rank, ierror, one, ppf, peers, fish, nfiles variable
30 nfiles = 2
31 ppf = peers/nfiles
33 call syncio_setup_write(nfiles, one, ppf, handle(1))
49 call syncio_setup_read(nfiles, handle(1))
|
| H A D | phIOwrite.cc | 27 int nfiles = atoi(argv[1]); in main() local
28 int ppf = size/nfiles; in main()
31 syncio_setup_write(nfiles, one, ppf, &(file[0])); in main()
39 syncio_setup_read(nfiles, &(file[0])); in main()
|
| H A D | phIOwriteReadZeroSz.cc | 31 int nfiles = atoi(argv[1]); in main() local
32 int ppf = size/nfiles; in main()
37 syncio_setup_write(nfiles, one, ppf, &(file[0])); in main()
49 syncio_setup_read(nfiles, &(file[0])); in main()
|
| H A D | phIOwriteFields.cc | 34 int nfiles = 1; in main() local
35 int ppf = size/nfiles; in main()
40 syncio_setup_write(nfiles, nfields, ppf, &(file[0])); in main()
58 syncio_setup_read(nfiles, &(file[0])); in main()
|
| H A D | phIOread.f | 13 integer :: rank, ierror, two, nfiles variable
32 nfiles = 2
38 call syncio_setup_read(nfiles, handle(1))
|
| H A D | phIOreadheader.cc | 20 int nfiles[2] = {atoi(argv[1]), 1}; in main() local
24 syncio_setup_read(nfiles[0], &(file[0])); in main()
|
| H A D | phIOreaddatablock.cc | 18 int nfiles = atoi(argv[1]); in main() local
28 syncio_setup_read(nfiles, &(file[0])); in main()
|
| /phasta/phastaIO/ |
| H A D | phastaIO.h | 46 int *nfiles,
52 int *nfiles,
148 int computeColor( int myrank, int numprocs, int nfiles);
|
| H A D | phastaIO.cc | 545 extern "C" int computeColor( int myrank, int numprocs, int nfiles) { in computeColor() argument
547 (int)(myrank / (numprocs / nfiles)); in computeColor()
569 int initphmpiio( int *nfields, int *nppf, int *nfiles, int *filehandle, const char mode[]) in initphmpiio() argument
575 …erSize = %d, nfields %d, nppf %d, nfiles %d\n", irank, MasterHeaderSize, *nfields, *nppf, *nfiles); in initphmpiio()
629 PhastaIOActiveFiles[i]->nFiles = *nfiles; in initphmpiio()
634 if( *nfiles > 1 ) { // split the ranks according to each mpiio file in initphmpiio()
759 int initphmpiiosub( int *nfields, int *nppf, int *nfiles, int *filehandle, const char mode[],MPI_Co… in initphmpiiosub() argument
820 PhastaIOActiveFiles[i]->nFiles = *nfiles; in initphmpiiosub()
|