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 2c===============================================================10 key1 = getcharqq()c-----first check for control+cif(ichar(key1) .eq. 3) thenwrite(*,*) 'Control C Received'write(*,*) "Really want to quit?"write(*,*) "Type Y to exit, or any other char to continue."read(*,*) ch1if(ch1.eq."y" .or. ch1.eq."Y") goto 30goto 10endifif(ichar(key1).eq.0) then ! function key?key2 = getcharqq()write(*,15) ichar(key1),ichar(key2),key215 format(1x,2i12,1x,a1,' function key')elseif(ichar(key1).eq.224) then ! direction key?key2 = getcharqq()write(*,16) ichar(key1),ichar(key2),key216 format(1x,2i12,1x,a1,' direction key')elsewrite(*,20) key1,ichar(key1) ! normal key20 format(1x,a1,i11)endifendifgo to 1030 stopendPEEKCHARQQRun-time Function: Checks the keystroke buffer for a recent console keystroke and returns.TRUE. if there is a character in the buffer or .FALSE. if there is not.Module: USE IFCORESyntaxresult = PEEKCHARQQ ( )2-243

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

Saved successfully!

Ooh no, something went wrong!