From 9485df5b62b308794f27d7d6a83eed6fbfc91d13 Mon Sep 17 00:00:00 2001
From: Alois Treindl <alois@astro.ch>
Date: Mon, 4 Jan 2021 17:36:01 +0100
Subject: [PATCH] fixed house speed bug for Vehlow

---
 swehouse.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/swehouse.c b/swehouse.c
index 8237e52..48f906a 100644
--- a/swehouse.c
+++ b/swehouse.c
@@ -1330,17 +1330,16 @@ static int CalcH(
     if (acmc < 0) {
       /* within polar circle we swap AC/DC if AC is on wrong side */
       hsp->ac = swe_degnorm(hsp->ac + 180);
-      hsp->cusp[1] = hsp->ac;
     }
     hsp->cusp[1] = swe_degnorm(hsp->ac - 15);
     for (i = 2; i <=12; i++)
       hsp->cusp[i] = swe_degnorm(hsp->cusp[1] + (i-1) * 30);
-    break;
     if (hsp->do_hspeed) {
       for (i = 1; i <=12; i++) {
 	hsp->cusp_speed[i] = hsp->ac_speed;
       }
     }
+    break;
   case 'W':	/* equal, whole-sign houses */
     acmc = swe_difdeg2n(hsp->ac, hsp->mc);
     if (acmc < 0) {