diff options
Diffstat (limited to 'Dragon/data/VanDerGucht_proc/svdg0c.c2m')
| -rw-r--r-- | Dragon/data/VanDerGucht_proc/svdg0c.c2m | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/Dragon/data/VanDerGucht_proc/svdg0c.c2m b/Dragon/data/VanDerGucht_proc/svdg0c.c2m new file mode 100644 index 0000000..ef60b51 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg0c.c2m @@ -0,0 +1,55 @@ +XSM_FILE XSM1 XSM2 XSM3 ; +PROCEDURE svdg0c_auto svdg0c_uss svdg0c_rse ; +MODULE VDG: DELETE: ABORT: END: ; +SEQ_ASCII SECLIB_XSM :: FILE './SECLIB_XSM' ; +XSM_FILE DUMMYDA ; +REAL zaver REFVALUE DELTA ; +* +* import the cross section library (autolib) +DUMMYDA := SECLIB_XSM ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +XSM1 := svdg0c_auto ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM2 := svdg0c_uss ; +* +* TEST USS: SELF-SHIELDING MODULE. +XSM3 := svdg0c_rse ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: PICK AVER >>zaver<< ; +ECHO "USS/PTSL: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 1.478 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM3 :: PICK AVER >>zaver<< ; +ECHO "USS/RSE: averaged error=" zaver "%" ; + +EVALUATE REFVALUE := 2.62517 ; +EVALUATE DELTA := zaver REFVALUE - REFVALUE / ABS ; +IF DELTA 5.0E-2 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" REFVALUE " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +XSM1 XSM2 XSM3 := DELETE: XSM1 XSM2 XSM3 ; +ECHO "test svdg0c completed" ; +END: ; +QUIT "LIST" . |