anchor.diff:          stop
       end subroutine read_config_file
   
  +
   end module lindblad_fit_module
   
  
positive.code:     complex(dpc), dimension(:), private, allocatable     :: B
      integer(i4b) :: Nl, STEPS
      integer(i4b), private :: Lr1, Lr2, Ls1, Ls2, Lbasis, LLr1, LLr2, LLs1, LLs2, LLbasis
      real(dp), parameter :: timeStep = 1
      character(len=64), parameter, private :: external_dir = "external", config_filename = "config.prm", directory = "."
  
      ! basis multiplier
  
negative.code: 
  
          call init_lindblad_fit()
          call init_nakajima_zwanzig_shared(Ham)
  
          !write(*,*) indices_to_superindex(1,2,2,1,351)
          !call superindex_to_indices(indices_to_superindex(1,2,2,1,351), r,s,k,l,i)
          !write(*,*) r,s,k,l,i
          !write(*,*) 1,2,2,1,351
  
          call open_files('E')
          call read_evops('E', Uee)
          call close_files('E')
  
          call create_hustomatrix(A,B)
  
  