← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to bindings/f77/configurable.f.in

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
bindings/f77/configurable.f.in
1
 
C      $Id: configurable.f.in,v 1.5 2004/02/06 05:59:33 airwin Exp $
 
1
C      $Id: configurable.f.in,v 1.7 2005/04/27 06:43:09 rlaboiss Exp $
2
2
C
3
3
C      Copyright (C) 2004  Alan W. Irwin
4
4
C
16
16
C
17
17
C      You should have received a copy of the GNU Library General Public
18
18
C      License along with PLplot; if not, write to the Free Software
19
 
C      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
19
C      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20
20
 
21
21
      subroutine plparseopts(mode)
22
22
      implicit none
27
27
      parameter (maxargs=20)
28
28
      character*(maxlen) arg
29
29
      integer*4 iargsarr(maxindex, maxargs)
30
 
@HAVE_F77PARSE_CL_FALSE@      write(0,'(a)') 'PLPARSEOPTS not implemented on this fortran'//
 
30
@HAVE_F77PARSE_CL_FALSE@      write(0,'(a)') 'plparseopts not implemented on this fortran'//
31
31
@HAVE_F77PARSE_CL_FALSE@     & ' platform because iargc or getarg are not available'
32
32
@HAVE_F77PARSE_CL_TRUE@      numargs = iargc()
33
33
@HAVE_F77PARSE_CL_TRUE@      if(numargs.lt.0) then
34
34
@HAVE_F77PARSE_CL_TRUE@C       This actually happened on badly linked Cygwin platform.
35
 
@HAVE_F77PARSE_CL_TRUE@        write(0,'(a)') 'PLPARSEOPTS: negative number of arguments'
 
35
@HAVE_F77PARSE_CL_TRUE@        write(0,'(a)') 'plparseopts: negative number of arguments'
36
36
@HAVE_F77PARSE_CL_TRUE@        return
37
37
@HAVE_F77PARSE_CL_TRUE@      endif
38
38
@HAVE_F77PARSE_CL_TRUE@      if(numargs+1.gt.maxargs) then
39
 
@HAVE_F77PARSE_CL_TRUE@        write(0,'(a)') 'PLPARSEOPTS: too many arguments'
 
39
@HAVE_F77PARSE_CL_TRUE@        write(0,'(a)') 'plparseopts: too many arguments'
40
40
@HAVE_F77PARSE_CL_TRUE@        return
41
41
@HAVE_F77PARSE_CL_TRUE@      endif
42
42
@HAVE_F77PARSE_CL_TRUE@      do 10 iargs = 0, numargs