Searched refs:n_orgimp (Results 1 – 1 of 1) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | solve_LINEQ_iter_contact.f90 | 1635 integer(kind=kint) :: n_oldimp, n_newimp, n_orgimp, i0, n_curimp local
1726 n_orgimp = idx_n - idx_0
1730 n_curimp = n_orgimp - n_oldimp + n_newimp
1732 call make_cur_import(org_import, n_orgimp, old_import, n_oldimp, &
1833 n_orgimp = idx_n - idx_0
1835 do j = 1, n_orgimp
2106 subroutine make_cur_import(org_import, n_orgimp, old_import, n_oldimp, & argument
2110 integer(kind=kint), intent(in) :: n_orgimp, n_oldimp, n_newimp, i0 local
2116 do while (i <= n_orgimp .and. ndel < n_oldimp)
2125 do j = i, n_orgimp
[all …]
|