revert inputoutput.f90

src/Utilities/InputOutput.f90

@@ -40,7 +40,6 @@ subroutine openfile(iu, iout, fname, ftype, fmtarg_opt, accarg_opt, &
     character(len=*), intent(in), optional :: filstat_opt !< file status, default is 'old'. Use 'REPLACE' for output file.
     integer(I4B), intent(in), optional :: mode_opt !< simulation mode that is evaluated to determine if the file should be opened
     ! -- local
-    character(len=MAXCHARLEN) :: iomsg
     character(len=20) :: fmtarg
     character(len=20) :: accarg
     character(len=20) :: filstat
@@ -108,12 +107,11 @@ subroutine openfile(iu, iout, fname, ftype, fmtarg_opt, accarg_opt, &
         ivar = -1
       else
         open (unit=iu, file=fname(1:iflen), form=fmtarg, access=accarg, &
-              status=filstat, action=filact, iostat=ivar, iomsg=iomsg)
+              status=filstat, action=filact, iostat=ivar)
       end if
       !
       ! -- Check for an error
       if (ivar /= 0) then
-        print *, "iomsg: ", iomsg
         write (errmsg, '(3a,1x,i0,a)') &
           'Could not open "', fname(1:iflen), '" on unit', iu, '.'
         if (iuop > 0) then
@@ -1855,12 +1853,10 @@ subroutine get_line(lun, line, iostat)
     ! -- dummy
     integer(I4B), intent(in) :: lun
     character(len=:), intent(out), allocatable :: line
-
     integer(I4B), intent(out) :: iostat
     ! -- local
     integer(I4B), parameter :: buffer_len = MAXCHARLEN
     character(len=buffer_len) :: buffer
-    character(len=buffer_len) :: iomsg
     character(len=:), allocatable :: linetemp
     integer(I4B) :: size_read, linesize
     character(len=1), parameter :: cr = CHAR(13)
@@ -1872,7 +1868,7 @@ subroutine get_line(lun, line, iostat)
     !
     ! -- process
     do
-      read (lun, '(A)', iomsg=iomsg, iostat=iostat, advance='no', size=size_read) buffer
+      read (lun, '(A)', iostat=iostat, advance='no', size=size_read) buffer
       if (is_iostat_eor(iostat)) then
         linesize = len(line)
         deallocate (linetemp)