Searched refs:iybar (Results 1 – 2 of 2) sorted by relevance
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 61 integer :: irstart, irstartmap, iybar local
82 read(72,*) iybar
102 call mpi_bcast(iybar,1,MPI_INTEGER,0,mpi_comm_world,ierr)
113 if(iybar .gt. 0) then
115 iybar = 1 ! security
368 if(iybar==1) then
391 iybar = 0
626 if(iybar == 1) then
691 if(iybar == 1) then
784 nsynciofieldswriterestart = 1+iybar+ierror+numphavg+ivort+idwal
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 78 integer :: ireducemethod, isbinary, irstart, irstartmap, iybar local
109 read(72,*) iybar
130 call mpi_bcast(iybar,1,MPI_INTEGER,0,mpi_comm_world,ierr)
142 if(iybar .gt. 0) then
144 iybar = 1 ! security
386 if(iybar == 1) then
408 iybar = 0
759 if(iybar == 1) then
787 if(iybar == 1) then
862 if(iybar==1) then
[all …]
|