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 |
Line | |
---|---|
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.