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