Télécharger la plaquette Cast3M


fr en

Télécharger CCMED.INC

Retour à la liste

Numérotation des lignes : 

  1. C-INC CCMED
  2. C     INCLUDE NECESSAIRE POUR LA GESTION DU FORMAT MED 4
  3.  
  4. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C     SUITE AU PASSAGE MED 64B
  6. C     Remplacer les INTEGER*4 par INTEGER
  7. C                   REAL      par REAL*8
  8. C  !! Attention a eviter le depassement des 72 CARACTERES PAR LIGNE 
  9. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  10.  
  11. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  12. C     Contenu de ".../include/med_parameter.hf77
  13. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  14.       INTEGER MED_ACC_RDONLY,MED_ACC_RDWR,MED_ACC_RDEXT
  15.       INTEGER MED_ACC_CREAT,MED_ACC_UNDEF
  16.       PARAMETER (MED_ACC_RDONLY=0,MED_ACC_RDWR=1)
  17.       PARAMETER (MED_ACC_RDEXT=2,MED_ACC_CREAT=3,MED_ACC_UNDEF=4)
  18.  
  19.       INTEGER MED_UNSTRUCTURED_MESH, MED_STRUCTURED_MESH
  20.       INTEGER MED_UNDEF_MESH_TYPE
  21.       PARAMETER (MED_UNSTRUCTURED_MESH=0,MED_STRUCTURED_MESH=1)
  22.       PARAMETER (MED_UNDEF_MESH_TYPE=-1)
  23.  
  24.       INTEGER MED_CARTESIAN, MED_CYLINDRICAL, MED_SPHERICAL
  25.       INTEGER MED_UNDEF_AXIS_TYPE
  26.       PARAMETER(MED_CARTESIAN=0, MED_CYLINDRICAL=1, MED_SPHERICAL=2)
  27.       PARAMETER(MED_UNDEF_AXIS_TYPE=-1)
  28.       INTEGER MED_CARTESIAN_GRID, MED_POLAR_GRID
  29.       INTEGER MED_CURVILINEAR_GRID, MED_UNDEF_GRID_TYPE
  30.       PARAMETER (MED_CARTESIAN_GRID=0, MED_POLAR_GRID=1)
  31.       PARAMETER  (MED_CURVILINEAR_GRID=2, MED_UNDEF_GRID_TYPE=-1)
  32.  
  33.       INTEGER MED_SORT_DTIT,MED_SORT_ITDT,MED_SORT_UNDEF
  34.       PARAMETER (MED_SORT_DTIT=0,MED_SORT_ITDT=1,MED_SORT_UNDEF=-1)
  35.  
  36.       INTEGER MED_COMMENT_SIZE,MED_NAME_SIZE,MED_SNAME_SIZE
  37.       INTEGER MED_LNAME_SIZE
  38.       PARAMETER (MED_COMMENT_SIZE=200,MED_NAME_SIZE=64)
  39.       PARAMETER (MED_SNAME_SIZE=16, MED_LNAME_SIZE=80)
  40.  
  41.       INTEGER MED_NO_IT, MED_NO_DT
  42.       PARAMETER (MED_NO_IT=-1, MED_NO_DT = -1)
  43.       REAL*8 MED_UNDEF_DT
  44.       PARAMETER (MED_UNDEF_DT = 0.0D0)
  45.  
  46.       INTEGER MED_UNDEF_INTERLACE,MED_FULL_INTERLACE
  47.       INTEGER MED_NO_INTERLACE
  48.       PARAMETER (MED_UNDEF_INTERLACE=-1,MED_FULL_INTERLACE=0)
  49.       PARAMETER (MED_NO_INTERLACE=1)
  50.  
  51.       INTEGER MED_CELL, MED_DESCENDING_FACE
  52.       INTEGER MED_DESCENDING_EDGE,MED_NODE
  53.       INTEGER MED_NODE_ELEMENT, MED_STRUCT_ELEMENT
  54.       INTEGER MED_ALL_ENTITY_TYPE,MED_UNDEF_ENTITY_TYPE
  55.       INTEGER MED_N_ENTITY_TYPES
  56.       PARAMETER (MED_N_ENTITY_TYPES=6)
  57.       PARAMETER (MED_CELL=0, MED_DESCENDING_FACE=1)
  58.       PARAMETER (MED_DESCENDING_EDGE=2,MED_NODE=3)
  59.       PARAMETER (MED_NODE_ELEMENT=4, MED_STRUCT_ELEMENT=5)
  60.       PARAMETER (MED_ALL_ENTITY_TYPE=6,MED_UNDEF_ENTITY_TYPE=-1)
  61.  
  62.       INTEGER MED_POINT1,MED_SEG2,MED_SEG3,MED_SEG4,MED_TRIA3
  63.       INTEGER MED_QUAD4,MED_TRIA6,MED_TRIA7,MED_QUAD8,MED_QUAD9
  64.       INTEGER MED_TETRA4,MED_PYRA5,MED_PENTA6,MED_HEXA8,MED_TETRA10
  65.       INTEGER MED_OCTA12,MED_PYRA13,MED_PENTA15,MED_PENTA18
  66.       INTEGER MED_HEXA20,MED_HEXA27
  67.       INTEGER MED_POLYGON,MED_POLYGON2
  68.       INTEGER MED_POLYHEDRON, MED_STRUCT_GEO_INTERNAL
  69.       INTEGER MED_STRUCT_GEO_SUP_INTERNAL,MED_NONE
  70.       INTEGER MED_GEO_ALL,MED_ALL_GEOTYPE
  71.       INTEGER MED_NO_GEOTYPE,MED_UNDEF_GEOTYPE
  72.       PARAMETER(MED_POINT1=001)
  73.       PARAMETER(MED_SEG2=102)
  74.       PARAMETER(MED_SEG3=103)
  75.       PARAMETER(MED_SEG4=104)
  76.       PARAMETER(MED_TRIA3=203)
  77.       PARAMETER(MED_QUAD4=204)
  78.       PARAMETER(MED_TRIA6=206)
  79.       PARAMETER(MED_TRIA7=207)
  80.       PARAMETER(MED_QUAD8=208)
  81.       PARAMETER(MED_QUAD9=209)
  82.       PARAMETER(MED_TETRA4=304)
  83.       PARAMETER(MED_PYRA5=305)
  84.       PARAMETER(MED_PENTA6=306)
  85.       PARAMETER(MED_HEXA8=308)
  86.       PARAMETER(MED_TETRA10=310)
  87.       PARAMETER(MED_OCTA12=312)
  88.       PARAMETER(MED_PYRA13=313)
  89.       PARAMETER(MED_PENTA15=315)
  90.       PARAMETER(MED_PENTA18=318)
  91.       PARAMETER(MED_HEXA20=320)
  92.       PARAMETER(MED_HEXA27=327)
  93. C MED_POLYGON : polygones (cotes = SEG2) --> Ce sont les POLY de Cast3M
  94. C MED_POLYGON2 : QuadraticPOLYGON (cotes = SEG3)
  95.       PARAMETER(MED_POLYGON=400)
  96.       PARAMETER(MED_POLYGON2=420)
  97.       PARAMETER(MED_POLYHEDRON=500)
  98.       PARAMETER(MED_STRUCT_GEO_INTERNAL=600)
  99.       PARAMETER(MED_STRUCT_GEO_SUP_INTERNAL=700)
  100.       PARAMETER(MED_NONE=0)
  101.       PARAMETER(MED_GEO_ALL=-1)
  102.       PARAMETER(MED_ALL_GEOTYPE=-1)
  103.       PARAMETER(MED_NO_GEOTYPE=0)
  104.       PARAMETER(MED_UNDEF_GEOTYPE=0)
  105.  
  106.       INTEGER MED_N_CELL_GEO,MED_N_CELL_FIXED_GEO
  107.       INTEGER MED_N_CELL_GEO_FIXED_CON
  108.       INTEGER MED_N_FACE_GEO,MED_N_FACE_FIXED_GEO
  109.       INTEGER MED_N_FACE_GEO_FIXED_CON
  110.       INTEGER MED_N_EDGE_TYPES,MED_N_EDGE_FIXED_GEO
  111.       INTEGER MED_N_EDGE_GEO_FIXED_CON
  112.       INTEGER MED_N_NODE_GEO,MED_N_NODE_FIXED_GEO
  113.       INTEGER MED_N_NODE_GEO_FIXED_CON
  114.       PARAMETER(MED_N_CELL_GEO=25)
  115.       PARAMETER(MED_N_CELL_FIXED_GEO=24)
  116.       PARAMETER(MED_N_CELL_GEO_FIXED_CON=21)
  117.       PARAMETER(MED_N_FACE_GEO=8)
  118.       PARAMETER(MED_N_FACE_FIXED_GEO=8)
  119.       PARAMETER(MED_N_FACE_GEO_FIXED_CON=6)
  120.       PARAMETER(MED_N_EDGE_TYPES=3)
  121.       PARAMETER(MED_N_EDGE_FIXED_GEO=3)
  122.       PARAMETER(MED_N_EDGE_GEO_FIXED_CON=3)
  123.       PARAMETER(MED_N_NODE_GEO=1)
  124.       PARAMETER(MED_N_NODE_FIXED_GEO=1)
  125.       PARAMETER(MED_N_NODE_GEO_FIXED_CON=1)
  126.  
  127.       INTEGER MED_COORDINATE, MED_CONNECTIVITY
  128.       INTEGER MED_NAME, MED_NUMBER
  129.       INTEGER MED_FAMILY_NUMBER
  130.       INTEGER MED_COORDINATE_AXIS1, MED_COORDINATE_AXIS2
  131.       INTEGER MED_COORDINATE_AXIS3, MED_INDEX_FACE, MED_INDEX_NODE
  132.       INTEGER MED_GLOBAL_NUMBER, MED_VARIABLE_ATTRIBUTE
  133.       INTEGER MED_COORDINATE_TRSF, MED_UNDEF_DATATYPE
  134.       PARAMETER(MED_COORDINATE=0, MED_CONNECTIVITY=1, MED_NAME=2)
  135.       PARAMETER(MED_NUMBER=3, MED_FAMILY_NUMBER=4)
  136.       PARAMETER(MED_COORDINATE_AXIS1=5, MED_COORDINATE_AXIS2=6)
  137.       PARAMETER(MED_COORDINATE_AXIS3=7,MED_INDEX_FACE=8)
  138.       PARAMETER(MED_INDEX_NODE=9,MED_GLOBAL_NUMBER=10)
  139.       PARAMETER(MED_VARIABLE_ATTRIBUTE=11,MED_COORDINATE_TRSF=12)
  140.       PARAMETER(MED_UNDEF_DATATYPE=-1)
  141.  
  142.       INTEGER MED_NODAL, MED_DESCENDING, MED_UNDEF_CONNECTIVITY_MODE
  143.       INTEGER MED_NO_CMODE
  144.       PARAMETER(MED_NODAL=0,MED_DESCENDING=1)
  145.       PARAMETER(MED_UNDEF_CONNECTIVITY_MODE=-1)
  146.       PARAMETER(MED_NO_CMODE=-1)
  147.  
  148.       INTEGER MED_FALSE, MED_TRUE
  149.       PARAMETER(MED_FALSE=0,MED_TRUE=1)
  150.  
  151.       INTEGER MED_UNDEF_PFLMODE,MED_GLOBAL_PFLMODE,
  152.      &          MED_COMPACT_PFLMODE
  153.       INTEGER MED_UNDEF_STMODE,MED_GLOBAL_STMODE,MED_COMPACT_STMODE
  154.       CHARACTER*64 MED_GAUSS_ELNO,MED_IPOINT_ELNO
  155.       PARAMETER(MED_GAUSS_ELNO='MED_GAUSS_ELNO')
  156.       PARAMETER(MED_IPOINT_ELNO='MED_GAUSS_ELNO')
  157.       PARAMETER(MED_UNDEF_PFLMODE=0,MED_GLOBAL_PFLMODE=1)
  158.       PARAMETER(MED_COMPACT_PFLMODE=2)
  159.       PARAMETER(MED_UNDEF_STMODE=0,MED_GLOBAL_STMODE=1)
  160.       PARAMETER(MED_COMPACT_STMODE=2)
  161.       CHARACTER*64 MED_NO_NAME,MED_NO_MESHNAME,MED_NO_MESH
  162.       CHARACTER*64 MED_NO_MESH_SUPPORT, MED_NO_LOCALIZATION
  163.       CHARACTER*64 MED_NO_INTERPOLATION, MED_NO_PROFILE
  164.       CHARACTER*64 MED_ALLENTITIES_PROFILE
  165.       CHARACTER*80 MED_NO_GROUP
  166.       PARAMETER(MED_NO_NAME=' ',MED_NO_MESHNAME=' ',MED_NO_MESH=' ')
  167.       PARAMETER(MED_NO_MESH_SUPPORT=' ', MED_NO_LOCALIZATION=' ')
  168.       PARAMETER(MED_NO_INTERPOLATION=' ', MED_NO_PROFILE=' ')
  169.       PARAMETER(MED_ALLENTITIES_PROFILE=' ')
  170.       PARAMETER(MED_NO_GROUP=' ')
  171.  
  172.       INTEGER MED_ALL_CONSTITUENT
  173.       PARAMETER(MED_ALL_CONSTITUENT=0)
  174.  
  175.       INTEGER MED_UNDEF_SIZE,MED_NO_PROFILE_SIZE
  176.       PARAMETER(MED_UNDEF_SIZE=0,MED_NO_PROFILE_SIZE=0)
  177.  
  178.       INTEGER MED_MESH,MED_FIELD,MED_LIBRARY,MED_FILE
  179.       INTEGER MED_MESH_SUPPORT,MED_ELSTRUCT,MED_FAMILY
  180.       INTEGER MED_EQUIVALENCE, MED_GROUP, MED_JOINT
  181.       INTEGER MED_LOCALIZATION, MED_PROFILE,MED_FILTER,
  182.      &        MED_INTERPOLATION
  183.       INTEGER MED_NUMERICAL_DATA,MED_LINK,
  184.      &        MED_CLASS_UNDEF,MED_CLASS_ALL
  185.       PARAMETER(MED_MESH=0,MED_FIELD=1,MED_LIBRARY=2,MED_FILE=3)
  186.       PARAMETER(MED_MESH_SUPPORT=4,MED_ELSTRUCT=5,MED_FAMILY=6)
  187.       PARAMETER(MED_LOCALIZATION=7,MED_PROFILE=8,MED_FILTER=9)
  188.       PARAMETER(MED_INTERPOLATION=10, MED_NUMERICAL_DATA=11)
  189.       PARAMETER(MED_LINK=13, MED_CLASS_UNDEF=-1, MED_CLASS_ALL=-2)
  190.  
  191.       INTEGER MED_INT32,MED_INT64,MED_INT
  192.       INTEGER MED_FLOAT32,MED_FLOAT64,MED_DOUBLE
  193.       PARAMETER (MED_INT32=24, MED_INT64=26, MED_INT=28)
  194.       PARAMETER (MED_FLOAT32=4, MED_FLOAT64=6, MED_DOUBLE=6)
  195.  
  196.       INTEGER MED_ATT_FLOAT64,MED_ATT_INT,MED_ATT_NAME
  197.       INTEGER MED_ATT_UNDEF
  198.       PARAMETER(MED_ATT_FLOAT64=MED_FLOAT64)
  199.       PARAMETER(MED_ATT_INT=MED_INT)
  200.       PARAMETER(MED_ATT_NAME=30)
  201.       PARAMETER(MED_ATT_UNDEF=0)
  202.  
  203.       CHARACTER*64 MED_PARTICLE_NAME, MED_BALL_NAME, MED_BEAM_NAME
  204.       CHARACTER*64 MED_PARTICLE_LABEL,MED_BALL_DIAMETER
  205.       CHARACTER*64 MED_BEAM_THICKNESS
  206.       PARAMETER(MED_PARTICLE_NAME='MED_PARTICLE')
  207.       PARAMETER(MED_BALL_NAME='MED_BALL')
  208.       PARAMETER(MED_BEAM_NAME='MED_BEAM')
  209.       PARAMETER(MED_PARTICLE_LABEL='MED_PARTICLE_LABEL')
  210.       PARAMETER(MED_BALL_DIAMETER='MED_BALL_DIAMETER')
  211.       PARAMETER(MED_BEAM_THICKNESS='MED_BEAM_THICKNESS')
  212.  
  213.       INTEGER MED_MAJOR_NUM, MED_MINOR_NUM, MED_RELEASE_NUM
  214.       PARAMETER(MED_MAJOR_NUM=4)
  215.       PARAMETER(MED_MINOR_NUM=1)
  216.       PARAMETER(MED_RELEASE_NUM=1)
  217.  
  218.       INTEGER HDF_VERSION_RELEASE_REF, HDF_VERSION_MAJOR_REF
  219.       INTEGER HDF_VERSION_MINOR_REF
  220.       CHARACTER*16 HDF_VERSION_REF
  221.       PARAMETER(HDF_VERSION_REF='1.10.3')
  222.       PARAMETER(HDF_VERSION_MAJOR_REF=1)
  223.       PARAMETER(HDF_VERSION_MINOR_REF=10)
  224.       PARAMETER(HDF_VERSION_RELEASE_REF=3)
  225.  
  226. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  227. C     Contenu de ".../include/med.hf77
  228. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  229.  
  230.       EXTERNAL MED_SET_IT
  231.       COMMON /CMED/ MED_GET_CELL_GEOMETRY_TYPE
  232.       INTEGER MED_GET_CELL_GEOMETRY_TYPE(MED_N_CELL_FIXED_GEO)
  233.       SAVE   /CMED/
  234.  
  235. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  236. C     Equivalence des Elements Cast3M => MED
  237. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  238. C !! Le tableau MEDEL est a dimensionner a NOMBR (include CCGEOME.INC)
  239.       INTEGER MEDEL(49)
  240.       DATA MEDEL( 1), MEDEL( 2), MEDEL( 3), MEDEL( 4), MEDEL( 5),
  241.      .     MEDEL( 6), MEDEL( 7), MEDEL( 8), MEDEL( 9), MEDEL(10),
  242.      .     MEDEL(11), MEDEL(12), MEDEL(13), MEDEL(14), MEDEL(15),
  243.      .     MEDEL(16), MEDEL(17), MEDEL(18), MEDEL(19), MEDEL(20),
  244.      .     MEDEL(21), MEDEL(22), MEDEL(23), MEDEL(24), MEDEL(25),
  245.      .     MEDEL(26), MEDEL(27), MEDEL(28), MEDEL(29), MEDEL(30),
  246.      .     MEDEL(31), MEDEL(32), MEDEL(33), MEDEL(34), MEDEL(35),
  247.      .     MEDEL(36), MEDEL(37), MEDEL(38), MEDEL(39), MEDEL(40),
  248.      .     MEDEL(41), MEDEL(42), MEDEL(43), MEDEL(44), MEDEL(45),
  249.      .     MEDEL(46), MEDEL(47), MEDEL(48), MEDEL(49)
  250.      .   / MED_POINT1,    MED_SEG2,   MED_SEG3,   MED_TRIA3,   MED_NONE,
  251.      .      MED_TRIA6,   MED_TRIA7,  MED_QUAD4,    MED_NONE,  MED_QUAD8,
  252.      .      MED_QUAD9,    MED_NONE,   MED_NONE,   MED_HEXA8, MED_HEXA20,
  253.      .     MED_PENTA6, MED_PENTA15,   MED_NONE,    MED_NONE,   MED_NONE,
  254.      .       MED_NONE,    MED_NONE, MED_TETRA4, MED_TETRA10,  MED_PYRA5,
  255.      .     MED_PYRA13,    MED_NONE,   MED_NONE,    MED_NONE,   MED_NONE,
  256.      .       MED_NONE, MED_POLYGON, MED_HEXA27,    MED_NONE,   MED_NONE,
  257.      .       MED_NONE,    MED_SEG4,   MED_NONE,  MED_OCTA12,   MED_NONE,
  258.      .       MED_NONE,    MED_NONE,   MED_NONE,    MED_NONE,   MED_NONE,
  259.      .       MED_NONE,    MED_NONE,   MED_NONE,    MED_NONE /
  260.  
  261. C     Types d'Elements geometriques disponibles pour la sortie MED
  262. C     MDICLA est dimensionne par le numero du plus grand MED_"element" lu
  263.       INTEGER MDICLA(MED_POLYHEDRON)
  264.       DATA MDICLA(MED_POINT1) , MDICLA(MED_SEG2)  , MDICLA(MED_SEG3)   ,
  265.      .     MDICLA(MED_TRIA3)  , MDICLA(MED_TRIA6) , MDICLA(MED_TRIA7)  ,
  266.      .     MDICLA(MED_QUAD4)  , MDICLA(MED_QUAD8) , MDICLA(MED_QUAD9)  ,
  267.      .     MDICLA(MED_HEXA8)  , MDICLA(MED_HEXA20), MDICLA(MED_PENTA6) ,
  268.      .     MDICLA(MED_PENTA15), MDICLA(MED_TETRA4), MDICLA(MED_TETRA10),
  269.      .     MDICLA(MED_PYRA5)  , MDICLA(MED_PYRA13), MDICLA(MED_HEXA27) ,
  270.      .     MDICLA(MED_SEG4)   , MDICLA(MED_OCTA12), MDICLA(MED_POLYGON)
  271.      .   / 1 , 2 , 3 ,
  272.      .     4 , 6 , 7 ,
  273.      .     8 , 10, 11,
  274.      .     14, 15, 16,
  275.      .     17, 23, 24,
  276.      .     25, 26, 33,
  277.      .     37, 39, 32 /
  278.  
  279. C     GTYPE et ETYPE Disponibles pour la sortie des resultats
  280.       INTEGER   MED_GTABLE
  281.       PARAMETER(MED_GTABLE=21)
  282.       INTEGER MEDGTB(MED_GTABLE)
  283.       DATA MEDGTB( 1), MEDGTB( 2), MEDGTB( 3), MEDGTB( 4), MEDGTB( 5),
  284.      .     MEDGTB( 6), MEDGTB( 7), MEDGTB( 8), MEDGTB( 9), MEDGTB(10),
  285.      .     MEDGTB(11), MEDGTB(12), MEDGTB(13), MEDGTB(14), MEDGTB(15),
  286.      .     MEDGTB(16), MEDGTB(17), MEDGTB(18), MEDGTB(19), MEDGTB(20),
  287.      .     MEDGTB(21)
  288.      .   / MED_POINT1,   MED_SEG2,    MED_SEG3,  MED_TRIA3,   MED_TRIA6,
  289.      .      MED_TRIA7,  MED_QUAD4,   MED_QUAD8,  MED_QUAD9,   MED_HEXA8,
  290.      .     MED_HEXA20, MED_PENTA6, MED_PENTA15, MED_TETRA4, MED_TETRA10,
  291.      .      MED_PYRA5, MED_PYRA13,  MED_HEXA27,   MED_SEG4,  MED_OCTA12,
  292.      .    MED_POLYGON /
  293.  
  294.       INTEGER   MED_ETABLE
  295.       PARAMETER(MED_ETABLE=3)
  296.       INTEGER MEDETB(MED_ETABLE)
  297.       DATA MEDETB(1)       , MEDETB(2), MEDETB(3)
  298.      .   / MED_NODE_ELEMENT, MED_CELL , MED_NODE /
  299.  
  300. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  301. C Cas particulier des POLYGONes (2D): (MED) MED_POLYGON & (C3M) type 32
  302. C On ne considere que les polygones ayant de 1 a MED_MAXCPO cotes.
  303. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  304.       INTEGER   MED_MAXCPO
  305.       PARAMETER(MED_MAXCPO = 50)
  306.  
  307. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  308. C TABLEAU DES PERMUTATIONS DES NOEUDS ENTRE CAST3M ET FORMAT MED 
  309. C VOIR LA FONCTION MEDPER (FICHIER ESOPE MEDPER.ESO)
  310. C LES ELEMENTS CONCERNES SONT DANS L'ORDRE :
  311. C   TRI6, QUA8, CU20, PR15, TE10, TRI7, QUA9, PY13, SEG3
  312. C LES AUTRES ELEMENTS NE FONT PAS L'OBJET DE PERMUTATION.
  313. C LE PREMIER NOEUD EST CONSERVE (1->1) ET N'EST PAS PRIS EN COMPTE DANS
  314. C LE TABLEAU CI-DESSOUS
  315. C Ci-dessous une ligne pour un element (noeuds 2 a nbnn)
  316. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  317.       INTEGER IPERM(82)
  318.       DATA IPERM / 3,5,2,4,6,
  319.      &             3,5,7,2,4,6,8,
  320.      &             3,5,7,13,15,17,19,2,4,6,8,14,16,18,20,9,10,11,12,
  321.      &             3,5,10,12,14,2,4,6,11,13,15,7,8,9,
  322.      &             3,5,10,2,4,6,7,8,9,
  323.      &             3,5,2,4,6,7,
  324.      &             3,5,7,2,4,6,8,9,
  325.      &             3,5,7,13,2,4,6,8,9,10,11,12,
  326.      &             3,2 /
  327. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  328.  
  329.  

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