cored.F90 10 KB