39 Character(LEN=80) :: vermsg
41 Character(LEN=81),
Pointer :: fstrptr
42 TYPE(c_ptr) :: cstrptr
43 Integer :: inull, ilen
45 vermsg = repeat(
" ", len(vermsg))
60 Call c_f_pointer(cstrptr, fstrptr)
65 ilen = len_trim(fstrptr)
66 inull = scan(fstrptr,c_null_char)
67 If (inull /= 0) ilen = inull-1
68 ilen = max(1, min(ilen,80))
72 vermsg(1:ilen) = fstrptr(1:ilen)
84 Integer(KIND=C_INT),
Intent(IN) :: ncerr
86 Character(LEN=80) :: errmsg
88 Character(LEN=81),
Pointer :: fstrptr
89 TYPE(c_ptr) :: cstrptr
90 Integer :: inull, ilen
91 Integer(KIND=C_INT) :: cncerr
93 errmsg = repeat(
" ", len(errmsg))
108 Call c_f_pointer(cstrptr, fstrptr)
113 ilen = len_trim(fstrptr)
114 inull = scan(fstrptr,c_null_char)
115 If (inull /= 0) ilen = inull-1
116 ilen = max(1, min(ilen,80))
120 errmsg(1:ilen) = fstrptr(1:ilen)
128 Integer,
Intent(IN) :: nerr
logical function nf_issyserr(nerr)
Begin explicit interfaces for base nc_ functions.
character(len=80) function nf_strerror(ncerr)
character(len=80) function nf_inq_libvers()