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 --- Donjon/src/DETLIN.f | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 Donjon/src/DETLIN.f (limited to 'Donjon/src/DETLIN.f') 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 -- cgit v1.2.3