diff options
Diffstat (limited to 'Dragon/data/VanDerGucht-295_proc/gd157_295.c2m')
| -rw-r--r-- | Dragon/data/VanDerGucht-295_proc/gd157_295.c2m | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/Dragon/data/VanDerGucht-295_proc/gd157_295.c2m b/Dragon/data/VanDerGucht-295_proc/gd157_295.c2m new file mode 100644 index 0000000..0c8f598 --- /dev/null +++ b/Dragon/data/VanDerGucht-295_proc/gd157_295.c2m @@ -0,0 +1,50 @@ +XSM_FILE XSM1 XSM2 XSM3 ; +PROCEDURE gd_295_c1us gd_295_c1rs gd_295_c1aut ; +MODULE VDG: DELETE: END: ABORT: ; +REAL zaver INTREF DELTA ; +* +* TEST AUTO: SELF-SHIELDING MODULE. +ECHO "Process svdg0/AUTO" ; +XSM1 := gd_295_c1aut ; +* +* TEST RSE: SELF-SHIELDING MODULE. +ECHO "Process svdg0/PT" ; +XSM2 := gd_295_c1us ; +* +* TEST RSE: SELF-SHIELDING MODULE. +ECHO "Process svdg0/RSE" ; +XSM3 := gd_295_c1rs ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM2 :: GRMI 52 GRMA 206 PICK AVER >>zaver<< ; +ECHO "PT: integrated error=" zaver ; +EVALUATE INTREF := 0.9699472 ; +EVALUATE DELTA := zaver INTREF - ABS ; +IF DELTA 1.0E-1 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" INTREF " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +* +* COMPARE THE TWO RUNS. +VDG: XSM1 XSM3 :: GRMI 52 GRMA 206 PICK AVER >>zaver<< ; +ECHO "RSE: integrated error=" zaver ; +EVALUATE INTREF := 9.935384E-1 ; +EVALUATE DELTA := zaver INTREF - ABS ; +IF DELTA 1.0E-1 < THEN + ECHO "TEST SUCCESSFUL; DELTA=" DELTA ; +ELSE + ECHO "------------" ; + ECHO "TEST FAILURE" ; + ECHO "------------" ; + ECHO "REFERENCE=" INTREF " CALCULATED=" zaver ; + ABORT: ; +ENDIF ; +XSM1 XSM2 XSM3 := DELETE: XSM1 XSM2 XSM3 ; +ECHO "test gd157_295_c1 completed" ; +END: ; +QUIT "LIST" . |