بیا اصلا هر چی نوستم اینه:
program reade
implicit none
character(len=8)::filename
integer::nvals=0
integer::sd
real::value,sum=0,f,I
write(*,*)'please inter input file name:'
read(*,*)filename
write(*,1000)filename
1000 format('','the input file name:',A)...