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 2CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIBSee Also: “SETENVQQ”, “GETLASTERRORQQ”Example! Program to demonstrate GETENVQQ and SETENVQQUSE IFPORTUSE IFCOREINTEGER(4) lenv, lvalCHARACTER(80) env, val, envalWRITE (*,900) ' Enter environment variable name to create, &modify, or delete: 'lenv = GETSTRQQ(env)IF (lenv .EQ. 0) STOPWRITE (*,900) ' Value of variable (ENTER to delete): 'lval = GETSTRQQ(val)IF (lval .EQ. 0) val = ' 'enval = env(1:lenv) // '=' // val(1:lval)IF (SETENVQQ(enval)) THENlval = GETENVQQ(env(1:lenv), val)IF (lval .EQ. 0) THENWRITE (*,*) 'Can''t get environment variable'ELSE IF (lval .GT. LEN(val)) THENWRITE (*,*) 'Buffer too small'ELSEWRITE (*,*) env(:lenv), ': ', val(:lval)WRITE (*,*) 'Length: ', lvalEND IFELSEWRITE (*,*) 'Can''t set environment variable'END IF900 FORMAT (A, \)END2-117

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

Saved successfully!

Ooh no, something went wrong!