Revision: | 4 |
Committed: | Mon Jun 10 17:18:36 2002 UTC (22 years ago) by chuckv |
File size: | 360 byte(s) |
Log Message: | Import Root |
# | Content |
---|---|
1 | subroutine machdep_init() |
2 | return |
3 | end |
4 | |
5 | subroutine machdep_flush(unit) |
6 | use IFLPORT |
7 | integer unit |
8 | |
9 | call flush(unit) |
10 | |
11 | return |
12 | end |
13 | |
14 | integer function machdep_lnblnk(a1) |
15 | |
16 | character(len=*) a1 |
17 | |
18 | integer lnblnk |
19 | external lnblnk |
20 | |
21 | machdep_lnblnk = lnblnk(a1) |
22 | |
23 | return |
24 | end |
25 |