program example27b include "omp_lib.h" integer count count = 0 !$omp parallel !$omp atomic count=count+1 !$omp end parallel print *, "ώΙΣΜΟ ΞΙΤΕΚ: ", count end