Searched refs:n_newexp (Results 1 – 1 of 1) sorted by relevance
1629 integer(kind=kint) :: idx_0, idx_n, k, knod, n_newexp, j, jnod local1684 if (n_curexp /= n_orgexp - n_oldexp + n_newexp) &1697 sendbuf(2) = n_newexp2015 integer(kind=kint), intent(out) :: n_newexp local2019 n_newexp = 02026 n_newexp = n_newexp + 12027 new_export(n_newexp) = jnod2029 else if (n_newexp > 0) then2030 cur_export(j - n_newexp) = jnod2033 do j = 1,n_newexp[all …]