time_mul()

subroutine time_mul	(	integer, dimension(7)	date1,
		integer, dimension(7)	date2,
		integer	n
	)

Definition at line 33 of file time_mul.f.

References time_norm(), and time_util_fatal().

c
c Multiply relative time date1 by n and store result in date2.
c
c input:
c   date1:  relative time record
c   n:      integer factor
c output:
c   date2:  date1*n     (regularized relative time value)
c
c last change: V2.00 (05/08/2000)
c
      integer date1(7), date2(7), n
cE
      integer quotient(7), rest(7), product(7), carry(7), i, limit(7)
      integer help
      data limit/-1,-1,24,60,60,1000,1000/
c
      if (date1(1).ne.0) then
        call time_util_fatal('time_mul','no absolute time allowed')
      else
        do i=3,7
c split n to avoid conflicts with integer range
          quotient(i)=int(n/limit(i))
          rest(i)=n-limit(i)*quotient(i)
          help=int(rest(i)*date1(i)/limit(i))
          carry(i)=quotient(i)*date1(i)+help
          product(i)=rest(i)*date1(i)-help*limit(i)
        enddo
        product(2)=n*date1(2)
        do i=2,6
          date2(i)=product(i)+carry(i+1)
        enddo
        date2(7)=product(7)
        date2(1)=0
        call time_norm(date2)
      endif
      return

Here is the call graph for this function: