Problem at line 1690

If comment out DCORR=0.D0 and Write . . . then answer is same as all
previous runs.  But if leave them in, the answer is different.