shithub: aacenc

Download patch

ref: 8e1e9a12ceca8faeb38a6f32353c93be32342331
parent: a15f8540aecb90e188af664563d6de4ca8d083ee
author: oxygene2000 <oxygene2000>
date: Tue Feb 8 07:12:47 EST 2000 

really small speed-up in psy_step6


--- a/psych.c
+++ b/psych.c
@@ -52,9 +52,9 @@
 
 Source file:
 
-$Id: psych.c,v 1.44 2000/02/08 07:37:01 lenox Exp $
-$Id: psych.c,v 1.44 2000/02/08 07:37:01 lenox Exp $
-$Id: psych.c,v 1.44 2000/02/08 07:37:01 lenox Exp $
+$Id: psych.c,v 1.45 2000/02/08 12:12:47 oxygene2000 Exp $
+$Id: psych.c,v 1.45 2000/02/08 12:12:47 oxygene2000 Exp $
+$Id: psych.c,v 1.45 2000/02/08 12:12:47 oxygene2000 Exp $
 
 **********************************************************************/
 
@@ -841,10 +841,11 @@
 		}
 		if (ecb!=0.0) {
 			psy_var_long->cb[b] = ct / ecb;
+			psy_stvar_long->en[b] = psy_var_long->en[b] = ecb * part_tbl_long->dyn->rnorm[b];
 		} else {
 			psy_var_long->cb[b] = 0.0;
+			psy_stvar_long->en[b] = psy_var_long->en[b] = 0;
 		}
-		psy_stvar_long->en[b] = psy_var_long->en[b] = ecb * part_tbl_long->dyn->rnorm[b];
     }
 
 	/* added by T. Araki (1997.10.16) */
@@ -860,10 +861,11 @@
 			}
 			if (ecb!=0.0) {	
 				psy_var_short->cb[i][b] = ct / ecb;
+				psy_stvar_short->en[i][b] = psy_var_short->en[i][b] = ecb * part_tbl_short->dyn->rnorm[b];
 			} else {
 				psy_var_short->cb[i][b] = 0.0;
+				psy_stvar_short->en[i][b] = psy_var_short->en[i][b] = 0;
 			}
-			psy_stvar_short->en[i][b] = psy_var_short->en[i][b] = ecb * part_tbl_short->dyn->rnorm[b];
 		}
     }
 	/* added by T. Araki (1997.10.16) end */