/[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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 137 by guez, Wed May 6 15:51:03 2015 UTC
# Line 118  CONTAINS Line 118  CONTAINS
118                                miss_val, nb_max, work_out)                                miss_val, nb_max, work_out)
119               ENDIF               ENDIF
120            CASE('coll')            CASE('coll')
121               ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, &               ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, nb_max, &
122                              miss_val, nb_max, work_out)                    work_out)
123            CASE('fill')            CASE('fill')
124               ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, &               ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, nb_max, &
125                              miss_val, nb_max, work_out)                    work_out)
126            CASE('undef')            CASE('undef')
127               ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, &               ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, &
128                              miss_val, nb_max, work_out)                              miss_val, nb_max, work_out)
# Line 273  CONTAINS Line 273  CONTAINS
273                               miss_val, nb_max, work_out)                               miss_val, nb_max, work_out)
274               ENDIF               ENDIF
275            CASE('coll')            CASE('coll')
276               ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, &               ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, nb_max, &
277                             miss_val, nb_max, work_out)                    work_out)
278            CASE('fill')            CASE('fill')
279               ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, &               ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, nb_max, &
280                             miss_val, nb_max, work_out)                    work_out)
281            CASE('undef')            CASE('undef')
282               ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, &               ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, &
283                             miss_val, nb_max, work_out)                             miss_val, nb_max, work_out)
# Line 428  CONTAINS Line 428  CONTAINS
428                       miss_val, nb_max, work_out)                       miss_val, nb_max, work_out)
429               ENDIF               ENDIF
430            CASE('coll')            CASE('coll')
431               ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, &               ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, nb_max, &
432                    miss_val, nb_max, work_out)                    work_out)
433            CASE('fill')            CASE('fill')
434               ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, &               ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, nb_max, &
435                    miss_val, nb_max, work_out)                    work_out)
436            CASE('undef')            CASE('undef')
437               ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, &               ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, &
438                    miss_val, nb_max, work_out)                    miss_val, nb_max, work_out)
Legend:
Removed from v.134  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.21