--- 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