4 Function nf_set_log_level(new_level) Result(status)
6 USE iso_c_binding
, ONLY: c_int
10 Integer,
Intent(IN) :: new_level
14 Integer(C_INT) :: cnew_level, cstatus
17 Function nc_set_log_level(new_level) BIND(C)
18 USE iso_c_binding
, ONLY: c_int
20 Integer(C_INT),
VALUE :: new_level
21 Integer(C_INT) :: nc_set_log_level
22 End Function nc_set_log_level
25 cnew_level = new_level
26 cstatus = nc_set_log_level(cnew_level)
30 End Function nf_set_log_level