From bd7171d346ad4f079aa89b2d9fdd6a56aa0a3b1c Mon Sep 17 00:00:00 2001
From: HEBERT Alain <alain.hebert@polymtl.ca>
Date: Tue, 23 Dec 2025 11:34:01 -0500
Subject: Resolve "Depreciate use of Version 4 and 5.0 Draglibs"

---
 Dragon/src/XDRCRE.f | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/Dragon/src/XDRCRE.f b/Dragon/src/XDRCRE.f
index 7c0d1c0..455fe80 100644
--- a/Dragon/src/XDRCRE.f
+++ b/Dragon/src/XDRCRE.f
@@ -164,6 +164,9 @@
         ELSE IF(NAMMOD .EQ.  'SPH:        ') THEN      
           USE='Superhomogenization (SPH) calculation'
           AUT='A. Hebert'
+        ELSE IF(NAMMOD .EQ. 'FPSPH:') THEN
+          USE='Single SPH factor fixed point iteration'
+          AUT='A. Hebert'
         ELSE IF(NAMMOD .EQ.  'CFC:        ') THEN      
           USE='Construction of a feedback database for CANDU reactors'
           AUT='M. T. Sissaoui'
-- 
cgit v1.2.3