Add C and Fortran string error handling functions

Author: rafmudaf

glue-codes/labview/src/WaveTank.f90

@@ -7,7 +7,7 @@ MODULE WaveTankTesting
     USE SeaState_C_Binding, ONLY: SeaSt_C_Init, SeaSt_C_CalcOutput, SeaSt_C_End, MaxOutPts
     USE AeroDyn_Inflow_C_BINDING, ONLY: ADI_C_PreInit, ADI_C_SetupRotor, ADI_C_Init, ADI_C_End, MaxADIOutputs
     USE MoorDyn_C, ONLY: MD_C_Init, MD_C_End
-    USE NWTC_C_Binding, ONLY: IntfStrLen, SetErr, ErrMsgLen_C
+    USE NWTC_C_Binding, ONLY: IntfStrLen, SetErrStat_C, ErrMsgLen_C
 
     IMPLICIT NONE
     SAVE
@@ -27,26 +27,7 @@ MODULE WaveTankTesting
 
 CONTAINS
 
-SUBROUTINE SetErrStat_C(ErrStatLocal, ErrMessLocal, ErrStatGlobal, ErrMessGlobal, RoutineName)
 
-    INTEGER(C_INT),                          INTENT(IN   ) :: ErrStatLocal                  ! Error status of the operation
-    CHARACTER(KIND=C_CHAR, LEN=ErrMsgLen_C), INTENT(IN   ) :: ErrMessLocal                  ! Error message if ErrStat /= ErrID_None
-    INTEGER(C_INT),                          INTENT(INOUT) :: ErrStatGlobal                 ! Error status of the operation
-    CHARACTER(KIND=C_CHAR),                  INTENT(INOUT) :: ErrMessGlobal(ErrMsgLen_C)    ! Error message if ErrStat /= ErrID_None
-    CHARACTER(*),                            INTENT(IN   ) :: RoutineName                   ! Name of the routine error occurred in
-
-    IF ( ErrStatLocal == ErrID_None ) RETURN
-
-    IF (ErrStatGlobal /= ErrID_None) THEN
-        ! print *, "in if", ErrStatGlobal, ErrID_None
-        ! ErrMessGlobal = TRIM(ErrMessGlobal)//new_line('a')
-        ! print *, "ErrMessGlobal", ErrMessGlobal
-    ENDIF
-    ErrMessGlobal = TRANSFER( ErrMessGlobal//TRIM(RoutineName)//':'//TRIM(ErrMessLocal)//C_NULL_CHAR, ErrMessGlobal )
-    ! ErrMessGlobal = TRIM(ErrMessGlobal)//TRIM(RoutineName)//':'//TRIM(ErrMessLocal)
-    ErrStatGlobal = MAX(ErrStatGlobal, ErrStatLocal)
-
-END SUBROUTINE 
 
 SUBROUTINE WaveTank_Init(   &
     MD_InputFile_C,         &