Main routine done. Now adding subroutines in CCOSUBPHI.