anchor.diff:      END IF
   
        ! allocate ConnectList
  -    ALLOCATE ( other%ConnectList(p%NConnects), STAT = ErrStat )
  -    IF ( ErrStat /= ErrID_None ) THEN
  -       ErrMsg  = ' Error allocating space for ConnectList array.'
  +    ALLOCATE ( other%ConnectList(p%NConnects), STAT = ErrStat2 )
  +    IF ( ErrStat2 /= 0 ) THEN
  +       CALL SetErrStat( ErrID_Fatal, 'Error allocating space for ConnectList array.', ErrStat, ErrMsg, RoutineName )
          CALL CleanUp()
          RETURN
       END IF
  
positive.code:     !  Connections Section
      !-------------------------------------------------------------------------------------------------
  
      CALL ReadCom( UnIn, FileName, 'Connections header', ErrStat, ErrMsg, UnEc )
  
      IF ( ErrStat /= ErrID_None ) THEN
         ErrMsg  = ' Failed to read connections header line.'
         CALL CleanUp()
         RETURN
      END IF
  
  
      CALL ReadVar ( UnIn, FileName, p%NConnects, 'NConnects', 'Number of Connects', ErrStat, ErrMsg, UnEc )
  
      IF ( ErrStat /= ErrID_None ) THEN
         ErrMsg  = ' Failed to read NConnects parameter.'
         CALL CleanUp()
         RETURN
      END IF
  
  
      ! Table header
      DO I = 1, 2
         CALL ReadCom( UnIn, FileName, 'Connects header', ErrStat, ErrMsg, UnEc )
  
         IF ( ErrStat /= ErrID_None ) THEN
            ErrMsg  = ' Failed to read Connects table header line.'
            CALL CleanUp()
            RETURN
         END IF
      END DO
  
      ! make sure NConnects is at least two
  
negative.code:    !     CALL ReadCom( UnIn, FileName, 'Outputs header', ErrStat, ErrMsg, UnEc )
  
      ! allocate InitInp%Outliest (to a really big number for now...)
      CALL AllocAry( InitInp%OutList, 1000, "MoorDyn Input File's Outlist", ErrStat2, ErrMsg2 )
           CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
           IF ( ErrStat >= AbortErrLev ) THEN
              CALL CleanUp()
              RETURN
           END IF
  
      ! OutList - List of user-requested output channels (-):
      CALL ReadOutputList ( UnIn, FileName, InitInp%OutList, p%NumOuts, 'OutList', "List of user-requested output channels", ErrStat2, ErrMsg2, UnEc )
            CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
            IF ( ErrStat >= AbortErrLev ) THEN
               CALL CleanUp()
               RETURN
            END IF
  
     !print *, 'NumOuts is ', p%NumOuts
     !print *, '  OutList is ', InitInp%OutList(1:p%NumOuts)
  