12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>See Also: “GETCONTROLFPQQ”, “GETSTATUSFPQQ”, “LCWRQQ”, “SCWRQQ”,“CLEARSTATUSFPQQ”ExampleUSE IFPORTINTEGER(2) status, control, controloCALL GETCONTROLFPQQ(control)WRITE (*, 9000) 'Control word: ', control! Save old control wordcontrolo = control! Clear all flagscontrol = control .AND. Z'0000'! Set new control to round upcontrol = control .OR. FPCW$UPCALL SETCONTROLFPQQ(control)CALL GETCONTROLFPQQ(control)WRITE (*, 9000) 'Control word: ', control9000 FORMAT (1X, A, Z4)ENDSETDATPortability Function: Sets the system date.Module: USE IFPORTSyntaxresult = SETDAT (iyr, imon, iday)iyr(Input) INTEGER(2) or INTEGER(4). Year (xxxx AD).imon(Input) INTEGER(2) or INTEGER(4). Month (1-12).iday(Input) INTEGER(2) or INTEGER(4). Day of the month (1-31).Results:The result type is LOGICAL(4). The result is .TRUE. if the system date is changed; .FALSE. if nochange is made.2-396

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

Saved successfully!

Ooh no, something went wrong!