forums.silverfrost.com

[Zach]

Re: format ( 4(2x,I3) )

I would like to know what the format ( 4(2x,I3) ) specifies.
Please only reply with a code example employing the format ( 4(2x,I3) ).
Please do not respond with a narrative or more obfuscation.
Thank you very much in advance, Zach.

[Kenneth_Smith]

4 means repeat what is in the following brackets four times.
2x means two spaces.

[Zach]

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1. So from you I learn that:
4(2x,I3) pertains to four integers, each preceded by two spaces
Now re (6,'4(2x,I3)') what does the "6" stand for?
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2. You add another query:
write(6,'(a,/,a)') 'xx xx xx xx ',' 123 123 123 123'

a/a I would expect to signify two alphas below eo, but the code produces:
xx xx xx x
123 123 123 123

Now please explain the new magic
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[Kenneth_Smith]

1. Standard output is to unit 6 (equivalent to *).

2. The output list for the write is two character strings, and the format code provides for two character strings to be printed, with the second character string printed after a "new line" instruction i.e. '/'.

Note that the width of the 'a' descriptor is optional and not necessary in this case.

[Zach]

Thank you for the program you responded with and the explanation contained.

[wahorger]

Note that if any of the 4 integers are greater than 999, the display of that/those will be ***.

Unlike "C" and printf(), if the number exceeds the specified length of the supplied format, then the field is replaced by a series of asterisks for the length of the supplied format.

for example:

[Zach]

Thank you Bill for "If any of the 4 integers are greater than 999", etc !

[Kenneth_Smith]

[Zach]

I had already amended my response. Thank you again. I wasn't yet sensitised to seeing 'whatever' rather than whatever so I will pay better attention in future. Yes, they are character strings.