12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Descriptions of the Library Routines 2Module: USE IFPORTSyntaxCALL GETDAT (iyr, imon, iday)iyr(Output) INTEGER(4) or INTEGER(2). Year (xxxx AD).imon(Output) INTEGER(4) or INTEGER(2). Month (1-12).iday(Output) INTEGER(4) or INTEGER(2). Day of the month (1-31).This subroutine is thread-safe.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIBSee Also: “GETTIM”, “SETDAT”, “SETTIM”, “FDATE”, “IDATE4”, “JDATE”Example! Program to demonstrate GETDAT and GETTIMUSE IFPORTINTEGER(4) tmpday, tmpmonth, tmpyearINTEGER(4) tmphour, tmpminute, tmpsecond, tmphundCHARACTER(1) merCALL GETDAT(tmpyear, tmpmonth, tmpday)CALL GETTIM(tmphour, tmpminute, tmpsecond, tmphund)IF (tmphour .GT. 12) THENmer = 'p'tmphour = tmphour - 12ELSEmer = 'a'END IFWRITE (*, 900) tmpmonth, tmpday, tmpyear900 FORMAT(I2, '/', I2.2, '/', I4.4)WRITE (*, 901) tmphour,tmpminute,tmpsecond,tmphund,mer901 FORMAT(I2, ':', I2.2, ':', I2.2, ':', I2.2, ' ',&A, 'm')END2-111

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!