function rget(n); real :: rget; character(len=*),intent(in) :: n; call get_args(n,rget); end function rget