--- ../UMgit/charmm.lobos/source/graphics/apograph.F90 2019-08-09 14:48:45.852637000 -0400
+++ source/graphics/apograph.F90 2019-11-01 16:01:04.000000000 -0400
@@ -224,7 +224,7 @@
implicit none
CHARACTER(len=*) PATHNAME
- INTEGER PTHLEN
+ INTEGER PTHLEN, IRET
!
PTHLEN=LEN(PATHNAME)
IF(PRNLEV.GE.3) WRITE(OUTU,44) ' Invoking the command: "', &
@@ -235,7 +235,9 @@
! vfork() and exec()
! to avoid replicating all memory!
!
- CALL FSYSTEM(PATHNAME,PTHLEN)
+ IRET = FSYSTEM(PATHNAME,PTHLEN)
+ IF(PRNLEV.GE.3.and.iret<0) WRITE(OUTU,45) iret
+45 format('Error: EXE returned ',I4)
RETURN
END SUBROUTINE GRPSHELL
#endif /* (mainnogrhpx)*/