Lines Matching refs:basis_set_a
692 TYPE(gto_basis_set_type), POINTER :: basis_set_a, basis_set_b local
752 CALL get_qs_kind(qs_kind=qs_kind, basis_set=basis_set_a)
753 IF (ASSOCIATED(basis_set_a)) THEN
754 basis_set_list(ikind)%gto_basis_set => basis_set_a
763 basis_set_a => basis_set_list(ikind)%gto_basis_set
764 IF (.NOT. ASSOCIATED(basis_set_a)) CYCLE
769 first_sgfa => basis_set_a%first_sgf
770 la_max => basis_set_a%lmax
771 la_min => basis_set_a%lmin
772 npgfa => basis_set_a%npgf
773 nseta = basis_set_a%nset
774 nsgfa => basis_set_a%nsgf_set
775 rpgfa => basis_set_a%pgf_radius
776 set_radius_a => basis_set_a%set_radius
777 sphi_a => basis_set_a%sphi
778 zeta => basis_set_a%zet