[Plplot-cvs] SF.net SVN: plplot:[9469] trunk

[<arj...@us...>]

Revision: 9469
          http://plplot.svn.sourceforge.net/plplot/?rev=9469&view=rev
Author:   arjenmarkus
Date:     2009-02-07 13:54:45 +0000 (Sat, 07 Feb 2009)

Log Message:
-----------
Added DEC$ATTRIBUTES compiler directives to access the COMMON block "PLPLOT" under CVF (and Intel Fortran) under Windows. The COMMON block must be explicitly exported and imported and this is the way to do it.

Modified Paths:
--------------
    trunk/bindings/f77/sfstubs.fm4
    trunk/examples/f77/x09f.fm4
    trunk/examples/f77/x14f.fm4

Modified: trunk/bindings/f77/sfstubs.fm4
===================================================================
--- trunk/bindings/f77/sfstubs.fm4	2009-02-07 04:39:01 UTC (rev 9468)
+++ trunk/bindings/f77/sfstubs.fm4	2009-02-07 13:54:45 UTC (rev 9469)
@@ -238,6 +238,8 @@
       integer nx, ny, kx, lx, ky, ly, nlevel
       real*8 z(nx, ny), clevel(nlevel)
       real*8 tr(6)
+
+!DEC$ ATTRIBUTES DLLEXPORT :: PLPLOT
       common /plplot/ tr
 
       call plcont7(z,nx,ny,kx,lx,ky,ly,clevel,nlevel,tr)

Modified: trunk/examples/f77/x09f.fm4
===================================================================
--- trunk/examples/f77/x09f.fm4	2009-02-07 04:39:01 UTC (rev 9468)
+++ trunk/examples/f77/x09f.fm4	2009-02-07 13:54:45 UTC (rev 9469)
@@ -34,6 +34,7 @@
      &  xg2(xdim, ydim), yg2(xdim, ydim)
       real*8 tr, xx, yy, argx, argy, distort
 
+CDEC$ ATTRIBUTES DLLIMPORT :: PLPLOT
       common /plplot/ tr(6)
 
       data clevel /-1.d0, -0.8d0, -0.6d0, -0.4d0, -0.2d0,

Modified: trunk/examples/f77/x14f.fm4
===================================================================
--- trunk/examples/f77/x14f.fm4	2009-02-07 04:39:01 UTC (rev 9468)
+++ trunk/examples/f77/x14f.fm4	2009-02-07 13:54:45 UTC (rev 9469)
@@ -59,7 +59,7 @@
 
       write(6,'(3A)') 'Demo of multiple output streams via the ',
      &  driver(:lnblnk(driver)), ' driver.'
-      write(6,'(A)') 'Running with the second stream as slave '// 
+      write(6,'(A)') 'Running with the second stream as slave '//
      &  'to the first.'
       write(6,*)
 C      flush unit 6 so this part of stdout is guaranteed to be written prior
@@ -407,6 +407,7 @@
      &  xg2(xdim, ydim), yg2(xdim, ydim)
       real*8 tr, xx, yy, argx, argy, distort
 
+!DEC$ ATTRIBUTES DLLIMPORT :: PLPLOT
       common /plplot/ tr(6)
 
       data clevel /-1.d0, -0.8d0, -0.6d0, -0.4d0, -0.2d0,


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