diff --git a/src/initialize_molecule_types.F b/src/initialize_molecule_types.F index 007264cdfa..a80f5418cb 100644 --- a/src/initialize_molecule_types.F +++ b/src/initialize_molecule_types.F @@ -101,7 +101,6 @@ SUBROUTINE initialize_molecule_type ( mol_setup, intra_param, & END DO DO iat = 1, size(pnode) pnode(iat) %p => part(iat) - part(iat)%node = iat END DO ELSE @@ -140,7 +139,6 @@ SUBROUTINE initialize_molecule_type ( mol_setup, intra_param, & DO j = 1, molecule(imol) % natoms_mol k = k + 1 pnode ( k ) % p => part ( atombase + j ) - part ( atombase + j ) % node = k END DO END DO END IF