anchor.diff:        real(rs) :: C(6,6), CR(6,6) ! Voigt notation matrix
         real(rs) :: alp,bet,gam ! rotation (clockwise) about 1,2,3 axis respectively
         real(rs) :: a,b,g     
  -      real(rs) :: R(3,3), D(6,6), R1(3,3), R2(3,3), R3(3,3), R21(3,3)
  +      real(rs) :: R(3,3), R1(3,3), R2(3,3), R3(3,3), R21(3,3)
         
         integer :: i,j,k,l,m,n,lp,lq,lt
               
  
positive.code:       ! Non-exponential display (all values on same scale)
        if (.not.iexpo) then
           ! If necessary, work out max for matrix
           if (autopower) ipower = log10(maxval(abs(C)))
           write(fmt,'(a,i0.0,a,i0.0,a)') '(6(f',indp+3,'.',indp,',1x))'
           write(iunit,'(a,i0.0)') 'x 10^',ipower
           write(iunit,fmt) C/(10.**ipower)
  
negative.code:       real(rs) :: M(21,21)    ! Projector
        real(rs) :: C(6,6)
        real(rs) :: X(21),XH(21),Xin(21),CH(6,6)
        integer  :: i
        
  !  Input matrix and vector
        C = Cin
  