1C
2C  This file is part of MUMPS 5.1.2, released
3C  on Mon Oct  2 07:37:01 UTC 2017
4C
5C
6C  Copyright 1991-2017 CERFACS, CNRS, ENS Lyon, INP Toulouse, Inria,
7C  University of Bordeaux.
8C
9C  This version of MUMPS is provided to you free of charge. It is
10C  released under the CeCILL-C license:
11C  http://www.cecill.info/licences/Licence_CeCILL-C_V1-en.html
12C
13      MODULE SMUMPS_STATIC_PTR_M
14      PUBLIC :: SMUMPS_TMP_PTR, SMUMPS_GET_TMP_PTR
15      REAL, DIMENSION(:), POINTER, SAVE :: SMUMPS_TMP_PTR
16      CONTAINS
17      SUBROUTINE SMUMPS_SET_STATIC_PTR(ARRAY)
18      REAL, DIMENSION(:), TARGET :: ARRAY
19      SMUMPS_TMP_PTR => ARRAY
20      RETURN
21      END SUBROUTINE SMUMPS_SET_STATIC_PTR
22      SUBROUTINE SMUMPS_GET_TMP_PTR(PTR)
23#if defined(MUMPS_F2003)
24      REAL, DIMENSION(:), POINTER, INTENT(OUT) :: PTR
25#else
26      REAL, DIMENSION(:), POINTER :: PTR
27#endif
28      PTR => SMUMPS_TMP_PTR
29      RETURN
30      END SUBROUTINE SMUMPS_GET_TMP_PTR
31      END MODULE SMUMPS_STATIC_PTR_M
32