Abusive write in listing in wchind.f

        WRITE(LU,*) 'USER SUBROUTINE FOR HINDERING'

l 80 of wchind.f subroutine, the write should be active only at listing printout period or at the beginning of the computation but not at every time step