File1: #include <omp.h>\n#include <stdio.h>\n\nint main()\n{\n  int k;\n\n#pragma omp parallel\n  {\n#pragma omp master\n    {\n      k = omp_get_num_threads();\n      printf ("Number of Threads requested = %i\n",k);\n    }\n  }\n  return 0;\n}\n
File2: program DRB103_master_orig_no\n    use omp_lib\n    implicit none\n\n    integer k\n\n    !$omp parallel\n    !$omp master\n    k = omp_get_num_threads()\n    print 100, k\n    100 format ('Number of threads requested =',3i8)\n    !$omp end master\n    !$omp end parallel\n\nend program