oqp_dsymm_i64 Subroutine

public subroutine oqp_dsymm_i64(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)

Arguments

Type IntentOptional Attributes Name
character(len=1) :: side
character(len=1) :: uplo
integer :: m
integer :: n
double precision :: alpha
double precision :: a(lda,*)
integer :: lda
double precision :: b(ldb,*)
integer :: ldb
double precision :: beta
double precision :: c(ldc,*)
integer :: ldc

Calls

proc~~oqp_dsymm_i64~~CallsGraph proc~oqp_dsymm_i64 oqp_dsymm_i64 dsymm dsymm proc~oqp_dsymm_i64->dsymm interface~show_message show_message proc~oqp_dsymm_i64->interface~show_message

Called by

proc~~oqp_dsymm_i64~~CalledByGraph proc~oqp_dsymm_i64 oqp_dsymm_i64 none~add_data scf_conv%add_data none~add_data->proc~oqp_dsymm_i64 proc~huckel_guess huckel_guess proc~huckel_guess->proc~oqp_dsymm_i64 proc~orthogonal_transform_sym orthogonal_transform_sym proc~huckel_guess->proc~orthogonal_transform_sym proc~mo_to_ao mo_to_ao proc~mo_to_ao->proc~oqp_dsymm_i64 proc~mo_tran_symm_ mo_tran_symm_ proc~mo_tran_symm_->proc~oqp_dsymm_i64 proc~orthogonal_transform_sym->proc~oqp_dsymm_i64 none~compmos xc_engine_t%compMOs none~compmos->proc~mo_tran_symm_ proc~eijden eijden proc~eijden->proc~orthogonal_transform_sym proc~form_rohf_fock form_rohf_fock proc~form_rohf_fock->proc~orthogonal_transform_sym proc~guess_huckel guess_huckel proc~guess_huckel->proc~huckel_guess proc~scf_driver scf_driver proc~scf_driver->none~add_data proc~scf_driver->proc~mo_to_ao proc~scf_driver->proc~form_rohf_fock proc~dftexcor dftexcor proc~scf_driver->proc~dftexcor proc~tdhf_mrsf_energy tdhf_mrsf_energy proc~tdhf_mrsf_energy->proc~orthogonal_transform_sym proc~tdhf_sf_energy tdhf_sf_energy proc~tdhf_sf_energy->proc~orthogonal_transform_sym none~compxc xc_engine_t%compXC none~compxc->none~compmos proc~guess_huckel_c guess_huckel_C proc~guess_huckel_c->proc~guess_huckel proc~hf_energy hf_energy proc~hf_energy->proc~scf_driver proc~hf_gradient hf_gradient proc~hf_gradient->proc~eijden proc~dftder dftder proc~hf_gradient->proc~dftder proc~tdhf_1e_grad tdhf_1e_grad proc~tdhf_1e_grad->proc~eijden 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 proc~run_xc run_xc proc~run_xc->none~compxc proc~tdhf_gradient tdhf_gradient proc~tdhf_gradient->proc~tdhf_1e_grad proc~tddft_xc_gradient tddft_xc_gradient proc~tdhf_gradient->proc~tddft_xc_gradient proc~derexc_blk derexc_blk proc~derexc_blk->proc~run_xc proc~dmatd_blk dmatd_blk proc~dmatd_blk->proc~run_xc proc~tddft_fxc tddft_fxc proc~tddft_fxc->proc~run_xc proc~tddft_gxc tddft_gxc proc~tddft_gxc->proc~run_xc proc~tddft_xc_gradient->proc~run_xc proc~tdhf_gradient_c tdhf_gradient_C proc~tdhf_gradient_c->proc~tdhf_gradient proc~utddft_fxc utddft_fxc proc~utddft_fxc->proc~run_xc proc~utddft_xc_gradient utddft_xc_gradient proc~utddft_xc_gradient->proc~run_xc proc~dftder->proc~derexc_blk proc~dftexcor->proc~dmatd_blk proc~oqp_tdhf_z_vector oqp_tdhf_z_vector proc~oqp_tdhf_z_vector->proc~tddft_fxc proc~oqp_tdhf_z_vector->proc~tddft_gxc proc~tdhf_energy tdhf_energy proc~tdhf_energy->proc~tddft_fxc proc~tdhf_energy_c tdhf_energy_C proc~tdhf_energy_c->proc~tdhf_energy proc~tdhf_z_vector_c tdhf_z_vector_C proc~tdhf_z_vector_c->proc~oqp_tdhf_z_vector

Source Code

  subroutine oqp_dsymm_i64(side, uplo, m, n, alpha, a, lda, b, ldb, beta, c, ldc)
    double precision :: alpha
    double precision :: beta
    integer :: lda
    integer :: ldb
    integer :: ldc
    integer :: m
    integer :: n
    character :: side
    character :: uplo
    double precision :: a(lda,*)
    double precision :: b(ldb,*)
    double precision :: c(ldc,*)

    integer(blas_int) :: m_, n_, lda_, ldb_, ldc_
    logical :: ok

    if (ARG_CHECK) then
      ok = .true.
      ok = ok .and. abs(m   ) <= HUGE_BLAS_INT-1
      ok = ok .and. abs(n   ) <= HUGE_BLAS_INT-1
      ok = ok .and. abs(lda ) <= HUGE_BLAS_INT-1
      ok = ok .and. abs(ldb ) <= HUGE_BLAS_INT-1
      ok = ok .and. abs(ldc ) <= HUGE_BLAS_INT-1
      if (.not.ok) call show_message(ERRMSG, WITH_ABORT)
    end if

    m_   = int(m   , blas_int)
    n_   = int(n   , blas_int)
    lda_ = int(lda , blas_int)
    ldb_ = int(ldb , blas_int)
    ldc_ = int(ldc , blas_int)

    call dsymm(side, uplo, m_, n_, alpha, a, lda_, b, ldb_, beta, c, ldc_)

  end subroutine oqp_dsymm_i64