From 07aed6feb725f43858c456fe7e35a915c1bf3bb4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marek=20Ne=C4=8Dada?= <marek@necada.org>
Date: Wed, 13 Mar 2019 13:24:44 +0200
Subject: [PATCH] Fix offset increment in matrix packing.

Now it works for a z-dipole system.


Former-commit-id: 3e4aa9d4736ecc18e561d0ba5c2c19b0a027e37c
---
 qpms/scatsystem.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/qpms/scatsystem.c b/qpms/scatsystem.c
index 600dada..87a5994 100644
--- a/qpms/scatsystem.c
+++ b/qpms/scatsystem.c
@@ -1053,8 +1053,8 @@ complex double *qpms_scatsys_irrep_pack_matrix(complex double *target_packed,
         }
         fullvec_offsetC += otC->bspecn;
       }
-      fullvec_offsetR += otR->bspecn;
     }
+    fullvec_offsetR += otR->bspecn;
   }
   free(tmp);
   return target_packed;