blob: a3265600cd2719be08f74edd81ac898ea6e2d693 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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
|
