source:
vendors/t/fcm-make/23-build-omp/src/p1.f90
@
10669
Last change on this file since 10669 was 10669, checked in by nicolasmartin, 5 years ago | |
---|---|
File size: 272 bytes |
Rev | Line | |
---|---|---|
[10669] | 1 | program p1 |
2 | ||
3 | !$ use omp_lib | |
4 | !$ use m1, only: s1 | |
5 | ||
6 | integer, parameter :: n=100 | |
7 | integer :: i | |
8 | real :: x(n), y(n), z(n) | |
9 | ||
10 | include 's3.interface' | |
11 | ||
12 | x(:) = 1.0 | |
13 | y(:) = 1.0 | |
14 | z(:) = 1.0 | |
15 | !$ include "i1.f90" | |
16 | call s3(n, z, y) | |
17 | do i = 1, n | |
18 | write(*, '(f3.1)') z(i) | |
19 | end do | |
20 | ||
21 | end program p1 |
Note: See TracBrowser
for help on using the repository browser.