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)
if write to the Free Software C Franklin Fifth MA USA integer maxlen parameter(maxlen=320) character *(maxlen) string1
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer s1(80)
if write to the Free Software C Franklin Fifth MA USA integer maxlen string3 character *maxlen string6 character *maxlen string9 integer string1
subroutine plstrf2c(string1, string2, maxlen)