fix typos

Author: jvdp1

src/modsparse.f90

@@ -177,10 +177,10 @@ module subroutine getpermutation64(sparse,array)
    integer(kind=int64),allocatable,intent(out)::array(:)
   end subroutine
   !**GET OUTPUT UNIT
-  pure module subroutine getoutputunit() result(val)
+  pure module function getoutputunit(sparse) result(val)
    class(gen_sparse),intent(in)::sparse
    integer(kind=int32)::val
-  end subroutine
+  end function
   !INITIATE GEN SPARSE
   module subroutine init_gen(sparse,namemat,dim1,dim2)
    class(gen_sparse),intent(inout)::sparse

src/modsparse_gen.f90

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