SUBROUTINE PLOTSV(I)
      RETURN
      END

      SUBROUTINE NDPLSV
      RETURN
      END

      SUBROUTINE SETD(I)
      RETURN
      END