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 2! Get current directorydir = FILE$CURDRIVElength = GETDRIVEDIRQQ(dir)IF (length .GT. 0) THENWRITE (*,*) 'Current directory is: 'WRITE (*,*) dirELSEWRITE (*,*) 'Failed to get current directory'END IFENDGETDRIVESIZEQQPortability Function: Returns the total size of the specified drive and space available on it.Module: USE IFPORTSyntaxresult = GETDRIVESIZEQQ (drive, total, avail)drive(Input) Character*(*). String containing the letter of the drive to get information about.total(Output) INTEGER(4) or INTEGER(4),DIMENSION(2) or INTEGER(8). Total number of byteson the drive.avail(Output) INTEGER(4) or INTEGER(4),DIMENSION(2) or INTEGER(8). Number of bytes ofavailable space on the drive.Results:The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..The data types and dimension (if any) specified for the total and avail arguments must be thesame. Specifying an array of two INTEGER(4) elements, or an INTEGER(8) argument, allowsdrive sizes larger than 2147483647 to be returned.If an array of two INTEGER(4) elements is specified, the least-significant 32 bits are returned inthe first element, the most-significant 32 bits in the second element. If an INTEGER(4) scalar isspecified, the least-significant 32 bits are returned.2-113

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

Saved successfully!

Ooh no, something went wrong!