|
Last change
on this file since 5095 was
5095,
checked in by abarral, 2 months ago
|
|
Revert cosp*/ from the trunk, as it's external code
Add missing bits from FCM2 source
|
|
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.
