2 |
|
|
3 |
IMPLICIT NONE |
IMPLICIT NONE |
4 |
|
|
5 |
|
DOUBLE PRECISION a0, a1, a2, a3 |
6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
SUBROUTINE coefpoly(y1, y2, yp1, yp2, x1, x2, a0, a1, a2, a3) |
SUBROUTINE coefpoly(y1, y2, yp1, yp2, x1, x2) |
10 |
|
|
11 |
! From LMDZ4/libf/dyn3d/coefpoly.F, version 1.1.1.1 2004/05/19 12:53:05 |
! From LMDZ4/libf/dyn3d/coefpoly.F, version 1.1.1.1 2004/05/19 12:53:05 |
12 |
|
|
23 |
! a1 + 2 * a2 * x2 + 3 * a3 * x2**2 = Yp2 |
! a1 + 2 * a2 * x2 + 3 * a3 * x2**2 = Yp2 |
24 |
|
|
25 |
DOUBLE PRECISION, intent(in):: y1, y2, yp1, yp2, x1, x2 |
DOUBLE PRECISION, intent(in):: y1, y2, yp1, yp2, x1, x2 |
|
DOUBLE PRECISION, intent(out):: a0, a1, a2, a3 |
|
26 |
|
|
27 |
! Local: |
! Local: |
28 |
DOUBLE PRECISION x1car, x2car |
DOUBLE PRECISION x1car, x2car |