I'm sorry but you are using a very old version that is not supported anymore.
I really strongly suggest you update to a newer version. If you have a problem in compiling you can write to the forum to ask help.
Sorry, but I do not have the old source with me so I cannot tell you what's going wrong.I added the following lines in ./src/pol_function/DIPOLE_driver.F after the call
Note that the dipoles are only calculated once if they are present in a database (now ndb.dip_iR_and_P and not ndb.dipoles anymore)
they are read and recalculated.