get_transitions Subroutine

public subroutine get_transitions(trans, noca, nocb, nbf)

Arguments

Type IntentOptional Attributes Name
integer, intent(out), dimension(:,:) :: trans
integer, intent(in) :: noca
integer, intent(in) :: nocb
integer, intent(in) :: nbf

Called by

proc~~get_transitions~~CalledByGraph proc~get_transitions get_transitions proc~tdhf_mrsf_energy tdhf_mrsf_energy proc~tdhf_mrsf_energy->proc~get_transitions proc~tdhf_sf_energy tdhf_sf_energy proc~tdhf_sf_energy->proc~get_transitions proc~tdhf_mrsf_energy_c tdhf_mrsf_energy_C proc~tdhf_mrsf_energy_c->proc~tdhf_mrsf_energy proc~tdhf_sf_energy_c tdhf_sf_energy_C proc~tdhf_sf_energy_c->proc~tdhf_sf_energy

Source Code

  subroutine get_transitions(trans, noca, nocb, nbf)

    implicit none

    integer, intent(out), dimension(:,:) :: trans
    integer, intent(in) :: noca, nocb, nbf

    integer :: ij, i, j
    ij = 0
    do j = nocb+1, nbf
       do i = 1, noca
        ij = ij+1
        trans(ij,1) = i
        trans(ij,2) = j
      end do
    end do

  end subroutine get_transitions