source: vendors/FCM-2017.10.0/tutorial/trunk-r1/src/program/hello.f90 @ 10672

Last change on this file since 10672 was 10672, checked in by nicolasmartin, 3 years ago

Reimport latest FCM release

File size: 228 bytes
RevLine 
[10672]1PROGRAM hello
2
3USE Hello_Constants, ONLY: hello_string
4
5IMPLICIT NONE
6INCLUDE 'hello_sub.interface'
7CHARACTER(*), PARAMETER :: this='hello'
8
9WRITE(*, '(A)') this // ': ' // TRIM(hello_string)
10CALL Hello_Sub()
11
12END PROGRAM hello
Note: See TracBrowser for help on using the repository browser.