Lines Matching full:then
412 if (xmx.gt.0) then
598 if (lxyz.gt.0) then
633 if (ifaxis.and.(isd.eq.2)) then
640 if (ym1(i,j,1,e).ne.0.) then
642 if (ifrzer(e)) then
685 if (bp==1) then
687 elseif (bp==3) then
891 if (test.eq.1.and.nid.eq.0) then
892 if (maxit>=100) then
895 if (dabs(er1)>5e-3) then
926 if (test.eq.1.and.nid.eq.0) then
927 if (maxit>=100) then
930 if (dabs(er1)>1e-5) then
961 if (test.eq.1.and.nid.eq.0) then
962 if (maxit>=100) then
965 if (dabs(er1)>1e-5) then
1061 $ .or.z.eq.0.or.z.eq.1 ) then
1213 if (test.eq.1.and.nid.eq.0) then
1214 if (maxit>=100) then
1217 if (dabs(er1)>1e-3) then
1248 if (test.eq.1.and.nid.eq.0) then
1249 if (maxit>=100) then
1252 if (dabs(er1)>1e-9) then
1283 if (test.eq.1.and.nid.eq.0) then
1284 if (maxit>=100) then
1287 if (dabs(er1)>1e-9) then
1361 if(bpname.ne.'bp1') then
1405 if (enorm.lt.tol) then
1625 if (bpname.eq.'bp1') then
1628 elseif (bpname.eq.'bp3') then
1647 if(iargc().ge.1) then
1650 if(bpval.eq."bp1") then
1652 elseif(bpval.eq."bp3") then
1666 if(iargc().ge.2) then
1680 if(iargc().ge.3) then
1683 if(testval.eq."test") then