чем дальше в лес тем больше integer, parameter :: maxfilenamelen