# Fortran Fortran95 HELP

#### anna2011

Fortran95 HELP!!!

Hi everyone,

I have problem with writing a procedure in Fortran. I'm a newbie so any help will be appreciated.
So the problem is as follow: I have written a program which reads some data from input file and then calculates some stuff using read values. Now what i have to do is to open more then just one file (seven actually) which have the same format as the previous one, the same extention but different names and the text string is not composed of the same number of letters, just the same extension. When i open all the files then i have to use the procedure i wrote and write all the data in one file.
Can anyone tell me how I can do that, I'm getting crazy becuase of that...

Related Programming and Computer Science News on Phys.org

#### Sybren

Re: Fortran95 HELP!!!

I think opening and writing is done as follows
Forgive me if I misunderstand your question

open(1,file='file1')
open(2,file='file2')
...
open(7,file='file7')

write(1) variable1
write(2) variable2
...
write(7) variable7

close(1,2,3,4,5,6,7)

Last edited:

#### anna2011

Re: Fortran95 HELP!!!

Hi,
So the idea is to read seven files, one by one, read from those files needed values and use the same procedure to calculate some values based on data read from each input file. And then in output file i should have seven separate blocks of calculations, for each input file.

Is this makes things more clear?

Re: Fortran95 HELP!!!

Hi,
So the idea is to read seven files, one by one, read from those files needed values and use the same procedure to calculate some values based on data read from each input file. And then in output file i should have seven separate blocks of calculations, for each input file.

Is this makes things more clear?
Hi anna I am new to FORTRAN as well, but I think you need to do something like this:

1) Initialize some arrays to store the data in
2) Open all of the files
3) Use a "DO" loop to read all of the data into the arrays
4) Close all files

We can help you out, but it would be helpful if you could provide a short sample of one of the 7 files you wish to get data from. Just copy paste the first 5-6 rows of data from a file and wrap them in the "Code" tags located above by using the [URL]http://i12.photobucket.com/albums/a220/saladsamurai/codetags.jpg[/URL] button (this will preserve the formatting).

Last edited by a moderator:

#### anna2011

Re: Fortran95 HELP!!!

Code:
C1        2.1419561858E+00  2.1419561858E+00  4.2839123717E+00  0.0000000000E+00
O2        4.5849316264E+00  4.5849316264E+00  9.1698632528E+00  0.0000000000E+00
N3        4.0198698574E+00  4.0198698574E+00  8.0397397149E+00  0.0000000000E+00
H4        3.0070127032E-01  3.0070127032E-01  6.0140254064E-01  0.0000000000E+00
H5        3.1607842405E-01  3.1607842405E-01  6.3215684811E-01  0.0000000000E+00
N6        4.0198675021E+00  4.0198675021E+00  8.0397350042E+00  0.0000000000E+00
H7        3.0070127037E-01  3.0070127037E-01  6.0140254074E-01  0.0000000000E+00
H8        3.1606930741E-01  3.1606930741E-01  6.3213861481E-01  0.0000000000E+00
hope its enough.

Thanks a lot )

#### fluidistic

Gold Member
Re: Fortran95 HELP!!!

Code:
C1        2.1419561858E+00  2.1419561858E+00  4.2839123717E+00  0.0000000000E+00
O2        4.5849316264E+00  4.5849316264E+00  9.1698632528E+00  0.0000000000E+00
N3        4.0198698574E+00  4.0198698574E+00  8.0397397149E+00  0.0000000000E+00
H4        3.0070127032E-01  3.0070127032E-01  6.0140254064E-01  0.0000000000E+00
H5        3.1607842405E-01  3.1607842405E-01  6.3215684811E-01  0.0000000000E+00
N6        4.0198675021E+00  4.0198675021E+00  8.0397350042E+00  0.0000000000E+00
H7        3.0070127037E-01  3.0070127037E-01  6.0140254074E-01  0.0000000000E+00
H8        3.1606930741E-01  3.1606930741E-01  6.3213861481E-01  0.0000000000E+00
hope its enough.

Thanks a lot )
Hmm I'm afraid it's not enough. Could you explain what are those values for your program? These are the written values, the read ones?
Also they are weird (but might be right). For each molecule (or row I'd better say), the first column is equal to the second. And the 3rd column is worth 2 times the first. The last is always 0.

I think opening and writing is done as follows
Forgive me if I misunderstand your question

open(1,file='file1')
open(2,file='file2')
...
open(7,file='file7')

write(1) variable1
write(2) variable2
...
write(7) variable7

close(1,2,3,4,5,6,7)
You forgot to read the files and do some calculations :)

### Physics Forums Values

We Value Quality
• Topics based on mainstream science
• Proper English grammar and spelling
We Value Civility
• Positive and compassionate attitudes
• Patience while debating
We Value Productivity
• Disciplined to remain on-topic
• Recognition of own weaknesses
• Solo and co-op problem solving