The Multiscale Damage Mechanics in Objected-oriented Fortran Framework