Access to command line arguments

프로그램명 및 프로그램 인자에 접근하기

subroutine

CALL get_command(command, length, status)

CALL get_command_argument(number, value, length, status)

function

command_argument_count()

예제 프로그램

PROGRAM get_command_line

IMPLICIT NONE

INTEGER :: i
CHARACTER(len=128) :: command
CHARACTER(len=80) :: arg

! Get entire comand line
CALL get_command(command)
WRITE (*,'(A,A)') 'Entire command line is ', command

! Get the program name
CALL get_command_argument(0, command)
WRITE (*, '(A,A)') 'Program name is : ', TRIM(command)

! Now Get the individual arguments
DO i = 1, command_argument_count()
CALL get_command_argument(i, arg)
WRITE (*, '(A, I2, A, A)') 'Argument ', i, ' is ', TRIM(arg)
END DO

END PROGRAM get_command_line

위 소스를 get_com_line.f95로 저장

컴파일 및 프로그램 테스트