Fortran is a much more basic compiler than you are obviously used to. You are trying to do too much with a single write statement. With Write instead of Writeln, you can simply put your numbers into a loop that has a different index for each case and use simpler write statements. Don't expect to format informal (unformated) matrixes.

Here are two answers. Am confident about

the first, not sure about the 2nd.

1)Put the maximum number instead of 79..

Then it will just write out as many as you have..

(you can try it with a simple case of code..

just to see if it works.. Just a test code to write a

statement.

2)

Before the format statement,

let an integer variable, like i1 = (inmt*2)-9 

then use i1 in your format statement instead of 79..

Not sure this will work, as some aspects like this

are tricky. Some times also they may like i1 + i2,

rather than - i2.. so it may work with i1 +i2, where i2 is a

negative number... Fortran has many peculiarities.

636

This is working for Intel FORTRAN Compiler v. 15:

1052 format ('c=[c1',8(';c',a1),(:,';c',a2),'];')

Pawel, Glad to hear this works now...These can be very frustrating... The trick is

to just be patient, and never give up..., and try anything that might work, and/or

start with something that does work, and gradually move towards your solution, one

parameter at a time, so u can focus on where the problem really  is located.

Further on Ken's suggestion.   I build the line of output by writing to a string one

part at a time.  Then output it to the device when complete.  Using debuggers make

it easy to see each part as you build it.

Thanks For All of you, really helpful.

I found also doing like following (with changing the cd(ii) and cy(ib) definition to include the letter "c" and colon) solve the problem:

write (cout,*) (cd(ii),ii=1+1,9),(cy(ib),ib=10,(inmt*2))

instead of:

write (cout,1052) (cd(ii),ii=1+1,9),(cy(ib),ib=10,(inmt*2))

1052 format ('c=[c1',8(';c',a1),79(';c',a2),'];')

Thanks,

What I would do is to use ADVANCE='NO' phrase within WRITE statement.  More precisely, in your case:

write characters cd with

  write (cout,1052, advance='no') (cd(ii),ii=1+1,9)

 1052 format ('c=[c1',8(';c',a1))

and then

 write (cout, 1053, advance='no') (cy(ib),ib=10,(inmt*2))

 1053 format (79(';c',a2))

and finish with

 write (cout, *) trim ('];')

It looks like you are coming from a C++ background (or at least the first implementers of your code have). The 'cout' is giving you away. Most of the time you can just use

write(*,*) 'Some text.'

Furthermore, in modern Fortran you would rather provide the format string directly instead of using labels:

write(*,'(I)') 1

You can also provide the format string as a string variable. In this case you can also first compose the format string:

write(format_string,'(A,I,A)') '(A,', 3, 'E)'  ! format string to print some text and 3 reals

write(*,format_string) 'x=', x(1:3)

I see that you have now used a version without formatting. But, if you ever want to introduce formatting again, this might be an easy option.

The < > notation mentioned by Pawel Jerzy Matuszyk might work with the Intel compiler, but it is not part of Fortran - and is certainly not portable.   Formats are can be pretty complicated for people not expert in Fortran.  While there are more advanced schemes that would work here, I think the advice from Simon above is on the mark.