fortran
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision | ||
|
fortran [2010/03/22 10:59] zdech |
fortran [2011/02/18 13:13] (current) |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| + | **manual svn** [[http://svnbook.red-bean.com/en/1.1/ch03s05.html]] | ||
| + | |||
| + | |||
| + | |||
| ====== Pointers on functions and subroutines in Fortran ====== | ====== Pointers on functions and subroutines in Fortran ====== | ||
| - | === It works with both ifort and gfortran-4.4 === | + | === It works with both ifort 10 and gfortran-4.4 === |
| ===== example 1: main.f90 ===== | ===== example 1: main.f90 ===== | ||
| Line 40: | Line 44: | ||
| module HelloWorld | module HelloWorld | ||
| + | | ||
| procedure(Hello1), pointer :: ptr | procedure(Hello1), pointer :: ptr | ||
| | | ||
| Line 61: | Line 65: | ||
| program main | program main | ||
| use HelloWorld | use HelloWorld | ||
| + | | ||
| ptr => Hello1 | ptr => Hello1 | ||
| call ptr(1,1.0) | call ptr(1,1.0) | ||
| + | | ||
| ptr => Hello2 | ptr => Hello2 | ||
| call ptr(2,2.0) | call ptr(2,2.0) | ||
| end program | end program | ||
| + | |||
| + | ==== output ==== | ||
| + | zdenka@pc209:~/simulations/fireball/ptr_func$ ifort -c main.f90 -o main.o;ifort main.o -o test;./test | ||
| + | Ahoj 1 1.000000 | ||
| + | Nazdar 2 2.000000 | ||
| ====== Links - new features in fortran 95/2003: ====== | ====== Links - new features in fortran 95/2003: ====== | ||
fortran.1269251962.txt.gz ยท Last modified: 2011/02/18 13:14 (external edit)
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Noncommercial-Share Alike 4.0 International
