Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
integer handle(100)
do i = 1, n
open (handle(i), ...)
enddo
character*10 strnum
character*20 filename
integer handle(100)
do i = 1, n
write (strnum, *) i, '.txt'
name = 'data' // strnum(2:)
print *, 'Opening ',name
open (handle(i), file=name)
enddo