! Accepts command line options and return it to the main program.
! The delimiter is a blank space.


        subroutine getline(nkeys,option)
        character (Len=100),dimension(50)::option
        INTEGER nkeys, i
        nkeys = iargc()

        if (nkeys.eq.0) return

        do 10 i = 1,nkeys
           call getarg(i,option(i))
10      continue

        end Subroutine getline