diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Trivac/data/Ktests_proc/pdrive25.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Trivac/data/Ktests_proc/pdrive25.c2m')
| -rwxr-xr-x | Trivac/data/Ktests_proc/pdrive25.c2m | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/Trivac/data/Ktests_proc/pdrive25.c2m b/Trivac/data/Ktests_proc/pdrive25.c2m new file mode 100755 index 0000000..363bf35 --- /dev/null +++ b/Trivac/data/Ktests_proc/pdrive25.c2m @@ -0,0 +1,64 @@ +*********************************************** +* Procedure : pdrive25.c2m * +* Author : D. Sekki (04/2008) * +*********************************************** +PARAMETER MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST MACRO TRACK SYSTEM FLUX ; ; +LINKED_LIST KINET ; +PROCEDURE assertS pkinet1 pkinet2 pkinet3 pkinet4 ; +MODULE DELETE: GREP: END: ; +STRING fTemp pTemp ; +INTEGER maxItr nadi ; +REAL precf ttf ttp ; + :: >>maxItr<< >>precf<< >>nadi<< ; +ECHO " ***** TEST01 *****" ; +EVALUATE fTemp pTemp := "IMPLIC" "IMPLIC" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859924 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST02 *****" ; +EVALUATE fTemp pTemp := "CRANK" "CRANK" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859906 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST03 *****" ; +EVALUATE fTemp pTemp := "CRANK" "EXPON" ; +KINET := pkinet1 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859906 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST04 *****" ; +EVALUATE fTemp pTemp := "THETA" "IMPLIC" ; +EVALUATE ttf := 0.75 ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859921 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST05 *****" ; +EVALUATE fTemp pTemp := "THETA" "EXPON" ; +KINET := pkinet2 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859920 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST06 *****" ; +EVALUATE fTemp pTemp := "CRANK" "THETA" ; +EVALUATE ttp := 0.75 ; +KINET := pkinet3 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859912 ; +KINET := DELETE: KINET ; +ECHO " ***** TEST07 *****" ; +EVALUATE fTemp pTemp := "THETA" "THETA" ; +EVALUATE ttf ttp := 0.8 0.6 ; +KINET := pkinet4 MACRO TRACK SYSTEM FLUX :: <<fTemp>> + <<pTemp>> <<maxItr>> <<ttf>> <<ttp>> + <<precf>> <<nadi>> ; +assertS KINET :: 'CTRL-FLUX' 1 0.4859923 ; +KINET := DELETE: KINET ; +END: ; +QUIT . |