summaryrefslogtreecommitdiff
path: root/Dragon/src/g2s_pretraitement.f90
diff options
context:
space:
mode:
authorHEBERT Alain <alain.hebert@polymtl.ca>2025-12-12 14:27:55 -0500
committerHEBERT Alain <alain.hebert@polymtl.ca>2025-12-12 14:27:55 -0500
commitdf15a9b5e09ef7f6bd22fbb9cc3db577e2463cab (patch)
treed0eda76009851aed84e76c43bfe459a207178213 /Dragon/src/g2s_pretraitement.f90
parentc618c1e12f244bbe36bf96741878fa2ede83c750 (diff)
parent8a1d65be3e08a88bb11602d2988e30d08d836b6b (diff)
Merge branch '7-missing-param-group-in-apex-datafile-produced-by-module-apx' into 'main'
#7: Correct a few format statements See merge request dragon/5.1!32
Diffstat (limited to 'Dragon/src/g2s_pretraitement.f90')
-rw-r--r--Dragon/src/g2s_pretraitement.f902
1 files changed, 1 insertions, 1 deletions
diff --git a/Dragon/src/g2s_pretraitement.f90 b/Dragon/src/g2s_pretraitement.f90
index baf20ad..983d8e7 100644
--- a/Dragon/src/g2s_pretraitement.f90
+++ b/Dragon/src/g2s_pretraitement.f90
@@ -2025,7 +2025,7 @@ contains
call LCMSIX(dIp,triName,1)
call LCMLEN(dIp,'value',long,typ)
if(long == 0) then
- write(hsmg,'(36hG2S: value key missing for triName=,a,5h (3).)') trim(triName)
+ write(hsmg,'(35hG2S: value key missing for triName=,a,5h (3).)') trim(triName)
call LCMLIB(dIp)
call LCMLIB(dicoIp)
call XABORT(hsmg)