[Plplot-cvs] SF.net SVN: plplot:[9849] trunk/examples/f95/x20f.f90

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

Revision: 9849
          http://plplot.svn.sourceforge.net/plplot/?rev=9849&view=rev
Author:   airwin
Date:     2009-04-24 23:54:36 +0000 (Fri, 24 Apr 2009)

Log Message:
-----------
Revert back completely to revision 9783 since the partial revert of 9847 
done for revision 9848 still had issues (e.g. example 20 exited early
with -dev xwin).

Revision Links:
--------------
    http://plplot.svn.sourceforge.net/plplot/?rev=9783&view=rev
    http://plplot.svn.sourceforge.net/plplot/?rev=9848&view=rev

Modified Paths:
--------------
    trunk/examples/f95/x20f.f90

Modified: trunk/examples/f95/x20f.f90
===================================================================
--- trunk/examples/f95/x20f.f90	2009-04-24 20:58:55 UTC (rev 9848)
+++ trunk/examples/f95/x20f.f90	2009-04-24 23:54:36 UTC (rev 9849)
@@ -369,12 +369,12 @@
 
           if (ierr .ne. 0) then
               read_img = .false.
+              write(*,*) 'Error!'
               return
           endif
 
           if (ver(1:1) .ne. '#' ) then
-              read_img = .false.
-              return
+              exit
           endif
       enddo
 
@@ -418,8 +418,7 @@
           record = record + 1
           read( 10, rec = record, iostat = ierr ) (img(i), i = 1,bytes )
           if ( ierr .ne. 0 ) then
-              read_img = .false.
-              return
+             exit
           endif
 
           do i = 1,bytes
@@ -453,8 +452,7 @@
               read( 10, rec = record ) (img(b), b = 1,bytes )
               first  = 1
           else
-              read_img = .false.
-              return
+              exit
           endif
       enddo
 


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