source: codes/icosagcm/devel/XCodeML/external_src/omp_lib.f90 @ 1027

Last change on this file since 1027 was 823, checked in by dubos, 5 years ago

devel : script and files to parse DYNAMICO using XCodeML F_Front
File size: 205 bytes
Line 
1MODULE 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
12END MODULE omp_lib
Note: See TracBrowser for help on using the repository browser.