Télécharger confon.eso

Retour à la liste

Numérotation des lignes :

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

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