subroutine parenthese_ps(ch,n)
      CHARACTER*1024 CH,chch
      j = 1
      do i=1,n
        if (ch(i:i).eq.'(') then
c
c char(92) = \
c
          chch(j:j+1) = char(92)//'('
          j = j+2
        elseif (ch(i:i).eq.')') then
          chch(j:j+1) = char(92)//')'
          j = j+2
        else
          chch(j:j) = ch(i:i)
          j = j+1
        endif
      enddo
      if (j-1.ne.n) then
        n = j-1
        ch(1:n) = chch(1:n)
        ch(n+1:n+1) = char(0)
      endif
      end