vca/VCA_GREENS_FUNCTIONS.f90 at master · lcrippa/vca · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
MODULE VCA_GREENS_FUNCTIONS
  !
  USE VCA_GF_SHARED
  USE VCA_GF_NORMAL
  !
  implicit none
  private


  public :: build_gf_cluster


contains


  !+------------------------------------------------------------------+
  !PURPOSE  : Build the GF of the cluster
  !+------------------------------------------------------------------+
  subroutine build_gf_cluster()
    !
    call allocate_grids
    !
    impGmats=zero
    impGreal=zero
    !
    impSmats = zero
    impSreal = zero
    !
    impG0mats=zero
    impG0real=zero
    !
    !
    write(LOGfile,"(A)")"Get cluster Greens functions:"
    call build_gf_normal()
    call build_sigma_normal()
    !
    if(print_Sigma)call vca_print_impSigma()
    if(print_impG)call vca_print_impG()
    if(print_impG0)call vca_print_impG0()
    !
    call deallocate_grids
    !
  end subroutine build_gf_cluster


end MODULE VCA_GREENS_FUNCTIONS