Lines Matching refs:ivort

79       integer :: ierror, numphavg, ivort, idwal, idebug, iphavg, irankN  local
112           read(72,*) ivort
133         call mpi_bcast(ivort,1,MPI_INTEGER,0,mpi_comm_world,ierr)
163         if(ivort .gt. 0) then
165           ivort = 1 ! security
493       if(ivort == 1) then
516           ivort = 0
774         if(ivort == 1) then
796         if(ivort == 1) then
883                   if(ivort==1) then
945                     if(ivort==1) then
1008                       if(ivort==1) then
1219       if(ivort == 1) then
1405       nsynciofieldswriterestart = 1+iybar+ierror+numphavg+ivort+idwal
1445       if(ivort == 1) then