5 module ForTrilinos_ref_counter
9 generic
:: assignment(=) => assign
12 subroutine assign (lhs
, rhs
)
13 class (ref_counter
), intent(inout
) :: lhs
14 class (ref_counter
), intent(in
) :: rhs
17 module FEpetra_BlockMap
18 use ForTrilinos_ref_counter
, only
: ref_counter
19 type :: Epetra_BlockMap
20 type(ref_counter
) :: counter
23 function from_struct() result(new_Epetra_BlockMap
)
24 type(Epetra_BlockMap
) :: new_Epetra_BlockMap
26 type(Epetra_BlockMap
) function create_arbitrary()
27 create_arbitrary
= from_struct()