program output_to_file
  use global_parameters, only : wp
  implicit none
  real (kind=wp), dimension (128) :: a

  call RANDOM_NUMBER(a)
  open (unit=10,file='array_formatted',form='formatted',status='unknown')
  write (unit=10,fmt=*) a

  open (unit=11,file='array_unformatted',form='unformatted',status='unknown')
  write (unit=11) a
  close (unit=10,status='keep')
  close (unit=11,status='keep')
end program output_to_file