c234567
      program taccfrm
      implicit none
      integer i
      open (UNIT=10,FILE='__sequnf.dat',STATUS='NEW',
     +ACCESS='SEQUENTIAL',FORM='UNFORMATTED')
      open (UNIT=11,FILE='__seqfor.dat',STATUS='NEW',
     +ACCESS='SEQUENTIAL',FORM='FORMATTED')
      open (UNIT=12,FILE='__dirunf.dat',STATUS='NEW',
     +ACCESS='DIRECT',FORM='UNFORMATTED',RECL=4)
      open (UNIT=13,FILE='__dirfor.dat',STATUS='NEW',
     +ACCESS='DIRECT',FORM='FORMATTED',RECL=12)

      do i=1,10
       write(UNIT=10              ) real(i)
       write(UNIT=11,FMT=*        ) real(i) !<< questo è il consueto
       write(UNIT=12,        REC=i) real(i)
       write(UNIT=13,FMT=110,REC=i) real(i)
      enddo
c istruzione format
 110  FORMAT (E12.3)

      close(10)
      close(11)
      close(12)
      close(13)

      stop 
      end