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

---
 Donjon/src/DETPAR2.f | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 Donjon/src/DETPAR2.f

(limited to 'Donjon/src/DETPAR2.f')

diff --git a/Donjon/src/DETPAR2.f b/Donjon/src/DETPAR2.f
new file mode 100644
index 0000000..94f0db9
--- /dev/null
+++ b/Donjon/src/DETPAR2.f
@@ -0,0 +1,31 @@
+*DECK DETPAR2
+      SUBROUTINE DETPAR2(V1,V2,V3,U1,U2,U3,AS,BS,CS)
+*
+*----------------------------------------------------------------------
+*Purpose: routine de HQSIMEX
+*
+*Author(s): 
+* M. Beaudet
+*
+*Parameters: 
+* V1     
+* V2     
+* V3     
+* U1     
+* U2     
+* U3     
+* AS     
+* BS     
+* CS     
+*
+*----------------------------------------------------------------------
+*
+      CHARACTER*6 CLNAME
+      CLNAME = 'PAR'
+      ANUM = U1*(V2-V3)+U3*(V1-V2)+U2*(V3-V1)
+      ADEN = (V1-V2)*(V1-V3)*(V2-V3)
+      AS   = ANUM/ADEN
+      BS   = (U2-U3-AS*(V2*V2-V3*V3))/(V2-V3)
+      CS   = U1-BS*V1-AS*V1*V1
+      RETURN
+      END
-- 
cgit v1.2.3