NARGS

実行時関数:コマンドを含むコマンド行引数の総数を返します。

モジュールUSE DFLIB

形式

result = NARGS ( )

結果

結果の型は INTEGER(4) です。結果は,コマンドを含んだコマンド行引数の数です。たとえば,PROG1 -g -c -a のコマンド行呼び出しに対して,NARGS4 を返します。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

GETARGIARGC

	USE DFLIB
	INTEGER(2) result
	result = RUNQQ('myprog', '-c -r')
	END

	! MYPROG.F90 はコマンド・スイッチ -r, -c, -d に応答します。
	USE DFLIB
	INTEGER(4) count, num
	INTEGER(2) i, status
	CHARACTER(80) buf
	REAL r1 / 0.0 /
	COMPLEX c1 / (0.0,0.0) /
	REAL(8) d1 / 0.0 /

	num = 5
	count = NARGS( )
	DO i = 1, count-1
	  CALL GETARG(i, buf, status)
	  IF (buf(2:status) .EQ.'r') THEN
	    r1 = REAL(num)
	    WRITE (*,*) 'r1 = ',r1
	  ELSE IF (buf(2:status) .EQ.'c') THEN
	    c1 = CMPLX(num)
	    WRITE (*,*) 'c1 = ', c1
	  ELSE IF (buf(2:status) .EQ.'d') THEN
	    d1 = DBLE(num)
	    WRITE (*,*) 'd1 = ', d1
	  ELSE
	    WRITE(*,*) 'Invalid command switch'
	    EXIT
	  END IF
	END DO
	END