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)22fortint 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