subroutine ForeignArgs(cSep,iVar,cVar,iArg,cArg)
        include         'dirspec.h'
            character   cSep
            integer     iVar
            character   cVar(iVar)*(*)
            integer     iArg
            character   cArg(iArg)*(*)

        character       Arg*500

        call ForeignArg(cSep,iVar,cVar,Arg)     ! Fill Arg string

        !-------
        ! Arg has the form '/sw1/sw2/sw3'. There is no white space and all
        ! slashes are followed by at least one character that is not a slash
        ! (i.e. a valid switch).

        nArg = iArg
        iArg = 0
        L  = itrim(Arg)
        I1 = 1                                  ! Location of first cSwitch
        do while (I1 .lt. L)
            I2 = I1+LocFirstLen(cSwitch,Arg(I1+1:L))! Next slash or L+1
            iArg = iArg+1
            cArg(iArg) = Arg(I1:I2-1)
            if (iArg .eq. nArg) I2 = L+1
            I1 = I2
        end do

        return
        end