Searched refs:list_local_a_index (Results 1 – 4 of 4) sorted by relevance
166 NULLIFY (atom(ikind)%list_local_a_index)177 ALLOCATE (atom(ikind)%list_local_a_index(natom_local_a))185 atom(ikind)%list_local_a_index(iatom_local) = atom_a231 IF (ASSOCIATED(atom(ikind)%list_local_a_index)) THEN232 DEALLOCATE (atom(ikind)%list_local_a_index)420 IF (.NOT. ASSOCIATED(atom(ikind)%list_local_a_index)) CYCLE421 natom_local_a = SIZE(atom(ikind)%list_local_a_index)423 atom_a = atom(ikind)%list_local_a_index(iatom_local)437 IF (.NOT. ASSOCIATED(atom(ikind)%list_local_a_index)) CYCLE438 natom_local_a = SIZE(atom(ikind)%list_local_a_index)[all …]
104 list_local_a_index, & component138 IF (ASSOCIATED(atom2d(ikind)%list_local_a_index)) THEN139 DEALLOCATE (atom2d(ikind)%list_local_a_index)208 NULLIFY (atom2d(ikind)%list_local_a_index)235 ALLOCATE (atom2d(ikind)%list_local_a_index(natom_local_a))243 atom2d(ikind)%list_local_a_index(iatom_local) = listindex(iatom)1095 IF (ASSOCIATED(atom(ikind)%list_local_a_index)) THEN1096 lista(ikind)%list => atom(ikind)%list_local_a_index1104 IF (ASSOCIATED(atom(ikind)%list_local_a_index)) THEN1105 lista(ikind)%list => atom(ikind)%list_local_a_index[all …]
105 list_local_a_index, & component139 IF (ASSOCIATED(atom2d(ikind)%list_local_a_index)) THEN140 DEALLOCATE (atom2d(ikind)%list_local_a_index)209 NULLIFY (atom2d(ikind)%list_local_a_index)236 ALLOCATE (atom2d(ikind)%list_local_a_index(natom_local_a))244 atom2d(ikind)%list_local_a_index(iatom_local) = listindex(iatom)1095 IF (ASSOCIATED(atom(ikind)%list_local_a_index)) THEN1096 lista(ikind)%list => atom(ikind)%list_local_a_index1104 IF (ASSOCIATED(atom(ikind)%list_local_a_index)) THEN1105 lista(ikind)%list => atom(ikind)%list_local_a_index[all …]