From cbb0d17d1f9935d7a31c378f8644067b5ea35a01 Mon Sep 17 00:00:00 2001
From: Olivier Sauter <olivier.sauter@epfl.ch>
Date: Wed, 19 Jul 2017 13:16:49 +0000
Subject: [PATCH] avoid extra digits in liuqe.m2
git-svn-id: https://spcsvn.epfl.ch/repos/TCV/gdat/trunk@8020 d63d8f72-b253-0410-a779-e742ad2e26cf
---
crpptbx/TCV/gdat_tcv.m | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/crpptbx/TCV/gdat_tcv.m b/crpptbx/TCV/gdat_tcv.m
index 0f0c4eb5..381e67ba 100644
--- a/crpptbx/TCV/gdat_tcv.m
+++ b/crpptbx/TCV/gdat_tcv.m
@@ -373,7 +373,12 @@ if strcmp(mapping_for_tcv.method(1:3),'tdi')
end
ij = regexpi(mapping_for_tcv.expression,'LIUQE.*\.M','once');
if ~isempty(ij)
- mapping_for_tcv.expression = [mapping_for_tcv.expression(1:ij+6) substr_liuqe_tcv_eq mapping_for_tcv.expression(ij+7:end)];
+ ichar_after_liuqe = 7;
+ if strcmp(mapping_for_tcv.expression(ij+ichar_after_liuqe),'2') || ...
+ strcmp(mapping_for_tcv.expression(ij+ichar_after_liuqe),'3')
+ ichar_after_liuqe = 8;
+ end
+ mapping_for_tcv.expression = [mapping_for_tcv.expression(1:ij+6) substr_liuqe_tcv_eq mapping_for_tcv.expression(ij+ichar_after_liuqe:end)];
end
else
ij = regexpi(mapping_for_tcv.expression,'LIUQE.*\.M','once');
--
GitLab