diff options
-rw-r--r-- | INOUT/inout.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/INOUT/inout.f b/INOUT/inout.f index 820c548..da65ca6 100644 --- a/INOUT/inout.f +++ b/INOUT/inout.f @@ -1386,7 +1386,7 @@ c c if can't write the data to the I/O unit specified, should be able to c write everything to standard output (unit 6) c - 1000 write(0, *) 'Error, Can''t write data to sepcified unit',iounit + 1000 write(0, *) 'Error, Can''t write data to specified unit',iounit write(0, *) 'Write the matrix into standard output instead!' ierr = 1 write(6,*) n |