enable_adi Subroutine

public subroutine enable_adi()

Uses

Arguments

None

Source Code

    subroutine enable_adi
        use adi_data, only: tAllDoubsInitiators, tAdiActive
        implicit none

        write(stdout, '()')
        write(stdout, *) "Setting all double excitations to initiators"
        write(stdout, *) "Using static references"
        write(stdout, *) "Further notification on additional references will be given"
        write(stdout, '()')
        tAllDoubsInitiators = .true.
        tAdiActive = .true.

        ! tSinglePartPhase = .false.

    end subroutine enable_adi