*IDENT COMPARE1_32
*DECLARE COMPARE1
*/
*/ At 32 bit, the RMS diagnostic can overflow in cumf, typically in the energy diag calc,
*/ which leads to cumf dying. So make it 64 bit always.
*/
*/ WMC 2002/05/29
*/
*/ nb: I have hand-edited in this mod but not tested that it works with update
*/
*D GPB2F401.6
C      REAL DIFF_PER,RMS_F1,RMS_F2,RMS_DIFF                                 GPB2F401.6
      REAL*8 DIFF_PER,RMS_F1,RMS_F2,RMS_DIFF