nf_inq_libvers Function

function nf_inq_libvers() result(status)

Arguments

None

Return Value character(len=80)


Source Code

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