Generates array of random numbers. Saves it as an unformatted Fortran 90 binary file

writebin.f90

! Generates arrays of random numbers. Saves them as binary
! unformatted files.

program test
implicit none

real, dimension(:,:), allocatable :: y
integer :: n
character(len=50) :: out

write(unit=*,fmt='(A,$)') 'Filename: '
read *, out

write(unit=*,fmt='(A,$)') 'Number of points: '
read *, n

! allocated arrays
allocate(y(n,n))

! generates random numbers
call random_number(y)

OPEN(UNIT=1000,FILE=out,STATUS='REPLACE',form='unformatted')
write(1000) y
CLOSE(1000)

!call writebin(10000,x,out)
!call writebin(2,y,out)

end program