Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference
A newer version of this document is available. Customers should click here to go to the newest version.
Visible to Intel only — GUID: GUID-B0445AB9-BFC2-4C64-A398-BCAD53D2CB9C
Visible to Intel only — GUID: GUID-B0445AB9-BFC2-4C64-A398-BCAD53D2CB9C
COMMAND_ARGUMENT_COUNT
Inquiry Intrinsic Function (Generic): Returns the number of command arguments.
result = COMMAND_ARGUMENT_COUNT ()
Results
The result is a scalar of type default integer. The result value is equal to the number of command arguments available. If there are no command arguments available, the result is 0. The command name does not count as one of the command arguments.
Example
Consider the following:
program echo_command_line
integer i, cnt, len, status
character c*30, b*100
call get_command (b, len, status)
if (status .ne. 0) then
write (*,*) 'get_command failed with status = ', status
stop
end if
write (*,*) 'command line = ', b (1:len)
call get_command_argument (0, c, len, status)
if (status .ne. 0) then
write (*,*) 'Getting command name failed with status = ', status
stop
end if
write (*,*) 'command name = ', c (1:len)
cnt = command_argument_count ()
write (*,*) 'number of command arguments = ', cnt
do i = 1, cnt
call get_command_argument (i, c, len, status)
if (status .ne. 0) then
write (*,*) 'get_command_argument failed: status = ', status, ' arg = ', i
stop
end if
write (*,*) 'command arg ', i, ' = ', c (1:len)
end do
write (*,*) 'command line processed'
end
If the above program is invoked with the command line " echo_command_line.exe −o 42 −a hello b", the following is displayed:
command line = echo_command_line.exe −o 42 −a hello b
command name = echo_command_line.exe
number of command arguments = 5
command arg 1 = -o
command arg 2= 42
command arg 3 = -a
command arg 4 = hello
command arg 5 = b
command line processed