NetCDF-Fortran  4.4.4
nf_logging.F90
Go to the documentation of this file.
1 #ifdef LOGGING
2 ! Function to turn on logging
3 
4 ! Written by: Richard Weed, Ph.D.
5 ! Center for Advanced Vehicular Systems
6 ! Mississippi State University
7 ! rweed@cavs.msstate.edu
8 
9 
10 ! License (and other Lawyer Language)
11 
12 ! This software is released under the Apache 2.0 Open Source License. The
13 ! full text of the License can be viewed at :
14 !
15 ! http:www.apache.org/licenses/LICENSE-2.0.html
16 !
17 ! The author grants to the University Corporation for Atmospheric Research
18 ! (UCAR), Boulder, CO, USA the right to revise and extend the software
19 ! without restriction. However, the author retains all copyrights and
20 ! intellectual property rights explicitly stated in or implied by the
21 ! Apache license
22 
23 ! Version 1. May 2014 - initial implemenation
24 ! Version 2. Jan 2016 - Fixed hanging comma in status definition
25 
26 !-------------------------------- nf_set_log_level ----------------------------
27  Function nf_set_log_level(new_level) Result(status)
28 
29  USE iso_c_binding, ONLY: c_int
30 
31  Implicit NONE
32 
33  Integer, Intent(IN) :: new_level
34 
35  Integer :: status
36 
37  Integer(C_INT) :: cnew_level, cstatus
38 
39  Interface ! define binding here instead of nc_interfaces since its conditional
40  Function nc_set_log_level(new_level) bind(C)
41  USE iso_c_binding, ONLY: c_int
42 
43  Integer(C_INT), VALUE :: new_level
44  Integer(C_INT) :: nc_set_log_level
45  End Function nc_set_log_level
46 End Interface
47 
48  cnew_level = new_level
49  cstatus = nc_set_log_level(cnew_level)
50 
51  status = cstatus
52 
53 End Function nf_set_log_level
54 
55 #endif

Return to the Main Unidata NetCDF page.
Generated on Fri Aug 4 2017 17:20:58 for NetCDF-Fortran. NetCDF is a Unidata library.