Dear Juan,

The solution presented by Alexis is okay

you need to use a Do loop for incrementing the input files.

This is after assigning a running index to the input files.

Best wishes

Of course you can.

You just have to loop around the read statement. It could look like that

DO i=1,300

OPEN(i+10,FILE=name(i),STATUS='OLD')

ENDDO

!Here you can read using unit comprised between 10 and 310. I avoided unit=6 as it is usually devoted to screen.

!You can also store in a larger array whatever you need to read

DO i=1,300

READ(UNIT=280,*) (data(j,i), j=1,filesize)

ENDDO

!Don't forget to close

DO i=1,300

CLOSE(i+10)

ENDDO

Best!

Dear Juan,

The solution presented by Alexis is okay

you need to use a Do loop for incrementing the input files.

This is after assigning a running index to the input files.

Best wishes

I made a mistake in my answer.

READ(UNIT=280,*) (data(j,i), j=1,filesize)

should read

READ(UNIT=i,*) (data(j,i), j=1,filesize)

Thanks to all. As I am not a programmer I think that I did not express myself well.

1. I am using Fortran Power Station under Windows.

2. When I run the exe file the program opens the well known black window and asks me for the file name (i.e., 1.log).

3. After I enter the filename the program carry out the calculations and stops.

...

Afteer this I must repeat steps 2 and 2 for 2.log and so on. In summary, I must made the calculations ine by one.

I was thinking in an external program calling the EXE file and including the filename, but I cannot figure how to modifiy the fortran program to make it read the filename from an external program.

Thanks to all again.

Sebastián

Do you have access to the source of the program you are running ?

Does it accept online argument ? (Can you type something like : program.exe filename)

Hi: Yes, I have accesss to the source program (I wrote it).

Inside the DOS windows I run: try.exe 1.log

The program asks for the two output filenames.

I run again as: try.exe 1.log 1.ou1 1.ou2

It seems that the program works but I cannot find in the disk the output files!

Thank you very much.

If you have access to the source code then you should implement some kind of multiple input feature such as the one I described earlier.

Best regards

The OPEN statement will select an available unit number for you.

OPEN (NEWUNIT=iu, ...) ! causes iu to be defined with the selected unit number

READ(iu, *) ...

CLOSE (iu)

This method avoids unit number collisions.

Please use the following snippet:

program SomeProgram

implicit none

character[LEN=3] fileNumber

character[LEN=7] filename

integer err

do i = 1, 300

write(fileNumber,'(i3)') i

filename = trim(adjustl(fileNumber)) // ".log"

open(11, FILE=filename, STATUS="OLD", IOSTAT=err, ERR=999)

! do something

close(11, IOSTAT=err, ERR=999)

end do

stop "Mission Accomplished."

999 &

select case(err)

case(FOR$IOS_FILNOTFOU)

write(*,*) "Error ", err, ": ", filename, " not found."

stop "Program terminated."

case (FOR$IOS_CLOERR)

write(*,*) "Error ", err, ": Unable to close file ", filename

stop "Program terminated."

case DEFAULT

write(*,*) "Error ", err, ": Something went wrong with file ", filename

stop "Program terminated."

end select

end program

IMPORTANT:

• Error codes may differ from compiler to compiler.
• In some compilers you need to include error codes using INCLUDE or USE statements. If it is troublesome, you can ignore verbose error reporting.
• If you have the program as an executable file, you may use SYSTEM command to run it in your program (that is another story!)
• if you need more than one file, then you have to open the files using different unit numbers. This means you need two loops for opening and closing the files:

do i = 1, 300

open(i, FILE=...

end do

! do something

do i = 1, 300

close(i, IOSTAT=...

end do

even simpler, without writing any fortran is to create a batch file that calls the command line. Using a spreadsheet, you can create multiple calls in the batch file so each cell is the name of the file and is incremented each row. use a bit of excel concatenation to create the command line and then copy them all into the batch file then run that.

• Hi: I want to thank you all, spceicllay to J. Jeffrey.The scripts are working well.
• Regards