Searched refs:idwal (Results 1 – 3 of 3) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 65 integer :: ierror, idwal, iphavg, ivort, ndofvort local
87 read(24,*) idwal
136 if(idwal .gt. 0) then
138 idwal = 1 ! security
149 call MPI_Bcast(idwal,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
393 if(idwal == 1) then
443 …nsynciofieldswriterestart = 2 + ierror + numphavg + ivort + idwal ! 2 for solution and accumulated…
475 if (idwal == 1) then
494 if(idwal == 1) then
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 62 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg local
86 read(72,*) idwal
106 call mpi_bcast(idwal,1,MPI_INTEGER,0,mpi_comm_world,ierr)
141 if(idwal .gt. 0) then
143 idwal = 1 ! security
516 if(idwal==1) then
543 idwal = 0
660 if(idwal == 1) then
758 if(idwal == 1) then
784 nsynciofieldswriterestart = 1+iybar+ierror+numphavg+ivort+idwal
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 79 integer :: ierror, numphavg, ivort, idwal, idebug, iphavg, irankN local
113 read(72,*) idwal
134 call mpi_bcast(idwal,1,MPI_INTEGER,0,mpi_comm_world,ierr)
170 if(idwal .gt. 0) then
172 idwal = 1 ! security
525 if(idwal == 1 ) then
551 idwal = 0
779 if(idwal == 1) then
799 if(idwal == 1) then
889 if(idwal==1) then
[all …]
|