anchor.diff:      ! 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,    DOFs, 'Rad_B', ErrStat2, ErrMsg2); CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,'SS_Rad_Init')
  -    CALL AllocAry( Rad_C, DOFs, numStates,    'Rad_C', 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()
  
positive.code:     INTEGER, allocatable                   :: xx (:)                               ! Active DOF's on the input file .ss
      INTEGER                                :: numDOFs                              ! Number of DOFS  
      INTEGER                                :: numStates                            ! Number of states
      int(IntKi)                             :: N                                    ! Counter
      INTEGER                                :: Nlines                               ! Number of lines in the input file, used to determine N
      INTEGER                                :: UnSS                                 ! I/O unit number for the WAMIT output file with the .ss extension; this file contains the state-space matrices.
      INTEGER                                :: Sttus                                ! Error in reading .ss file
  
negative.code:         END IF
      END DO
      
      numDOFs = SUM (xx) !Number of DOFS in the input file
      
        IF (ErrStat >= AbortErrLev) THEN
           CALL CleanUp()
  