Searched refs:irankN (Results 1 – 3 of 3) sorted by relevance
| /phasta/M2N/include/ |
| H A D | new_interfaceM2N.h | 26 int* irankN,
39 int* irankN,
47 int* irankN,
59 int* irankN,
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 79 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg, irankN local
679 irankN=maxPIDout
684 & numpe, 'and N =',irankN
694 write(*,926) myrank, (icountN(j),j=1,irankN)
718 do i=irankN+1,numpe
728 call MPI_ALLREDUCE (maxvID, maxvIDout, irankN,
736 if(myrank.eq.0) write(*,926) (maxvIDout(j),j=1,irankN)
753 if(myrank.lt.irankN) then
824 do irN = 0,irankN-1 ! every irN rank 1..N receives information from
1052 write(*,*)"Part ",irN,"out of N = ",irankN," updated from",
[all …]
|
| H A D | new_interface.c | 31 int* irankN, in Write_M2N() argument
65 if (irank < *irankN) mustwrite = 1; in Write_M2N()
69 if (irank < *irankN) { // Only these ranks write syncio files within mpi_comm_local in Write_M2N()
73 numparts = *irankN; in Write_M2N()
74 nprocs = *irankN; in Write_M2N()
188 int* irankN, in Write_M2N_SolOnly() argument
217 if (irank < *irankN) mustwrite = 1; in Write_M2N_SolOnly()
221 if (irank < *irankN) { // Only these ranks write syncio files within mpi_comm_local in Write_M2N_SolOnly()
225 numparts = *irankN; in Write_M2N_SolOnly()
226 nprocs = *irankN; in Write_M2N_SolOnly()
[all …]
|