From fd2671c00d2aa6659d51cd676d9d0a01016cd248 Mon Sep 17 00:00:00 2001
From: Alain Hebert <alainhebert@Alains-MacBook-Pro.local>
Date: Sun, 19 Oct 2025 11:39:22 +0200
Subject: #8: Improve epsilon tests and error detection in module SALT:

---
 Dragon/src/MCCGT.f | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Dragon/src/MCCGT.f')

diff --git a/Dragon/src/MCCGT.f b/Dragon/src/MCCGT.f
index cb890d9..458a1f4 100644
--- a/Dragon/src/MCCGT.f
+++ b/Dragon/src/MCCGT.f
@@ -158,19 +158,21 @@
       ENDDO
       READ(IFTRAK) NDIM,ISPEC,N2REG,N2SOU,NALBG,NCOR,NANGL,MXSUB,MXSEG
       IF((NDIM.NE.2).AND.(NDIM.NE.3)) 
-     & CALL XABORT('2D OR 3D EXCELT TRACKING EXPECTED')
+     1 CALL XABORT('2D OR 3D EXCELT TRACKING EXPECTED')
 *----
 *  RECOVER TRACKING STATE-VECTOR AND USER INPUT INFORMATION
 *----
       IGP(:NSTATE)=0 
       CALL LCMGET(IPTRK,'STATE-VECTOR',IGP)
-      CALL LCMGET(IPTRK,'ALBEDO',ALBEDO)
+      IF(IGP(7).EQ.5) CALL XABORT('MCCGT: THE SHORT CHARACTERISTICS M'
+     1 //'ETHOD IS NOT IMPLEMENTED. USE NOIC OPTION IN SALT:.')
       NREG=IGP(1)
       NSOU=IGP(5)
       NANIS=IGP(6)
       TRTY=IGP(9)
       CYCLIC=(TRTY.EQ.1)
       ISYMM=IGP(12)
+      CALL LCMGET(IPTRK,'ALBEDO',ALBEDO)
 *
       IMPX=1
       LCACT=IGP(13)
-- 
cgit v1.2.3