• Main Page
  • Namespaces
  • Classes
  • Files
  • File List
  • File Members

configurable.f

Go to the documentation of this file.
00001 C      $Id: configurable.f.cmake 11680 2011-03-27 17:57:51Z airwin $
00002 C
00003 C      Copyright (C) 2004  Alan W. Irwin
00004 C
00005 C      This file is part of PLplot.
00006 C
00007 C      PLplot is free software; you can redistribute it and/or modify
00008 C      it under the terms of the GNU Library General Public License as
00009 C      published by the Free Software Foundation; either version 2 of the
00010 C      License, or (at your option) any later version.
00011 C
00012 C      PLplot is distributed in the hope that it will be useful,
00013 C      but WITHOUT ANY WARRANTY; without even the implied warranty of
00014 C      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00015 C      GNU Library General Public License for more details.
00016 C
00017 C      You should have received a copy of the GNU Library General Public
00018 C      License along with PLplot; if not, write to the Free Software
00019 C      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
00020 
00021       subroutine plparseopts(mode)
00022       implicit none
00023       include 'sfstubs.h'
00024       integer mode
00025       integer maxargs, iargs, numargs, index, maxindex, iargc, islen
00026       parameter(maxindex = maxlen/4)
00027       parameter (maxargs=20)
00028       character*(maxlen) arg
00029       integer*4 iargsarr(maxindex, maxargs)
00030 C      write(0,'(a)') 'plparseopts not implemented on this fortran'//
00031 C     & ' platform because iargc or getarg are not available'
00032       numargs = iargc()
00033       if(numargs.lt.0) then
00034 C       This actually happened on badly linked Cygwin platform.
00035         write(0,'(a)') 'plparseopts: negative number of arguments'
00036         return
00037       endif
00038       if(numargs+1.gt.maxargs) then
00039         write(0,'(a)') 'plparseopts: too many arguments'
00040         return
00041       endif
00042       do 10 iargs = 0, numargs
00043         call getarg(iargs, arg)
00044         call plstrf2c(arg(:islen(arg)), string1, maxlen)
00045         do 5 index = 1, maxindex
00046           iargsarr(index, iargs+1) = s1(index)
00047     5     continue
00048    10   continue
00049       call plparseopts7(numargs+1, iargsarr, mode, maxindex*4)
00050       end

Generated on Wed Oct 12 2011 20:42:21 for PLplot by  doxygen 1.7.1