Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2SyntaxCALL PACKTIMEQQ (timedate, iyr, imon, iday, ihr, imin, isec)timedate(Output) INTEGER(4). Packed time and date information.iyr(Input) INTEGER(2). Year (xxxx AD).imon(Input) INTEGER(2). Month (1 – 12).iday(Input) INTEGER(2). Day (1 – 31)ihr(Input) INTEGER(2). Hour (0 – 23)imin(Input) INTEGER(2). Minute (0 – 59)isec(Input) INTEGER(2). Second (0 – 59)The packed time is the number of seconds since 00:00:00 Greenwich mean time, January 1, 1970.Because packed time values can be numerically compared, you can use PACKTIMEQQ to workwith relative date and time values. Use UNPACKTIMEQQ to unpack time information.SETFILETIMEQQ uses packed time.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIBSee Also: “UNPACKTIMEQQ”, “SETFILETIMEQQ”, “GETFILEINFOQQ”, “TIMEF”ExampleUSE IFPORTINTEGER(2) year, month, day, hour, minute, second, &hundINTEGER(4) timedateCALL GETDAT (year, month, day)CALL GETTIM (hour, minute, second, hund)CALL PACKTIMEQQ (timedate, year, month, day, hour,minute, second)END&2-239