source:
Sophya/trunk/SophyaExt/MinuitAdapt/minuitadaptF.f
| Last change on this file was 2404, checked in by , 22 years ago | |
|---|---|
| File size: 397 bytes | |
| Line | |
|---|---|
| 1 | *======================================================= |
| 2 | subroutine localmnpout(i,c,p,ep,b1,b2,ivar) |
| 3 | c On surecrit mnpout_: |
| 4 | c car le C/C++ n'arrive pas a recuperer correctement |
| 5 | c la chaine de characteres "c" (dans certains cas core dump) |
| 6 | implicit none |
| 7 | integer i,ivar |
| 8 | real*8 p,ep,b1,b2 |
| 9 | character *(256) c |
| 10 | call mnpout(i,c,p,ep,b1,b2,ivar) |
| 11 | return |
| 12 | end |
Note:
See TracBrowser
for help on using the repository browser.
![(please configure the [header_logo] section in trac.ini)](/PI/chrome/site/your_project_logo.png)