topic Re: Write the Degree Symbol(UTF-8) to file in Intel® Fortran Compiler

Write the Degree Symbol(UTF-8) to file

Jing1 — Mon, 23 Aug 2021 17:20:54 GMT

Hi,

Currently we can do this: open a text file and write degree symbol(°F) in FORTRAN, then read this file in C++ with ANSI mode.

But now if we read the same file in C++ with UTF-8 mode, we have trouble with degree symbol. Please refer to the attached screenshots.

We tried to add "encoding = 'UTF-8'" option when we open the file before writing the degree symbol in FOTRAN, it doesn't help.

So we have 2 questions:

1. Does Intel FORTRAN support encoding UTF-8 for text file, exp. for special characters -- degree symbol, square, cube etc.?

2. If yes, how should we write the degree symbol to text file in FORTRAN to let FORTRAN compiler knows this is UTF-8 mode, not ANSI mode?

Thanks.

Re: Write the Degree Symbol(UTF-8) to file

Steve_Lionel — Mon, 23 Aug 2021 18:02:18 GMT

Intel Fortran does not currently support UTF-8 in files. But if you can figure out the UTF-8 encoding, you can write it as a series of bytes. For example:

open (unit=1,file='E:\new 2.txt', form='unformatted',access='stream',status='new') write (1) '37',int(Z'B0C2',2) close (1) end

Re: Write the Degree Symbol(UTF-8) to file

Steve_Lionel — Mon, 23 Aug 2021 18:17:57 GMT

What I would suggest is creating a series of named (PARAMETER) character constants for the symbols you want. You could then write them in formatted I/O using an A format.

character(2), parameter :: utf_degree = char(int(Z'C2'))//char(int(Z'B0')) character(2), parameter :: utf_squared = char(int(Z'C2'))//char(int(Z'B2')) character(2), parameter :: utf_cubed = char(int(Z'C2'))//char(int(Z'B3')) open (unit=1,file='E:\new2.txt', form='formatted', status='unknown') write (1,'(A,A)') "Degree: ", utf_degree write (1,'(A,A)') "Squared: ", utf_squared write (1,'(A,A)') "Cubed: ", utf_cubed close (1) end

Re: Write the Degree Symbol(UTF-8) to file

Jing1 — Tue, 24 Aug 2021 18:36:11 GMT

Thanks a lot. This is really helpful!

Re: Write the Degree Symbol(UTF-8) to file

Jing1 — Tue, 31 Aug 2021 18:33:07 GMT

Hi Steve,

We are having trouble to use the same way to write these characters(fourth power, ≤, ≥) in FORTRAN to text file, because these characters' UNICODE(UTF-8) value has 3 bytes.

Here is our test code:

character(3), parameter :: utf_fourth = char( int( Z'E2' )) // char(int( Z'81' )) // char(int( Z'B4' )) ! fourth power

open (unit=1,file='E:\new2.txt', form='formatted', status='unknown')

write (1,'(A,A)') "Fourth: ", utf_fourth

close (1)

end

But the test result is:

Re: Write the Degree Symbol(UTF-8) to file

Steve_Lionel — Tue, 31 Aug 2021 18:37:04 GMT

Your test result doesn't match the program you show. When I compile and run the program, I get the proper "fourth" character.

character(3), parameter :: utf_fourth = char( int( Z'E2' )) // char(int( Z'81' )) // char(int( Z'B4' )) ! fourth power character(3), parameter :: utf_lessequal = char(int(Z'E2')) // char(int(Z'89')) // char(int(Z'A4')) ! Less than or equal character(3), parameter :: utf_greaterequal = char(int(Z'E2')) // char(int(Z'89')) // char(int(Z'A5')) ! Greaterthan or equal open (unit=1,file='E:\new2.txt', form='formatted', status='unknown') write (1,'(A,A)') "Fourth: ", utf_fourth write (1,'(A,A)') "Less or equal: ", utf_lessequal write (1,'(A,A)') "Greater or equal: ", utf_greaterequal close (1) end

Re: Write the Degree Symbol(UTF-8) to file

Jing1 — Tue, 31 Aug 2021 23:03:18 GMT

Thanks for quick response, Steve.

Sorry for the confusion, I uploaded the wrong screen shot.

I copied your test code and ran it, why did I get this for fourth power? Any idea or guess?

Re: Write the Degree Symbol(UTF-8) to file

andrew_4619 — Wed, 01 Sep 2021 09:01:36 GMT

I would guess because the font being used in your text editor does not have a definition for that code. I note that Steve opened in Notepad and you have some other program.

Re: Write the Degree Symbol(UTF-8) to file

Steve_Lionel — Wed, 01 Sep 2021 14:23:38 GMT

Ah, that's Notepad++ which I also have. It defaults to Courier New font which doesn't have that character. Indeed, if I copy that character from Character Map and paste it into Notepad++, I get the block symbol.

Do this. Settings > Style Configurator...

Language: Global Style, Style: Default Style. Change Font from Courier New to Consolas. While you're at it, you may want to change the font size from 10 to something larger (at least I did.) Save and Close.