trace.f90 Source File

submodule(specialmatrices_strang) strange_trace
   implicit none(type, external)
contains
   module procedure trace_rdp
   tr = A%n*2
   end procedure trace_rdp
end submodule strange_trace