diff options
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) |