インテル® Fortran コンパイラー 14.0 ユーザー・リファレンス・ガイド
NLS Function: Returns a correctly formatted currency string for the current locale.
result = NLSFormatCurrency (outstr,instr[,flags])
The result type is INTEGER(4). The result is the number of characters written to outstr(bytes are counted, not multibyte characters). If an error occurs, the result is one of the following negative values:
NLS$ErrorInsufficentBuffer - outstr buffer is too small
NLS$ErrorInvalidFlags - flags has an illegal value
NLS$ErrorInvalidInput - instr has an illegal value
USE IFNLS
CHARACTER(40) str
INTEGER(4) i
i = NLSFormatCurrency(str, "1.23")
print *, str ! prints $1.23
i = NLSFormatCurrency(str, "1000000.99")
print *, str ! prints $1,000,000.99
i = NLSSetLocale("Spanish", "Spain")
i = NLSFormatCurrency(str, "1.23")
print *, str ! prints 1 Pts
i = NLSFormatCurrency(str, "1000000.99")
print *, str ! prints 1.000.001 Pts