      SUBROUTINE PIKSRT(N,a1,a2,a3,a4,a5)
      DIMENSION a1(N),a2(N),a3(N),a4(N),a5(N)
      DO 12 J=2,N
        A=A1(J)
        B=A2(J)
        C=A3(J)
        D=A4(J)
        E=A5(J)
        DO 11 I=J-1,1,-1
          IF(A1(I).LE.A)GO TO 10
          A1(I+1)=A1(I)
          A2(I+1)=A2(I)
          A3(I+1)=A3(I)
          A4(I+1)=A4(I)
          A5(I+1)=A5(I)
11      CONTINUE
        I=0
10      A1(I+1)=A  
  	A2(I+1)=B
	A3(I+1)=C
        A4(I+1)=D
 	A5(I+1)=E
12    CONTINUE
      RETURN
      END
