Closed DanieleLoco closed 3 years ago
Hi Daniele, That exact part of the POTENTIAL code was very recently rewritten to make the charge normalization more general. Obviously, I missed a redirection between the "natom" arrays and the "npole" arrays. It is now fixed. Thanks, Jay
Dear,
I'm using the Tinker program potential.f to fit initial multipoles to a grid defining the ESP potential. To do so I downloaded and compiled the last (I think) available version of Tinker. Unfortunately in a test calculation I encountered the following error:
#########################################################################
Tinker --- Software Tools for Molecular Design
Version 8.9.1 February 2021
Copyright (c) Jay William Ponder 1990-2021
All Rights Reserved
######################################################################### ######################################################################
Additional Atom Definition Parameters :
Electrostatic Potential Grid Points : 5983
Electrostatic Parameter Restraint Value : 1.0000
Additional Atom Definition Parameters :
Additional Atomic Multipole Parameters :
Additional Atomic Dipole Polarizability Parameters :
Average Electrostatic Potential over Atoms : (Kcal/mole per unit charge)
Structure Atom Points Potential Target RMS Diff
Electrostatic Potential over all Grid Points :
Average Potential Value for Model : -0.1838 Average Potential Magnitude for Model : 1.8035 Average Potential Value for Target : -0.1180 Average Potential Magnitude for Target : 1.7183
Average Signed Potential Difference : -0.0658 Average Unsigned Potential Difference : 0.2200 Root Mean Square Potential Difference : 0.3135
At line 1605 of file potential.f
Fortran runtime error: Index '0' of dimension 1 of array 'type' below lower bound of 1###
Error termination. Backtrace:
0 0x7f9dff4fdd3a
1 0x7f9dff4fe849
2 0x7f9dff4feec6
3 0x5580763dca48
4 0x5580763e9d25
5 0x5580763eaebb
6 0x7f9dff1790b2
7 0x5580763d136d
8 0xffffffffffffffff
So I checked the code, and it seems to me that the following loop, including line 1605, in potential.f might generate the problem: ... do i = 1, npole it = type(ii) equiv(it) = equiv(it) + 1 sum = sum + pole(1,i) end do ...
I might be written instead as: ... do i = 1, npole ii = ipole(i) it = type(ii) equiv(it) = equiv(it) + 1 sum = sum + pole(1,i) end do ...
Best regards,
Daniele Loco