In a previous bugfix (3e754e135b8b), this additional factor was accidentally left in.
Update: apply the same fix to a projection helper routine.
The same factor also appears in cool1d_sep.F.
Thanks for catching that, Mike!
Don't accept just yet... I forgot a *.
Okay, I got sidetracked. Now it's ready.
I have tested this in a couple ways and verified that it's right now.