Télécharger crech2.eso

Retour à la liste

Numérotation des lignes :

  1. C CRECH2 SOURCE CHAT 09/10/12 21:15:01 6526
  2. SUBROUTINE CRECH2(KCHPOI,mvectx,mvecri,icle)
  3. *
  4. * cree uun cpoint à partir d'un vecteur issu d'une resolution
  5. * a partir des info stockees dans mvecri (qui lui meme est rempli par
  6. * crech3
  7. *
  8. * si ICLE=1 on fait un vecteur primal ; si =2 un dual
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMCHPOI
  15. -INC SMVECTD
  16. SEGACT,mvecri
  17. NSOUPO= MELZON(/1)
  18. NAT=1
  19. SEGINI,MCHPOI
  20. IFOPOI=IFOMOD
  21. MTYPOI=' '
  22. MOCHDE=' '
  23. C
  24. C **** ON VA FABRIQUER LES SEGMENTS MSOUPO POUR LES REMPLIR IL FAUT
  25. C **** CONNAITRE LES INCONNUES DU SOUS CHAMPS ET L'OBJET GEOMETRIQUE
  26. C **** SUPPORT
  27. C
  28. DO 100 I=1,NSOUPO
  29. C
  30. C **** ON CHERCHE D'ABORD LA LISTE DES INCONNUES A PARTIR DE LA
  31. C **** VALEUR DE IBINN ET ON REMPLIT NOCOMP
  32. C
  33. nc= NUMNOM(i)
  34. n=numnoe(i)
  35. SEGINI,MSOUPO
  36. IPCHP(I)=MSOUPO
  37. IB=0
  38. DO 14 J=1,NC
  39. IF(ICLE.EQ.1)NOCOMP(J)= NAMINC(I,j)
  40. IF(ICLE.EQ.2)NOCOMP(J)= NAMDUA(I,j)
  41. NOHARM(J)=NUMHAR(I,J)
  42. 14 CONTINUE
  43. C
  44. C **** ON CHERCHE COMBIEN DE NOEUD DANS L'OBJET MELEME,ON LE CREE
  45. C
  46.  
  47.  
  48. SEGINI,MPOVAL
  49. IGEOC=melzon(I)
  50. ipoval=mpoval
  51. 100 CONTINUE
  52. * remplissage des vpocha
  53. mvectd=mvectx
  54. segact mvectd
  55. do ia=1,vectbb(/1)
  56. izo= NUMZON(ia)
  57. msoupo=ipchp(izo)
  58. mpoval=ipoval
  59. i=NUNOLO(ia)
  60. j=NUINLO(ia)
  61. vpocha(i,j)=vectbb(ia)
  62. enddo
  63. * desactivation du chpoint
  64. do ia= 1,ipchp(/1)
  65. msoupo=ipchp(ia)
  66. mpoval=ipoval
  67. segdes mpoval
  68. segdes msoupo
  69. enddo
  70.  
  71.  
  72. SEGDES,mvecri
  73. KCHPOI=MCHPOI
  74. SEGDES,MCHPOI
  75. RETURN
  76. END
  77.  
  78.  
  79.  

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