Branch data     Line data    Source code

       1                 :  1742092813 :   fsign = 1.d0
       2                 :  1742092813 :   t_val = time
       3                 :             :  !sui!write(6,*) "              getdetAdd t_val",t_val
       4   [ +  +  +  +  :  1742092813 :   IF ( t_val .LT. 0.d0 ) THEN
          +  +  -  -  -  
                -  -  - ]
       5                 :             :     ! if t < 0 op%F(t,activeF,activeF) = -op%F(t+beta,activeF,activeF)
       6                 :   871181751 :     t_val = t_val + op%beta
       7                 :   871181751 :     fsign  = -1.d0
       8                 :             :   END IF
       9                 :             : 
      10                 :  1742092813 :   ratioh = t_val * op%inv_dt + 1.d0 ! t / delta t
      11                 :             :  !sui!write(6,*) "              getdetAdd ratioh",ratioh
      12                 :  1742092813 :   index = INT(ratioh)
      13                 :             :  !sui!write(6,*) "              getdetAdd index",index
      14                 :  1742092813 :   ratioh = ratioh - DBLE(index)
      15                 :             :  !sui!write(6,*) "              getdetAdd ratioh",ratioh
      16                 :             : 
      17                 :             :   ! first order interpolation
      18                 :             :  !sui!write(6,*) "              getdetAdd fsign",fsign
      19                 :             :  !sui!write(6,*) "              getdetAdd Fs   ",op%F(index,iflavora,iflavorb)
      20                 :             :  !sui!write(6,*) "              getdetAdd Fs   ",op%F(index+1,iflavora,iflavorb)
      21                 :             :   ! index + 1 can be sizeHybrid + 1 => value is 0 (cf. BathOperatoroffdiag_init routine)
      22                 :             :   hybrid = fsign * (op%F(index,iflavora,iflavorb) + &
      23         [ +  + ]:  1742092813 :     ratioh * ( op%F(index+1,iflavora,iflavorb) - op%F(index,iflavora,iflavorb) ))