time_util_fatal()

subroutine time_util_fatal	(	character*(*)	caller,
		character*(*)	text
	)

Definition at line 33 of file time_util_fatal.f.

Referenced by time_div(), time_mul(), time_nfit(), and time_setdoy().

c
c declare parameters
      character*(*) caller,text
c
cE
c declare local variables
      integer index, last, len
c
c------------------------------------------------------------------------------
c go
      last=index(caller,' ')-1
      if (last.lt.1) last=len(caller)
      print 50,caller(1:last),text
      call abort()
c
      return
   50 format('ERROR (',a,'): ',a)

Here is the caller graph for this function: