Télécharger la plaquette Cast3M


fr en

Télécharger fusspg.eso

Retour à la liste

Numérotation des lignes : 

fusspg

  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
  19.       CALL RSETI(IRES.NUM,MELEM1.NUM,N1)
  20.       SEGDES IRES,MELEM1
  21.       IRET=IRES
  22.       RETURN
  23.       ELSE
  24.       SEGACT MELEM1,IRES
  25.       NBNN=1
  26.       N1=MELEM1.NUM(/2)
  27.       N2=IRES.NUM(/2)
  28.       NBELEM=N1+N2
  29.       NBSOUS=0
  30.       NBREF=0
  31.       SEGADJ IRES
  32.       CALL RSETI(IRES.NUM(1,N2+1),MELEM1.NUM,N1)
  33.       SEGDES IRES,MELEM1
  34.       IRET=IRES
  35.       RETURN
  36.       ENDIF
  37.       END
  38.  
  39.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales