Télécharger la plaquette Cast3M


fr en

Télécharger confon.eso

Retour à la liste

Numérotation des lignes : 

confon

  1. C CONFON    SOURCE    PV        22/01/10    21:15:03     11258          
  2. C   CE SOUS PROGRAMME CONFOND DEUX POINTS EN LE SECOND
  3. C
  4.       SUBROUTINE CONFON
  5.       IMPLICIT INTEGER(I-N)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC SMCOORD
  10. -INC CCASSIS
  11.       SEGMENT ICPR(nbpts)
  12.       CHARACTER*(8) ITPOIN
  13.       DATA ITPOIN/'POINT   '/
  14.       SEGACT MCOORD*MOD
  15.       CALL LIROBJ(ITPOIN,IP1,1,IRETOU)
  16.       CALL LIROBJ(ITPOIN,IP2,1,IRETOU)
  17.       IF (IERR.NE.0) RETURN
  18.       if(nbesc.ne.0) then
  19.          mestra=imestr
  20.          SEGACT MESTRA*MOD
  21.          call ooofrc(1)
  22.          call setass(1)
  23.       endif
  24.       SEGINI ICPR
  25.       ICPR(IP1)=1
  26.       ICPR(IP2)=1
  27.       NUMNP=1
  28.       KIKI=0
  29. *  ON MET TOUTES LES COORDONNEES A CELLES DU SECOND POINT
  30.       DO 10 I=1,IDIM+1
  31.          XCOOR((IP1-1)*(IDIM+1)+I)=XCOOR((IP2-1)*(IDIM+1)+I)
  32.  10   CONTINUE
  33. *  ON FARFOUILLE LA NUMEROTATION
  34.       CALL TASSP2(KIKI,ICPR,NUMNP,icolac,0,0)
  35. * On fait le ménage
  36.       CALL SUPPIL(icolac,-1)
  37.       SEGSUP ICPR
  38.       CALL ECROBJ(ITPOIN,IP1)
  39.       if(nbesc.ne.0) then
  40.          mestra=imestr
  41.          SEGDES MESTRA
  42.          call ooofrc(0)
  43.          call setass(0)
  44.       endif
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  

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