1000 format (/1x,' * * * Error - atoms',i4,' and',i4,' coincide.',
1 'coordinates of atom',i4,' are set to zero.')
1010 format (/1x,' * * * Error - atoms',2(i4,2h, ),i4,' form a linear',
1000 format (/1x,' * * * Error - atoms',i4,' and',i4,' coincide.',
1 'coordinates of atom',i4,' are set to zero.')
1010 format (/1x,' * * * Error - atoms',2(i4,2h, ),i4,' form a linear',