--- trunk/Sources/filtrez/filtreg_scal.f	2015/06/05 19:21:08	141
+++ trunk/filtrez/filtreg_scal.f	2018/03/20 09:35:59	265
@@ -11,7 +11,7 @@
     ! Objet : filtre matriciel longitudinal, avec les matrices pr\'ecalcul\'ees
     ! pour l'op\'erateur filtre. 
 
-    USE dimens_m, ONLY: iim, jjm
+    USE dimensions, ONLY: iim, jjm
     use filtreg_hemisph_m, only: filtreg_hemisph
     USE inifgn_m, ONLY: sddv, unsddv
     use inifilr_m, only: jfiltnu, jfiltsu, matriceun, matriceus, matrinvn, &
@@ -34,11 +34,7 @@
     call assert(size(champ, 1) == iim + 1, "filtreg_scal iim + 1")
     call assert(size(champ, 2) == jjm + 1, "filtreg_scal jjm + 1")
 
-    IF (intensive) THEN
-       sdd = sddv
-    ELSE
-       sdd = unsddv
-    END IF
+    sdd = merge(sddv, unsddv, intensive)
 
     if (direct) then
        call filtreg_hemisph(champ(:, 2:jfiltnu, :), sdd, matriceun)