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 2ExampleUSE IFNLSCHARACTER(40) strINTEGER(4) ii = NLSFormatCurrency(str, "1.23")print *, str ! prints $1.23i = NLSFormatCurrency(str, "1000000.99")print *, str ! prints $1,000,000.99i = NLSSetLocale("Spanish", "Spain")i = NLSFormatCurrency(str, "1.23")print *, str! prints 1 Ptsi = NLSFormatCurrency(str, "1000000.99")print *, str! prints 1.000.001 PtsNLSFormatDateNLS Function: Returns a correctly formatted string containing the date for the current locale.This function is only available on Windows* systems.Module: USE IFNLSSyntaxresult = NLSFormatDate (outstr [, intime ] [, flags])outstr(Output) Character*(*). String containing the correctly formatted date for the current locale. Ifoutstr is longer than the formatted date, it is blank-padded.intime(Optional; input) INTEGER(4). If specified, date to be formatted for the current locale. Must be aninteger date such as the packed time created with PACKTIMEQQ. If you omit intime, the currentsystem date is formatted and returned in outstr.flags(Optional; input) INTEGER(4). If specified, modifies the date conversion. If you omit flags, theflag NLS$Normal is used. Available values (defined in IFNLS.F90) are:• NLS$Normal – No special formatting• NLS$NoUserOverride – Do not use user overrides• NLS$UseAltCalendar – Use the locale’s alternate calendar• NLS$LongDate – Use local long date format2-223

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

Saved successfully!

Ooh no, something went wrong!