subroutine dataout

!dummy
!because it is added to adm make_dagh by hand

write(6,*) 'in dataout'
end
