amber-developers: yet another pimd/LES

From: Michael Crowley <>
Date: Tue, 20 Dec 2005 00:51:35 -0700

PIMD folks, please take a look at the lines in short_ene.f that look like:
            if( ipimd ) nrg_ele(cnum(j)) = nrg_ele(cnum(j)) + comm1*b0

The argument in the parentheses needs to be logical. I cannot fix it since
I do not know what the intent of the statement is.
SHould it be (ipimd /= 0) or (ipimd == 1) ?

If you can, please compile with g95, it finds a lot of syntax errors that
other compilers miss.

Physical mail: Dr. Michael F. Crowley
                 Department of Molecular Biology, TPC6
                 The Scripps Research Institute
                 10550 North Torrey Pines Road
                 La Jolla, California 92037

Electronic mail:
Telephone: 858/784-9290
Fax: 858/784-8688
Received on Wed Apr 05 2006 - 23:49:45 PDT
Custom Search