comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 22:25:32 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

removed the integer pointer node in part

Browse source 
svn-origin-rev: 34
This commit is contained in:
Gloria Tabacchi 2001-07-01 17:45:21 +00:00
parent a3094f855c
commit e266161639
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/initialize_molecule_types.F
View file

@ -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