function nf_inq_libvers() result(status) character(len=80) :: status status='' end function nf_inq_libvers