anchor.diff:        end subroutine plfill3
   
         subroutine plgriddata( x, y, z, xg, yg, zg, type, data )
  -         real(kind=plflt), dimension(:)   :: x, y, z, xg, yg, data
  +         real(kind=plflt), dimension(:)   :: x, y, z, xg, yg
            real(kind=plflt), dimension(:,:) :: zg
  +         real(kind=plflt)                 :: data
            integer                          :: type
   
            call plgriddataf77( x, y, z, size(x), xg, size(xg), yg, size(yg), zg, &
  
positive.code: 
        interface
           function plrandd()
           end function plrandd
        end interface
  
        interface
           function plrandi()
           end function plrandi
        end interface
  
  
negative.code:       end interface
  
        interface
           subroutine plseed( s )
             integer :: s
           end subroutine plseed
        end interface
  
  