2. Créer une CARTE constante : routine MECACT#
CALL MECACT ( base, carte, mocle, nommoa, nomgd, ncmp, licmp,
icmp, rcmp, ccmp, K8cmp)
BASE |
K1 |
IN |
nom de la base de création pour la carte ( ‘G’,’V’ ) |
CARTE |
K19 |
IN JXOUT |
nom de la carte à créer. |
MOCLE |
K6 |
IN |
mot-clé permettant d’accéder au concept maillage : /’MAILLA’ on affecte toutes les mailles du MAILLAGEprécisé dans NOMMOA(1:8) /’MODELE’ on affecte toutes les mailles tardives du LIGREL précisé dans NOMMOA(1:19) |
NOMMOA |
K* |
IN |
nom du MAILLAGE ou du MODELE ou du LIGREL sur lequel s’appuie la carte. |
NOMGD |
I |
IN |
nom de la grandeur associée à la carte. |
NCMP |
I |
IN |
nombre de CMPS de la grandeur affectée |
LICMP |
L_K8 |
IN |
liste des noms des CMP de la grandeur affectée. |
ICMP |
L_I |
IN |
liste des valeurs des CMPS de la grandeur affectée si celle-ci est de type “entier” |
RCMP |
L_R |
IN |
liste des valeurs des CMPS de la grandeur affectée si celle-ci est de type “réel” |
CCMP |
L_R |
IN |
liste des valeurs des CMPS de la grandeur affectée si celle-ci est de type “complexe” |
K8CMP |
L_K8 |
IN |
liste des valeurs des CMPS de la grandeur affectée si celle-ci est de type “K8” |
Exemple :
licmp (1) = 'DX'
licmp (2) = 'DY'
rcmp (1) = 1.0
rcmp (2) = 2.0
CALL MECACT ('ma_carte','mailla',MAILLA,'depl_r',2,licmp,ibid,rcmp,' ')
aura pour effet de créer une carte constante de la grandeur ‘DEPL_R’ pour laquelle, toutes les mailles du maillage seront affectées par les valeurs :
(DX = 1.0, DY = 2.0).