Lines Matching refs:my_basis_type
1427 CHARACTER(LEN=default_string_length) :: my_basis_type local
1496 my_basis_type = basis_type
1498 my_basis_type = "ORB"
1512 IF (.NOT. my_basis_type == "ORB") THEN
1532 basis_type=my_basis_type)
1715 basis_set=orb_basis_set, basis_type=my_basis_type)
1729 basis_set=orb_basis_set, basis_type=my_basis_type)
1938 CHARACTER(LEN=default_string_length) :: my_basis_type local
1989 my_basis_type = basis_type
1991 my_basis_type = "ORB"
2002 SELECT CASE (my_basis_type)
2022 basis_type=my_basis_type)
2126 basis_set=orb_basis_set, basis_type=my_basis_type)
2140 basis_set=orb_basis_set, basis_type=my_basis_type)
2340 CHARACTER(LEN=default_string_length) :: my_basis_type local
2360 my_basis_type = basis_type
2362 my_basis_type = "ORB"
2407 basis_type=my_basis_type)
2420 CALL get_qs_kind(qs_kind_set(ikind), basis_set=orb_basis_set, basis_type=my_basis_type)