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_convert.f90 | |
| parent | 7c453e211b55bbe4a7f6f33f71037522cd2359fd (diff) | |
#7: Correct a few format statements
Diffstat (limited to 'Dragon/src/g2s_convert.f90')
| -rw-r--r-- | Dragon/src/g2s_convert.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Dragon/src/g2s_convert.f90 b/Dragon/src/g2s_convert.f90 index c8f1fe9..1f28bb0 100644 --- a/Dragon/src/g2s_convert.f90 +++ b/Dragon/src/g2s_convert.f90 @@ -306,7 +306,7 @@ subroutine g2s_convert(impx,ipAl,ipZa,ipSal) tabSegArc(i)%b=real(anglEnd) tabSegArc(i)%a=real(anglStart) else - write(hsmg,'(35hg2s_convert: invalid element type=,i3,1h.)') itype + write(hsmg,'(34hg2s_convert: invalid element type=,i3,1h.)') itype call XABORT(hsmg) endif tabSegArc(i)%nodeg=nplus |