diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-12 19:40:28 +0100 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-12 19:40:28 +0100 |
| commit | 8a1d65be3e08a88bb11602d2988e30d08d836b6b (patch) | |
| tree | d0eda76009851aed84e76c43bfe459a207178213 /Dragon/src/g2s_pretraitement.f90 | |
| parent | 7c453e211b55bbe4a7f6f33f71037522cd2359fd (diff) | |
#7: Correct a few format statements
Diffstat (limited to 'Dragon/src/g2s_pretraitement.f90')
| -rw-r--r-- | Dragon/src/g2s_pretraitement.f90 | 2 |
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) |