Searched refs:contacts_bkup (Results 1 – 2 of 2) sorted by relevance
66 allocate(fstrSOLID%contacts_bkup(ncont))69 allocate(fstrSOLID%contacts_bkup(i)%states(nstate))112 deallocate(fstrSOLID%contacts_bkup(i)%states)114 deallocate(fstrSOLID%contacts_bkup)162 … call contact_state_copy(fstrSOLID%contacts(i)%states(j), fstrSOLID%contacts_bkup(i)%states(j))213 … call contact_state_copy(fstrSOLID%contacts_bkup(i)%states(j), fstrSOLID%contacts(i)%states(j))
390 type( tContact ), pointer :: contacts_bkup(:) =>null() !< contact information (backup) component