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.

Descriptions of the Library Routines 2i4ret = SIGNALQQ(SIG$ABORT, h_abort)WRITE(*,*) 'Set signal handler. Return = ', i4reti2ret = RAISEQQ(SIG$ABORT)WRITE(*,*) 'Raised signal. Return = ', i2retEND!! Signal handler routine!INTEGER(4) FUNCTION h_abort (signum)!DEC$ ATTRIBUTES C :: h_abortINTEGER(2) signumWRITE(*,*) 'In signal handler for SIG$ABORT'WRITE(*,*) 'signum = ', signumh_abort = 1ENDSLEEPPortability Subroutine: Suspends the execution of a process for a specified interval.Module: USE IFPORTSyntaxCALL SLEEP (time)time(Input) INTEGER(4). Length of time, in seconds, to suspend the calling process.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “SLEEPQQ”ExampleUSE IFPORTinteger(4) hold_timehold_time = 1 !lets the loop executeDO WHILE (hold_time .NE. 0)write(*,'(A)') "Enter the number of seconds to suspend"read(*,*) hold_timeCALL SLEEP (hold_time)2-445

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

Saved successfully!

Ooh no, something went wrong!