omp_tps_common_m.F

Go to the documentation of this file.

C
C  This file is part of MUMPS 5.5.1, released
C  on Tue Jul 12 13:17:24 UTC 2022
C
C
C  Copyright 1991-2022 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