! { dg-do compile }
! { dg-options "-Ofast" }
SUBROUTINE sedi_1D(QX1d,  DZ1d,kdir,BX1d,kbot,ktop)
  real, dimension(:) :: QX1d,DZ1d
  real, dimension(size(QX1d))  :: VVQ
  logical                            BX_present
  do k= kbot,ktop,kdir
     VVQ= VV_Q0
  enddo
  Vxmaxx= min0
  if (kdir==1) then
     dzMIN = minval(DZ1d)
  endif
  npassx=   Vxmaxx/dzMIN
  DO nnn= 1,npassx
     if (BX_present) then
       do k= ktop,kdir
         BX1d= iDZ1d0
       enddo
     endif
  ENDDO
END