25 integer :: maxargs, iargs, numargs, index, maxindex
28 character (len=maxlen) :: arg
29 integer,
dimension(maxindex, maxargs) :: iargsarr
30 numargs = command_argument_count()
33 write(0,
'(a)')
'plparseopts: negative number of arguments'
36 if(numargs+1.gt.maxargs)
then
37 write(0,
'(a)')
'plparseopts: too many arguments'
40 do 10 iargs = 0, numargs
41 call get_command_argument(iargs, arg)
44 do 5 index = 1, maxindex
45 iargsarr(index, iargs+1) =
s1(index)
48 call plparseopts7(numargs+1, iargsarr, mode, maxindex*4)