anchor.diff:          END IF
       END DO
       
  -    DOFs = SUM (xx) !Number of DOFS in the input file
  +    numDOFs = SUM (xx) !Number of DOFS in the input file
       
         IF (ErrStat >= AbortErrLev) THEN
            CALL CleanUp()
  
positive.code:       end do
  
    ! end do
  end subroutine TransformWAMITMatrices
     
  !----------------------------------------------------------------------------------------------------------------------------------
  !> This routine is called at the start of the simulation to perform initialization steps. 
  
negative.code:     ! Now we can allocate the temporary matrices A, B and C
      
      CALL AllocAry( Rad_A, numStates,    numStates,    'Rad_A', ErrStat2, ErrMsg2); CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,'SS_Rad_Init')
      CALL AllocAry( Rad_B, numStates,    numDOFs, 'Rad_B', ErrStat2, ErrMsg2); CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,'SS_Rad_Init')
      CALL AllocAry( Rad_C, numDOFs, numStates,    'Rad_C', ErrStat2, ErrMsg2); CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,'SS_Rad_Init')
      
        IF (ErrStat >= AbortErrLev) THEN
           CALL CleanUp()
  