CRATERING 86 FORTRANCRATERING 86 FORTRAN