NetCDF-Fortran  4.4.2
nf_logging.F90
1 #ifdef LOGGING
2 ! Function to turn on logging
3 !-------------------------------- nf_set_log_level ----------------------------
4  Function nf_set_log_level(new_level) Result(status)
5 
6  USE iso_c_binding, ONLY: c_int
7 
8  Implicit NONE
9 
10  Integer, Intent(IN) :: new_level
11 
12  Integer, :: status
13 
14  Integer(C_INT) :: cnew_level, cstatus
15 
16  Interface ! define binding here instead of nc_interfaces since its conditional
17  Function nc_set_log_level(new_level) BIND(C)
18  USE iso_c_binding, ONLY: c_int
19 
20  Integer(C_INT), VALUE :: new_level
21  Integer(C_INT) :: nc_set_log_level
22  End Function nc_set_log_level
23 End Interface
24 
25  cnew_level = new_level
26  cstatus = nc_set_log_level(cnew_level)
27 
28  status = cstatus
29 
30 End Function nf_set_log_level
31 
32 #endif

Return to the Main Unidata NetCDF page.
Generated on Sun Dec 27 2015 13:19:49 for NetCDF-Fortran. NetCDF is a Unidata library.