Merge pull request #64 from jvdp1/getoutputunit

Addition of the function getoutputunit

Author: jvdp1

src/modsparse.f90

@@ -62,6 +62,8 @@ module modsparse
   procedure :: getpermutation32
   procedure :: getpermutation64
   generic,public::getpermutation => getpermutation32, getpermutation64
+  !> @brief Gets the output unit; e.g., unit = mat%getouputunit()
+  procedure,public::getoutputunit
   !> @brief Initializes the values
   procedure,public::initialize=>init_gen
   !> @brief Returns true if the matrix is sorted; else returns false
@@ -174,6 +176,11 @@ module subroutine getpermutation64(sparse,array)
    class(gen_sparse),intent(in)::sparse
    integer(kind=int64),allocatable,intent(out)::array(:)
   end subroutine
+  !**GET OUTPUT UNIT
+  pure module function getoutputunit(sparse) result(val)
+   class(gen_sparse),intent(in)::sparse
+   integer(kind=int32)::val
+  end function
   !INITIATE GEN SPARSE
   module subroutine init_gen(sparse,namemat,dim1,dim2)
    class(gen_sparse),intent(inout)::sparse

src/modsparse_gen.f90

@@ -137,6 +137,14 @@ module subroutine getpermutation64(sparse,array)
 
 end subroutine
 
+!**GET OUTPUT UNIT
+pure module function getoutputunit(sparse) result(val)
+ class(gen_sparse),intent(in)::sparse
+ integer(kind=int32)::val
+
+ val = sparse%unlog
+end function
+
 !INITIATE GEN SPARSE
 module subroutine init_gen(sparse,namemat,dim1,dim2)
  class(gen_sparse),intent(inout)::sparse