I have multiple files in a folder which has similar names but with different numerical labelling. For example, the files are named as phi=1_theta=1, phi=1_theta=2, phi=2_theta=1 and so on. The labelling of the file is attached in this question as well. How to write a suitable Fortran code to open these files using loop?
There are overall 16 phis' x 16 thetas' files in the folder.
In such cases, we can generate a name to open a file. This name can be changed using a loop.
Here to generate names like phi=1_theta=1, phi=1_theta=2, phi=2_theta=1 etc I would do the following
( I didn't check the following code since there were problems extracting your .rar file. Some issue at my end. )
Program my_prog
implicit none
integer :: i,j,k=100
character(len=4) :: n1 ! To say phi=1
character(len=1) :: n2 ! To take first number
character(len=7) :: n3 ! To say _theta=
character(len=1) :: n4 ! To take in the second number
character(len=13) :: n5 ! To make a complete file name by joining n1,n2,n3,n4.
n1 = 'phi='
n3= '_theta='
do i=1,9
write(n2,'(i1)') i
do j=1,9
write(n4,'(i1)') j
n5=n1//n2//n3//n4
open(unit=k,file=n5,status='old',action='read')
!!! read and store data as you prefer with another do loop
close (unit=k)
enddo
enddo
END
P.S. This code to open phi=1 to 9 X theta=1 to 9. For higher values, I would write another loop with small change in the format statement write(n2,'(i1)') i --> write(n2,'(i2)') i and similarly for write(n4,'(i2)') j --> write(n2,'(i2)').
Mihir Durve, Thank you so much for the help.
Yes, I changed the name of the file to make life simpler and wrote a different code. But, I will try to run your suggestion as well as I find it is useful and more informative.
Thank you and all the best :)
Hamsalekha Kumaresan Welcome!
Feel free to let me know if this fails to work. (like my other codes :D )
- Badges
- Science topic
- Similar topics
- Filing