gpamela/aux/readseeds.f

      PROGRAM READSEEDS
C # A simple program to read out the seed in a binary file
      integer lun,length
      integer ran(4)
      character*256 filename 

      lun=1
      print*, " Please enter the filename :"
      read*,filename
      length=len_trim(filename)
      print*, " Opening file : ",filename(1:len_trim(filename))
      open(unit=lun,file=filename,
     +     status='old',form='unformatted')
      read(lun) ran
      print*, " Seeds found : ",ran
      close(lun)
      stop
      end
1	cafagna	3.1	PROGRAM READSEEDS
2			C # A simple program to read out the seed in a binary file
3			integer lun,length
4			integer ran(4)
5			character*256 filename
6
7			lun=1
8			print*, " Please enter the filename :"
9			read*,filename
10			length=len_trim(filename)
11			print*, " Opening file : ",filename(1:len_trim(filename))
12			open(unit=lun,file=filename,
13			+ status='old',form='unformatted')
14			read(lun) ran
15			print*, " Seeds found : ",ran
16			close(lun)
17			stop
18			end