Searched refs:ifail (Results 1 – 4 of 4) sorted by relevance
1 subroutine rwvelb (code, q, ifail) argument26 ifail=158 ifail=0 ! i.e. I didn't fail
67 call rwvelb('in ',velbar,ifail)71 if(ifail.eq.1) then
884 & call rwvelb ('out ', velbar ,ifail)
620 & call rwvelb ('out ', velbar ,ifail)