get_mrsf_transitions Subroutine

public subroutine get_mrsf_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_mrsf_transitions~~CalledByGraph proc~get_mrsf_transitions get_mrsf_transitions proc~tdhf_mrsf_energy tdhf_mrsf_energy proc~tdhf_mrsf_energy->proc~get_mrsf_transitions proc~tdhf_mrsf_energy_c tdhf_mrsf_energy_C proc~tdhf_mrsf_energy_c->proc~tdhf_mrsf_energy

Source Code

  subroutine get_mrsf_transitions(trans, noca, nocb, nbf)

    implicit none

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

    integer :: ij, i, j, lr1, lr2

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

  end subroutine get_mrsf_transitions