Lines Matching refs:ipord
123 if (ipord == 1) then
125 else if (ipord == 2) then
128 else if (ipord == 3) then
130 else if (ipord >= 4) then
148 if (ipord == 1) then
150 else if (ipord == 2) then
153 else if (ipord == 3) then
433 if (ipord == 1) then ! linears - l = l^a*(coth(Pe)-1/Pe)
439 if (ipord == 2) then ! quads - Codina, CMAME' 92
445 if (ipord == 3) then ! cubics - Recent Work
790 & rLyi(npro,nflow,ipord),
791 & rLymi(npro,nflow,ipord), dVdY(npro,15),
804 & STau(npro,15, ipord), Tau(npro,nflow,nflow,ipord),
805 & rlamtmp(npro,5,ipord)
858 do i = 1, ipord
899 if (ipord == 1) then ! linears - l = l^a*(coth(Pe)-1/Pe)
905 if (ipord == 2) then
912 if (ipord == 3) then ! cubics - Recent Work
947 do i = 1, ipord
1045 do k = 1, ipord
1106 do k = 1, ipord
1191 do k = 1, ipord