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_convert.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Dragon/src/g2s_convert.f90') 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 -- cgit v1.2.3