t_evolve_adjoint Function

public elemental function t_evolve_adjoint(run) result(transp)

Uses

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: run

Return Value logical


Source Code

    elemental function t_evolve_adjoint(run) result(transp)
        use FciMCData, only: t_adjoint_replicas
        integer, intent(in) :: run

        logical :: transp

        transp = t_adjoint_replicas .and. ( mod(run,2)==0 )
    end function t_evolve_adjoint