9. Exemples

9.1. SD carte

CARTE = CREA_CHAMP (TYPE_CHAMP : 'CART_META_R', OPERATION : 'AFFE',

MAILLAGE : MAILLA

AFFE : ( TOUT : 'OUI'

NOM_CMP : ( 'ZF' 'ZP' 'ZB' 'ZM' 'P' )

VALE : ( 0.0 0.0 0.0 0.0 0.0) )

AFFE : ( GROUP_MA : GM2

NOM_CMP : ( 'ZF' 'ZP' )

VALE : ( 0.2 0.3 ) )

AFFE : ( MAILLE : T2

NOM_CMP : ( 'ZP' 'ZM' 'P' )

VALE : ( 0.4 0.5 0.6 ) )

) ;

IMPRESSION SEGMENT DE VALEURS >CARTE .DESC <

1 - 64 3 3 3 1

6 - 3 2 3 3 254

11 - 254 254

--------------------------------------------------------------------------------

IMPRESSION DE LA COLLECTION : CARTE .LIMA

IMPRESSION OBJET DE COLLECTION CONTIGUE>CARTE .LIMA< OC : 1

1 - 1 3

IMPRESSION OBJET DE COLLECTION CONTIGUE>CARTE .LIMA< OC : 2

1 - 2

IMPRESSION OBJET DE COLLECTION CONTIGUE>CARTE .LIMA< OC : 3

1 - 4 5

--------------------------------------------------------------------------------

IMPRESSION SEGMENT DE VALEURS >CARTE .NOLI <

1 - > <> <

3 - > <

--------------------------------------------------------------------------------

IMPRESSION SEGMENT DE VALEURS >CARTE .NOMA <

1 - >MAILLA <

--------------------------------------------------------------------------------

IMPRESSION SEGMENT DE VALEURS >CARTE .VALE <

1 - 2.00000E-01 3.00000E-01 0.00000E+00 0.00000E+00 0.00000E+00

6 - 0.00000E+00 0.00000E+00 2.00000E-01 4.00000E-01 0.00000E+00

11 - 5.00000E-01 0.00000E+00 0.00000E+00 6.00000E-01 0.00000E+00

16 - 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00

21 - 0.00000E+00

Remarque :

Le contenu des objets imprimés ci-dessus peut surprendre : il ne correspond pas à ce qui est dit plus haut. En effet cette carte a été “terminée” par un appel à la routine tecart.f.

Cette action facultative a pour but de permettre une surcharge “fine” des valeurs affectées dans la commande CREA_CHAMP *.*

9.2. SD cham_no

cham_no = CREA_CHAMP ( MAILLAGE : mailla, TYPE_CHAMP : 'NOEU_DEPL_R',

OPERATION : 'AFFE',

AFFE:(GROUP_NO:gn1

nom_cmp: 'DX' VALE_R: 1.0)

AFFE:(NOEUD:(n2,n7)

NOM_CMP: ('DX','DZ') vale_r: (2. ,4.) )

);


--------------------------------------------------------------------------------

IMPRESSION SEGMENT DE VALEURS >cham_no .REFE <

1 - > <>cham_no <

--------------------------------------------------------------------------------

IMPRESSION SEGMENT DE VALEURS >cham_no .VALE <

1 - 2.00000E+00 4.00000E+00 1.00000E+00 1.00000E+00 2.00000E+00

6 - 4.00000E+00

9.3. SD cham_elem

FLUXN=CALC_CHAM_ELEM( MODELE=MOTH, TEMP=T2,

CHAM_MATER=CHMAT, OPTION='FLUX_ELNO')


IMPRESSION SEGMENT DE VALEURS >FLUXN .CELD <

>>>>>

1 - 47 2 1 0 6

6 - 18 2 6520 8 16

11 - 1 0 8 1 1

16 - 0 8 9 3 6857

21 - 6 18 1 0 6

26 - 17 1 0 6 23

31 - 1 0 6 29


IMPRESSION SEGMENT DE VALEURS >FLUXN .CELV <

>>>>>

1 - -8.78595D-12 -4.27645D-12 -8.78595D-12 -4.08919D-12 6.96696D-12

6 - -4.07954D-12 6.96696D-12 -4.77838D-12 4.96957D-12 -4.15161D-12

11 - 4.96957D-12 -4.26679D-12 -1.33159D-12 -4.54543D-12 -1.33159D-12

16 - -3.57760D-12 7.27596D-12 -8.41283D-12 7.27596D-12 -8.41283D-12

21 - 7.27596D-12 -8.41283D-12 0.00000D+00 -8.86757D-12 0.00000D+00

26 - -8.86757D-12 0.00000D+00 -8.86757D-12 0.00000D+00 -8.86757D-12

31 - 0.00000D+00 -8.86757D-12 0.00000D+00 -8.86757D-12


IMPRESSION SEGMENT DE VALEURS >FLUXN .CELK <

>>>>>

1 - >MOTH .MODELE <>FLUX_ELNO <

3 - >ELNO <> <

5 - > <>PFLUX_R

9.4. SD resuelem

CHTH= AFFE_CHAR_THER(MODELE:MODEL TEMP_IMPO:(NOEUD:N8 TEMP:3.4)

SOURCE:(TOUT:'OUI' SOUR: 7.) );

VECTEL=CALC_VECT_ELEM( CHARGE:CHTH OPTION:'CHAR_THER');

Le resuelem est extrait du VECT_ELEM VECTEL : “VECTEL .VE001”

IMPRESSION SEGMENT DE VALEURS >VECTEL .VE001 .DESC <

1 - 105 3 5781 5648 0

--------------------------------------------------------------------------------

IMPRESSION SEGMENT DE VALEURS >VECTEL .VE001 .NOLI <

1 - >MODEL .MODELE <>CHAR_THER_SOUR_R <

--------------------------------------------------------------------------------

IMPRESSION DE LA COLLECTION : VECTEL .VE001 .RESL

IMPRESSION OBJET DE COLLECTION >VECTEL .VE001 .RESL< OC : 1

1 - 3.50000E+00 3.50000E+00 3.50000E+00 4.66667E+00 4.66667E+00

6 - 4.66667E+00

IMPRESSION OBJET DE COLLECTION >VECTEL .VE001 .RESL< OC : 2

1 - 4.08333E+00 4.66667E+00 4.66667E+00 4.08333E+00