Parent Directory
| 
Revision Log
Initial revision
| 1 | mocchiut | 1.1 | C------------------------------------------------ |
| 2 | FUNCTION CLTOFLEV1() | ||
| 3 | C------------------------------------------------ | ||
| 4 | C Written by Emiliano Mocchiutti | ||
| 5 | C v. 0.2 | ||
| 6 | C | ||
| 7 | INCLUDE 'COMMONTOF.TXT' | ||
| 8 | INTEGER cltoflev1 | ||
| 9 | REAL hmemor(9000000) | ||
| 10 | integer Iquest(100) | ||
| 11 | COMMON /pawc/hmemor | ||
| 12 | save /pawc/ | ||
| 13 | Common /QUEST/ Iquest | ||
| 14 | save /quest/ | ||
| 15 | c | ||
| 16 | c | ||
| 17 | cltoflev1 = 0 | ||
| 18 | call HCDIR('//TOF',' ') | ||
| 19 | call HREND('TOF') | ||
| 20 | CLOSE (89) | ||
| 21 | CC | ||
| 22 | 52 continue | ||
| 23 | RETURN | ||
| 24 | END | ||
| 25 | |||
| 26 |
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |