1 |
chuckv |
4 |
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 |
|
|
|