Merge pull request #102 from Burke-Lauenroth-Lab/bugfix_88-rSOILWAT2

Bugfix 88 rSOILWAT2
- `LogError` writes to R console only if `fp` file pointer is not null
- this is a mechanism to implement quiet runs

generic.c

@@ -199,7 +199,7 @@ void LogError(FILE *fp, const int mode, const char *fmt, ...) {
 
 	char outfmt[50 + strlen(fmt)]; /* to prepend err type str */
 	va_list args;
-	int check_eof;
+	int check_eof = 0;
 
 	va_start(args, fmt);
 
@@ -214,19 +214,19 @@ void LogError(FILE *fp, const int mode, const char *fmt, ...) {
 	strcat(outfmt, "\n");
 
 	#ifdef RSOILWAT
-		check_eof = TRUE;
-		REvprintf(outfmt, args);
+		if (fp != NULL) {
+			REvprintf(outfmt, args);
+		}
+
 	#else
 		check_eof = (EOF == vfprintf(fp, outfmt, args));
-	#endif
 
-	if (check_eof)
-		sw_error(0, "SYSTEM: Cannot write to FILE *fp in LogError()\n");
-
-	#ifndef RSOILWAT
+		if (check_eof)
+			sw_error(0, "SYSTEM: Cannot write to FILE *fp in LogError()\n");
 		fflush(fp);
 	#endif
 
+
 	logged = TRUE;
 	va_end(args);