!--------------------------------------
  !
  !
  !---------------------------------------
  Program TestGadget
  Character :: txt*4, name*120
     Integer, parameter :: SPECMAX = 10       ! number of species
     integer                           :: SF,Fb,Cool,nFiles
     integer, dimension(SPECMAX)       :: npart,ipart,N_I,npartot
     real*4,  dimension(SPECMAX)       :: masses
     real*4                            :: a,z, L, h,Lambda,Om, &
                                          factor, abar, Wpr
     Real*4                            :: lbox
     Integer*4 :: Dummy(64)
     
     npart(:) =0
     npart(1) = 1024
     Do i=1,6
        npart(i) = i**3
     End Do
     do i=1,64
        Dummy(i) =i
     enddo
     Dummy(1) = 23068672
     npartot  = npart
     a =0.
     z = 1.
     nFiles =12
     Om = 0.
     Lambda = 0.
     h =0.1
     Cool = 0.
     L = 1000.
     SF = 0
     Fb = 0
  name ='test.dat'
  open(1,file=TRIM(name),form='unformatted')
  write(1) Dummy
  !open(1,file=TRIM(name),form='binary')
  !Read (1) (npart(j),j=1,6),   (masses(j),J=1,6),a,z, SF,Fb,  &
  !                 (npartot(j),j=1,6), Cool,nFiles,L, Om,Lambda,h
  !write (1) (npart(j),j=1,6),   (masses(j),J=1,6),a,z, SF,Fb,  &
  !                 (npartot(j),j=1,6), Cool,nFiles,L, Om,Lambda,h

 !write(*,'(6i10)')  npart(1:6) 
 !write(*,'(6i10)')  npartot(1:6)


end program TestGadget