[Plplot-cvs] SF.net SVN: plplot:[9212] trunk/examples

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

Revision: 9212
          http://plplot.svn.sourceforge.net/plplot/?rev=9212&view=rev
Author:   airwin
Date:     2008-12-20 01:14:22 +0000 (Sat, 20 Dec 2008)

Log Message:
-----------
Tweak fortran formats to make example 31 stdout results consistent with C.

Modified Paths:
--------------
    trunk/examples/f77/x31f.fm4
    trunk/examples/f95/x31f.f90

Modified: trunk/examples/f77/x31f.fm4
===================================================================
--- trunk/examples/f77/x31f.fm4	2008-12-20 00:57:35 UTC (rev 9211)
+++ trunk/examples/f77/x31f.fm4	2008-12-20 01:14:22 UTC (rev 9212)
@@ -83,7 +83,7 @@
 C     compression parameter. 
       call plgcompression(compression2)
       write(*,'(A)') 'Output various PLplot parameters'
-      write(*,'(A,I3)') 'compression parameter = ', compression2
+      write(*,'(A,I2)') 'compression parameter = ', compression2
       if (compression2 .ne. compression1) then
          write(stderr,*) 'plgcompression test failed'
          status = 1;

Modified: trunk/examples/f95/x31f.f90
===================================================================
--- trunk/examples/f95/x31f.f90	2008-12-20 00:57:35 UTC (rev 9211)
+++ trunk/examples/f95/x31f.f90	2008-12-20 01:14:22 UTC (rev 9212)
@@ -82,7 +82,7 @@
 !     compression parameter. 
   call plgcompression(compression2)
   write(*,'(A)') 'Output various PLplot parameters'
-  write(*,'(A,I3)') 'compression parameter = ', compression2
+  write(*,'(A,I2)') 'compression parameter = ', compression2
   if (compression2 .ne. compression1) then
      write(stderr,*) 'plgcompression test failed'
      status = 1;


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