Lines Matching refs:Elecs

262      call init_Electrode_HS(Elecs(iEl))
264      if ( Elecs(iEl)%is_gamma ) then
265        call do_Green(Elecs(iEl), &
269        call do_Green(Elecs(iEl), &
275      call delete(Elecs(iEl))
300   call tbt_init_regions(N_Elec,Elecs,TSHS%cell, &
304   call tbt_init_kregions(r_aBuf,N_Elec,Elecs,TSHS%cell, &
327   call tbt_print_regions( TSHS%na_u, TSHS%lasto, N_Elec, Elecs)
335   call init_proj_T( N_Elec, Elecs , save_DATA )
337   call proj_print( N_Elec, Elecs )
352         itmp = min(itmp,Elecs(iEl)%o_inD%n)