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

[<and...@us...>]

Revision: 9168
          http://plplot.svn.sourceforge.net/plplot/?rev=9168&view=rev
Author:   andrewross
Date:     2008-12-17 16:19:58 +0000 (Wed, 17 Dec 2008)

Log Message:
-----------
Trim excess whitespace in output from fortran versions of example 23.

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

Modified: trunk/examples/f77/x23f.fm4
===================================================================
--- trunk/examples/f77/x23f.fm4	2008-12-17 15:59:05 UTC (rev 9167)
+++ trunk/examples/f77/x23f.fm4	2008-12-17 16:19:58 UTC (rev 9168)
@@ -314,8 +314,8 @@
      &     ,fci_old
       write (*,'(a)') 'For example 23 prior to page 12 the '//
      &     'font family, style and weight are  '// 
-     &     family(ifamily+1)//' '//style(istyle+1)//' '//
-     &     weight(iweight+1)
+     &     trim(family(ifamily+1))//' '//trim(style(istyle+1))//' '//
+     &     trim(weight(iweight+1))
 
       do 140 page=11,15
          dy = 0.030d0

Modified: trunk/examples/f95/x23f.f90
===================================================================
--- trunk/examples/f95/x23f.f90	2008-12-17 15:59:05 UTC (rev 9167)
+++ trunk/examples/f95/x23f.f90	2008-12-17 16:19:58 UTC (rev 9168)
@@ -303,7 +303,7 @@
       call plgfont(ifamily, istyle, iweight)
       write (*,'(a,z8)') 'For example 23 prior to page 12 the FCI is 0x',fci_old
       write (*,'(a)') 'For example 23 prior to page 12 the font family, style and weight are  '// &
-           family(ifamily+1)//' '//style(istyle+1)//' '//weight(iweight+1)
+           trim(family(ifamily+1))//' '//trim(style(istyle+1))//' '//trim(weight(iweight+1))
 
     do page=11,15
        dy = 0.030_plflt


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