Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | Blank | ||
integer, | public | :: | MatrixType | = | 0 | ||
integer, | public, | DIMENSION(:), ALLOCATABLE | :: | Dim | |||
real(kind=r64), | public, | DIMENSION(:,:), ALLOCATABLE | :: | Mat2D |
TYPE MatrixDataStruct
CHARACTER(len=MaxNameLength) :: Name = Blank ! Matrix Name
INTEGER :: MatrixType =0 !
INTEGER, DIMENSION(:), ALLOCATABLE :: Dim ! matrix dimensions
!REAL(r64), DIMENSION(:), ALLOCATABLE :: Mat1D ! hold data if one dimensional
REAL(r64), DIMENSION(:,:), ALLOCATABLE :: Mat2D ! hold data if two dimensional
!REAL(r64), DIMENSION(:,:,:), Allocatable :: Mat3D ! hold data if three dimensional
END TYPE MatrixDataStruct