1 |
subroutine machdep_init() |
2 |
! logical cctl, bzro, apnd, vrbose |
3 |
! character*4 prefix |
4 |
! |
5 |
! cctl = .false. |
6 |
! bzro = .true. |
7 |
! apnd = .false. |
8 |
! prefix = 'fort' |
9 |
! vrbose = .true. |
10 |
! |
11 |
! call ioinit(cctl,bzro,apnd,prefix,vrbose) |
12 |
|
13 |
return |
14 |
end subroutine machdep_init |
15 |
|
16 |
subroutine machdep_flush(unit) |
17 |
|
18 |
integer unit |
19 |
|
20 |
call flush(unit) |
21 |
|
22 |
return |
23 |
end subroutine machdep_flush |
24 |
|
25 |
integer function machdep_lnblnk(a1) |
26 |
|
27 |
character*(*) a1 |
28 |
|
29 |
integer lnblnk |
30 |
external lnblnk |
31 |
|
32 |
machdep_lnblnk = lnblnk(a1) |
33 |
|
34 |
return |
35 |
end function machdep_lnblnk |
36 |
|