source:
codes/icosagcm/devel/XCodeML/external_src/omp_lib.f90
@
862
Last change on this file since 862 was 823, checked in by dubos, 5 years ago | |
---|---|
File size: 205 bytes |
Rev | Line | |
---|---|---|
[823] | 1 | MODULE omp_lib |
2 | IMPLICIT NONE | |
3 | PUBLIC | |
4 | ||
5 | CONTAINS | |
6 | ||
7 | FUNCTION omp_in_parallel() | |
8 | LOGICAL :: omp_in_parallel | |
9 | omp_in_parallel = .TRUE. | |
10 | END FUNCTION omp_in_parallel | |
11 | ||
12 | END MODULE omp_lib |
Note: See TracBrowser
for help on using the repository browser.