zstatic_ptr_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 zmumps_static_ptr_m
      PUBLIC :: zmumps_tmp_ptr, zmumps_get_tmp_ptr
      COMPLEX(kind=8), DIMENSION(:), POINTER, SAVE :: zmumps_tmp_ptr
      CONTAINS
      SUBROUTINE zmumps_set_static_ptr(ARRAY)
      COMPLEX(kind=8), DIMENSION(:), TARGET :: ARRAY
      zmumps_tmp_ptr => array
      RETURN
      END SUBROUTINE zmumps_set_static_ptr
      SUBROUTINE zmumps_get_tmp_ptr(PTR)
#if defined(MUMPS_F2003)
      COMPLEX(kind=8), DIMENSION(:), POINTER, INTENT(OUT) :: ptr
#else
      COMPLEX(kind=8), DIMENSION(:), POINTER :: ptr
#endif
      ptr => zmumps_tmp_ptr
      RETURN
      END SUBROUTINE zmumps_get_tmp_ptr
      END MODULE zmumps_static_ptr_m