6 subroutine number_only(num)  argument
7     integer :: num  local
15 subroutine number_and_value_only(num, value)  argument
16 integer :: num  local
36 subroutine all_arguments(num, value, length, status, errmsg)  argument
37     integer :: num, length, status  local
63 subroutine number_and_length_only(num, length)  argument
64     integer :: num, length  local
81 subroutine number_and_status_only(num, status)  argument
82     integer :: num, status  local
100 subroutine number_and_errmsg_only(num, errmsg)  argument
101     integer :: num  local