anchor.diff:  #define NVTX_END()
   #endif
   
  +!--------10--------20--------30--------40--------50--------60--------70--------80--------90--------100-------110-------120--------130
  +#ifndef ARTED_LBLK
  +!--------10--------20--------30--------40--------50--------60--------70--------80--------90--------100-------110-------120--------130
   subroutine dt_evolve_hpsi
     use Global_Variables
     use timelog
  -#ifdef ARTED_USE_NVTX
  -  use nvtx
  -#endif
     use omp_lib
     use opt_variables
     implicit none
  
positive.code:     end do
      TIMELOG_END(LOG_HPSI_UPDATE)
    end subroutine
  
  #ifdef ARTED_LBLK
    subroutine init_LBLK(tpsi,zu, ikb_s,ikb_e)
      use Global_Variables, only: NLx,NLy,NLz
      use opt_variables, only: PNLx,PNLy,PNLz
  
negative.code:   integer    :: ikb,ik,ib,i
    integer    :: iexp
    complex(8) :: zfac(4)
  
    zfac(1)=(-zI*dt)
    do i=2,4
      zfac(i)=zfac(i-1)*(-zI*dt)/i
    end do
  
    call timelog_begin(LOG_HPSI)
  
  !$omp parallel private(tid) shared(zfac)
  !$  tid=omp_get_thread_num()
  