[SOLVED] gfortran produces word wraped file

parekhharsh_j · 07-06-2011, 08:07 AM

This is a simple program to print 2 array in column
However when TRY.txt file was opened in Notepad a "word wrap" feature was ON.
As a result I am not able to load TRY.txt file in other software packages.
When I compiled the same program in Silverfrost.
The problem was solved and I got proper arranged 2 arrays.
Is there a way to circumvent the problem in gfortran

Code:

program try
implicit none
integer::x(10),y(10),n
do n=1,10
x(n)=n
y(n)=n+10
enddo
OPEN(10,FILE="TRY.txt",STATUS='REPLACE')
DO n=1,10
write(10,'(1x,I2,1x,I2)')x(n),y(n)
enddo
close(10)
end program try

PHP Code:

colucix · 07-07-2011, 01:05 AM

The wrap feature does not depend on the Fortran compiler. If you tell Fortran to write data on the same line, it will do flawlessly. Anyway, your code does not produce long lines of output. Can you explain where the wrapped lines come from? Maybe I misunderstood your post.

parekhharsh_j · 07-07-2011, 06:44 AM

Quote:

Originally Posted by colucix

The wrap feature does not depend on the Fortran compiler. If you tell Fortran to write data on the same line, it will do flawlessly. Anyway, your code does not produce long lines of output. Can you explain where the wrapped lines come from? Maybe I misunderstood your post.

I have attached two files. One file produced in gfortran named TRY_gfortran.txt and other produced in silverfrost is named TRY_silverfrost.txt. Please try to open in Notepad only. As I have observed word wrap features is not recognisable in other text editor software and both output will look same. However if you open in Notepad you'll see that file name TRY_gfortran.txt produces long lines of output while output of other file will give you output as two exact cloumns.
Thanks a lot.

colucix · 07-07-2011, 06:50 AM

Running the file command on both the files, you can see the actual difference:

Code:

$ file TRY_*
TRY_gfortran.txt:    ASCII text
TRY_silverfrost.txt: ASCII text, with CRLF line terminators

This means that the second one has windows line terminators, whereas the first one has UNIX line terminators. Notepad is known to not interpret the UNIX newline character, so that it puts the whole thing on a single line. If you want to correctly open the first file in Notepad, you can try (under Linux):

Code:

unix2dos TRY_gfortran.txt

This basically converts the line terminator, that is \n is transformed to \r\n. Hope this helps.

parekhharsh_j · 07-07-2011, 07:00 AM

Now, since I have to run Fortran program in UNIX. Is there a way to produce a file in UNIX with(CRLF line terminator) which are then recognisable in windows? Like any modification in Fortran programming ?

colucix · 07-07-2011, 07:13 AM

Yes. You can explicitly put a carriage return at the end of the line by means of the ACHAR function. Since the decimal number of carriage return in the ASCII table is 13, you can do something like:

Code:

WRITE(10,'(1x,I2,1x,I2,A)') x(n), y(n), ACHAR(13)

and the trick is done!

parekhharsh_j · 07-07-2011, 07:22 AM

Bingo!!
I do not quite understand the significance of ACHAR(13). But trick surely worked.

colucix · 07-07-2011, 07:28 AM

The function ACHAR(i) accepts an integer value i, and returns the character at that position in the ASCII character set. Useful to print out hidden control characters!