initial.f: put a sentinel over the omp_get_num_threads to allow non-OpenMP compilation.