subroutine revrarr(x,j)
c
c reverse the order of the real array x
c
      implicit none
c the rcs revision #
      character*20 rcsrev
      parameter (rcsrev='$Revision: 2.22 $')
c
c passed
      integer j
      real*8 x(j)
c local
      integer i1,i2
      real*8 tmp1,tmp2
c
      do i1=1,j/2
         i2=j+1-i1
         tmp1=x(i1)
         x(i1)=x(i2)
         x(i2)=tmp1
      enddo
      return
      end
c
      subroutine reviarr(x,j)
c
c reverse the order of the integer array x
c
      implicit none
c the rcs revision #
      character*20 rcsrev
      parameter (rcsrev='$Revision: 2.22 $')
c
c passed
      integer j
      integer x(j)
c local
      integer i1,i2
      integer tmp1,tmp2
c
      do i1=1,j/2
         i2=j+1-i1
         tmp1=x(i1)
         x(i1)=x(i2)
         x(i2)=tmp1
      enddo
      return
      end