| @@ -152,7 +152,7 @@ void CNAME(FLOAT *dd1, FLOAT *dd2, FLOAT *dx1, FLOAT dy1, FLOAT *dparam){ | |||||
| } | } | ||||
| if( *dd1 <= RGAMSQ ) | if( *dd1 <= RGAMSQ ) | ||||
| { | { | ||||
| while (ABS(*dd1) <= RGAMSQ) { | |||||
| while ((*dd1) <= RGAMSQ) { | |||||
| *dd1 = *dd1 * (GAM * GAM); | *dd1 = *dd1 * (GAM * GAM); | ||||
| *dx1 = *dx1 / GAM; | *dx1 = *dx1 / GAM; | ||||
| dh11 = dh11 / GAM; | dh11 = dh11 / GAM; | ||||
| @@ -161,7 +161,7 @@ void CNAME(FLOAT *dd1, FLOAT *dd2, FLOAT *dx1, FLOAT dy1, FLOAT *dparam){ | |||||
| } | } | ||||
| else | else | ||||
| { | { | ||||
| while (ABS(*dd1) <= GAMSQ) { | |||||
| while ((*dd1) >= GAMSQ) { | |||||
| *dd1 = *dd1 / (GAM * GAM); | *dd1 = *dd1 / (GAM * GAM); | ||||
| *dx1 = *dx1 * GAM; | *dx1 = *dx1 * GAM; | ||||
| dh11 = dh11 * GAM; | dh11 = dh11 * GAM; | ||||
| @@ -197,7 +197,7 @@ void CNAME(FLOAT *dd1, FLOAT *dd2, FLOAT *dx1, FLOAT dy1, FLOAT *dparam){ | |||||
| } | } | ||||
| else | else | ||||
| { | { | ||||
| while (ABS(*dd2) <= GAMSQ) { | |||||
| while (ABS(*dd2) >= GAMSQ) { | |||||
| *dd2 = *dd2 / (GAM * GAM); | *dd2 = *dd2 / (GAM * GAM); | ||||
| dh21 = dh21 * GAM; | dh21 = dh21 * GAM; | ||||
| dh22 = dh22 * GAM; | dh22 = dh22 * GAM; | ||||