/[lmdze]/trunk/libf/regr1_lint.f90
ViewVC logotype

Diff of /trunk/libf/regr1_lint.f90

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

revision 35 by guez, Fri Jul 25 19:59:34 2008 UTC revision 36 by guez, Thu Dec 2 17:11:04 2010 UTC
# Line 1  Line 1 
1  module regr1_lint_m  module regr1_lint_m
2    
3      ! Author: Lionel GUEZ
4    
5    implicit none    implicit none
6    
7    interface regr1_lint    interface regr1_lint
# Line 19  contains Line 21  contains
21    
22      ! "vs" has rank 1.      ! "vs" has rank 1.
23    
24      use numer_rec, only: assert_eq, hunt !!, polint      use nr_util, only: assert_eq
25        use numer_rec, only: hunt !!, polint
26    
27      real, intent(in):: vs(:)      real, intent(in):: vs(:)
28      ! (values of the function at source points "xs")      ! (values of the function at source points "xs")
# Line 58  contains Line 61  contains
61    
62      ! "vs" has rank 2.      ! "vs" has rank 2.
63    
64      use numer_rec, only: assert_eq, hunt      use nr_util, only: assert_eq
65        use numer_rec, only: hunt
66    
67      real, intent(in):: vs(:, :)      real, intent(in):: vs(:, :)
68      ! (values of the function at source points "xs")      ! (values of the function at source points "xs")
Legend:
Removed from v.35  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.21