[ vassqes @ 30.03.2009. 11:31 ] @
Napravio sam neki programcic u F95 koji treba da mi racuna nesto po nekim zadatim formulama.
problem je nastao kada to treba upisati u neki fajl kome ja dam neko ime na samom pocetku programa.
to izgleda ovako :


.
.
.
character :: izlaz
read*, izlaz
.
.
!nesto ovde racuna
.
.
open (1,file=izlaz, status='new')
write (1,*) .......
close (1)
.
.
.
to nece da mi radi, u opste ne napravi fajl sa rezultatima.



Ali, ako ne napravim foru da ja unosim ime izlaznog fajla, nego to smestim u sam program onda sve radi.
To otprilik izgleda ovako:

.
.
.
!ovde racuna

.
.

open (1,file='Pera.dat', status='new')
write (1,*) .......
close (1)

Kako u prvom slucaju da ga nateram da radi??
[ digas @ 14.04.2009. 14:16 ] @
Kratki primjer, mozda pomogne.

pozdrav,
Luka


Code:

!      Primjer programa koji ispisuje koordinate 10 tocaka u datoteku
!      proizvoljnog imena. Za:
!      http://www.elitesecurity.org/t359696-Fortran-upisivanje-DAT-fajl

      character(30) :: filename

      write(*,'(" Enter filename :")')
      read(*,'(a)')filename
      open(1, file=filename, status='replace')
      rewind(1)

      do i=1,10
        x = i*1.
        y = x**2
        write(1,'(f6.2,2x,f6.2)')x,y
      enddo
      close(1)

      end