Lines Matching refs:basis_set_a
98 TYPE(gto_basis_set_type), POINTER :: basis_set_a, basis_set_b local
147 CALL get_qs_kind(qs_kind=qs_kind, basis_set=basis_set_a)
148 IF (ASSOCIATED(basis_set_a)) THEN
149 basis_set_list(ikind)%gto_basis_set => basis_set_a
158 basis_set_a => basis_set_list(ikind)%gto_basis_set
159 IF (.NOT. ASSOCIATED(basis_set_a)) CYCLE
164 first_sgfa => basis_set_a%first_sgf
165 la_max => basis_set_a%lmax
166 la_min => basis_set_a%lmin
167 npgfa => basis_set_a%npgf
168 nseta = basis_set_a%nset
169 nsgfa => basis_set_a%nsgf_set
170 rpgfa => basis_set_a%pgf_radius
171 set_radius_a => basis_set_a%set_radius
172 sphi_a => basis_set_a%sphi
173 zeta => basis_set_a%zet