      subroutine clo()
      close(56)
      end
 
