Télécharger TFFOR3D.INC

Retour à la liste

Numérotation des lignes :

  1. C*** -INC TFFOR3D
  2. *
  3. * SEGMENTS UTILISES POUR LE CALCUL DES FACTEURS DE FORME EN 3D
  4. *
  5. C---------------------------------------------------------------------
  6. SEGMENT SHC3D
  7. INTEGER KRO(NFC,NES),KSI(NFC,NES),KA(NFC),IM(NFC),IR(NR)
  8. REAL*8 V(NES,NR,NR),G(NR,NR)
  9. ENDSEGMENT
  10. C
  11. C DESCRIPTION DU H.C DE PROJECTION
  12. C --------------------------------
  13. C KRO , KSI : POUR LE CHANGEMENT DE REPERE
  14. C KA , IM : REFERENCE
  15. C IR: CORRESPONDANCE
  16. C V : DIRECTION UNITAIRE DES CELLULES
  17. C G : FACTEUR DE FORME ASSOCIE
  18. C---------------------------------------------------------------------
  19. SEGMENT SKBUFF
  20. INTEGER NUMF(NFC,NOC,NR,NR),NTYP(NFC,NR,NR)
  21. REAL*8 ZB(NFC,NR,NR),PSC(NFC,NR,NR)
  22. ENDSEGMENT
  23. C
  24. C BUFFER ASSOCIE AU H.C
  25. C ---------------------
  26. C ZB : PROFONDEUR
  27. C NUMF : INDICE DE LE DERNIERE FACE RENCONTREE
  28. C NTYP : TYPE ASSOCIES
  29. C PSC : PRODUIT SCALAIRE (NORMALE.DIRECTION CELLULE)
  30. C---------------------------------------------------------------------
  31. SEGMENT SKFACE
  32. INTEGER KCORR(MFACE),NUK(MS,MFACE),NAR(3,MFACE),KPATCH(MFACE)
  33. INTEGER NCELL(MFACE)
  34. REAL*8 U(4,MFACE),S(MFACE)
  35. REAL*8 FF1(MFACE)
  36. ENDSEGMENT
  37. SEGMENT IPATCH
  38. REAL*8 GP(MSP,NPATCH),SP(NPATCH)
  39. ENDSEGMENT
  40. C
  41. C DESCRIPTION DES FACES
  42. C ---------------------
  43. C
  44. C MFACE : NOMBRE DE TRIANGLES
  45. C KCORR : CORRESPONDANCE TRI3-QUA4 SI QUA4
  46. C NUK : CONNECTIVITES
  47. C NAR : INDICES DES ARETES
  48. C U : NORMALE UNITAIRE ET EQUATION DU PLAN DE L'ELEMENT
  49. C S : SURFACE
  50. C FF1 : TABLEAU DES FF POUR UNE FACE 1 DONNEE
  51. C NCELL : NOMBRE TOTAL DE CELLULES VUES PAR UN POINT
  52. C KPATCH: POINTEUR SUR IPATCH
  53. C NPATCH: NOMBRE DE POINTS SUR L'ELEMENT (REDECOUPAGE)
  54. C GP : COORDONNEES DES POINTS
  55. C SP : ET SURFACES
  56. C---------------------------------------------------------------------
  57. SEGMENT SPROJA
  58. INTEGER NFA(NSE),IFA(4,NSE),IG(4,2,NSE),NCEL(4,NSE)
  59. INTEGER ICEL(4,2,NIMAX,NSE),ICELC(3,2,NSCEL),IC(2,NSCEL)
  60. ENDSEGMENT
  61. C
  62. C PROJECTION DES ARETES
  63. C ---------------------
  64. C NSE : NOMBRE DE ARETES
  65. C NFA : NOMBRE DE FACES
  66. C IFA : NUMEROS DES FACES
  67. C IG : CENTRES DE GRAVITE DES PORTIONS D'ARETES PAR FACE
  68. C ICEL : CELLULES ASSOCIEES PAR FACE
  69. C NCEL : NOMBRE DE CELLULES PAR FACE
  70. C ICELC,IC : INTERNE
  71. C---------------------------------------------------------------------
  72. COMMON/CKRESO/KFC,NRES,KES,KIMP
  73. save /ckreso/
  74. C KFC : NOMBRE DE FACES H.C
  75. C NRES: RESOLUTION
  76. C KES : DIM ESPACE
  77. C KIMP: IMPRESSION
  78. C---------------------------------------------------------------------
  79.  
  80.  

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