SUBROUTINE  scdmb(  b,  f1,  f2,  u,  tps,  rnudt2  )
      USE numerics
      IMPLICIT  NONE
      REAL(rp),  DIMENSION(sx-1:ex+1,sy-1:ey+1,sz-1:ez+1),  INTENT(IN)   ::  u
      REAL(rp),  DIMENSION(sx-1:ex+1,sy-1:ey+1,sz-1:ez+1),  INTENT(OUT)  ::  b
      REAL(rp),  DIMENSION(sx  :ex  ,sy  :ey  ,sz  :ez  ),  INTENT(IN)   ::  f1
      REAL(rp),  DIMENSION(sx  :ex  ,sy  :ey  ,sz  :ez  ),  INTENT(IN)   ::  f2
      REAL(rp),  INTENT(IN)  ::  tps
      REAL(rp),  INTENT(IN)  ::  rnudt2
      END  SUBROUTINE  scdmb