Searched refs:m1 (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | ftools.f | 338 integer i, j, m1 local
342 m1 = mod(m,8) + 1
347 goto ( 8000, 1000, 2000, 3000, 4000, 5000, 6000, 7000 ) m1
472 do j = m1, m, 8
520 integer i, j, m1 local
524 m1 = mod(m,8) + 1
528 goto ( 8000, 1000, 2000, 3000, 4000, 5000, 6000, 7000 ) m1
621 do j = m1, m, 8
658 integer i, j, m1 local
662 m1 = mod(m,8) + 1
[all …]
|