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