実行時関数:コマンドを含むコマンド行引数の総数を返します。
モジュール:USE DFLIB
形式
result = NARGS ( )
結果
結果の型は INTEGER(4) です。結果は,コマンドを含んだコマンド行引数の数です。たとえば,PROG1 -g -c -a のコマンド行呼び出しに対して,NARGS は 4 を返します。
互換性
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
関連情報
例
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