C.1.1 Command_Argument_Count_F2003 Procedure

The main documentation of the Command_Argument_Count_F2003 Procedure contains additional explanation of this code listing.

  function Command_Argument_Count_F2003 () result(Command_Argument_Count)

    ! Output variable.

    type(integer) :: Command_Argument_Count ! The number of command arguments.

    ! Internal variable.

    type(integer) :: IARGC                  ! Fortran/C intrinsic function.

    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    ! Verify requirements - none.

    ! Set command_argument_count.

    Command_Argument_Count = IARGC()

    ! Verify guarantees.

    VERIFY(Command_Argument_Count > -1,5)  ! Command_Argument_Count is valid.

    return
  end function Command_Argument_Count_F2003