nf_put_vara_int2 Function

function nf_put_vara_int2() result(status)

Arguments

None

Return Value integer


Source Code

function nf_put_vara_int2() result(status)
  integer :: status
  status=0
end function nf_put_vara_int2