New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
p1.f90 in vendors/t/fcm-make/23-build-omp/src – NEMO

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

Import latest FCM release from Github into the repository for testing

File size: 272 bytes
Line 
1program p1
2
3!$ use omp_lib
4!$ use m1, only: s1
5
6integer, parameter :: n=100
7integer :: i
8real :: x(n), y(n), z(n)
9
10include 's3.interface'
11
12x(:) = 1.0
13y(:) = 1.0
14z(:) = 1.0
15!$ include "i1.f90"
16call s3(n, z, y)
17do i = 1, n
18    write(*, '(f3.1)') z(i)
19end do
20
21end program p1
Note: See TracBrowser for help on using the repository browser.