fanoci_code/clear_resources.f90 at master · PHOTOX/fanoci_code · 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
module clear_resources
    use globals
    contains

    subroutine clear_res ()
        deallocate(emo)
        deallocate(int2e)
        deallocate(s_mat)
        deallocate(config_2h)

        if (prop_type == "el") then
           deallocate(coupling_arr_el)
        else
           deallocate(config_1h1p)
           deallocate(coupling_arr_pol)
        end if

        deallocate(config_2h_str)
        deallocate(CI_init_matrix)
        deallocate(CI_matrix)
        deallocate(CI_init_eigval)
        deallocate(CI_eigval)
        if(gam.eq.'singlet'.or.gam.eq.'total')then
            deallocate(mat_2h_s)
            deallocate(mat_2h_s_eigval)
        end if
        if(gam.eq.'triplet'.or.gam.eq.'total')then
            deallocate(mat_2h_t)
            deallocate(mat_2h_t_eigval)
        end if
        deallocate(mat_2h)
    end subroutine clear_res

end module clear_resources