C SJONCPL   SOURCE    CHAT      05/01/13    03:20:36     5004
      SUBROUTINE SJONCPL(cplg,JCP,JSP,JTP,JST,JSC)

         IMPLICIT REAL*8(A-H,K-Z)

         IMPLICIT INTEGER(I-J)

         JCP  = int(cplg/1.0d4)
         resi = cplg-JCP*1.0d4
       JSP  = int(resi/1.0d3)
         resi = resi-JSP*1.0d3
         JTP  = int(resi/1.0d2)
         resi = resi-JTP*1.0d2
         JST  = int(resi/1.0d1)
         resi = resi-JST*1.0d1
         JSC  = int(resi)
        end