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

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

Revision: 9319
          http://plplot.svn.sourceforge.net/plplot/?rev=9319&view=rev
Author:   airwin
Date:     2009-01-15 23:23:20 +0000 (Thu, 15 Jan 2009)

Log Message:
-----------
flush fortran stdout so that it is guaranteed to finish before C stdout.
(According to Fortran documentation accessible to me, "call flush(iunit)"
is available for the g77, gfortran, intel, absoft, and Portland Group
fortran compilers.)

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

Modified: trunk/examples/f77/x14f.fm4
===================================================================
--- trunk/examples/f77/x14f.fm4	2009-01-15 20:50:18 UTC (rev 9318)
+++ trunk/examples/f77/x14f.fm4	2009-01-15 23:23:20 UTC (rev 9319)
@@ -65,11 +65,14 @@
       call plgdev(driver)
       call plgfam(fam,num,bmax)
 
-      write(*,'(3A)') 'Demo of multiple output streams via the ',
+      write(6,'(3A)') 'Demo of multiple output streams via the ',
      &  driver(:lnblnk(driver)), ' driver.'
-      write(*,'(A)') 'Running with the second stream as slave '// 
+      write(6,'(A)') 'Running with the second stream as slave '// 
      &  'to the first.'
-      write(*,*)
+      write(6,*)
+C      flush unit 6 so this part of stdout is guaranteed to be written prior
+C      to stdout generated by second plinit below.
+      call flush(6)
 
 C      Set up first stream
 

Modified: trunk/examples/f95/x14f.f90
===================================================================
--- trunk/examples/f95/x14f.f90	2009-01-15 20:50:18 UTC (rev 9318)
+++ trunk/examples/f95/x14f.f90	2009-01-15 23:23:20 UTC (rev 9319)
@@ -62,11 +62,14 @@
       call plgdev(driver)
       call plgfam(fam,num,bmax)
 
-      write(*,'(3A)') 'Demo of multiple output streams via the ', &
+      write(6,'(3A)') 'Demo of multiple output streams via the ', &
         trim(driver), ' driver.'
-      write(*,'(A)') 'Running with the second stream as slave '// & 
+      write(6,'(A)') 'Running with the second stream as slave '// & 
         'to the first.'
-      write(*,*)
+      write(6,*)
+!      flush unit 6 so this part of stdout is guaranteed to be written prior
+!      to stdout generated by second plinit below.
+      call flush(6)
 
 !      Set up first stream
 


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