Searched refs:cur_export (Results 1 – 1 of 1) sorted by relevance
1662 allocate(cur_export(BT_exp(idom)%nnz))1693 deallocate(cur_export)1995 subroutine extract_cols(BT_exp, cur_export, n_curexp) argument1998 integer(kind=kint), intent(out) :: cur_export(:) local2003 call quick_sort(cur_export, 1, BT_exp%nnz)2004 call unique(cur_export, BT_exp%nnz, n_curexp)2011 integer(kind=kint), intent(inout) :: cur_export(:) local2022 jnod = cur_export(j)2030 cur_export(j - n_newexp) = jnod2044 integer(kind=kint), intent(in) :: cur_export(:) local[all …]