SUBROUTINE FLIPPER_FIX(GAMMA,NPRI,BAD)

C This routine applies correction matrix to outboard MAG data skewed
C by unwanted rotation of the outboard MAG flipper assembly following
C spacecraft commanding errors on Nov. 30, 2006

C written by Sandy Kramer, GST, Inc., code 690, 05/18/2007
C INPUT VARIABLES

C  BAD      FILL VALUE
C  GAMMA    PRIMARY MAG FIELD STRENGTH
C  NPRI     NUMBER OF PRIMARY WORDS

C OUTPUT VARIABLES

C  GAMMA    PRIMARY MAG FIELD STRENGTH

C LOCAL VARIABLES

C  FIELD    TEMPORARY VARIABLE

      REAL*4 GAMMA(3,NPRI),FIELD(3),FIX(3,3)
C
      FIX(1,1) = 1.0
      FIX(1,2) = 0.0
      FIX(1,3) = 0.0
      FIX(2,1) = 0.0
      FIX(2,2) = 0.52992
      FIX(2,3) = 0.848048
      FIX(3,1) = 0.0
      FIX(3,2) = -0.848048
      FIX(3,3) = 0.52992
C
      DO I = 1,NPRI
C PRIMARY MAG SENSOR ALIGNMENT
       IF ( GAMMA(1,I).NE.BAD .AND.
     &      GAMMA(2,I).NE.BAD .AND.
     &      GAMMA(3,I).NE.BAD ) THEN
        CALL MPRD31(FIELD,FIX,GAMMA(1,I)) 
        GAMMA(1,I) = FIELD(1)
        GAMMA(2,I) = FIELD(2)
        GAMMA(3,I) = FIELD(3)
       ELSE
        GAMMA(1,I) = BAD
        GAMMA(2,I) = BAD
        GAMMA(3,I) = BAD
       END IF
C END PRIMARY MAG SENSOR ALIGNMENT
      END DO

      RETURN
      END