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 2IF ((handle .EQ. FILE$LAST) .OR. &(handle .EQ. FILE$ERROR)) THENSELECT CASE (GETLASTERRORQQ( ))CASE (ERR$NOMEM)WRITE (*,*) 'Out of memory'CASE (ERR$NOENT)EXITCASE DEFAULTWRITE (*,*) 'Invalid file or path name'END SELECTEND IFpermit = ' 'IF ((info%permit .AND. FILE$HIDDEN) .NE. 0) &permit(1:1) = 'H'IF ((info%permit .AND. FILE$SYSTEM) .NE. 0) &permit(2:2) = 'S'IF ((info%permit .AND. FILE$READONLY) .NE. 0) &permit(3:3) = 'R'IF ((info%permit .AND. FILE$ARCHIVE) .NE. 0) &permit(4:4) = 'A'IF ((info%permit .AND. FILE$DIR) .NE. 0) &permit(5:5) = 'D'WRITE (*, 9000) info%name, info%length, permit9000 FORMAT (1X, A5, I9, ' ',A6)END DOEND SUBROUTINEGETFILLMASKGraphics Subroutine: Returns the current pattern used to fill shapes. This subroutine is onlyavailable on Windows* systems.Module: USE IFQWINSyntaxCALL GETFILLMASK (mask)mask(Output) INTEGER(1). One-dimensional array of length 8.2-123

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

Saved successfully!

Ooh no, something went wrong!