/[lmdze]/trunk/Sources/IOIPSL/mathop.f
ViewVC logotype

Diff of /trunk/Sources/IOIPSL/mathop.f

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

trunk/libf/IOIPSL/mathop.f90 revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC trunk/Sources/IOIPSL/mathop.f revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 5  MODULE mathop_m Line 5  MODULE mathop_m
5    implicit none    implicit none
6    
7    PRIVATE    PRIVATE
8    PUBLIC :: mathop    PUBLIC mathop
9    
10    INTERFACE mathop    INTERFACE mathop
11       MODULE PROCEDURE mathop_r11, mathop_r21, mathop_r31       MODULE PROCEDURE mathop_r11, mathop_r21, mathop_r31
# Line 56  CONTAINS Line 56  CONTAINS
56    
57      INTEGER :: ierr      INTEGER :: ierr
58    
     INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS  
59      !--------------------------------------------------------------------      !--------------------------------------------------------------------
60      ierr = 0      ierr = 0
61    
# Line 118  CONTAINS Line 117  CONTAINS
117                                miss_val, nb_max, work_out)                                miss_val, nb_max, work_out)
118               ENDIF               ENDIF
119            CASE('coll')            CASE('coll')
120               ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, &               ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, nb_max, &
121                              miss_val, nb_max, work_out)                    work_out)
122            CASE('fill')            CASE('fill')
123               ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, &               ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, nb_max, &
124                              miss_val, nb_max, work_out)                    work_out)
125            CASE('undef')            CASE('undef')
126               ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, &               ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, &
127                              miss_val, nb_max, work_out)                              miss_val, nb_max, work_out)
# Line 211  CONTAINS Line 210  CONTAINS
210    
211      INTEGER :: ierr      INTEGER :: ierr
212    
     INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS  
213      !--------------------------------------------------------------------      !--------------------------------------------------------------------
214      ierr = 0      ierr = 0
215    
# Line 273  CONTAINS Line 271  CONTAINS
271                               miss_val, nb_max, work_out)                               miss_val, nb_max, work_out)
272               ENDIF               ENDIF
273            CASE('coll')            CASE('coll')
274               ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, &               ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, nb_max, &
275                             miss_val, nb_max, work_out)                    work_out)
276            CASE('fill')            CASE('fill')
277               ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, &               ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, nb_max, &
278                             miss_val, nb_max, work_out)                    work_out)
279            CASE('undef')            CASE('undef')
280               ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, &               ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, &
281                             miss_val, nb_max, work_out)                             miss_val, nb_max, work_out)
# Line 366  CONTAINS Line 364  CONTAINS
364    
365      INTEGER :: ierr      INTEGER :: ierr
366    
     INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS  
367      !--------------------------------------------------------------------      !--------------------------------------------------------------------
368      ierr = 0      ierr = 0
369    
# Line 428  CONTAINS Line 425  CONTAINS
425                       miss_val, nb_max, work_out)                       miss_val, nb_max, work_out)
426               ENDIF               ENDIF
427            CASE('coll')            CASE('coll')
428               ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, &               ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, nb_max, &
429                    miss_val, nb_max, work_out)                    work_out)
430            CASE('fill')            CASE('fill')
431               ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, &               ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, nb_max, &
432                    miss_val, nb_max, work_out)                    work_out)
433            CASE('undef')            CASE('undef')
434               ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, &               ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, &
435                    miss_val, nb_max, work_out)                    miss_val, nb_max, work_out)
Legend:
Removed from v.62  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21