پاسخ: با سلام و عرض ادب
یکی از روشهای تولید نام متغیر ایجاد یک فایل جانبی است.
به عنوان مثال شما می توانید کد زیر را بنویسید تا نامهای شناور مختلف ایجاد شود.
parameter(N=70)
character*11 Name(N)
do i=1,N
open(1,file='temp')
write(1,10)'Title',i,'.txt'
rewind(1)
10 format(1x,A5,i2.2,A4)
read(1,*)name(i)
close(1,status='Delete')
enddo
do i=1,N
open(1,file=name(i))
! در اينجا برنامه خود را بنويسيد
write(1,*)'test',i
close(1)
enddo
end
برنامه فوق ابتدا 70 نام مختلف برای فایلهای مورد نظر شما ایجاد می کند و سپس مطالب مورد نظر شما را در این 70 فایل مختلف درج می کند.
اگر مشکلتان حل نشد باز هم بفرمائید تا توضیح بیشتری ارائه کنم. (بفرمائید دقیقا در کجای کار مشکل دارید تا کمکتان کنم)
موفق باشید