Intel® Fortran Compiler 17.0 Developer Guide and Reference
NLS Subroutine: Returns the current language, country, or codepage.
USE IFNLS
CALL NLSGetLocale ([language] [,country] [,codepage])
language |
(Output; optional) Character*(*). Current language. |
country |
(Output; optional) Character*(*). Current country. |
codepage |
(Output; optional) INTEGER(4). Current codepage. |
NLSGetLocale returns a valid codepage in codepage. It does not return one of the NLS$... symbolic constants that can be used with NLSSetLocale.
USE IFNLS
CHARACTER(50) cntry, lang
INTEGER(4) code
CALL NLSGetLocale (lang, cntry, code) ! get all three
CALL NLSGetLocale (CODEPAGE = code) ! get the codepage
CALL NLSGetLocale (COUNTRY = cntry, CODEPAGE =code) ! get country
! and codepage