From ea1625240d9b3aca4bf6b57ace99891ae117a7b3 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 25 May 2023 09:30:26 -0600 Subject: [PATCH] removed unneeded error print statements --- src/getidx.F90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/getidx.F90 b/src/getidx.F90 index 644eabf5..a93412e1 100644 --- a/src/getidx.F90 +++ b/src/getidx.F90 @@ -76,10 +76,8 @@ end subroutine getg2ir lux = 0 iret = 0 if (lugb .le. 0 .or. lugb .gt. 9999) then - print *, ' ' print *, ' file unit number out of range' print *, ' use unit numbers in range: 0 - 9999 ' - print *, ' ' iret = 90 return endif @@ -125,9 +123,7 @@ end subroutine getg2ir else nlen = 0 nnum = 0 - print *, ' ' print *, ' error reading index file ' - print *, ' ' iret = 96 return endif