Esope source files

   1 : C SJONCPL   SOURCE    CHAT      05/01/13    03:20:36     5004           
   2 :       SUBROUTINE SJONCPL(cplg,JCP,JSP,JTP,JST,JSC)
   3 : 
   4 :          IMPLICIT REAL*8(A-H,K-Z)
   5 : 
   6 :          IMPLICIT INTEGER(I-J)
   7 : 
   8 :          JCP  = int(cplg/1.0d4)
   9 :          resi = cplg-JCP*1.0d4
  10 :        JSP  = int(resi/1.0d3)
  11 :          resi = resi-JSP*1.0d3
  12 :          JTP  = int(resi/1.0d2)
  13 :          resi = resi-JTP*1.0d2
  14 :          JST  = int(resi/1.0d1)
  15 :          resi = resi-JST*1.0d1
  16 :          JSC  = int(resi)
  17 :         end
  18 :  
  19 :