Back to OASIS3-MCT home

In oasis3-mct/lib/mct/mct/m_SparseMatrixPlus.F90 :

Type SparseMatrixPlus (<= mct_sMatP in psmile)

#ifdef SEQUENCE
        sequence
#endif
        type(String) :: Strategy
        integer :: XPrimeLength
        type(Rearranger) :: XToXPrime
        integer :: YPrimeLength
        type(Rearranger) :: YPrimeToY
        type(SparseMatrix) :: Matrix
        integer :: Tag

end type SparseMatrixPlus