casa-mp-base

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