Esope source files

   1 : C FUSSPG    SOURCE    CHAT      05/01/13    00:13:15     5004           
   2 :       SUBROUTINE FUSSPG(MELEM0,IRET)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       
   6 : -INC SMELEME
   7 :       POINTEUR MELEM1.MELEME,IRES.MELEME
   8 :       IRES=IRET
   9 :       MELEM1=MELEM0
  10 :       SEGACT MELEM1
  11 :       IF(IRES.EQ.0)THEN
  12 :       NBNN=1
  13 :       NBELEM=MELEM1.NUM(/2)
  14 :       N1=MELEM1.NUM(/2)
  15 :       NBSOUS=0
  16 :       NBREF=0
  17 :       SEGINI IRES
  18 :       IRES.ITYPEL=1
  18 :       CALL RSETI(IRES.NUM,MELEM1.NUM,N1)
  19 :       SEGDES IRES,MELEM1
  20 :       IRET=IRES
  21 :       RETURN
  22 :       ELSE
  23 :       SEGACT MELEM1,IRES
  24 :       NBNN=1
  25 :       N1=MELEM1.NUM(/2)
  26 :       N2=IRES.NUM(/2)
  27 :       NBELEM=N1+N2
  28 :       NBSOUS=0
  29 :       NBREF=0
  30 :       SEGADJ IRES
  30 :       CALL RSETI(IRES.NUM(1,N2+1),MELEM1.NUM,N1)
  31 :       SEGDES IRES,MELEM1
  32 :       IRET=IRES
  33 :       RETURN
  34 :       ENDIF
  35 :       END
  36 :