SHOW:
|
|
- or go back to the newest paste.
| 1 | module my_stuff | |
| 2 | implicit none | |
| 3 | double precision rawSE | |
| 4 | end module my_stuff | |
| 5 | - | contains |
| 5 | + | ********* |
| 6 | ||
| 7 | program test_rawSE | |
| 8 | use my_stuff | |
| 9 | implicit none | |
| 10 | ||
| 11 | write (*, *) rawSE (2.0d0) | |
| 12 | ||
| 13 | end program test_rawSE | |
| 14 | ******** | |
| 15 | ||
| 16 | double precision FUNCTION rawSE(x) | |
| 17 | double precision x | |
| 18 | rawSE = 2.0d0 * x | |
| 19 | return | |
| 20 | end FUNCTION |
