File1: #include <stdio.h>\nvoid foo1(double o1[], double c[], int len)\n{ \n  int i ;\n#pragma omp parallel for\n  for (i = 0; i < len; ++i) {\n    double volnew_o8 = 0.5 * c[i];\n    o1[i] = volnew_o8;\n  } \n}\n\ndouble o1[100];\ndouble c[100];\nint main()\n{\n  foo1 (o1, c, 100);\n  return 0;\n}\n
File2: program DRB050_functionparameter_orig_no\n    use omp_lib\n    use DRB050\n    implicit none\n\n    allocate (o1(100))\n    allocate (c(100))\n\n    call foo1(o1, c, 100)\nend program