From 26329bcf7b93d104c3f968088fc73bdd73d1ad2d Mon Sep 17 00:00:00 2001 From: Jonas Schwab Date: Wed, 25 Mar 2026 20:21:45 +0100 Subject: [PATCH] Fix compilation error on master: Using getter --- Prog/main.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Prog/main.F90 b/Prog/main.F90 index 6f055799..010998f6 100644 --- a/Prog/main.F90 +++ b/Prog/main.F90 @@ -878,8 +878,8 @@ Program Main ! udvl/udvr are set up such that CGRP reproduces GR. The storage ! udvst(1..Nstm) contains fresh left propagations from the backward ! sweep, so calling tau_p with NST_IN=0 is correct here. - IF ( LTAU == 1 .and. Projector .and. Stab_nt(1) > THTROT+1 ) then - Call tau_p ( udvl, udvr, udvst, GR, PHASE, NSTM, STAB_NT, 0, LOBS_ST, LOBS_EN ) + IF ( get_LTAU() == 1 .and. Projector .and. Stab_nt(1) > THTROT+1 ) then + Call tau_p ( udvl, udvr, udvst, GR, PHASE, NSTM, STAB_NT, 0, get_LOBS_ST(), get_LOBS_EN() ) endif endif