From 8a1d65be3e08a88bb11602d2988e30d08d836b6b Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Fri, 12 Dec 2025 19:40:28 +0100 Subject: #7: Correct a few format statements --- Dragon/src/g2s_pretraitement.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Dragon/src/g2s_pretraitement.f90') 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) -- cgit v1.2.3