subroutine stat_1 unneeded