anchor.diff:        IF ( LEN_TRIM(InData%FileName) > 0 .AND. LEN_TRIM(InData%ProcName) > 0 ) THEN
            CALL LoadDynamicLib( InData, ErrStat, ErrMsg )
         END IF
  -      
  +
      END SUBROUTINE DLLTypeUnPack
  -   
  -!=======================================================================   
  +
  +!=======================================================================
   SUBROUTINE RemoveNullChar( Str )
   
      ! This routine removes trailing C_NULL characters, which can be present when
      ! passing strings between C and Fortran
  -   
  +
      CHARACTER(*), INTENT(INOUT) :: Str
   
      INTEGER(IntKi)  :: I
   
  -      I = INDEX( Str, C_NULL_CHAR ) - 1 
  -      IF ( I > 0 ) Str = Str(1:I) 
  +      I = INDEX( Str, C_NULL_CHAR ) - 1
  +      IF ( I > 0 ) Str = Str(1:I)
   
   END SUBROUTINE RemoveNullChar
  -   
  +
   !=======================================================================
   SUBROUTINE SetErrStat ( ErrStatLcl, ErrMessLcl, ErrStat,ErrMess,RoutineName )
   
  
positive.code: 
        INTEGER(IntKi), INTENT(OUT)            :: ErrStat                       ! The error status.
        INTEGER(IntKi), INTENT(INOUT)          :: LineNum                       ! The number of the line to parse.
  
        CHARACTER(*),   INTENT(In)             :: AryName                       ! The array name we are trying to fill.
        CHARACTER(*),   INTENT(OUT)            :: ErrMsg                        ! The error message, if ErrStat /= 0.
  
negative.code:          RETURN
        ENDIF
  
        IF ( PRESENT(UnEc) )  THEN
           IF ( UnEc > 0 )  WRITE (UnEc,'(A)')  TRIM( FileInfo%Lines(LineNum) )
        END IF
  
        LineNum = LineNum + 1
  
        CALL ExitThisRoutine ( ErrID_None, ' ' )
  