1 /**
2 * Copyright 1981-2016 ECMWF.
3 *
4 * This software is licensed under the terms of the Apache Licence
5 * Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
6 *
7 * In applying this licence, ECMWF does not waive the privileges and immunities
8 * granted to it by virtue of its status as an intergovernmental organisation
9 * nor does it submit to any jurisdiction.
10 */
11 
12 #include "sharedlib.h"
13 #include "common/fortint.h"
14 #include "common/JPointer.h"
15 
16 #ifdef FORTRAN_NO_UNDERSCORE
17 #define SHAREDDT shareddt
18 #else
19 #define SHAREDDT shareddt_
20 #endif
21 
SHAREDDT(JPointer * ipdum)22 fortint SHAREDDT(
23   JPointer* ipdum)
24 /*
25 C
26 C**** SHAREDDT
27 C     Provides Fortran wrapper to the shmdt call via release_shared_file
28 C
29 C     IPDUM   - Dummy array for mapping legendre function file
30 C     KRET    - Return status, 0 = OK.
31 t
32 */
33 {
34   fortint kret =0;
35   int ret = release_shared_file(*ipdum) ;
36   kret = (fortint) ret ;
37   return kret;
38 }
39