Intel® Fortran Libraries Reference

2 Intel Fortran Libraries Reference• NLS$ShortDate – Use local short date formatResults:The result type is INTEGER(4). The result is the number of characters written to outstr (bytes arecounted, not multibyte characters). If an error occurs, the result is one of the following negativevalues:• NLS$ErrorInsufficentBuffer – outstr buffer is too small• NLS$ErrorInvalidFlags – flags has an illegal value• NLS$ErrorInvalidInput – intime has an illegal valueCompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “NLSFormatTime”, “NLSFormatCurrency”, “NLSFormatNumber”ExampleUSE IFNLSINTEGER(4) iCHARACTER(40) stri = NLSFORMATDATE(str, NLS$NORMAL) ! 8/1/99i = NLSFORMATDATE(str, NLS$USEALTCALENDAR) ! 8/1/99i = NLSFORMATDATE(str, NLS$LONGDATE) ! Monday, August 1, 1999i = NLSFORMATDATE(str, NLS$SHORTDATE) ! 8/1/99ENDNLSFormatNumberNLS Function: Returns a correctly formatted number string for the current locale. This functionis only available on Windows* systems.Module: USE IFNLSSyntaxresult = NLSFormatNumber (outstr, instr [, flags ])outstr(Output) Character*(*). String containing the correctly formatted number for the current locale. Ifoutstr is longer than the formatted number, it is blank-padded.instr(Input) Character*(*). Number string to be formatted. Can only contain the characters '0' through'9', one decimal point (a period) if a floating-point value, and a minus sign in the first position ifnegative. All other characters are invalid and cause the function to return an error.2-224