anchor.diff:  
   CONTAINS
       logical function Failed()
  -        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  +        CALL SetErrStatSimple(ErrStat, ErrMsg, 'ExtPtfm_SetStateMatrices')
           Failed =  ErrStat >= AbortErrLev
       end function Failed
   END SUBROUTINE SetStateMatrices
  
positive.code:                   allocate(TmpAry(1:p%nTot+1))
                    do i=1,p%nPtfmFt
                       iLine=iLine+1
                       call ReadAry( UnIn, InputFile, TmpAry, p%nTot+1, 'PtfmFt - Line: '//Num2LStr(iLine)//' Value: '//trim(Num2LStr(i))//'/'//Num2LStr(p%nPtfmFt), 'PtfmFt time-history', ErrStat2, ErrMsg2)
                       if (ErrStat2 /= 0) exit
                       p%PtfmFt_t(i) = TmpAry(1)
                       p%PtfmFt(i,:) = TmpAry(2:p%nTot+1)
                    end do
  
negative.code:                 - matmul(p%C21,m%uFlat(7:12)) - matmul(p%M21, m%uFlat(13:18)) + m%PtfmFt(6+1:6+p%nCB)
  CONTAINS
      logical function Failed()
          CALL SetErrStatSimple(ErrStat, ErrMsg, 'ExtPtfm_CalcContStateDeriv')
          Failed =  ErrStat >= AbortErrLev
      end function Failed
  END SUBROUTINE ExtPtfm_CalcContStateDeriv
  