program postproc
  use data
  use compute
  use io
  implicit none
  
  real(8) t_0,t_1
  
  call getnumbers()
  call cpu_time(t_0)
  write(stdout,*) "SETTING UP INPUT FILE"; call prep_io()
  write(stdout,*) "GENERATING WAVENUMBERS"; call generate_indices()
  write(stdout,'(A)') "INPUTTING FIELD"; call input_field()
  write(stdout,'(A)') "CALCULATING STATS"; call stats()
  call cpu_time(t_1)
  write(stdout,'(A,1p1e15.6)') "time taken for the field = ",t_1-t_0
  write(stdout,*) "CLEAN EXIT, DONE!"; call cleanup()
  
end program postproc