C
C  This file is part of MUMPS 5.8.1, released
C  on Wed Jul 30 16:49:18 UTC 2025
C
C
C  Copyright 1991-2025 CERFACS, CNRS, ENS Lyon, INP Toulouse, Inria,
C  Mumps Technologies, University of Bordeaux.
C
C  This version of MUMPS is provided to you free of charge. It is
C  released under the CeCILL-C license 
C  (see doc/CeCILL-C_V1-en.txt, doc/CeCILL-C_V1-fr.txt, and
C  https://cecill.info/licences/Licence_CeCILL-C_V1-en.html)
C
      MODULE MUMPS_TPS_M
      TYPE MUMPS_TPS_T
          INTEGER :: LIW, LPOOL, LEAF, IOLDPS
          INTEGER(8) :: LA, POSFAC, LRLU, LRLUS, LRLUSM, IPTRLU, POSELT
          INTEGER :: INODE, IFATH, IFLAG, IERROR, CURRENT_TASK
          INTEGER :: JOBASS, ETATASS
          INTEGER :: MAXFRW, NOFFW, NPVW, NELVAW, NMAXNPIV
          INTEGER :: TYPE, TYPEF
          INTEGER :: COMP
          INTEGER :: IWPOS, IWPOSCB
          LOGICAL AVOID_DELAYED
          DOUBLE PRECISION :: OPASSW, OPELIW
          INTEGER, DIMENSION(:), POINTER :: IW, ITLOC
      END TYPE MUMPS_TPS_T
      END MODULE MUMPS_TPS_M
      SUBROUTINE MUMPS_TPS_M_RETURN()
      RETURN
      END SUBROUTINE MUMPS_TPS_M_RETURN
