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