anchor.diff:     END IF
      
      ErrStat_c     = ErrStat
  -   ErrMsg_c      = TRANSFER( TRIM(ErrMsg)//C_NULL_CHAR, ErrMsg_c )
  +   ErrMsg        = TRIM(ErrMsg)//C_NULL_CHAR
  +   ErrMsg_c      = TRANSFER( ErrMsg//C_NULL_CHAR, ErrMsg_c )
      
   #ifdef CONSOLE_FILE   
      if (ErrStat /= ErrID_None) call wrscr1(trim(ErrMsg))
  
positive.code:    AbortErrLev_c = AbortErrLev   
     dt_c          = Turbine%p_FAST%dt
     ErrStat_c     = ErrStat
     ErrMsg_c      = TRANSFER( TRIM(ErrMsg)//C_NULL_CHAR, ErrMsg_c )
     
     call SetOpenFOAM_pointers(OpFM_Input_from_FAST, OpFM_Output_to_FAST)
                          
  
negative.code:       ! set the outputs for external code here...
        ! return y_FAST%ChannelNames
        
        ErrStat_c     = ErrStat
        ErrMsg        = TRIM(ErrMsg)//C_NULL_CHAR
        ErrMsg_c      = TRANSFER( ErrMsg//C_NULL_CHAR, ErrMsg_c )
     END IF
     
     CALL FillOutputAry_T(Turbine, Outputs)   
  