      SUBROUTINE DS3 (R1,R2,R3,R4,R5,R6, ARRAY)

C  Set an array with six real numbers

      REAL R1,R2,R3,R4,R5,R6,ARRAY(6)

      ARRAY(1) = R1
      ARRAY(2) = R2
      ARRAY(3) = R3
      ARRAY(4) = R4
      ARRAY(5) = R5
      ARRAY(6) = R6

      END
