/[lmdze]/trunk/Sources/misc/coefpoly.f
ViewVC logotype

Diff of /trunk/Sources/misc/coefpoly.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 147 by guez, Wed Jun 17 14:20:14 2015 UTC revision 149 by guez, Thu Jun 18 12:23:44 2015 UTC
# Line 2  module coefpoly_m Line 2  module coefpoly_m
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    
# Line 21  contains Line 23  contains
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
Legend:
Removed from v.147  
changed lines
  Added in v.149
  ViewVC Help
Powered by ViewVC 1.1.21