subroutine save_image(fname,parray,n)
use clrwin
implicit none
integer, intent(in) :: n
character*1, intent(in) :: parray(3,n,n)
character*9, intent(in) :: fname
!
integer ierr
call put_dib_block@(fname,parray,n,n,0,0,n,n,24,ierr)
!print *,'IERR = ',ierr
return
end subroutine