Merge pull request #2277 from rpeacoc/master

CEdit: Fix for Issue #2274. Correct check for default radiation solver &DIAG output.

Author: rpeacoc

Source/Cedit/IO.vb

@@ -2450,7 +2450,7 @@ Module IO
         Dim x(0), f(0) As Double, i As Integer
 
         'Writing Diagnostics 
-        If Myenvironment.DIAGRadSolver = "Default" Then
+        If Myenvironment.DIAGRadSolver = "DEFAULT" Then
             wrtDIAG = True
             wrtSlash = False
         Else