[Plplot-cvs] SF.net SVN: plplot:[11512] trunk/bindings/f95/plplot_parameters.h

[<ai...@us...>]

Revision: 11512
          http://plplot.svn.sourceforge.net/plplot/?rev=11512&view=rev
Author:   airwin
Date:     2011-01-27 18:54:17 +0000 (Thu, 27 Jan 2011)

Log Message:
-----------
Use Arjen's suggestion to replace z'8000000' by ishft(1,31) for the
PL_FCI_MARK case.  This method avoids the compiler integer overflow errors
associated with using z'8000000'.

Modified Paths:
--------------
    trunk/bindings/f95/plplot_parameters.h

Modified: trunk/bindings/f95/plplot_parameters.h
===================================================================
--- trunk/bindings/f95/plplot_parameters.h	2011-01-27 09:59:42 UTC (rev 11511)
+++ trunk/bindings/f95/plplot_parameters.h	2011-01-27 18:54:17 UTC (rev 11512)
@@ -93,6 +93,7 @@
       integer, parameter :: PL_PARSE_NOPROGRAM = z'0020' ! Program name NOT in *argv[0]..
       integer, parameter :: PL_PARSE_NODASH = z'0040' ! Set if leading dash NOT required
       integer, parameter :: PL_PARSE_SKIP = z'0080' ! Skip over unrecognized args
+      integer, parameter :: PL_FCI_MARK = ishft(1,31) 
       integer, parameter :: PL_FCI_IMPOSSIBLE = z'00000000' 
       integer, parameter :: PL_FCI_HEXDIGIT_MASK = z'f' 
       integer, parameter :: PL_FCI_HEXPOWER_MASK = z'7' 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.