blob: 577d223f21d250b73ca3dd4bb1ccbaae903f58c2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- Robot/subroutines3.f.orig 2009-04-11 21:56:19.000000000 +0200
+++ Robot/subroutines3.f 2009-04-11 21:56:43.000000000 +0200
@@ -1608,7 +1608,7 @@
end if
return
C ERROR MESSAGES
-992 write(tstring,'(a, i)')'ERROR: THERE IS TOO MUCH DATA IN UNIT', IFIL
+992 write(tstring,'(a, i5)')'ERROR: THERE IS TOO MUCH DATA IN UNIT', IFIL
call totext(tstring)
write(tstring,*)'A MAXIMUM OF',MSIZ,' POINTS IS ALLOWED'
call totext(tstring)
|
