      SUBROUTINE MAG_SENS(SENSDSN)
C
C READ MAG SENSITIVITIES 
C SBK  12/14/93
C
      CHARACTER SENSDSN*8
      CHARACTER*72 LINE(100)
      INTEGER*4 RANGE
C
      INCLUDE 'UNPACK.INC'
C
      I = 1
    5 CONTINUE
       READ(51,'(A72)',END=10,ERR=5) LINE(I)
       I = I + 1
      GOTO 5
   10 CONTINUE
      ILINE = I - 1
C
      IF (ILINE.EQ.0) THEN
       WRITE(68,*)
       WRITE(68,*) '***EMPTY MAG SENSITIVITIES FILE DETECTED***'
       STOP
      END IF
C
C GET SENSITIVITIES FILE NAME
C
      READ(LINE(1)(1:8),'(A8)') SENSDSN
C
      K = 2
      DO WHILE (LINE(K)(1:1).EQ.'#')
       K = K + 1
      END DO
C
C INBOARD MAGNETOMETER SENSITIVITIES
C
      DO I=0,7
       READ(LINE(K+I),*) RANGE,(IBSENS(J,RANGE),J=1,3)
      END DO
      K = K + 8
      DO WHILE (LINE(K)(1:1).EQ.'#')
       K = K + 1
      END DO
C
C OUTBOARD MAGNETOMETER SENSITIVITIES
C
      DO I=0,7
       READ(LINE(K+I),*) RANGE,(OBSENS(J,RANGE),J=1,3)
      END DO
      K = K + 8
      DO WHILE (LINE(K)(1:1).EQ.'#')
       K = K + 1
      END DO
C
      RETURN
      END
