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