C+ C NAME: C Time1ChangeUnits C PURPOSE: C Change fract-day units C CATEGORY: C gen/for/lib C CALLING SEQUENCE: subroutine Time1ChangeUnits(units,new_units,t,u) C INPUTS: C units integer # current units in day C new_units integer # new units in day C t integer 1-element standard time C OUTPUTS: C u integer modified 1-element standard time C CALLS: C Time2ConvertUnits C PROCEDURE: C Typically this routine is used to convert to smaller frac-day units, C e.g. from hours to seconds. In this case the conversion is exact C When converting to larger units (new_units smaller than units) C then round-off will usually occur, i.e. the conversion is not exact. C MODIFICATION HISTORY: C JAN-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu) C- integer units integer new_units integer t integer u integer t2(2) t2(1) = 0 t2(2) = t call Time2ConvertUnits(units,new_units,t2,t2) u = t2(1)*new_units+t2(2) return end