source: vendors/FCM-2017.10.0/tutorial/trunk-r1/src/subroutine/hello_sub.f90 @ 10672

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

Reimport latest FCM release

File size: 324 bytes
Line 
1SUBROUTINE hello_sub
2
3USE hello_constants, ONLY: hello_string
4USE hello_number, ONLY: hello_huge_number
5
6IMPLICIT NONE
7CHARACTER(*), PARAMETER :: this = 'hello_sub'
8! DEPENDS ON: hello_c.o
9EXTERNAL hello_c
10
11WRITE(*, '(A)') this // ': ' // TRIM(hello_string)
12CALL hello_huge_number()
13CALL hello_c()
14
15END SUBROUTINE hello_sub
Note: See TracBrowser for help on using the repository browser.