anchor.diff:     AbortErrLev_c = AbortErrLev   
      dt_c          = Turbine%p_FAST%dt
      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 )
      
      call SetOpenFOAM_pointers(OpFM_Input_from_FAST, OpFM_Output_to_FAST)
                           
  
positive.code:    CALL FAST_CreateCheckpoint_T(t_initial, n_t_global, 1, Turbine, CheckpointRootName, ErrStat, ErrMsg, Unit )
  
        ! transfer Fortran variables to C:      
     ErrStat_c = ErrStat
     ErrMsg_c  = TRANSFER( TRIM(ErrMsg)//C_NULL_CHAR, ErrMsg_c )
  
  
  #ifdef CONSOLE_FILE   
  
negative.code:    
        ! set values for return to OpenFOAM
     ErrStat_c     = ErrStat
     ErrMsg        = TRIM(ErrMsg)//C_NULL_CHAR
     ErrMsg_c      = TRANSFER( ErrMsg//C_NULL_CHAR, ErrMsg_c )
     
                          
  end subroutine FAST_OpFM_Solution0
  