Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceWRITE (*,'(A, \)') ' Enter filename (Hit &RETURN to exit): 'len = GETSTRQQ(file)IF (len .EQ. 0) EXITlen = FULLPATHQQ(file, buf)IF (len .GT. 0) THENWRITE (*,*) buf(:len)ELSEWRITE (*,*) 'Can''t get full path'EXITEND IF! Split pathWRITE (*,*)len = SPLITPATHQQ(buf, drive, dir, name, ext)IF (len .NE. 0) THENWRITE (*, 900) ' Drive: ', driveWRITE (*, 900) ' Directory: ', dir(1:len)WRITE (*, 900) ' Name: ', nameWRITE (*, 900) ' Extension: ', extELSEWRITE (*, *) 'Can''t split path'END IFEND DO900 FORMAT (A, A)ENDGERRORRun-Time Subroutine: Returns a message for the last error detected by a Fortran run-timeroutine.Module: USE IFCORESyntaxCALL GERROR (string)string(Output) Character*(*). Message corresponding to the last detected error.2-96