SUBROUTINE COMPRESS (IFILE, AIN, AOUT)
C
C  ROUTINE TO COMPRESS THE ATTRIBUTE VALUES
C
      DIMENSION AIN(1), AOUT(1)
C
      AOUT( 1) = AIN( 1)*10000.0 + AIN( 3)
      AOUT( 2) = AIN( 2)
      AOUT( 3) = AIN( 5)*   10.0 + AIN( 4)
      AOUT( 4) = AIN( 6)
      AOUT( 5) = AIN( 7)
      AOUT( 6) = AIN( 8)
      AOUT( 7) = AIN( 9)
      AOUT( 8) = AIN(10)
      AOUT( 9) = AIN(11)*   10.0 + AIN(12)
      AOUT(10) = AIN(13)
      AOUT(11) = AIN(14)
      AOUT(12) = AIN(15)
      AOUT(13) = AIN(16)
      AOUT(14) = AIN(17)
C
      RETURN 
      END
C
      SUBROUTINE DECOMP (IFILE, AIN, AOUT)
C
C  ROUTINE TO EXPAND THE ATTRIBUTE VALUES
C
      DIMENSION AIN(1), AOUT(1)
C
      AOUT( 1) = IFIX(AIN( 1)/10000.0)
      AOUT( 2) = AIN(2)
      AOUT( 3) = AIN( 1)-AOUT(1)*10000.0
      AOUT( 5) = IFIX(AIN( 3)/10.0)
      AOUT( 4) = AIN( 3)-AOUT(5)*10.0
      AOUT( 6) = AIN( 4)
      AOUT( 7) = AIN( 5)
      AOUT( 8) = AIN( 6)
      AOUT( 9) = AIN( 7)
      AOUT(10) = AIN( 8)
      AOUT(11) = IFIX(AIN(9)/10.0)
      AOUT(12) = AIN( 9)-AOUT(11)*10.0
      AOUT(13) = AIN(10)
      AOUT(14) = AIN(11)
      AOUT(15) = AIN(12)
      AOUT(16) = AIN(13)
      AOUT(17) = AIN(14)
C
      RETURN 
      END