source:
callbacktest.f@
2ebb8b6
Last change on this file since 2ebb8b6 was e40e335, checked in by , 16 years ago | |
---|---|
|
|
File size: 206 bytes |
Rev | Line | |
---|---|---|
[e40e335] | 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.