time_util_warning_n()

subroutine time_util_warning_n	(	character*(*)	caller,
		character*(*)	text,
		integer	n
	)

Definition at line 55 of file time_util_warning.f.

Referenced by time_fullyear(), time_setdoy(), and time_util_warning_report_time().

c
c declare parameters
      character*(*) caller,text
      integer n
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,n
c
      return
   50 format('WARNING (',a,'): ',a,i6)

Here is the caller graph for this function: