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)

    ! Local use associations.

    ifelse(COMPILER, NAGWare, [
      use F90_Unix_Env, only: IARGC
    ])

    ! Output variable.

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

    ! Internal variable.

    ifelse(COMPILER, NAGWare, 
      [], [
      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