27 Function nf_set_log_level(new_level) Result(status)
29 USE iso_c_binding
, ONLY: c_int
33 Integer,
Intent(IN) :: new_level
37 Integer(C_INT) :: cnew_level, cstatus
40 Function nc_set_log_level(new_level) BIND(C)
41 USE iso_c_binding
, ONLY: c_int
43 Integer(C_INT),
VALUE :: new_level
44 Integer(C_INT) :: nc_set_log_level
45 End Function nc_set_log_level
48 cnew_level = new_level
49 cstatus = nc_set_log_level(cnew_level)
53 End Function nf_set_log_level