eprint.f 173 Bytes
edit raw blame history



1

2

3

4

5

6

7

8

9

10


subroutine eprint
c
c  this subroutine prints the last error message, if any.
c
      integer messg(1)
c
      call e9rint(messg,1,1,.false.)
      return
c
      end