crap flag doesnt = 0!
 flag=       55555 in subroutine