constructors.f90 Source File

submodule(specialmatrices_toeplitz) toeplitz_constructors
   implicit none(type, external)
contains
   module procedure construct
   !> Dimension of the matrix.
   A%m = size(vc); A%n = size(vr)
   !> First column/row vectors.
   A%vc = vc; A%vr = vr
   !> Ensure vc[1] and vr[1] are the same.
   A%vr(1) = A%vc(1)
   end procedure construct
end submodule toeplitz_constructors