adding omp pragma.
delete most if not al IO