From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Trivac/data/Ktests_proc/pkinet3.c2m | 45 +++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100755 Trivac/data/Ktests_proc/pkinet3.c2m (limited to 'Trivac/data/Ktests_proc/pkinet3.c2m') diff --git a/Trivac/data/Ktests_proc/pkinet3.c2m b/Trivac/data/Ktests_proc/pkinet3.c2m new file mode 100755 index 0000000..69ee2aa --- /dev/null +++ b/Trivac/data/Ktests_proc/pkinet3.c2m @@ -0,0 +1,45 @@ +*********************************************** +* Procedure : pkinet3.c2m * +* Author : D. Sekki (04/08) * +*********************************************** +PARAMETER KINET2 MACRO TRACK SYSTEM FLUX :: + ::: LINKED_LIST KINET2 MACRO TRACK SYSTEM FLUX ; ; +MODULE INIKIN: KINSOL: BIVACA: TRIVAA: GREP: DELETE: END: ; +LINKED_LIST SYSTEMP KINET1 ; +INTEGER itr iedit nDel := 0 0 6 ; +REAL delta := 0.01 ; +INTEGER ity maxItr nadi ; +STRING fTemp pTemp ; +REAL precf ttp ; + :: >>fTemp<< >>pTemp<< >>maxItr<< + >>ttp<< >>precf<< >>nadi<< ; +GREP: SYSTEM :: GETVAL 'STATE-VECTOR' 4 >>ity<< ; +KINET1 := INIKIN: MACRO TRACK SYSTEM FLUX :: EDIT 1 + NDEL <> + BETA 0.000266 0.001491 0.001316 + 0.002849 0.000896 0.000182 + LAMBDA 0.0127 0.0317 0.1150 + 0.3110 1.4000 3.8700 + CHID 1.0 1.0 1.0 1.0 1.0 1.0 + 0.0 0.0 0.0 0.0 0.0 0.0 ; +IF ity 1 = THEN + SYSTEMP := BIVACA: MACRO TRACK :: EDIT 0 UNIT ; +ELSEIF ity 2 = ity 3 = + THEN + SYSTEMP := TRIVAA: MACRO TRACK :: EDIT 0 UNIT ; +ELSE + ECHO "Unknown type=" ity ; +ENDIF ; +WHILE itr maxItr < DO + EVALUATE itr := itr 1 + ; + IF itr maxItr = THEN + EVALUATE iedit := 1 ; + ENDIF ; + KINET1 := KINSOL: KINET1 MACRO TRACK SYSTEMP :: + EDIT <> DELTA <> + SCHEME FLUX <> PREC <> <> + EXTE <> ADI <> ; +ENDWHILE ; +KINET2 := KINET1 ; +KINET1 SYSTEMP := DELETE: KINET1 SYSTEMP ; +END: ; +QUIT . -- cgit v1.2.3