      subroutine uertst (ierr, isub)
C*******************************************************************************
C*                                                                             *
C*    ROUTINE NAME:  UERTST                                                    *
C*                                                                             *
C*    PURPOSE:  prints error number and name of calling routine                *
C*                                                                             *
C*    AUTHOR:   Steve Reid - 9 September 1999                                  *
C*              S & E Computing                                                *
C*                                                                             *
C*    INPUTS:   ierr - error number to be printed                              *
C*              isub - name of calling subroutine to be printed                *
C*                                                                             *
C*    OUTPUTS:  none                                                           *
C*                                                                             *
C*    ROUTINES CALLED:  none                                                   *
C*                                                                             *
C*    LIMITATIONS:  none                                                       *
C*                                                                             *
C*******************************************************************************
      implicit none
      integer ierr
      character*(*) isub

      write (*, 6000)  ierr, isub
 6000 format (1x, '*** Terminal error', i4, ' occurred in routine ', a)
      return
      end
