Resolve "Depreciate use of Version 4 and 5.0 Draglibs"

1 files changed, 9 insertions, 8 deletions

diff --git a/Dragon/data/tdraglib_proc/TCDR47.c2m b/Dragon/data/tdraglib_proc/TCDR47.c2m
index 1c9f41d..a0290a4 100644
--- a/Dragon/data/tdraglib_proc/TCDR47.c2m
+++ b/Dragon/data/tdraglib_proc/TCDR47.c2m
@@ -124,23 +124,24 @@ DISCR     := SYBILT: EIGHTH :: MAXZ 1000000 MAXR 1000000
   QUA2 3 3 GAUSS DP01 ;
 CP := ASM: LIBRARY2 DISCR :: ARM ;
 FLUX := FLU: CP LIBRARY2 DISCR :: EDIT 1 TYPE B B1 SIGS ;
+assertS FLUX :: 'K-INFINITY' 1 1.279805 ;
 EDITION := EDI: LIBRARY2 DISCR FLUX EIGHTH ::
   EDIT 1 SAVE MICR RES MERGE COMP COND 0.625 JOUT ;
 EDITION := SPH: EDITION ::  EDIT 2 ALBS SELE_ALB ;
 *
 MACDIR := EDITION :: STEP UP 'REF-CASE0001' STEP UP MACROLIB
           STEP UP GROUP STEP AT 1 ;
-assertS MACDIR :: 'NTOT0'  1 5.305629E-01 ;
-assertS MACDIR :: 'NUSIGF' 1 6.686473E-03 ;
-assertS MACDIR :: 'DIFF'   1 1.400524E+00 ;
-assertS MACDIR :: 'SIGW00' 1 5.050910E-01 ;
+assertS MACDIR :: 'NTOT0'  1 5.303974E-01 ;
+assertS MACDIR :: 'NUSIGF' 1 6.683205E-03 ;
+assertS MACDIR :: 'DIFF'   1 1.400765E+00 ;
+assertS MACDIR :: 'SIGW00' 1 5.049425E-01 ;
 MACDIR := DELETE: MACDIR ;
 MACDIR := EDITION :: STEP UP 'REF-CASE0001' STEP UP MACROLIB
           STEP UP GROUP STEP AT 2 ;
-assertS MACDIR :: 'NTOT0'  1 1.359428E+00 ;
-assertS MACDIR :: 'NUSIGF' 1 1.365678E-01 ;
-assertS MACDIR :: 'DIFF'   1 4.055927E-01 ;
-assertS MACDIR :: 'SIGW00' 1 1.271332E+00 ;
+assertS MACDIR :: 'NTOT0'  1 1.359430E+00 ;
+assertS MACDIR :: 'NUSIGF' 1 1.365735E-01 ;
+assertS MACDIR :: 'DIFF'   1 4.055988E-01 ;
+assertS MACDIR :: 'SIGW00' 1 1.271331E+00 ;
 MACDIR := DELETE: MACDIR ;
 ECHO "test TCDR47 completed" ;
 END: ;