Q re purtting variables in Format statements

[WSinc]

Suppose I have a stiuation like this:

integer q(1:20),nq,nx
realx(1:20)
print 101,x(1:nx), q(1:nq)
101 format("x=",4F20.12," q=",4I10)

This works fine as long as nx=4, and nq is <= 4.
But if those values change, I want the FORMAT statement to reflect that.

The way I now handle that is to modify the FORMAT statment at execution time by
putting it in a CHARACTER array.

Has Fortran come up with a cleaner way to do this? I couldn't find anything.

[Steven_L_Intel1]

The Fortran standard doesn't have a cleaner way of doing what you want. In some circumstances, the Fortran 2008 "unlimited group repeat count" feature can help, but not here.

Intel Fortran supports an old extension that does what you want, called Variable Format Expressions. The syntax would be:

101 format("x=".F20.12,"q=",I10)

This extension is widely implemented, but not universally so.

[WSinc]

Ok, I will try that. Thanks ! !

[Steven_L_Intel1]

No - what goes inside the <> is just an ordinary expression.

[IanH]

For your specific example you could do something like the following, without having to resort to extensions:

[bash] WRITE (*, "('x=',*F20.12)", ADVANCE='NO') x(:nq) WRITE (*, "(' q=',*I10)") q(:nq)[/bash]

[Steven_L_Intel1]

Dang - I should have thought of that! Thanks, Ian!