Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceSyntaxresult = MBJISToJMS (char)result = MBJMSToJIS (char)char(Input) CHARACTER(2). JIS or JMS character to be converted.A JIS character is converted only if the lead and trail bytes are in the hexadecimal range 21through 7E.A JMS character is converted only if the lead byte is in the hexadecimal range 81 through 9F or E0through FC, and the trail byte is in the hexadecimal range 40 through 7E or 80 through FC.Results:The result type is character with length 2. MBJISToJMS returns a Microsoft Kanji (Shift JIS orJMS) character. MBJMSToJIS returns a Japan Industry Standard (JIS) character.Only computers with Japanese installed as one of the available languages can use theMBJISToJMS and MBJMSToJIS conversion functions.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “NLSEnumLocales”, “NLSEnumCodepages”, “NLSGetLocale”, “NLSSetLocale”MBLeadNLS Function: Determines whether a given character is the lead (first) byte of a multibytecharacter sequence. This function is only available on Windows* systems.Module: USE IFNLSSyntaxresult = MBLead (char)char(Input) CHARACTER(1). Character to be tested for lead status.Results:The result type is LOGICAL(4). The result is .TRUE. if char is the first character of a multibytecharacter sequence; otherwise, .FALSE..MBLead only works stepping forward through a whole multibyte character string. For example:DO i = 1, LEN(str) ! LEN returns the number of bytes, not the! number of characters in strWRITE(*, 100) MBLead (str(i:i))2-206