Lines Matching refs:ivother
3425 ivother = ivmx(iv,(3-iupdown)/2)
3427 do 5 kkp = 1 , nib(ivother,ibar)
3429 tother = tother+nodur(ivother,kkp)
3440 if (.not.btest(irest(ivother,kkp),0)) then ! Not a rest, use it
3441 levother = nolev(ivother,kkp)-ncmid(iv,ip)+4
3443 if (nodur(ivother,kkp) .eq. nodur(ivx,ip)) then
17093 c ivother = ivmx(iv,(3-iupdown)/2)
17095 c do 5 kkp = 1 , nib(ivother,ibar)
17097 c tother = tother+nodur(ivother,kkp)
17108 c if (.not.btest(irest(ivother,kkp),0)) then ! Not a rest, use it
17109 c levother = nolev(ivother,kkp)-ncmid(iv,ip)+4
17111 c if (nodur(ivother,kkp) .eq. nodur(ivx,ip)) then