1 files changed, 31 insertions, 0 deletions
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