next up previous
Next: Procedura getenv Up: Składnia procedur getenv, getarg Previous: Składnia procedur getenv, getarg

Procedura getarg i funkcja iargc

      CHARACTER*(*) ARGUMENT
      CALL GETARG(NR_ARGUMENTU,ARGUMENT)

gdzie NR_ARGUMENTU jest numerem kolejnego argumentu linii polecenia a ARGUMENT jest zmienną tekstową, w której będzie zapamiętany dany argument linii polecenia. Liczba arguentów linii polecenia jest dana przez funkcję IARGC().

Przykład:

      program prog
      character*8 argument(10)
      liczba_argumentow=iargc()
      do i=1,liczba_argumentow
        call getarg(i,argument(i))
      enddo
      print *,"liczba argumentow",liczba_argumentow
      do i=1,liczba_argumentow
        print *,"argument ",i,argument(i)
      enddo
      stop
      end

Wywołanie programu prog z argumentami pierwszy, drugi, trzeci wywoła następujący efekt

./prog pierwszy drugi trzeci

 liczba argumentow 3
 argument nr 1 wynosi pierwszy
 argument nr 2 wynosi drugi   
 argument nr 3 wynosi trzeci



Adam Liwo 2002-04-17