edited citrunc.f90