source:
callbacktest.f@
2ebb8b6
| Last change on this file since 2ebb8b6 was e40e335, checked in by , 16 years ago | |
|---|---|
|
|
| File size: 206 bytes | |
| Line | |
|---|---|
| 1 | subroutine metropolis(eol,enw,dummy) |
| 2 | cf2py real*8 intent(in,out) eol |
| 3 | cf2py real*8 intent(in,out) enw |
| 4 | external dummy |
| 5 | delta = dummy(enw) - dummy(eol) |
| 6 | write (*,*) delta |
| 7 | end |
Note:
See TracBrowser
for help on using the repository browser.
