Update cgkk.f90