From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001
From: stainer_t <thomas.stainer@oecd-nea.org>
Date: Mon, 8 Sep 2025 13:48:49 +0200
Subject: Initial commit from Polytechnique Montreal

---
 Trivac/data/Ktests_proc/pdrive5.c2m | 64 +++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100755 Trivac/data/Ktests_proc/pdrive5.c2m

(limited to 'Trivac/data/Ktests_proc/pdrive5.c2m')

diff --git a/Trivac/data/Ktests_proc/pdrive5.c2m b/Trivac/data/Ktests_proc/pdrive5.c2m
new file mode 100755
index 0000000..5e68502
--- /dev/null
+++ b/Trivac/data/Ktests_proc/pdrive5.c2m
@@ -0,0 +1,64 @@
+*********************************************
+* Procedure :  pdrive5.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.4892997 ;
+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.4892993 ;
+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.4892992 ;
+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.4892995 ;
+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.4892994 ;
+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.4892995 ;
+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.4892998 ;
+KINET := DELETE: KINET ;
+END: ;
+QUIT .
-- 
cgit v1.2.3