1 files changed, 25 insertions, 0 deletions
diff --git a/Donjon/src/DETLIN.f b/Donjon/src/DETLIN.f
new file mode 100644
index 0000000..a326560
--- /dev/null
+++ b/Donjon/src/DETLIN.f
@@ -0,0 +1,25 @@
+*DECK DETLIN
+      SUBROUTINE DETLIN(X1,X2,Y1,Y2,BS,CS)
+*
+*----------------------------------------------------------------------
+*Purpose:
+* Routine calculating the linear coefficient needed for a linear
+* interpolation Y = BS*X + CS
+*
+*Author(s): 
+* M. Beaudet
+*
+*Parameters: 
+* X1      
+* X2      
+* Y1      
+* Y2      
+* BS      
+* CS      
+*
+*----------------------------------------------------------------------
+*
+      BS   = (Y1-Y2)/(X1-X2)
+      CS   = Y1-BS*X1
+      RETURN
+      END