[70273] trunk/dports/science/plplot

4 Aug 2010

Revision: 70273
          http://trac.macports.org/changeset/70273
Author:   takeshi@macports.org
Date:     2010-08-04 03:22:34 -0700 (Wed, 04 Aug 2010)
Log Message:
-----------
plplot: commented out error generating part added for 5.9.6 in f95 binding.

Modified Paths:
--------------
    trunk/dports/science/plplot/Portfile

Added Paths:
-----------
    trunk/dports/science/plplot/files/patch-sfstubsf95.f90.diff

Modified: trunk/dports/science/plplot/Portfile
===================================================================

--- trunk/dports/science/plplot/Portfile	2010-08-04 07:29:46 UTC (rev 70272)
+++ trunk/dports/science/plplot/Portfile	2010-08-04 10:22:34 UTC (rev 70273)
@@ -36,7 +36,8 @@
                 port:tk \
                 port:zlib
 
-patchfiles      patch-x18f.f90.diff
+patchfiles      patch-x18f.f90.diff \
+                patch-sfstubsf95.f90.diff
 post-patch {
     reinplace "s|-framework AquaTerm|-F${prefix}/Library/Frameworks -framework AquaTerm|" ${worksrcpath}/cmake/modules/aqt.cmake
 }

Added: trunk/dports/science/plplot/files/patch-sfstubsf95.f90.diff
===================================================================
--- trunk/dports/science/plplot/files/patch-sfstubsf95.f90.diff	                        (rev 0)
+++ trunk/dports/science/plplot/files/patch-sfstubsf95.f90.diff	2010-08-04 10:22:34 UTC (rev 70273)
@@ -0,0 +1,147 @@
+--- bindings/f95/sfstubsf95.f90	2010-06-06 01:11:40.000000000 +0900
++++ bindings/f95/sfstubsf95.f90.new	2010-08-04 19:15:33.000000000 +0900
+@@ -505,13 +505,13 @@
+          end subroutine pllsty
+       end interface
+ 
+-      interface plmap
+-         module procedure plmap1, plmap2
+-      end interface plmap
+-
+-      interface plmeridians
+-         module procedure plmeridians1, plmeridians2
+-      end interface plmeridians
++!      interface plmap
++!         module procedure plmap1, plmap2
++!      end interface plmap
++
++!      interface plmeridians
++!         module procedure plmeridians1, plmeridians2
++!      end interface plmeridians
+ 
+       interface plmesh
+          module procedure plmesh
+@@ -1110,66 +1110,66 @@
+          call plline3f77( size(x), x, y, z )
+       end subroutine plline3
+ 
+-      subroutine plmap1(mapform,mapname,minx,maxx,miny,maxy) 
+-        use plplot_flt
+-        implicit none
+-        real(kind=plflt) minx, maxx, miny, maxy
+-        character*(*) mapname
+-        external mapform
+-        
+-        include 'sfstubs.h'
+-        
+-        call plstrf2c(mapname, string1, maxlen)
+-        
+-        call plsetmapformc(mapform)
+-        s1 = transfer( string1, s1 )
+-        call plmap7(s1,minx,maxx,miny,maxy)
+-        
+-      end subroutine plmap1
++!      subroutine plmap1(mapform,mapname,minx,maxx,miny,maxy) 
++!        use plplot_flt
++!        implicit none
++!        real(kind=plflt) minx, maxx, miny, maxy
++!        character*(*) mapname
++!        external mapform
++!        
++!        include 'sfstubs.h'
++!        
++!        call plstrf2c(mapname, string1, maxlen)
++!        
++!        call plsetmapformc(mapform)
++!        s1 = transfer( string1, s1 )
++!        call plmap7(s1,minx,maxx,miny,maxy)
++!        
++!      end subroutine plmap1
+       
+-      subroutine plmap2(mapname,minx,maxx,miny,maxy)
+-        use plplot_flt
+-        implicit none
+-        real(kind=plflt) minx, maxx, miny, maxy
+-        character*(*) mapname
+-        
+-        include 'sfstubs.h'
+-        
+-        call plstrf2c(mapname, string1, maxlen)
+-        
+-        call plclearmapformc()
+-        s1 = transfer( string1, s1 )
+-        call plmap7(s1,minx,maxx,miny,maxy)
+-        
+-      end subroutine plmap2
++!      subroutine plmap2(mapname,minx,maxx,miny,maxy)
++!        use plplot_flt
++!        implicit none
++!        real(kind=plflt) minx, maxx, miny, maxy
++!        character*(*) mapname
++!        
++!        include 'sfstubs.h'
++!        
++!        call plstrf2c(mapname, string1, maxlen)
++!        
++!        call plclearmapformc()
++!        s1 = transfer( string1, s1 )
++!        call plmap7(s1,minx,maxx,miny,maxy)
++!        
++!      end subroutine plmap2
+ 
+-      subroutine plmeridians1(mapform,dlong,dlat,minlong,maxlong, &
+-                             minlat,maxlat)
+-
+-      implicit none
+-      real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
+-      external mapform
+-
+-      include 'sfstubs.h'
+-
+-      call plsetmapformc(mapform)
+-      call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
+-
+-      end subroutine plmeridians1
+-
+-      subroutine plmeridians2(dlong,dlat,minlong,maxlong, &
+-                             minlat,maxlat)
+-
+-      implicit none
+-      real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
+-      external mapform
+-
+-      include 'sfstubs.h'
+-
+-      call plclearmapformc
+-      call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
++!      subroutine plmeridians1(mapform,dlong,dlat,minlong,maxlong, &
++!                             minlat,maxlat)
++!
++!      implicit none
++!      real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
++!      external mapform
++!
++!      include 'sfstubs.h'
++!
++!      call plsetmapformc(mapform)
++!      call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
++!
++!      end subroutine plmeridians1
+ 
+-      end subroutine plmeridians2
++!      subroutine plmeridians2(dlong,dlat,minlong,maxlong, &
++!                             minlat,maxlat)
++!
++!      implicit none
++!      real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
++!      external mapform
++!
++!      include 'sfstubs.h'
++!
++!      call plclearmapformc
++!      call plmeridians7(dlong,dlat,minlong,maxlong,minlat,maxlat)
++!
++!      end subroutine plmeridians2
+ 
+       subroutine plmesh( x, y, z, opt )
+          integer                          :: opt

    

[70273] trunk/dports/science/plplot

takeshi＠macports.org