a fortran implement of k-means algorithm