Esope source files

   1 : C CM2PO1    SOURCE    PV        13/04/16    21:15:12     7765           
   2 :       SUBROUTINE CM2PO1(MELEM0,MELEME)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : -INC SMELEME
   6 :       POINTEUR MELEM0.MELEME
   7 : -INC SMLENTI
   8 : 
   8 :       CALL KRIPAD(MELEM0,MLENTI)
   9 :       JG=LECT(/1)
  10 :       SEGINI MLENT1
  11 :       N=0
  12 :       NBELEM=0
  13 :       DO 1 I=1,JG
  14 :       I1=LECT(I)
  15 :       IF(I1.EQ.0)GO TO 1
  16 :       NBELEM=NBELEM+1
  17 :       MLENT1.LECT(NBELEM)=I
  18 :  1    CONTINUE
  19 :       SEGSUP MLENTI
  20 :       NBSOUS=0
  21 :       NBNN=1
  22 :       NBREF=0
  23 :       SEGINI MELEME
  24 :       ITYPEL=1
  24 :       CALL RSETI(NUM,MLENT1.LECT,NBELEM)
  24 :       call crech1(meleme,1)
  25 :       SEGSUP MLENT1
  26 :       SEGDES MELEME,MELEM0
  27 :       RETURN
  28 :       END
  29 :  
  30 :  
  31 :  
  32 :