source:
vendors/tutorial/trunk-r1/src/subroutine/hello_sub.f90
@
10669
| Last change on this file since 10669 was 10669, checked in by nicolasmartin, 5 years ago | |
|---|---|
| File size: 324 bytes | |
| Line | |
|---|---|
| 1 | SUBROUTINE hello_sub |
| 2 | |
| 3 | USE hello_constants, ONLY: hello_string |
| 4 | USE hello_number, ONLY: hello_huge_number |
| 5 | |
| 6 | IMPLICIT NONE |
| 7 | CHARACTER(*), PARAMETER :: this = 'hello_sub' |
| 8 | ! DEPENDS ON: hello_c.o |
| 9 | EXTERNAL hello_c |
| 10 | |
| 11 | WRITE(*, '(A)') this // ': ' // TRIM(hello_string) |
| 12 | CALL hello_huge_number() |
| 13 | CALL hello_c() |
| 14 | |
| 15 | END SUBROUTINE hello_sub |
Note: See TracBrowser
for help on using the repository browser.
