time_util_warning()

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

Definition at line 33 of file time_util_warning.f.

Referenced by time_add(), time_compare(), 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
c
      return
   50 format('WARNING (',a,'): ',a)

Here is the caller graph for this function: