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

Diff of /trunk/IOIPSL/mathop.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC
# 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.82  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.21