program Shit
use sep
  use flags
use timers
  use cos_taper_mod 
implicit none

write(0,*) 'as;ldjf;laksjdf;laskjdf'
write(0,*) 'nerew'
end program Shit
