Implement corr_vec1() in correlation.f90
Trival change of corr_test.f90