missing initial left parenthesis in format...

[starlite79]

Hi.

I am trying to write some standard output to file with a name based on a few characters from a file name I specify. Here are some important chunks of code I'm using:

      character*20 infile1(20), infile2(20), tfile

      do 100 i=1,15
         read(iunit(1),1099) infile1(i)
 100     write(*,*) infile1(i)


      tfile=infile1(15)
c     ofile name is xxxxx_tseries_yymmdd.dat  (line 238)
      len_ofile = index(opath,' ') - 1
      ofile=opath(1:len_ofile)//'xxxxx_tseries_'//tfile(4:9)//'.dat'

The 15th index of infile1 is a file similar to xxxyymmddh00.xxxx

So, I'd like the 4-9th characters of that file to be included in the output file name. However, at line 238 of my code (marked above) I get a Fortran runtime error of "missing initial left parenthesis in format" and then it lists my file infile1(15)

I can't figure out what this error means. Would appreciate some help.

 

[xwb]

What does format 1099 look like?

 

[starlite79]

The format for 1099 is a17. I had been trying to write out more files than what had been statically allocated (at least that is what I think the problem was). This code was written in such a way that indices and whatnot are hard coded, which makes it difficult to modify.

My next problem to solve will be how to fix the code since hard coding isn't a good idea.

 

[xwb]

It is probably reporting an error on the wrong line. Are there any other format statements?