reading newlines with FORMAT statement

Posted by peter.murray.rust on Stack Overflow See other posts from Stack Overflow or by peter.murray.rust
Published on 2010-12-12T09:59:03Z Indexed on 2011/01/07 21:54 UTC
Read the original article Hit count: 245

Filed under:

fortran

I'm writing a preprocessor and postprocessor for Fortran input and output using FORMAT-like statements (there are reasons not to use a FORTRAN library). I want to treat the new line ("/") character correctly. I don't have a Fortran compiler immediately to hand. Is there a simple algorithm for working out how many newlines are written or consumed (This post just gives reading examples)

[Please assume a FORTRAN77-like mentality in the FORTRAN code and correct any FORTRAN syntax on my part]

UPDATE: no comments yet so I am reduced to finding a compiler and running it myself. I'll post the answers if I'm not beaten to it. No-one commented I had the format syntax wrong. I've changed it but there may still be errors

Assume datafile 1

a
b
c
d

etc...

(a) does the READ command always consume a newline? does

READ(1, '(A)') A
READ(1, '(A)') B

give A='a' and B='b'

(b) what does

READ(1,'(A,/)') A
READ(1,'(A)') B

give for B? (I would assume 'c')

(c) what does

READ(1, '(/)')
READ(1, '(A)') A

give for A (is it 'b' or 'c')

(d) what does

READ(1,'(A,/,A)') A, B
READ(1,'(A)') C

give for A and B and C(can I assume 'a' and 'b' and 'c')

(e) what does

READ(1,'(A,/,/,A)') A, B
READ(1,'(A)') C

give for A and B and C(can I assume 'a' and 'c' and 'd')?

Are there any cases in which the '/' is redundant?

Related posts about fortran

passing a fortran int array to C++ by calling C++ function in fortran

as seen on Stack Overflow - Search for 'Stack Overflow'
hi, I am trying to call a C++ function in FORTRAN subroutine. This C+ function is supposed to update an integer array. Here is a non-working code I wrote. Can someone please let me know what the issue is: ! FORTRAN function that calls a C++ function subroutine my_function() integer(4) ar(*) … >>> More
MinGW/G++/g95 link problem - libf95 undefined reference to `MAIN_'

as seen on Stack Overflow - Search for 'Stack Overflow'
Hi folks, Summing up, my problem consists on compiling g95 objects inside a C++ application. Actually, I'm constructing an interface for an old fortran program. For this task, I'm using the wxWidgets GUI library, and calling fortran subroutines when necessary. At the beginning, I was developing the… >>> More
Fortran arrays and subroutines

as seen on Stack Overflow - Search for 'Stack Overflow'
I'm going through a Fortran code, and one bit has me a little puzzled. There is a subroutine, say SUBROUTINE SSUB(X,...) REAL*8 X(0:N1,1:N2,0:N3-1),... ... RETURN END Which is called in another subroutine by: CALL SSUB(W(0,1,0,1),...) where W is a 'working array'. It appears that a specific… >>> More
fortran 90 user defined type, passing by value ?

as seen on Stack Overflow - Search for 'Stack Overflow'
I have an issue in fortran 90. I have a user defined type and when I call one of the MPI subroutines the data looks to be passed by values (not address, as I thought it should). The output arguments aren't modified. It seems to be specific to the MPI calls I tried the same thing in a simple test… >>> More
Should External Routine Be Declared Always in Fortran?

as seen on Stack Overflow - Search for 'Stack Overflow'
In my fortran code I made the following call to dnrm2 routine d = dnrm2(n, ax, 1) Just a simple call that would return me a double precision result. The problem is whether I should declare the function at the start of my script. I found that if I don't declare it, and when I compile the code in… >>> More

Developer IT