C     ******************************************************************
C     ******************************************************************

      subroutine setp(n,x)

      implicit none

C     SCALAR ARGUMENTS
      integer n

C     ARRAY ARGUMENTS
      double precision x(n)

      end

C     ******************************************************************
C     ******************************************************************

      subroutine unsetp()

      implicit none

      end