Update of /cvsroot/plplot/plplot/examples/f95
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6385
Modified Files:
x14f.f95
Log Message:
Use trim rather than lnblnk.
Index: x14f.f95
===================================================================
RCS file: /cvsroot/plplot/plplot/examples/f95/x14f.f95,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- x14f.f95 15 May 2006 07:49:38 -0000 1.2
+++ x14f.f95 15 May 2006 09:54:39 -0000 1.3
@@ -41,9 +41,6 @@
real(kind=plflt) xscale, yscale, xoff, yoff
common /plotdat/ x, y, xs, ys, xscale, yscale, xoff, yoff
character*80 version
-! some fortran compilers demand typing of intrinsic lnblnk, and
-! although this is not demanded on g77 it also works there.
- integer lnblnk
xleng0 = 400
yleng0 = 300
@@ -63,7 +60,7 @@
call plgdev(driver)
write(*,*) 'Demo of multiple output streams via the ', &
- driver(:lnblnk(driver)), ' driver.'
+ trim(driver), ' driver.'
write(*,*) 'Running with the second stream as slave ', &
'to the first.'
write(*,*)
|