Télécharger la plaquette Cast3M


fr en

Télécharger acqulata.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : acqulata.dgibi
  2.  
  3. ************************************************************************
  4. ************************************************************************
  5.  
  6. 'OPTION' 'ECHO' 0 ;
  7. ************************************************************************
  8. * NOM         : ACQULATA
  9. * DESCRIPTION : Lecture de fichiers au format LATA v2.1 (Trio_U) en GIBI
  10. *               On utilise ACQU BRUT et d'autres évolutions
  11. *               (fiches 7922-7928)
  12. *
  13. *
  14. *
  15. * LANGAGE     : GIBIANE-CAST3M
  16. * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  17. *               mél : stephane.gounand@cea.fr
  18. **********************************************************************
  19. * VERSION    : v1, 13/01/2014, version initiale
  20. * HISTORIQUE : v1, 13/01/2014, création
  21. * HISTORIQUE :
  22. * HISTORIQUE :
  23. ************************************************************************
  24. *
  25. *
  26. interact = FAUX ;
  27. graph    = FAUX ;
  28. ******************************************************************
  29. *                    P R O C E D U R E S
  30. *
  31. *                       SPLITLIG
  32. *
  33. * On a une chaine de caractères LALIG comprenant des mots séparés
  34. * par des espaces. On crée une table indexée par des entiers
  35. * contenant chaque mot de la ligne :
  36. *        tab . I = Ieme mot de LALIG
  37. *
  38. 'DEBPROC' SPLITLIG ;
  39. 'ARGUMENT' lalig*'MOT' ;
  40. *'LISTE' ('DIME' lalig) ;
  41. *'LISTE' ('TYPE' lalig) ;
  42. * Splitte la ligne dans une table
  43. lesp = posi ' ' 'DANS' lalig 'TOUS' 'NOCA' ;
  44. lesp = ('LECT' 0) 'ET' lesp 'ET' ('LECT' ('+' ('DIME' lalig) 1)) ;
  45. tmot = 'TABLE' ;
  46. itab = 0 ;
  47. 'REPETER' idx ('-' ('DIME' lesp) 1) ;
  48.    ii = &idx ;
  49.    ideb = 'EXTRAIRE' lesp ii ;
  50.    ifin = 'EXTRAIRE' lesp ('+' ii 1) ;
  51.    'SI' ('>' ifin ('+' ideb 1)) ;
  52.       itab = '+' itab 1 ;
  53.       tmot . itab = 'EXTRAIRE' lalig ('+' ideb 1) ('-' ifin 1) ;
  54.    'FINSI' ;
  55. 'FIN' idx ;
  56. 'RESPRO' tmot ;
  57. 'FINPROC' ;
  58. *
  59. *                       VALARG
  60. *
  61. * On a une table crée par SPLITLIG. Elle peut contenir des chaines
  62. * telles que : 'toto=30'. En entrée, on a la table, le mot 'toto' et
  63. * le type de la donnée cherchée (ici ENTIER).
  64. * En sortie, on a la valeur 30
  65. *
  66. *
  67. 'DEBPROC' VALARG ;
  68. 'ARGUMENT' tlig*'TABLE' ;
  69. 'ARGUMENT' motcher*'MOT' ;
  70. 'ARGUMENT' typcher*'MOT' ;
  71. mot2 = 'CHAINE' motcher '=' ;
  72. lon2 = 'DIME' mot2 ;
  73. nlig = 'DIME' tlig ;
  74. ok = faux ;
  75. 'REPETER' ilig nlig ;
  76. * Sinon pb si l'indice de la table est un nom d'operateur
  77.    ind = 'CHAINE' tlig . &ilig ;
  78. *dbg   'MESSAGE' 'ind=' ind ;
  79.    fi  = posi mot2 'DANS' ind 'NOCA' ;
  80. *dbg   'MESSAGE' 'fi=' fi ;
  81.    ok = 'EGA' fi 1 ;
  82.    'SI' ok ;
  83.       ideb = '+' lon2 1 ;
  84.       ifin = 'DIME' ind ;
  85.       valcher = 'EXTRAIRE' ind ideb ifin ;
  86.       'QUITTER' ilig ;
  87.    'FINSI' ;
  88. 'FIN' ilig ;
  89. 'SI' ('NON' ok) ;
  90.    'ERREUR' ('CHAINE' motcher ' not found') ;
  91. 'FINSI' ;
  92. *'MESSAGE' ('CHAINE' 'valcher=' valcher) ;
  93. 'SI' ('EGA' typcher 'ENTIER') ;
  94.    valcher = 'ENTIER' valcher ;
  95. 'FINSI' ;
  96. 'SI' ('EGA' typcher 'FLOTTANT') ;
  97.    valcher = 'FLOTTANT' valcher ;
  98. 'FINSI' ;
  99. 'SI' ('EGA' typcher 'MOT') ;
  100.    valcher = 'CHAN' 'MINU' valcher ;
  101. 'FINSI' ;
  102. 'RESPRO' valcher ;
  103. 'FINPROC' ;
  104. *
  105. *                       MAKELEM
  106. *
  107. * Cette procédure génère les noeuds et les éléments en lisant un fichier
  108. * fic est le nom de fichier
  109. * nelem est le nombre d'éléments à lire
  110. * nnoe  est le nombre de noeuds par élément
  111. * Si nnoe=1, on génère la table des noeuds à partir des coordonnées
  112. * données dans le fichier
  113. * Si nnoe>1, on génère la table des simplexes à partir de leurs
  114. * numéros de noeuds, il faut alors donner la table des noeuds
  115. * tabnode comme argument supplémentaire à la procédure
  116. *
  117. 'DEBPROC' MAKELEM ;
  118. 'ARGUMENT' fic*'MOT' ;
  119. 'ARGUMENT' nelem*'ENTIER' ;
  120. 'ARGUMENT' nnoe*'ENTIER' ;
  121. *
  122. dim = 'VALEUR' 'DIME' ;
  123. 'SI' ('OU' ('<' nnoe 1) ('>' nnoe ('+' dim 1))) ;
  124.    'ERREUR' ('CHAINE' 'nnoe=' nnoe ' incorrect') ;
  125. 'FINSI' ;
  126. 'SI' ('NEG' nnoe 1) ;
  127.    'ARGUMENT' tabnode*'TABLE' ;
  128. 'FINSI' ;
  129. *
  130. tab = 'TABLE' 'ESCLAVE' ;
  131. 'MESSAGE' ('CHAINE' 'Reading ' fic ) ;
  132. *'OPTI' 'ACQU' fic ;
  133. MONACQU globfic tfic fic ;
  134. 'ACQU' bid*'ENTIER' ;
  135. *
  136. 'SI' ('EGA' nnoe 1) ;
  137.    'REPETER' bcl nelem ;
  138.       i = &bcl ;
  139.       'ACQU' lcoor*'LISTREEL' dim ;
  140.       tab . i = 'POIN' (EXTR lcoor 1) (EXTR lcoor 2) ;
  141.    'FIN' bcl ;
  142. 'SINON' ;
  143.    lmot = 'MOTS' 'SEG2' 'TRI3' 'TET4' ;
  144.    'REPETER' bcl nelem ;
  145.       i = &bcl ;
  146.       acqu lnode*'LISTENTI' nnoe ;
  147.       mpo = 'VIDE' 'MAILLAGE'/'POI1' ;
  148.       'REPETER' inoe nnoe ;
  149.          po = 'EXTRAIRE' lnode &inoe ;
  150.          mpo = 'ET' mpo
  151.                     ('MANU' 'POI1' (tabnode . po)) ;
  152.       'FIN' inoe ;
  153.       tyel = 'EXTRAIRE' lmot ('-' nnoe 1) ;
  154.       tab . i = 'MANU' tyel mpo ;
  155.    'FIN' bcl ;
  156. 'FINSI' ;
  157. 'RESPRO' tab ;
  158. 'FINPROC' ;
  159. *
  160. *                       MAKCHAM
  161. *
  162. * Génère les champs en lisant les fichiers correspondant
  163. * Il faut donner en entrée une table contenant les temps à lire,
  164. * les différents champs et les noms de fichiers.
  165. * Celle-ci est modifiée en sortie et contient les valeurs des champs.
  166. * Ce sont des champoints pour les champs définis aux noeuds
  167. * et des champs par éléments pour les champs définis aux faces ou
  168. * aux éléments.
  169. *
  170. *
  171. 'DEBPROC' MAKCHAM ;
  172. 'ARGUMENT' tabcham*'TABLE' ;
  173. *
  174. * Les champs
  175. *
  176. 'SI' ('>' ntemp 0) ;
  177.    'REPETER' itemp ntemp ;
  178.       i = &itemp ;
  179.       tabi = tabcham . i ;
  180.       itabi = 'INDEX' tabi ;
  181.       'REPETER' ntabi ('DIME' itabi) ;
  182.          idx = itabi . &ntabi ;
  183.          'SI' ('EGA' ('TYPE' (tabi . idx)) 'TABLE') ;
  184.             tabin = tabi . idx ;
  185.             fic = tabin . 'fic' ;
  186.             'MESSAGE' ('CHAINE' 'Reading ' fic) ;
  187. *            'OPTI' 'ACQU' fic ;
  188.             MONACQU globfic tfic fic ;
  189.             'ACQU' bid*'ENTIER' ;
  190.             nat = tabin . 'nat' ;
  191.             'SI' ('EGA' nat 'vector') ;
  192.                ncomp = dim ;
  193.             'SINON' ;
  194.                ncomp = 1 ;
  195.             'FINSI' ;
  196.             tvcomp = 'TABLE' ;
  197.             'REPETER' icomp ncomp ;
  198.                tvcomp . &icomp = 'PROG' ;
  199.             'FIN' icomp ;
  200.             loc = tabin . 'loc' ;
  201.             mod = tabcham . loc ;
  202.             mmod = mod ;
  203.             'SI' ('NEG' ('TYPE' mmod) 'MAILLAGE') ;
  204.                mmod = 'EXTRAIRE' mmod 'MAIL' ;
  205.             'FINSI' ;
  206. *
  207.             'REPETER' bcl ('NBEL' mmod) ;
  208.                'ACQU' lcom*'LISTREEL' ncomp ;
  209.                'REPETER' icomp ncomp ;
  210.                   tvcomp . &icomp = 'ET' (tvcomp . &icomp)
  211.                      ('PROG' ('EXTRAIRE' lcom &icomp)) ;
  212.                'FIN' icomp ;
  213.             'FIN' bcl ;
  214.             'SI' ('EGA' loc 'som') ;
  215.                'SI' ('EGA' ncomp 1) ;
  216.                   chp = 'MANU' 'CHPO' mmod ncomp 'SCAL' (tvcomp . 1) ;
  217.                'FINSI' ;
  218.                'SI' ('EGA' ncomp 2) ;
  219.                   chp = 'MANU' 'CHPO' mmod ncomp 'UX' (tvcomp . 1)
  220.                                                  'UY' (tvcomp . 2) ;
  221.                'FINSI' ;
  222.                'SI' ('EGA' ncomp 3) ;
  223.                   chp = 'MANU' 'CHPO' mmod ncomp 'UX' (tvcomp . 1)
  224.                                                  'UY' (tvcomp . 2)
  225.                                                  'UZ' (tvcomp . 3) ;
  226.                'FINSI' ;
  227.                tabin . 'chpoint' = chp ;
  228. *               'LISTE' chp;
  229.             'SINON' ;
  230.                'SI' ('EGA' ncomp 1) ;
  231.                   cha = 'MANU' 'CHML' mod 'REPA' 'SCAL' (tvcomp . 1)
  232.                      'GRAVITE' ;
  233.                'FINSI' ;
  234.                'SI' ('EGA' ncomp 2) ;
  235.                   cha = 'MANU' 'CHML' mod 'REPA' 'UX' (tvcomp . 1)
  236.                                                  'UY' (tvcomp . 2)
  237.                      'GRAVITE' ;
  238.                'FINSI' ;
  239.                'SI' ('EGA' ncomp 3) ;
  240.                   cha = 'MANU' 'CHML' mod 'REPA' 'UX' (tvcomp . 1)
  241.                                                  'UY' (tvcomp . 2)
  242.                                                  'UZ' (tvcomp . 3)
  243.                      'GRAVITE' ;
  244.                'FINSI' ;
  245.                tabin . 'chamelem' = cha ;
  246.                tabin . 'chpoint' = 'KCHA' mod cha 'CHPO' 'QUAF' ;
  247. *               'LISTE' cha ;
  248.             'FINSI' ;
  249.          'FINSI' ;
  250.       'FIN' ntabi ;
  251.    'FIN' itemp ;
  252. 'FINSI' ;
  253. *
  254. 'RESPRO' tabcham ;
  255. 'FINPROC' ;
  256. *
  257. *                       SAUTLIG
  258. *
  259. * Saute n lignes dans un fichier en cours de lecture avec ACQU
  260. *
  261. 'DEBPROC' SAUTLIG ;
  262. 'ARGUMENT' ilig*'ENTIER' ;
  263. 'ARGUMENT' jlig*'ENTIER' ;
  264. 'REPETER' bcl ;
  265.    ilig = ilig '+' 1 ;
  266.    'SI' ('<' ilig jlig) ;
  267.       acqu bid*'MOT' ;
  268.    'SINON' ;
  269.       ilig = '-' ilig 1 ;
  270.       'QUITTER' bcl ;
  271.    'FINSI' ;
  272. 'FIN' bcl ;
  273. 'RESPRO' ilig ;
  274. 'FINPROC' ;
  275. *
  276. *                       MONACQU
  277. *
  278. *
  279. * On se positionne dans le fichier fic juste après la ligne
  280. * FICHIER fic2
  281. * dont le numéro est dans tfic . fic2
  282. * si multific = vrai (variable globale), MONACQU est equivalent a 'OPTI
  283. * 'ACQU' ;
  284. *
  285. 'DEBPROC' MONACQU ;
  286. 'ARGUMENT' fic*'MOT' ;
  287. 'ARGUMENT' tfic*'TABLE' ;
  288. 'ARGUMENT' fic2*'MOT' ;
  289. *
  290. 'SI' multific ;
  291.    'OPTI' 'ACQU' fic2 ;
  292. 'SINON' ;
  293. *'MESSAGE' ('CHAINE' 'Reading ' fic) ;
  294.    'OPTI' 'ACQU' fic ;
  295.    nlig = tfic . fic2 ;
  296. *'MESSAGE' 'nlig=' nlig ;
  297.    'SI' ('>' nlig 0) ;
  298.       'REPETER' bcl nlig ;
  299.          bid = 'ACQU' 'BRUT' ;
  300.       'FIN' bcl ;
  301.    'FINSI' ;
  302. 'FINSI' ;
  303. 'FINPROC' ;
  304. *
  305. *
  306. *                    Fin des P R O C E D U R E S
  307. ******************************************************************
  308. *
  309. * Début du jeu de données
  310. *
  311. * multific est un logique global qui dit si les fichiers .lata sont mis
  312. * sequentiellement dans un seul fichier globfic (typiquement le .dgibi
  313. * courant) ou si ils sont en fichiers separes dans le repertoire courant
  314. *
  315. multific = faux ;
  316. *
  317. * 1ere passe pour localiser les débuts de fichier dans globfic
  318. * si multific = faux ;
  319. * On fait une table tfic . 'nomfic' = i avec i ligne début
  320. tfic = 'TABLE' ;
  321. divers = 'VENV' 'CASTEM_DIVERS';
  322. globfic = 'CHAINE' divers '/../dgibi/acqulata.dgibi' ;
  323. 'SI' ('NON' multific) ;
  324.    'OPTI' 'ACQU' globfic ;
  325. *
  326.    ilig = 0 ;
  327.    'REPETER' bcl ;
  328.       lalig = ACQU 'BRUT' ; ilig = '+' ilig 1 ;
  329. *      'SI' ('NEG' tlig . 1 '*') ;
  330. *       prem = 'CHAINE' IEME lalig 1 ;
  331. *       mcle = 'CHANGER' 'MINU' (IEME lalig 1) ;
  332.       tlig = SPLITLIG lalig ;
  333.       'SI' ('>' ('DIME' tlig) 0) ;
  334. * Eviter l'interprétation de tlig . 1
  335.          'SI' ('NEG' tlig . 1 '*') ;
  336.             mcle = 'CHANGER' 'MINU' tlig . 1 ;
  337.             'SI' ('EGA' mcle 'fichier') ;
  338.                tfic . (tlig . 2) = ilig ;
  339.             'FINSI' ;
  340.             'SI' ('EGA' mcle 'stop') ;
  341.                'QUITTER' bcl ;
  342.             'FINSI' ;
  343.          'FINSI' ;
  344.       'FINSI' ;
  345.    'FIN' bcl ;
  346. *
  347.    'LISTE' tfic ;
  348. 'FINSI' ;
  349. *
  350. nomcas = 'stokes_2d' ;
  351. *
  352. * Traitement du fichier stokes_2d.lata
  353. *
  354. * 1 Lecture du nombre d'entrees CHAMP GEOM et TEMP. On s'arrete à
  355. *   l'entrée FIN
  356. *
  357. fic = 'CHAINE' nomcas '.lata' ;
  358. 'MESSAGE' ('CHAINE' 'Reading ' fic ' pass 1') ;
  359. *'OPTI' 'ACQU' fic ;
  360. MONACQU globfic tfic fic ;
  361. lkas = 'LECT' ;
  362. ilig = 0 ;
  363. tmot = 'TABLE' ;
  364. tmot . 'CHAMP' = 1 ;
  365. tmot . 'GEOM'  = 2 ;
  366. tmot . 'TEMPS' = 3 ;
  367. tmot . 'FIN'   = 4 ;
  368. *
  369. 'REPETER' bcl ;
  370.    acqu mot1*'MOT' ;
  371. *   'LISTE' mot1 ;
  372.    ilig = '+' ilig 1 ;
  373.    'SI' ('EXISTE' tmot mot1) ;
  374.       ikas = tmot . ('CHAINE' mot1) ;
  375.    'SINON' ;
  376.       ikas = 0 ;
  377.    'FINSI' ;
  378.    lkas = 'ET' lkas ('LECT' ikas) ;
  379.    'SI' ('EGA' ikas 4) ;
  380.          'QUITTER' bcl ;
  381.    'FINSI' ;
  382. 'FIN' bcl ;
  383. *
  384. lgeom = posi 2 'DANS' lkas 'TOUS' ;
  385. ltemp = posi 3 'DANS' lkas 'TOUS' ;
  386. ifin  = posi 4 'DANS' lkas ;
  387. ngeom = 'DIME' lgeom ;
  388. ntemp = 'DIME' ltemp ;
  389. 'MESSAGE' ('CHAINE' 'Nombre de geometries              : ' ngeom) ;
  390. 'MESSAGE' ('CHAINE' 'Nombre de temps sauves            : ' ntemp) ;
  391. 'SI' ('>' ntemp 0) ;
  392.    'SI' ('>' ntemp 1) ;
  393.       ncham = '-' ('-' ('EXTRAIRE' ltemp 2) ('EXTRAIRE' ltemp 1)) 1 ;
  394.    'SINON' ;
  395.       ncham = '-' ('-' ifin ('EXTRAIRE' ltemp 1)) 1 ;
  396.    'FINSI' ;
  397. 'FINSI' ;
  398. 'MESSAGE' ('CHAINE' 'Nombre de champs par temps sauves : ' ncham) ;
  399. *
  400. * On lit uniquement la première géométrie
  401. *
  402. 'MESSAGE' ('CHAINE' 'Reading ' fic ' pass 2') ;
  403. *'OPTI' 'ACQU' fic ;
  404. MONACQU globfic tfic fic ;
  405. ilig = 0 ;
  406. igeom = 'EXTRAIRE' lgeom 1 ;
  407. ilig = SAUTLIG ilig ('+' igeom 1) ;
  408. * Les noeuds
  409. lalig = ACQU 'BRUT' ; ilig = '+' ilig 1 ;
  410. tlig = SPLITLIG lalig ;
  411. ficnode = 'CHAINE' tlig . 3 ;
  412. nnode   = VALARG tlig 'size' 'ENTIER' ;
  413. dim     = VALARG tlig 'composantes' 'ENTIER' ;
  414. 'MESSAGE' ('CHAINE' 'Nom du fichier des noeuds : ' ficnode) ;
  415. 'MESSAGE' ('CHAINE' 'Nombre de noeuds          : ' nnode) ;
  416. 'MESSAGE' ('CHAINE' 'Dimension du probleme     : ' dim  ) ;
  417. * Les éléments
  418. lalig = ACQU 'BRUT' ; ilig = '+' ilig 1 ;
  419. tlig = SPLITLIG lalig ;
  420. ficelem = 'CHAINE' tlig . 3 ;
  421. nelem   = VALARG tlig 'size' 'ENTIER' ;
  422. nnoe    = VALARG tlig 'composantes' 'ENTIER' ;
  423. 'MESSAGE' ('CHAINE' 'Nom du fichier des éléments : ' ficelem) ;
  424. 'MESSAGE' ('CHAINE' 'Nombre déléments            : ' nelem) ;
  425. 'MESSAGE' ('CHAINE' 'Nombre de noeuds/elem       : ' nnoe) ;
  426. * Les faces
  427. igeom = 'EXTRAIRE' lgeom ngeom ;
  428. ilig = SAUTLIG ilig ('+' igeom 3) ;
  429. lalig = ACQU 'BRUT' ; ilig = '+' ilig 1 ;
  430. tlig = SPLITLIG lalig ;
  431. ficface = 'CHAINE' tlig . 3 ;
  432. nface   = VALARG tlig 'size' 'ENTIER' ;
  433. nnof    = VALARG tlig 'composantes' 'ENTIER' ;
  434. 'MESSAGE' ('CHAINE' 'Nom du fichier des faces : ' ficface) ;
  435. 'MESSAGE' ('CHAINE' 'Nombre de faces          : ' nface) ;
  436. 'MESSAGE' ('CHAINE' 'Nombre de noeuds/face    : ' nnof) ;
  437. * Les champs aux différents instants
  438. tabcham = 'TABLE' ;
  439. ltem    = 'PROG' ;
  440. 'SI' ('>' ntemp 0) ;
  441.    'REPETER' itemp ntemp ;
  442.       i = &itemp ;
  443.       ilig = SAUTLIG ilig ('EXTRAIRE' ltemp i) ;
  444.       tabcham . i = 'TABLE' ; tabi = tabcham . i ;
  445.       lalig = ACQU 'BRUT' ; ilig = '+' ilig 1 ;
  446.       tlig = SPLITLIG lalig ;
  447.       tem  = 'FLOTTANT' tlig . 2 ;
  448.       tabi . 'INSTANT' = tem ;
  449.       ltem = 'ET' ltem ('PROG' tem) ;
  450.       'REPETER' icham ncham ;
  451.          lalig = ACQU 'BRUT' ; ilig = '+' ilig 1 ;
  452.          tlig = SPLITLIG lalig ;
  453.          quoi = 'CHANGER' 'MINU' ('CHAINE' tlig  . 2) ;
  454.          loc  = VALARG tlig 'localisation' 'MOT' ;
  455.          nat  = VALARG tlig 'nature' 'MOT' ;
  456.          nomcham = 'CHAINE' quoi loc ;
  457.          tabi . nomcham = 'TABLE' ; tabin = tabi . nomcham ;
  458.          tabin . 'quoi' = 'MOT' quoi ;
  459.          tabin . 'loc' = 'MOT' loc ;
  460.          tabin . 'nat' = 'MOT' nat ;
  461.          tabin . 'fic' = 'CHAINE' tlig . 3 ;
  462. *         'LISTE' tabin ;
  463.       'FIN' icham ;
  464.    'FIN' itemp ;
  465. 'FINSI' ;
  466. *
  467. * On a lu tous les noms de fichiers, maintenant, on peut créer les objets
  468. *
  469. 'OPTI' 'DIME' dim ;
  470. * les noeuds
  471. tabnode = MAKELEM ficnode nnode 1 ;
  472. pmt = 'ETG' tabnode ;
  473. * Les éléments
  474. tabelem = MAKELEM ficelem nelem nnoe tabnode ;
  475. mt = 'ETG' tabelem ;
  476. * Les faces
  477. tabface = MAKELEM ficface nface nnof tabnode ;
  478. fac = 'ETG' tabface ;
  479. *'TRACER' fac 'TITR' 'fac' ;
  480. *
  481. _mt  = 'CHANGER' mt 'QUAF' ;
  482. _fac = 'CHANGER' fac 'QUAF' ;
  483. 'ELIMINATION' ('ET' _mt _fac) 1.D-6 ;
  484. *
  485. tabcham . 'ltemps' = ltem ;
  486. tabcham . 'som' = pmt ;
  487. tabcham . 'elem' = 'MODE' _mt 'NAVIER_STOKES' 'QUAF' ;
  488. tabcham . 'faces' = 'MODE' _fac 'NAVIER_STOKES' 'QUAF' ;
  489. * Lire les champs
  490. tabcham = MAKCHAM tabcham ;
  491. *fic = 'CHAINE' nomdir nomcas '.sauv' ;
  492. *'MESSAGE' ('CHAINE' 'Saving ' fic) ;
  493. *'OPTI' 'SAUVER' fic ;
  494. *'SAUVER' tabcham ;
  495. *
  496. ntemps = 'DIME' (tabcham . 'ltemps') ;
  497. tt = tabcham . ntemps ;
  498. vit = tt . 'vitessefaces' . 'chpoint' ;
  499. mvit = 'MAXIMUM' vit 'ABS' ;
  500. prep1 = tt . 'pressionsom' . 'chpoint' ;
  501. prep0 = tt . 'pressionelem' . 'chamelem' ;
  502. mpre1 = 'MAXIMUM' prep1 'ABS' ;
  503. mpre0 = 'MAXIMUM' prep0 'ABS' ;
  504. 'MESSAGE' ('CHAINE' 'mvit=' mvit) ;
  505. 'MESSAGE' ('CHAINE' 'mpre1=' mpre1) ;
  506. 'MESSAGE' ('CHAINE' 'mpre0=' mpre0) ;
  507. *
  508. 'SI' graph ;
  509.    vvit = 'VECT' vit 'DEPL' 'JAUN' ;
  510.    tit = 'CHAINE' 'Vitesse ; mvit=' mvit ;
  511.    'TRACER' vvit mt 'TITR' tit ;
  512.    tit = 'CHAINE' 'Pression P1 ; mpre1=' mpre1 ;
  513.    'TRACER' prep1 mt 'TITR' tit ;
  514.    tit = 'CHAINE' 'Pression P0 ; mpre0=' mpre0 ;
  515.    'TRACER' prep0 (tabcham . 'elem') 'TITR' tit ;
  516. 'FINSI' ;
  517. * On fait quelques tests bateaux sur les résultats obtenus
  518. y47 = coor 2 (tabnode . 47) ;
  519. t1 = 'EGA' nnode 86 ;
  520. t2 = 'EGA' nelem 138 ;
  521. t3 = 'EGA' nface 223 ;
  522. t4 = 'EGA' mvit 1.18928E-4 1.E-8 ;
  523. t5 = 'EGA' mpre0 6.04218E-1 1.E-5 ;
  524. t6 = 'EGA' mpre1 6.64172E-1 1.E-4 ;
  525. t7 = 'EGA' y47 1.83565006e-1 1.e-9 ;
  526. *
  527. ok = t1 'ET' t2 'ET' t3 'ET' t4 'ET' t5 'ET' t6 'ET' t7 ;
  528. *
  529. 'SI' ('NON' ok) ;
  530.    'MESSAGE' ('CHAINE' 'Il y a eu des erreurs') ;
  531.    'ERREUR' 5 ;
  532. 'SINON' ;
  533.    'MESSAGE' ('CHAINE' 'Tout sest bien passe !') ;
  534. 'FINSI' ;
  535. *
  536. 'SI' interact ;
  537.    'OPTION' 'ECHO' 1 ;
  538.    'OPTION' 'DONN' 5 ;
  539. 'FINSI' ;
  540. *
  541. * End of dgibi file ACQULATA
  542. *
  543. 'FIN' ;
  544. 'COMM' fichier : acqulatb.dgibi
  545. 'COMM' Jeu de données contenant les données à lire pour le test ;
  546. 'COMM' acqulata.dgibi ;
  547. 'FIN' ;
  548. FICHIER stokes_2d.lata
  549. LATA_V2.1 Trio_U Version1.6 or later
  550. stokes_2d
  551. Trio_U verbosity=0
  552. Format ASCII,INT32,F_INDEXING,C_ORDERING,F_MARKERS_SINGLE,REAL32
  553. GEOM mt type_elem=TRIANGLE
  554. CHAMP SOMMETS stokes_2d.lata.mt.0.0 geometrie=mt size=86 composantes=2
  555. CHAMP ELEMENTS stokes_2d.lata.mt.0.0.elem geometrie=mt size=138 composantes=3 format=INT32
  556. GEOM mt_boundaries_bas type_elem=SEGMENT
  557. CHAMP SOMMETS stokes_2d.lata.mt_boundaries_bas.0.0 geometrie=mt_boundaries_bas size=9 composantes=2
  558. CHAMP ELEMENTS stokes_2d.lata.mt_boundaries_bas.0.0.elem geometrie=mt_boundaries_bas size=8 composantes=2 format=INT32
  559. GEOM mt_boundaries_dro type_elem=SEGMENT
  560. CHAMP SOMMETS stokes_2d.lata.mt_boundaries_dro.0.0 geometrie=mt_boundaries_dro size=9 composantes=2
  561. CHAMP ELEMENTS stokes_2d.lata.mt_boundaries_dro.0.0.elem geometrie=mt_boundaries_dro size=8 composantes=2 format=INT32
  562. GEOM mt_boundaries_hau type_elem=SEGMENT
  563. CHAMP SOMMETS stokes_2d.lata.mt_boundaries_hau.0.0 geometrie=mt_boundaries_hau size=9 composantes=2
  564. CHAMP ELEMENTS stokes_2d.lata.mt_boundaries_hau.0.0.elem geometrie=mt_boundaries_hau size=8 composantes=2 format=INT32
  565. GEOM mt_boundaries_gau type_elem=SEGMENT
  566. CHAMP SOMMETS stokes_2d.lata.mt_boundaries_gau.0.0 geometrie=mt_boundaries_gau size=9 composantes=2
  567. CHAMP ELEMENTS stokes_2d.lata.mt_boundaries_gau.0.0.elem geometrie=mt_boundaries_gau size=8 composantes=2 format=INT32
  568. Champ FACES stokes_2d.lata.FACES.FACES.mt.-1.000000 geometrie=mt localisation=FACES size=223 composantes=2 reference=SOMMETS format=int32
  569. Champ ELEM_FACES stokes_2d.lata.ELEM_FACES.ELEMENTS.mt.-1.000000 geometrie=mt localisation=ELEMENTS size=138 composantes=3 reference=FACES format=int32
  570. TEMPS 9.34173851e+02
  571. Champ VITESSE stokes_2d.lata.VITESSE.FACES.mt.934.1738514257 geometrie=mt localisation=FACES size=223 nature=vector noms_compo=VITESSE_FACES_mt0,VITESSE_FACES_mt1 composantes=2
  572. Champ PRESSION stokes_2d.lata.PRESSION.ELEM.mt.934.1738514257 geometrie=mt localisation=ELEM size=138 nature=scalar noms_compo=PRESSION_ELEM_mt0 composantes=1
  573. Champ PRESSION stokes_2d.lata.PRESSION.SOM.mt.934.1738514257 geometrie=mt localisation=SOM size=86 nature=scalar noms_compo=PRESSION_SOM_mt0 composantes=1
  574. FIN
  575. FICHIER stokes_2d.lata.mt.0.0
  576. 688
  577. -3.36569995e-01 -3.99607986e-01
  578. -2.09496006e-01 -3.93750012e-01
  579. -8.44961032e-02 -3.93750012e-01
  580. 4.05039005e-02 -3.93750012e-01
  581. 1.65503994e-01 -3.93750012e-01
  582. 2.90511012e-01 -3.97635013e-01
  583. 3.99673015e-01 -3.36504996e-01
  584. 3.93750012e-01 -2.11587995e-01
  585. 3.93750012e-01 -8.65878016e-02
  586. 3.93750012e-01 3.84121984e-02
  587. 3.93750012e-01 1.63412005e-01
  588. 3.97435009e-01 2.88432002e-01
  589. 3.37718010e-01 3.98460001e-01
  590. 2.12770000e-01 3.93750012e-01
  591. 8.77697021e-02 3.93750012e-01
  592. -3.72303016e-02 3.93750012e-01
  593. -1.62230000e-01 3.93750012e-01
  594. -2.87256002e-01 3.97323012e-01
  595. -3.97771001e-01 3.38405997e-01
  596. -3.93750012e-01 2.13443995e-01
  597. -3.93750012e-01 8.84440988e-02
  598. -3.93750012e-01 -3.65559012e-02
  599. -3.93750012e-01 -1.61556005e-01
  600. -3.97258013e-01 -2.86585987e-01
  601. -2.86653996e-01 -2.47981995e-01
  602. -1.60116002e-01 -2.87517011e-01
  603. -3.51165012e-02 -2.87499994e-01
  604. 8.98834988e-02 -2.87505001e-01
  605. 2.14872003e-01 -2.90872991e-01
  606. 2.87521005e-01 -1.78398997e-01
  607. 2.87499994e-01 -5.33992983e-02
  608. 2.87503004e-01 7.16006979e-02
  609. 2.89615005e-01 1.96636006e-01
  610. 1.84123993e-01 2.87514001e-01
  611. 5.91242015e-02 2.87499994e-01
  612. -6.58757985e-02 2.87501991e-01
  613. -1.90920994e-01 2.89256990e-01
  614. -2.87510991e-01 1.86274007e-01
  615. -2.87499994e-01 6.12739995e-02
  616. -2.87501991e-01 -6.37260005e-02
  617. -1.92490995e-01 -1.31871000e-01
  618. -7.62329027e-02 -1.81713998e-01
  619. 4.87665012e-02 -1.81260005e-01
  620. 1.79536000e-01 -1.62880003e-01
  621. 1.81251004e-01 -3.78859006e-02
  622. 1.83366999e-01 8.74273032e-02
  623. 8.97262990e-02 1.83565006e-01
  624. -3.52565981e-02 1.81253999e-01
  625. -1.67331994e-01 1.71257004e-01
  626. -1.81250006e-01 4.66692001e-02
  627. -9.72220972e-02 -5.58242016e-02
  628. 2.30117999e-02 -7.57189021e-02
  629. 8.30911025e-02 3.49082984e-02
  630. -3.48061994e-02 7.65336007e-02
  631. -3.75000000e-01 -5.00000000e-01
  632. 5.00000000e-01 -3.75000000e-01
  633. 3.75000000e-01 5.00000000e-01
  634. -5.00000000e-01 3.75000000e-01
  635. -2.50000000e-01 -5.00000000e-01
  636. -1.25000000e-01 -5.00000000e-01
  637. 0.00000000e+00 -5.00000000e-01
  638. 1.25000000e-01 -5.00000000e-01
  639. 2.50000000e-01 -5.00000000e-01
  640. 5.00000000e-01 -2.50000000e-01
  641. 5.00000000e-01 -1.25000000e-01
  642. 5.00000000e-01 0.00000000e+00
  643. 5.00000000e-01 1.25000000e-01
  644. 5.00000000e-01 2.50000000e-01
  645. 2.50000000e-01 5.00000000e-01
  646. 1.25000000e-01 5.00000000e-01
  647. 0.00000000e+00 5.00000000e-01
  648. -1.25000000e-01 5.00000000e-01
  649. -2.50000000e-01 5.00000000e-01
  650. -5.00000000e-01 2.50000000e-01
  651. -5.00000000e-01 1.25000000e-01
  652. -5.00000000e-01 0.00000000e+00
  653. -5.00000000e-01 -1.25000000e-01
  654. -5.00000000e-01 -2.50000000e-01
  655. -5.00000000e-01 -3.75000000e-01
  656. 3.75000000e-01 -5.00000000e-01
  657. 5.00000000e-01 3.75000000e-01
  658. -3.75000000e-01 5.00000000e-01
  659. -5.00000000e-01 -5.00000000e-01
  660. 5.00000000e-01 -5.00000000e-01
  661. 5.00000000e-01 5.00000000e-01
  662. -5.00000000e-01 5.00000000e-01
  663. 688
  664. FICHIER stokes_2d.lata.mt.0.0.elem
  665. 1656
  666. 1 55 59
  667. 2 1 59
  668. 2 59 60
  669. 3 2 60
  670. 3 60 61
  671. 4 3 61
  672. 4 61 62
  673. 5 4 62
  674. 5 62 63
  675. 6 5 63
  676. 6 63 80
  677. 7 6 80
  678. 7 56 64
  679. 8 7 64
  680. 8 64 65
  681. 9 8 65
  682. 9 65 66
  683. 10 9 66
  684. 10 66 67
  685. 11 10 67
  686. 11 67 68
  687. 12 11 68
  688. 12 68 81
  689. 13 12 81
  690. 13 57 69
  691. 14 13 69
  692. 14 69 70
  693. 15 14 70
  694. 15 70 71
  695. 16 15 71
  696. 16 71 72
  697. 17 16 72
  698. 17 72 73
  699. 18 17 73
  700. 18 73 82
  701. 19 18 82
  702. 19 58 74
  703. 20 19 74
  704. 20 74 75
  705. 21 20 75
  706. 21 75 76
  707. 22 21 76
  708. 22 76 77
  709. 23 22 77
  710. 23 77 78
  711. 24 23 78
  712. 24 78 79
  713. 1 24 79
  714. 25 1 2
  715. 26 25 2
  716. 26 2 3
  717. 27 26 3
  718. 27 3 4
  719. 28 27 4
  720. 28 4 5
  721. 29 28 5
  722. 29 5 6
  723. 29 6 7
  724. 30 29 7
  725. 30 7 8
  726. 30 8 9
  727. 31 30 9
  728. 31 9 10
  729. 32 31 10
  730. 32 10 11
  731. 33 32 11
  732. 33 11 12
  733. 33 12 13
  734. 34 33 13
  735. 34 13 14
  736. 34 14 15
  737. 35 34 15
  738. 35 15 16
  739. 36 35 16
  740. 36 16 17
  741. 37 36 17
  742. 37 17 18
  743. 37 18 19
  744. 38 37 19
  745. 38 19 20
  746. 38 20 21
  747. 39 38 21
  748. 39 21 22
  749. 40 39 22
  750. 40 22 23
  751. 25 40 23
  752. 25 23 24
  753. 25 24 1
  754. 41 25 26
  755. 42 41 26
  756. 42 26 27
  757. 43 42 27
  758. 43 27 28
  759. 44 43 28
  760. 44 28 29
  761. 44 29 30
  762. 44 30 31
  763. 45 44 31
  764. 45 31 32
  765. 46 45 32
  766. 46 32 33
  767. 46 33 34
  768. 47 46 34
  769. 47 34 35
  770. 48 47 35
  771. 48 35 36
  772. 49 48 36
  773. 49 36 37
  774. 49 37 38
  775. 49 38 39
  776. 50 49 39
  777. 50 39 40
  778. 41 50 40
  779. 41 40 25
  780. 51 41 42
  781. 52 51 42
  782. 52 42 43
  783. 52 43 44
  784. 52 44 45
  785. 53 52 45
  786. 53 45 46
  787. 53 46 47
  788. 54 53 47
  789. 54 47 48
  790. 54 48 49
  791. 54 49 50
  792. 51 54 50
  793. 51 50 41
  794. 52 53 54
  795. 51 52 54
  796. 55 1 83
  797. 1 79 83
  798. 56 7 84
  799. 7 80 84
  800. 57 13 85
  801. 13 81 85
  802. 58 19 86
  803. 19 82 86
  804. 1656
  805. FICHIER stokes_2d.lata.FACES.FACES.mt.-1.000000
  806. 1784
  807. 83 55
  808. 55 59
  809. 59 60
  810. 60 61
  811. 61 62
  812. 62 63
  813. 63 80
  814. 80 84
  815. 84 56
  816. 56 64
  817. 64 65
  818. 65 66
  819. 66 67
  820. 67 68
  821. 68 81
  822. 81 85
  823. 85 57
  824. 57 69
  825. 69 70
  826. 70 71
  827. 71 72
  828. 72 73
  829. 73 82
  830. 82 86
  831. 86 58
  832. 58 74
  833. 74 75
  834. 75 76
  835. 76 77
  836. 77 78
  837. 78 79
  838. 79 83
  839. 59 1
  840. 1 55
  841. 59 2
  842. 60 2
  843. 60 3
  844. 61 3
  845. 61 4
  846. 62 4
  847. 62 5
  848. 63 5
  849. 63 6
  850. 80 6
  851. 80 7
  852. 64 7
  853. 7 56
  854. 64 8
  855. 65 8
  856. 65 9
  857. 66 9
  858. 66 10
  859. 67 10
  860. 67 11
  861. 68 11
  862. 68 12
  863. 81 12
  864. 81 13
  865. 69 13
  866. 13 57
  867. 69 14
  868. 70 14
  869. 70 15
  870. 71 15
  871. 71 16
  872. 72 16
  873. 72 17
  874. 73 17
  875. 73 18
  876. 82 18
  877. 82 19
  878. 74 19
  879. 19 58
  880. 74 20
  881. 75 20
  882. 75 21
  883. 76 21
  884. 76 22
  885. 77 22
  886. 77 23
  887. 78 23
  888. 78 24
  889. 79 24
  890. 79 1
  891. 1 83
  892. 7 84
  893. 13 85
  894. 19 86
  895. 2 1
  896. 3 2
  897. 4 3
  898. 5 4
  899. 6 5
  900. 7 6
  901. 8 7
  902. 9 8
  903. 10 9
  904. 11 10
  905. 12 11
  906. 13 12
  907. 14 13
  908. 15 14
  909. 16 15
  910. 17 16
  911. 18 17
  912. 19 18
  913. 20 19
  914. 21 20
  915. 22 21
  916. 23 22
  917. 24 23
  918. 1 24
  919. 2 25
  920. 25 1
  921. 2 26
  922. 26 25
  923. 3 26
  924. 3 27
  925. 27 26
  926. 4 27
  927. 4 28
  928. 28 27
  929. 5 28
  930. 5 29
  931. 29 28
  932. 6 29
  933. 7 29
  934. 7 30
  935. 30 29
  936. 8 30
  937. 9 30
  938. 9 31
  939. 31 30
  940. 10 31
  941. 10 32
  942. 32 31
  943. 11 32
  944. 11 33
  945. 33 32
  946. 12 33
  947. 13 33
  948. 13 34
  949. 34 33
  950. 14 34
  951. 15 34
  952. 15 35
  953. 35 34
  954. 16 35
  955. 16 36
  956. 36 35
  957. 17 36
  958. 17 37
  959. 37 36
  960. 18 37
  961. 19 37
  962. 19 38
  963. 38 37
  964. 20 38
  965. 21 38
  966. 21 39
  967. 39 38
  968. 22 39
  969. 22 40
  970. 40 39
  971. 23 40
  972. 23 25
  973. 25 40
  974. 24 25
  975. 26 41
  976. 41 25
  977. 26 42
  978. 42 41
  979. 27 42
  980. 27 43
  981. 43 42
  982. 28 43
  983. 28 44
  984. 44 43
  985. 29 44
  986. 30 44
  987. 31 44
  988. 31 45
  989. 45 44
  990. 32 45
  991. 32 46
  992. 46 45
  993. 33 46
  994. 34 46
  995. 34 47
  996. 47 46
  997. 35 47
  998. 35 48
  999. 48 47
  1000. 36 48
  1001. 36 49
  1002. 49 48
  1003. 37 49
  1004. 38 49
  1005. 39 49
  1006. 39 50
  1007. 50 49
  1008. 40 50
  1009. 40 41
  1010. 41 50
  1011. 42 51
  1012. 51 41
  1013. 42 52
  1014. 52 51
  1015. 43 52
  1016. 44 52
  1017. 45 52
  1018. 45 53
  1019. 53 52
  1020. 46 53
  1021. 47 53
  1022. 47 54
  1023. 54 53
  1024. 48 54
  1025. 49 54
  1026. 50 54
  1027. 50 51
  1028. 51 54
  1029. 54 52
  1030. 1784
  1031. FICHIER stokes_2d.lata.VITESSE.FACES.mt.934.1738514257
  1032. 1784
  1033. 0.00000000e+00 0.00000000e+00
  1034. 0.00000000e+00 0.00000000e+00
  1035. 0.00000000e+00 0.00000000e+00
  1036. 0.00000000e+00 0.00000000e+00
  1037. 0.00000000e+00 0.00000000e+00
  1038. 0.00000000e+00 0.00000000e+00
  1039. 0.00000000e+00 0.00000000e+00
  1040. 0.00000000e+00 0.00000000e+00
  1041. 0.00000000e+00 0.00000000e+00
  1042. 0.00000000e+00 0.00000000e+00
  1043. 0.00000000e+00 0.00000000e+00
  1044. 0.00000000e+00 0.00000000e+00
  1045. 0.00000000e+00 0.00000000e+00
  1046. 0.00000000e+00 0.00000000e+00
  1047. 0.00000000e+00 0.00000000e+00
  1048. 0.00000000e+00 0.00000000e+00
  1049. 0.00000000e+00 0.00000000e+00
  1050. 0.00000000e+00 0.00000000e+00
  1051. 0.00000000e+00 0.00000000e+00
  1052. 0.00000000e+00 0.00000000e+00
  1053. 0.00000000e+00 0.00000000e+00
  1054. 0.00000000e+00 0.00000000e+00
  1055. 0.00000000e+00 0.00000000e+00
  1056. 0.00000000e+00 0.00000000e+00
  1057. 0.00000000e+00 0.00000000e+00
  1058. 0.00000000e+00 0.00000000e+00
  1059. 0.00000000e+00 0.00000000e+00
  1060. 0.00000000e+00 0.00000000e+00
  1061. 0.00000000e+00 0.00000000e+00
  1062. 0.00000000e+00 0.00000000e+00
  1063. 0.00000000e+00 0.00000000e+00
  1064. 0.00000000e+00 0.00000000e+00
  1065. 5.64451038e-05 1.68571967e-06
  1066. 5.78987347e-05 4.33680869e-19
  1067. -6.63299943e-05 5.85021480e-05
  1068. -2.85250571e-05 -7.55816291e-05
  1069. -3.21261286e-05 6.15365861e-05
  1070. 5.14024669e-06 -7.63588396e-05
  1071. 6.83896951e-06 5.94626617e-05
  1072. 4.44066500e-05 -7.57435628e-05
  1073. 4.68854014e-05 5.85810194e-05
  1074. 8.31459038e-05 -7.36773800e-05
  1075. 5.86572678e-05 6.90863453e-05
  1076. 6.71707312e-05 -4.34404174e-05
  1077. -4.70954110e-05 1.06472689e-04
  1078. 5.26100594e-05 -5.75700615e-05
  1079. 4.23516474e-20 -1.02932063e-04
  1080. -9.64775973e-06 4.38313100e-06
  1081. 2.69525535e-05 2.28601002e-05
  1082. -1.30611461e-05 3.83028710e-05
  1083. 6.52762765e-06 3.89005727e-05
  1084. -1.01584801e-05 2.87102994e-05
  1085. 4.50737076e-07 2.54050647e-05
  1086. -7.09463029e-06 1.19699453e-05
  1087. -2.64484157e-07 9.18952082e-06
  1088. -5.25754285e-06 -2.00597583e-06
  1089. 2.17068464e-06 -2.14389888e-06
  1090. 3.64905503e-07 5.02568639e-07
  1091. -2.74711033e-06 2.15261457e-06
  1092. -8.87517501e-07 -1.69406589e-21
  1093. -4.59809917e-06 -8.18962860e-07
  1094. -5.11295730e-06 9.70646511e-07
  1095. -2.90035814e-06 -1.84498242e-06
  1096. -3.49428137e-06 1.50158417e-06
  1097. -4.96202858e-07 -2.64205050e-06
  1098. -1.27239184e-06 2.06032837e-06
  1099. 1.34933043e-06 -2.88013325e-06
  1100. 1.45501735e-06 1.09374639e-06
  1101. 2.45694127e-06 -1.35883863e-06
  1102. -7.05400609e-08 3.53459041e-06
  1103. -7.72052090e-07 -2.13607336e-06
  1104. -2.35005427e-06 -2.77687695e-06
  1105. 0.00000000e+00 -7.44587737e-07
  1106. 5.14428757e-06 4.13887756e-06
  1107. -8.86188545e-09 5.90142645e-06
  1108. 6.48981222e-06 1.89252351e-05
  1109. 1.82872816e-06 2.26803531e-05
  1110. 4.03643116e-06 3.35697114e-05
  1111. 3.53284213e-06 3.78992554e-05
  1112. -9.55049018e-06 2.40851950e-05
  1113. -1.84853945e-06 1.92605366e-05
  1114. -2.66475017e-05 -3.77184115e-05
  1115. 1.46427165e-05 -3.46067754e-05
  1116. -8.25814197e-07 -3.54417680e-05
  1117. 2.20321635e-05 -2.20321635e-05
  1118. -3.91433059e-05 -3.91433059e-05
  1119. -3.41588361e-07 3.41588361e-07
  1120. -2.88520937e-07 -2.88520937e-07
  1121. -1.99842634e-05 1.18927826e-04
  1122. -2.05516644e-05 -2.80901022e-05
  1123. -1.38869871e-06 -3.37923484e-05
  1124. 2.65934068e-05 -3.43250722e-05
  1125. 2.89267773e-05 -5.67381358e-06
  1126. -5.81289496e-05 9.14158445e-05
  1127. 8.35754836e-05 -3.04175387e-06
  1128. 2.77827949e-05 2.25117092e-05
  1129. -7.26170492e-06 3.01798718e-05
  1130. -1.32877967e-05 1.99041951e-05
  1131. -1.09947578e-05 8.82604309e-06
  1132. -9.13523479e-07 1.00211410e-05
  1133. -7.85920565e-06 2.64848313e-06
  1134. -7.14832322e-06 -1.74866977e-06
  1135. -3.28082933e-06 -2.28093268e-06
  1136. 5.00691840e-07 -1.63961147e-06
  1137. 6.14385442e-07 -4.35891224e-07
  1138. 1.82804490e-06 4.40408667e-06
  1139. 5.50984350e-06 3.83181487e-06
  1140. 1.29619057e-05 1.62583310e-05
  1141. 1.17303180e-05 2.27251712e-05
  1142. -1.20352915e-05 1.69786872e-05
  1143. -5.69152326e-05 -1.59625270e-05
  1144. -1.92891912e-06 -1.22655047e-05
  1145. 3.06795046e-05 5.43309616e-05
  1146. -3.52772877e-05 2.43727500e-05
  1147. 1.19751930e-05 -3.45151493e-05
  1148. 8.04207957e-06 4.24354403e-05
  1149. -4.81588950e-06 -3.05936084e-07
  1150. 1.13236383e-05 -4.60491538e-05
  1151. -5.20807271e-06 -3.20949694e-05
  1152. 5.29012425e-07 -1.06218122e-05
  1153. 1.69039668e-05 -4.92731524e-05
  1154. -5.94713629e-06 -3.98083102e-05
  1155. 3.31748492e-06 -5.47541094e-06
  1156. 1.31736269e-05 -2.49757886e-05
  1157. -1.22054389e-05 -2.08718975e-05
  1158. -1.09548978e-06 2.78737007e-05
  1159. -3.62652863e-05 9.29583621e-05
  1160. 5.09524361e-05 4.76012538e-05
  1161. 2.56691101e-06 3.32859418e-05
  1162. 8.66356640e-06 2.52750542e-05
  1163. 2.05269262e-05 1.30305825e-05
  1164. -8.75566820e-06 8.14637860e-06
  1165. 8.60135060e-06 8.33508602e-06
  1166. -4.75866500e-06 9.84261806e-06
  1167. -1.72260716e-05 7.97141911e-06
  1168. -9.65949584e-06 3.13171768e-06
  1169. -9.89848013e-06 9.67002779e-06
  1170. -1.44679798e-05 6.12103577e-06
  1171. -1.41812234e-05 2.99262933e-06
  1172. -6.75500314e-06 8.75288606e-06
  1173. -3.10293944e-06 9.13979329e-06
  1174. -9.06121750e-06 9.57595944e-07
  1175. -4.48417495e-06 4.68286908e-06
  1176. -7.59793375e-06 -7.93368315e-07
  1177. -7.15464284e-06 -2.52143263e-06
  1178. -4.73322507e-06 -3.37042002e-06
  1179. -8.94534878e-06 -4.77439926e-06
  1180. -3.81678774e-06 -2.96759026e-06
  1181. -7.93887011e-07 -3.84966552e-06
  1182. -4.20693050e-06 -5.73914122e-06
  1183. 2.26246470e-07 -2.10745861e-06
  1184. 2.51734696e-06 -2.09846371e-06
  1185. 8.55491010e-07 -4.02876549e-06
  1186. 3.90859668e-06 -1.57198122e-06
  1187. 3.36266226e-06 2.34320919e-06
  1188. 5.20379399e-06 6.28713224e-06
  1189. 6.86487192e-06 -1.32470643e-06
  1190. 1.11109784e-05 4.50934886e-06
  1191. 9.95924347e-06 1.27099179e-06
  1192. 9.85631868e-06 2.98706118e-06
  1193. 1.13956776e-05 -3.97901459e-07
  1194. 8.30000226e-06 -6.50625509e-07
  1195. 2.08917004e-06 -4.40429585e-06
  1196. 3.75932655e-06 -8.45527939e-06
  1197. -1.29675445e-05 -1.65073072e-06
  1198. -2.93101184e-05 1.00489879e-05
  1199. -1.38533069e-05 2.80306131e-06
  1200. -2.76079372e-05 4.10237226e-05
  1201. 1.42634453e-05 5.49775132e-06
  1202. -3.07917180e-05 -3.03362708e-06
  1203. 8.87841088e-06 -2.63283637e-05
  1204. 2.77633308e-06 -7.63998469e-06
  1205. 2.27749570e-06 -2.68707008e-05
  1206. 6.54792211e-06 -2.82095098e-05
  1207. -9.75219245e-06 -3.14423596e-05
  1208. -5.86807710e-06 -3.13900637e-05
  1209. -9.16016518e-07 -1.01615888e-05
  1210. -1.56248243e-05 -2.29270336e-05
  1211. -1.30529143e-05 -5.15961619e-06
  1212. -1.60802083e-05 4.87129228e-06
  1213. 5.64107768e-06 -1.67902613e-06
  1214. -1.44487685e-05 -5.33707635e-06
  1215. -4.73408122e-08 -7.91388084e-06
  1216. -6.86683006e-06 -3.15841544e-06
  1217. -1.68341048e-05 -3.76142361e-06
  1218. -8.70975055e-06 -8.07305787e-06
  1219. -1.12844382e-05 -1.04483013e-06
  1220. -5.16253476e-06 2.51719871e-06
  1221. -7.16295426e-06 -6.98459826e-06
  1222. -4.88643036e-06 -5.12424549e-06
  1223. -4.81791130e-06 -5.92037986e-06
  1224. -8.57807436e-07 -9.04576518e-06
  1225. -8.28939483e-06 -1.17111258e-05
  1226. 2.15420800e-06 -5.99863324e-06
  1227. 4.38298821e-06 -8.12480903e-06
  1228. 2.22296444e-06 -9.58833152e-06
  1229. 8.20544392e-06 -5.79533116e-06
  1230. 7.02594389e-06 -9.06071534e-07
  1231. 5.34566971e-06 -6.98942040e-06
  1232. 5.68918904e-06 -5.46365482e-06
  1233. 5.98716360e-06 -1.32552132e-05
  1234. -3.01576779e-06 -1.22377260e-05
  1235. 9.90005174e-06 6.81864663e-07
  1236. 9.06059358e-06 -7.92634910e-06
  1237. 8.31598027e-06 -1.13089600e-05
  1238. -6.55182248e-06 -2.15978725e-05
  1239. 2.53922917e-06 -3.19855644e-05
  1240. -5.21005177e-06 -2.10453145e-05
  1241. 5.67616496e-07 -2.10529324e-05
  1242. -9.79485412e-06 -1.49468724e-05
  1243. -7.63332173e-06 -2.20534730e-05
  1244. -1.09896200e-05 -1.29924620e-05
  1245. -1.33590447e-06 -2.11953284e-05
  1246. -9.47830358e-06 -1.49462257e-05
  1247. 5.83996034e-08 -6.43018484e-06
  1248. -3.00159968e-07 -1.44335309e-05
  1249. -2.89066293e-06 -1.35172340e-05
  1250. 3.12827115e-06 -1.51205286e-05
  1251. -3.29785308e-07 -7.06718129e-06
  1252. -7.66938967e-07 -1.31186162e-05
  1253. 8.68354346e-06 -8.83737357e-06
  1254. 6.66540700e-06 -1.86400757e-05
  1255. 1.04691514e-06 -1.29328655e-05
  1256. 1784
  1257. FICHIER stokes_2d.lata.PRESSION.ELEM.mt.934.1738514257
  1258. 552
  1259. -5.99139631e-01
  1260. -5.47004104e-01
  1261. -6.03572369e-01
  1262. -5.45936227e-01
  1263. -6.04081035e-01
  1264. -5.45986116e-01
  1265. -6.04211092e-01
  1266. -5.46260536e-01
  1267. -6.04217529e-01
  1268. -5.47555268e-01
  1269. -6.01319075e-01
  1270. -5.06553292e-01
  1271. -3.39900225e-01
  1272. -2.40970954e-01
  1273. -1.22114480e-01
  1274. -3.87083553e-02
  1275. 5.56520894e-02
  1276. 1.17607288e-01
  1277. 1.84310347e-01
  1278. 2.24770337e-01
  1279. 2.64925420e-01
  1280. 2.86322117e-01
  1281. 3.04595917e-01
  1282. 3.11612040e-01
  1283. 3.17127168e-01
  1284. 3.16718400e-01
  1285. 3.17251772e-01
  1286. 3.16599399e-01
  1287. 3.17267448e-01
  1288. 3.16665292e-01
  1289. 3.17299545e-01
  1290. 3.16659003e-01
  1291. 3.17203104e-01
  1292. 3.16585124e-01
  1293. 3.17212015e-01
  1294. 3.15778971e-01
  1295. 3.07206094e-01
  1296. 2.96042174e-01
  1297. 2.72296578e-01
  1298. 2.45319530e-01
  1299. 1.97738245e-01
  1300. 1.50893539e-01
  1301. 7.56537244e-02
  1302. 7.62390252e-03
  1303. -9.57978889e-02
  1304. -1.83149263e-01
  1305. -3.08093071e-01
  1306. -3.99581045e-01
  1307. -3.90254974e-01
  1308. -3.17593992e-01
  1309. -4.12647337e-01
  1310. -3.42540294e-01
  1311. -4.12628174e-01
  1312. -3.42534781e-01
  1313. -4.12762582e-01
  1314. -3.44803751e-01
  1315. -4.17127371e-01
  1316. -3.78119677e-01
  1317. -2.42134988e-01
  1318. -1.97680518e-01
  1319. -6.30796924e-02
  1320. 1.15293330e-02
  1321. 9.92927924e-02
  1322. 1.53118581e-01
  1323. 2.13035196e-01
  1324. 2.46549264e-01
  1325. 2.80402362e-01
  1326. 3.01589400e-01
  1327. 3.01627278e-01
  1328. 3.12132001e-01
  1329. 3.11854422e-01
  1330. 3.07505339e-01
  1331. 3.11785698e-01
  1332. 3.07476819e-01
  1333. 3.11803430e-01
  1334. 3.07750225e-01
  1335. 3.12016606e-01
  1336. 3.10326844e-01
  1337. 2.96882957e-01
  1338. 2.90071636e-01
  1339. 2.56761104e-01
  1340. 2.27066785e-01
  1341. 1.70325235e-01
  1342. 1.21445313e-01
  1343. 3.55646722e-02
  1344. -6.20996132e-02
  1345. -1.79503396e-01
  1346. -3.21232021e-01
  1347. -1.62234545e-01
  1348. -1.26122549e-01
  1349. -2.12457821e-01
  1350. -1.52207091e-01
  1351. -2.12184712e-01
  1352. -1.41977564e-01
  1353. -2.03835756e-01
  1354. -1.42532632e-01
  1355. -2.29226965e-02
  1356. 3.93703878e-02
  1357. 1.28172770e-01
  1358. 1.72365561e-01
  1359. 2.31328890e-01
  1360. 2.68400699e-01
  1361. 2.66411543e-01
  1362. 2.92106956e-01
  1363. 2.80534387e-01
  1364. 2.91796803e-01
  1365. 2.78888315e-01
  1366. 2.90957093e-01
  1367. 2.79864967e-01
  1368. 2.43989676e-01
  1369. 2.13851511e-01
  1370. 1.49142459e-01
  1371. 8.05249661e-02
  1372. -4.72135209e-02
  1373. -1.10204769e-02
  1374. 1.39418729e-02
  1375. -4.34387960e-02
  1376. -3.41820419e-02
  1377. 2.99094040e-02
  1378. 1.07615151e-01
  1379. 1.61427543e-01
  1380. 2.19702378e-01
  1381. 2.17011452e-01
  1382. 2.47918114e-01
  1383. 2.45770648e-01
  1384. 2.17441782e-01
  1385. 1.55987501e-01
  1386. 8.34867135e-02
  1387. 1.45610064e-01
  1388. 1.15004972e-01
  1389. -5.85565925e-01
  1390. -5.21195948e-01
  1391. -4.80142355e-01
  1392. -5.43598771e-01
  1393. 3.16964328e-01
  1394. 3.16504240e-01
  1395. 3.15243512e-01
  1396. 3.16317350e-01
  1397. 552
  1398. FICHIER stokes_2d.lata.PRESSION.SOM.mt.934.1738514257
  1399. 344
  1400. -4.92454946e-01
  1401. -4.83753651e-01
  1402. -4.84730214e-01
  1403. -4.84833777e-01
  1404. -4.85233456e-01
  1405. -4.92019176e-01
  1406. -3.70071083e-01
  1407. -1.42778039e-01
  1408. 4.03232202e-02
  1409. 1.74942061e-01
  1410. 2.60796458e-01
  1411. 3.04286420e-01
  1412. 3.17045629e-01
  1413. 3.15913022e-01
  1414. 3.15955609e-01
  1415. 3.16015601e-01
  1416. 3.16020668e-01
  1417. 3.16470146e-01
  1418. 3.12065184e-01
  1419. 2.83040583e-01
  1420. 2.15123251e-01
  1421. 1.00312658e-01
  1422. -6.35624453e-02
  1423. -2.73971945e-01
  1424. -1.99893072e-01
  1425. -2.71364897e-01
  1426. -2.72370785e-01
  1427. -2.72020668e-01
  1428. -2.78283864e-01
  1429. -8.71665850e-02
  1430. 8.18117931e-02
  1431. 2.02789709e-01
  1432. 2.77574390e-01
  1433. 3.05167258e-01
  1434. 3.03198546e-01
  1435. 3.03337842e-01
  1436. 3.04341555e-01
  1437. 2.72032976e-01
  1438. 1.94748119e-01
  1439. 7.07991496e-02
  1440. -1.69180613e-02
  1441. -9.21960846e-02
  1442. -9.18424204e-02
  1443. -6.32373989e-02
  1444. 9.90597457e-02
  1445. 2.15775236e-01
  1446. 2.70933181e-01
  1447. 2.68570423e-01
  1448. 2.64290512e-01
  1449. 1.83113754e-01
  1450. 7.96519890e-02
  1451. 5.49625419e-02
  1452. 1.72167256e-01
  1453. 2.06415758e-01
  1454. -6.51090980e-01
  1455. -4.58565354e-01
  1456. 3.16408068e-01
  1457. 3.17018986e-01
  1458. -6.62435412e-01
  1459. -6.64106250e-01
  1460. -6.63447380e-01
  1461. -6.64172053e-01
  1462. -6.62856817e-01
  1463. -2.12909758e-01
  1464. -1.14709269e-02
  1465. 1.39689863e-01
  1466. 2.40506724e-01
  1467. 2.95839518e-01
  1468. 3.18033695e-01
  1469. 3.18123490e-01
  1470. 3.18277419e-01
  1471. 3.18174481e-01
  1472. 3.17903250e-01
  1473. 2.95516789e-01
  1474. 2.40550235e-01
  1475. 1.39963984e-01
  1476. -1.08641321e-02
  1477. -2.12445766e-01
  1478. -4.36998814e-01
  1479. -6.56308174e-01
  1480. 3.15448880e-01
  1481. 3.17729294e-01
  1482. -6.21712744e-01
  1483. -5.84099531e-01
  1484. 3.18894595e-01
  1485. 3.17592591e-01
  1486. 344
  1487. STOP
  1488.  
  1489.  
  1490.  

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