Commit 061d282e authored by Qicang's avatar Qicang
Browse files

Fix the compiling bug.

parent f7e25361

src/MatrixTypes_Base.f90

+2 −0
Original line number Diff line number Diff line
@@ -64,6 +64,8 @@ TYPE,ABSTRACT :: MatrixType 
    PROCEDURE(matrix_get_sub_absintfc),DEFERRED,PASS :: get

    !> Deferred routine for getting a matrix value

    PROCEDURE(matrix_transpose_sub_absintfc),DEFERRED,PASS :: transpose

    !> Deferred routine for writing a matrix

    PROCEDURE(matrix_write_absintfc),DEFERRED,PASS :: writematrix

ENDTYPE MatrixType

!

!List of Abstract Interfaces

src/MatrixTypes_Native.f90

+6 −0
Original line number Diff line number Diff line
@@ -68,6 +68,9 @@ TYPE,EXTENDS(SquareMatrixType) :: DenseSquareMatrixType 
    !> @copybrief MatrixTypes::zeroentries_DenseSquareMatrixType

    !> @copydetails MatrixTypes::zeroentries_DenseSquareMatrixType

    PROCEDURE,PASS :: zeroentries => zeroentries_DenseSquareMatrixType

    !> @copybrief MatrixTypes::writematrix_DenseSquareMatrixType

    !> @copydetails MatrixTypes::writematrix_DenseSquareMatrixType

    PROCEDURE,PASS :: writematrix => writematrix_DenseSquareMatrixType

ENDTYPE DenseSquareMatrixType



!> @brief The extended type for dense rectangular matrices
@@ -95,6 +98,9 @@ TYPE,EXTENDS(RectMatrixType) :: DenseRectMatrixType 
    !> @copybrief MatrixTypes::zeroentries_DenseRectMatrixType

    !> @copydetails MatrixTypes::zeroentries_DenseRectMatrixType

    PROCEDURE,PASS :: zeroentries => zeroentries_DenseRectMatrixType

    !> @copybrief MatrixTypes::writematrix_DenseRectMatrixType

    !> @copydetails MatrixTypes::writematrix_DenseRectMatrixType

    PROCEDURE,PASS :: writematrix => writematrix_DenseRectMatrixType

ENDTYPE DenseRectMatrixType



!I think this may need to be revisited