Télécharger nlin_decent1d.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : nlin_decent1d.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. 'OPTION' echo 0 ;
  5. *BEGINPROCEDUR gmass
  6. ************************************************************************
  7. * NOM : GMASS
  8. * DESCRIPTION : Une matrice de masse
  9. *
  10. *
  11. *
  12. * LANGAGE : GIBIANE-CAST3M
  13. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  14. * mél : gounand@semt2.smts.cea.fr
  15. **********************************************************************
  16. * VERSION : v2, 14/03/2006, mise à jour NLIN évolué
  17. * VERSION : v1, 13/05/2004, version initiale
  18. * HISTORIQUE : v1, 13/05/2004, création
  19. * HISTORIQUE :
  20. * HISTORIQUE :
  21. ************************************************************************
  22. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  23. * en cas de modification de ce sous-programme afin de faciliter
  24. * la maintenance !
  25. ************************************************************************
  26. *
  27. *
  28. 'DEBPROC' GMASS ;
  29. 'ARGUMENT' _mt*'MAILLAGE' ;
  30. 'ARGUMENT' _smt/'MAILLAGE' ;
  31. 'ARGUMENT' gdisc*'MOT ' ;
  32. 'ARGUMENT' nomt*'MOT ' ;
  33. 'ARGUMENT' disct*'MOT ' ;
  34. 'ARGUMENT' nomq*'MOT ' ;
  35. 'ARGUMENT' discq*'MOT ' ;
  36. 'ARGUMENT' coef/'FLOTTANT' ;
  37. 'SI' ('NON' ('EXISTE' coef)) ;
  38. 'ARGUMENT' coef2/'CHPOINT ' ;
  39. 'SI' ('NON' ('EXISTE' coef2)) ;
  40. 'ERREUR' 'Il faut donner un coef FLOTTANT ou CHPOINT' ;
  41. 'SINON' ;
  42. coef = coef2 ;
  43. 'ARGUMENT' discc*'MOT ' ;
  44. 'FINSI' ;
  45. 'SINON' ;
  46. discc = 'CSTE' ;
  47. 'FINSI' ;
  48. 'ARGUMENT' methgau/'MOT ' ;
  49. 'SI' ('NON' ('EXISTE' methgau)) ;
  50. methgau = 'GAU7' ;
  51. 'FINSI' ;
  52. 'ARGUMENT' chpop/'CHPOINT' ;
  53. 'ARGUMENT' chpod/'CHPOINT' ;
  54. *
  55. vdim = 'VALEUR' 'DIME' ;
  56. vmod = 'VALEUR' 'MODE' ;
  57. idim = 0 ;
  58. 'SI' ('ET' ('EGA' vdim 2) ('EGA' vmod 'PLANDEFO')) ;
  59. idim = 2 ;
  60. iaxi = FAUX ;
  61. 'FINSI' ;
  62. 'SI' ('ET' ('EGA' vdim 2) ('EGA' vmod 'AXIS')) ;
  63. idim = 2 ;
  64. iaxi = VRAI ;
  65. 'FINSI' ;
  66. 'SI' ('ET' ('EGA' vdim 3) ('EGA' vmod 'TRID')) ;
  67. idim = 3 ;
  68. iaxi = FAUX ;
  69. 'FINSI' ;
  70. 'SI' ('EGA' vdim 1) ;
  71. idim = 1 ;
  72. iaxi = FAUX ;
  73. 'FINSI' ;
  74. 'SI' ('EGA' idim 0) ;
  75. 'ERREUR' ('CHAINE' 'vmod=' vmod ' et vdim=' vdim ' non prevu') ;
  76. 'FINSI' ;
  77. 'SI' iaxi ;
  78. dprmt = '*' ('COORDONNEE' 1 _mt) ('*' PI 2.D0) ;
  79. 'FINSI' ;
  80. numop = 1 ;
  81. numder = idim ;
  82. mmt = 'MOTS' nomt ;
  83. mmq = 'MOTS' nomq ;
  84. numvar = 1 ;
  85. numdat = 1 ;
  86. numcof = 1 ;
  87. *
  88. A = ININLIN numop numvar numdat numcof numder ;
  89. A . 'VAR' . 1 . 'NOMDDL' = mmt ;
  90. A . 'VAR' . 1 . 'DISC' = disct ;
  91. 'SI' ('EXISTE' chpop) ;
  92. A . 'VAR' . 1 . 'VALEUR' = chpop ;
  93. 'FINSI' ;
  94. A . 'DAT' . 1 . 'NOMDDL' = 'MOTS' 'SCAL' ;
  95. A . 'DAT' . 1 . 'DISC' = discc ;
  96. A . 'DAT' . 1 . 'VALEUR' = coef ;
  97. A . 'COF' . 1 . 'COMPOR' = 'IDEN' ;
  98. A . 'COF' . 1 . 'LDAT' = 'LECT' 1 ;
  99. *
  100. A . 1 . 1 . 0 = 'LECT' 1 ;
  101. *
  102. 'SI' iaxi ;
  103. numdat = 1 ;
  104. numcof = 1 ;
  105. 'SINON' ;
  106. numdat = 0 ;
  107. numcof = 0 ;
  108. 'FINSI' ;
  109. B = ININLIN numop numvar numdat numcof numder ;
  110. B . 'VAR' . 1 . 'NOMDDL' = mmq ;
  111. B . 'VAR' . 1 . 'DISC' = discq ;
  112. 'SI' ('EXISTE' chpod) ;
  113. B . 'VAR' . 1 . 'VALEUR' = chpod ;
  114. 'FINSI' ;
  115. *
  116. 'SI' iaxi ;
  117. B . 'DAT' . 1 . 'NOMDDL' = 'MOTS' 'SCAL' ;
  118. B . 'DAT' . 1 . 'DISC' = gdisc ;
  119. B . 'DAT' . 1 . 'VALEUR' = dprmt ;
  120. B . 'COF' . 1 . 'COMPOR' = 'IDEN' ;
  121. B . 'COF' . 1 . 'LDAT' = 'LECT' 1 ;
  122. 'FINSI' ;
  123. 'SI' iaxi ;
  124. B . 1 . 1 . 0 = 'LECT' 1 ;
  125. 'SINON' ;
  126. B . 1 . 1 . 0 = 'LECT' ;
  127. 'FINSI' ;
  128. *
  129. 'SI' ('EXISTE' _smt) ;
  130. mgmass = 'NLIN' gdisc _mt _smt A B methgau ;
  131. 'SINON' ;
  132. mgmass = 'NLIN' gdisc _mt A B methgau ;
  133. 'FINSI' ;
  134. *
  135. 'RESPRO' mgmass ;
  136. 'FINPROC' ;
  137. *
  138. * End of procedure file GMASS
  139. *
  140. *ENDPROCEDUR gmass
  141. *BEGINPROCEDUR gugrad
  142. ************************************************************************
  143. * NOM : GUGRAD
  144. * DESCRIPTION : U . grad
  145. *
  146. *
  147. *
  148. * LANGAGE : GIBIANE-CAST3M
  149. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  150. * mél : gounand@semt2.smts.cea.fr
  151. **********************************************************************
  152. * VERSION : v1, 13/05/2004, version initiale
  153. * HISTORIQUE : v1, 13/05/2004, création
  154. * HISTORIQUE :
  155. * HISTORIQUE :
  156. ************************************************************************
  157. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  158. * en cas de modification de ce sous-programme afin de faciliter
  159. * la maintenance !
  160. ************************************************************************
  161. *
  162. *
  163. 'DEBPROC' GUGRAD ;
  164. 'ARGUMENT' _mt*'MAILLAGE' ;
  165. 'ARGUMENT' gdisc*'MOT ' ;
  166. 'ARGUMENT' nomp*'MOT ' ;
  167. 'ARGUMENT' discp*'MOT ' ;
  168. 'ARGUMENT' nomd*'MOT ' ;
  169. 'ARGUMENT' discd*'MOT ' ;
  170. 'ARGUMENT' vtot*'CHPOINT ' ;
  171. 'ARGUMENT' vcomp*'LISTMOTS' ;
  172. 'ARGUMENT' discv*'MOT ' ;
  173. 'ARGUMENT' coef/'FLOTTANT' ;
  174. 'SI' ('NON' ('EXISTE' coef)) ;
  175. 'ARGUMENT' coef2/'CHPOINT ' ;
  176. 'SI' ('NON' ('EXISTE' coef2)) ;
  177. 'ERREUR' 'Il faut donner un coef FLOTTANT ou CHPOINT' ;
  178. 'SINON' ;
  179. coef = coef2 ;
  180. 'ARGUMENT' discc*'MOT ' ;
  181. 'FINSI' ;
  182. 'SINON' ;
  183. discc = 'CSTE' ;
  184. 'FINSI' ;
  185. 'ARGUMENT' methgau/'MOT ' ;
  186. 'SI' ('NON' ('EXISTE' methgau)) ;
  187. methgau = 'GAU7' ;
  188. 'FINSI' ;
  189. 'ARGUMENT' chpop/'CHPOINT' ;
  190. 'ARGUMENT' chpod/'CHPOINT' ;
  191. *
  192. vdim = 'VALEUR' 'DIME' ;
  193. vmod = 'VALEUR' 'MODE' ;
  194. idim = 0 ;
  195. 'SI' ('ET' ('EGA' vdim 2) ('EGA' vmod 'PLANDEFO')) ;
  196. idim = 2 ;
  197. iaxi = FAUX ;
  198. * Passé en argument désormais
  199. * vcomp = 'MOTS' 'UX' 'UY' ;
  200. 'FINSI' ;
  201. 'SI' ('ET' ('EGA' vdim 2) ('EGA' vmod 'AXIS')) ;
  202. idim = 2 ;
  203. iaxi = VRAI ;
  204. * vcomp = 'MOTS' 'UR' 'UZ' ;
  205. 'FINSI' ;
  206. 'SI' ('ET' ('EGA' vdim 3) ('EGA' vmod 'TRID')) ;
  207. idim = 3 ;
  208. iaxi = FAUX ;
  209. * vcomp = 'MOTS' 'UX' 'UY' 'UZ' ;
  210. 'FINSI' ;
  211. 'SI' ('EGA' vdim 1) ;
  212. idim = 1 ;
  213. iaxi = FAUX ;
  214. 'FINSI' ;
  215. 'SI' ('EGA' idim 0) ;
  216. 'ERREUR' ('CHAINE' 'vmod=' vmod ' et vdim=' vdim ' non prevu') ;
  217. 'FINSI' ;
  218. 'SI' iaxi ;
  219. dprmt = '*' ('COORDONNEE' 1 _mt) ('*' PI 2.D0) ;
  220. 'FINSI' ;
  221. *
  222. numop = 1 ;
  223. numder = idim ;
  224. mmp = 'MOTS' nomp ;
  225. mmd = 'MOTS' nomd ;
  226. numvar = 1 ;
  227. numdat = idim ;
  228. numcof = idim ;
  229. *
  230. A = ININLIN numop numvar numdat numcof numder ;
  231. A . 'VAR' . 1 . 'NOMDDL' = mmp ;
  232. A . 'VAR' . 1 . 'DISC' = discp ;
  233. 'SI' ('EXISTE' chpop) ;
  234. A . 'VAR' . 1 . 'VALEUR' = chpop ;
  235. 'FINSI' ;
  236. 'REPETER' iidim idim ;
  237. nomco = 'EXTRAIRE' vcomp &iidim ;
  238. A . 'DAT' . &iidim . 'NOMDDL' = 'MOTS' nomco ;
  239. A . 'DAT' . &iidim . 'DISC' = discv ;
  240. * A . 'DAT' . &iidim . 'VALEUR' = 'EXCO' nomco 'NOID' vtot nomco ;
  241. A . 'DAT' . &iidim . 'VALEUR' = 'EXCO' nomco vtot nomco ;
  242. *
  243. A . 'COF' . &iidim . 'COMPOR' = 'IDEN' ;
  244. A . 'COF' . &iidim . 'LDAT' = 'LECT' &iidim ;
  245. 'FIN' iidim ;
  246. *
  247. 'REPETER' iidim idim ;
  248. A . 1 . 1 . &iidim = 'LECT' &iidim ;
  249. 'FIN' iidim ;
  250. *
  251. numvar = 1 ;
  252. 'SI' iaxi ;
  253. numdat = 2 ;
  254. numcof = 2 ;
  255. 'SINON' ;
  256. numdat = 1 ;
  257. numcof = 1 ;
  258. 'FINSI' ;
  259. *
  260. B = ININLIN numop numvar numdat numcof numder ;
  261. B . 'VAR' . 1 . 'NOMDDL' = mmd ;
  262. B . 'VAR' . 1 . 'DISC' = discd ;
  263. 'SI' ('EXISTE' chpod) ;
  264. B . 'VAR' . 1 . 'VALEUR' = chpod ;
  265. 'FINSI' ;
  266. *
  267. B . 'DAT' . 1 . 'NOMDDL' = 'MOTS' 'SCAL' ;
  268. B . 'DAT' . 1 . 'DISC' = discc ;
  269. B . 'DAT' . 1 . 'VALEUR' = coef ;
  270. B . 'COF' . 1 . 'COMPOR' = 'IDEN' ;
  271. B . 'COF' . 1 . 'LDAT' = 'LECT' 1 ;
  272. *
  273. 'SI' iaxi ;
  274. B . 'DAT' . 2 . 'NOMDDL' = 'MOTS' 'SCAL' ;
  275. B . 'DAT' . 2 . 'DISC' = gdisc ;
  276. B . 'DAT' . 2 . 'VALEUR' = dprmt ;
  277. B . 'COF' . 2 . 'COMPOR' = 'IDEN' ;
  278. B . 'COF' . 2 . 'LDAT' = 'LECT' 2 ;
  279. 'FINSI' ;
  280. *
  281. 'SI' iaxi ;
  282. B . 1 . 1 . 0 = 'LECT' 1 2 ;
  283. 'SINON' ;
  284. B . 1 . 1 . 0 = 'LECT' 1 ;
  285. 'FINSI' ;
  286. *
  287. mgugrad = 'NLIN' gdisc _mt A B methgau ;
  288. *
  289. 'RESPRO' mgugrad ;
  290. 'FINPROC' ;
  291. *
  292. * End of procedure file GUGRAD
  293. *
  294. *ENDPROCEDUR gugrad
  295. *BEGINPROCEDUR glapn
  296. ************************************************************************
  297. * NOM : GLAPN
  298. * DESCRIPTION : Un laplacien scalaire
  299. *
  300. *
  301. *
  302. * LANGAGE : GIBIANE-CAST3M
  303. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  304. * mél : gounand@semt2.smts.cea.fr
  305. **********************************************************************
  306. * VERSION : v2, 14/03/2006, mise à jour NLIN évolué
  307. * VERSION : v1, 13/05/2004, version initiale
  308. * HISTORIQUE : v1, 13/05/2004, création
  309. * HISTORIQUE :
  310. * HISTORIQUE :
  311. ************************************************************************
  312. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  313. * en cas de modification de ce sous-programme afin de faciliter
  314. * la maintenance !
  315. ************************************************************************
  316. *
  317. *
  318. 'DEBPROC' GLAPN ;
  319. 'ARGUMENT' _mt*'MAILLAGE' ;
  320. 'ARGUMENT' gdisc*'MOT ' ;
  321. 'ARGUMENT' nomt*'MOT ' ;
  322. 'ARGUMENT' disct*'MOT ' ;
  323. 'ARGUMENT' nomq*'MOT ' ;
  324. 'ARGUMENT' discq*'MOT ' ;
  325. 'ARGUMENT' coef/'FLOTTANT' ;
  326. 'SI' ('NON' ('EXISTE' coef)) ;
  327. 'ARGUMENT' coef2/'CHPOINT ' ;
  328. 'SI' ('NON' ('EXISTE' coef2)) ;
  329. 'ERREUR' 'Il faut donner un coef FLOTTANT ou CHPOINT' ;
  330. 'SINON' ;
  331. coef = coef2 ;
  332. 'ARGUMENT' discc*'MOT ' ;
  333. 'FINSI' ;
  334. 'SINON' ;
  335. discc = 'CSTE' ;
  336. 'FINSI' ;
  337. 'ARGUMENT' methgau/'MOT ' ;
  338. 'SI' ('NON' ('EXISTE' methgau)) ;
  339. methgau = 'GAU7' ;
  340. 'FINSI' ;
  341. 'ARGUMENT' chpop/'CHPOINT' ;
  342. 'ARGUMENT' chpod/'CHPOINT' ;
  343. *
  344. vdim = 'VALEUR' 'DIME' ;
  345. vmod = 'VALEUR' 'MODE' ;
  346. idim = 0 ;
  347. 'SI' ('ET' ('EGA' vdim 2) ('EGA' vmod 'PLANDEFO')) ;
  348. idim = 2 ;
  349. iaxi = FAUX ;
  350. 'FINSI' ;
  351. 'SI' ('ET' ('EGA' vdim 2) ('EGA' vmod 'AXIS')) ;
  352. idim = 2 ;
  353. iaxi = VRAI ;
  354. 'FINSI' ;
  355. 'SI' ('ET' ('EGA' vdim 3) ('EGA' vmod 'TRID')) ;
  356. idim = 3 ;
  357. iaxi = FAUX ;
  358. 'FINSI' ;
  359. 'SI' ('EGA' vdim 1) ;
  360. idim = 1 ;
  361. iaxi = FAUX ;
  362. 'FINSI' ;
  363. 'SI' ('EGA' idim 0) ;
  364. 'ERREUR' ('CHAINE' 'vmod=' vmod ' et vdim=' vdim ' non prevu') ;
  365. 'FINSI' ;
  366. 'SI' iaxi ;
  367. dprmt = '*' ('COORDONNEE' 1 _mt) ('*' PI 2.D0) ;
  368. 'FINSI' ;
  369. * Test bête...
  370. 'SI' ('EGA' ('TYPE' coef) 'CHPOINT ') ;
  371. mincoef = 'MINIMUM' coef ;
  372. 'SINON' ;
  373. mincoef = coef ;
  374. 'FINSI' ;
  375. 'SI' ('<' mincoef 0.D0) ;
  376. 'ERREUR' 'Le coef (une viscosité) doit etre positive' ;
  377. 'FINSI' ;
  378. *
  379. 'SI' iaxi ;
  380. lcoef = 'MOTS' 'NURR' 'NUZZ' ;
  381. 'SINON' ;
  382. 'SI' ('EGA' idim 2) ;
  383. lcoef = 'MOTS' 'NUXX' 'NUYY' ;
  384. 'SINON' ;
  385. lcoef = 'MOTS' 'NUXX' 'NUYY' 'NUZZ' ;
  386. 'FINSI' ;
  387. 'FINSI' ;
  388. *
  389. ltens = FAUX ;
  390. 'SI' ('EGA' ('TYPE' coef) 'CHPOINT') ;
  391. ncomp = 'DIME' ('EXTRAIRE' coef 'COMP') ;
  392. 'SI' ('EGA' ncomp idim) ;
  393. ltens = VRAI ;
  394. 'FINSI' ;
  395. 'FINSI' ;
  396. *
  397. tcoef = 'TABLE' ;
  398. 'SI' ltens ;
  399. 'REPETER' iidim idim ;
  400. tcoef . &iidim = 'EXCO' ('EXTRAIRE' lcoef &iidim) coef ;
  401. 'FIN' iidim ;
  402. 'SINON' ;
  403. 'REPETER' iidim idim ;
  404. tcoef . &iidim = coef ;
  405. 'FIN' iidim ;
  406. 'FINSI' ;
  407. *
  408. numop = idim ;
  409. numder = idim ;
  410. mmt = 'MOTS' nomt ;
  411. mmq = 'MOTS' nomq ;
  412. numvar = 1 ;
  413. numdat = idim ;
  414. numcof = idim ;
  415. *
  416. A = ININLIN numop numvar numdat numcof numder ;
  417. A . 'VAR' . 1 . 'NOMDDL' = mmt ;
  418. A . 'VAR' . 1 . 'DISC' = disct ;
  419. 'SI' ('EXISTE' chpop) ;
  420. A . 'VAR' . 1 . 'VALEUR' = chpop ;
  421. 'FINSI' ;
  422. 'REPETER' iidim idim ;
  423. A . 'DAT' . &iidim . 'NOMDDL' = 'MOTS' 'SCAL' ;
  424. A . 'DAT' . &iidim . 'DISC' = discc ;
  425. A . 'DAT' . &iidim . 'VALEUR' = tcoef . &iidim ;
  426. A . 'COF' . &iidim . 'COMPOR' = 'IDEN' ;
  427. A . 'COF' . &iidim . 'LDAT' = 'LECT' &iidim ;
  428. 'FIN' iidim ;
  429. *
  430. 'REPETER' iidim idim ;
  431. A . &iidim . 1 . &iidim = 'LECT' &iidim ;
  432. 'FIN' iidim ;
  433. *
  434. 'SI' iaxi ;
  435. numdat = 1 ;
  436. numcof = 1 ;
  437. 'SINON' ;
  438. numdat = 0 ;
  439. numcof = 0 ;
  440. 'FINSI' ;
  441. *
  442. B = ININLIN numop numvar numdat numcof numder ;
  443. B . 'VAR' . 1 . 'NOMDDL' = mmq ;
  444. B . 'VAR' . 1 . 'DISC' = discq ;
  445. 'SI' ('EXISTE' chpod) ;
  446. B . 'VAR' . 1 . 'VALEUR' = chpod ;
  447. 'FINSI' ;
  448. 'SI' iaxi ;
  449. B . 'DAT' . 1 . 'NOMDDL' = 'MOTS' 'SCAL' ;
  450. B . 'DAT' . 1 . 'DISC' = gdisc ;
  451. B . 'DAT' . 1 . 'VALEUR' = dprmt ;
  452. B . 'COF' . 1 . 'COMPOR' = 'IDEN' ;
  453. B . 'COF' . 1 . 'LDAT' = 'LECT' 1 ;
  454. 'FINSI' ;
  455. *
  456. 'REPETER' iidim idim ;
  457. 'SI' iaxi ;
  458. B . &iidim . 1 . &iidim = 'LECT' 1 ;
  459. 'SINON' ;
  460. B . &iidim . 1 . &iidim = 'LECT' ;
  461. 'FINSI' ;
  462. 'FIN' iidim ;
  463. *
  464. mglapn = 'NLIN' gdisc _mt A B methgau ;
  465. * Integration par parties
  466. mglapn = '*' mglapn -1.D0 ;
  467. *
  468. 'RESPRO' mglapn ;
  469. 'FINPROC' ;
  470. *
  471. * End of procedure file GLAPN
  472. *
  473. *ENDPROCEDUR glapn
  474. *BEGINPROCEDUR gdecent
  475. ************************************************************************
  476. * NOM : GDECENT
  477. * DESCRIPTION : Décentrement
  478. *
  479. *
  480. *
  481. * LANGAGE : GIBIANE-CAST3M
  482. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  483. * mél : gounand@semt2.smts.cea.fr
  484. **********************************************************************
  485. * VERSION : v1, 13/05/2004, version initiale
  486. * HISTORIQUE : v1, 13/05/2004, création
  487. * HISTORIQUE :
  488. * HISTORIQUE :
  489. ************************************************************************
  490. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  491. * en cas de modification de ce sous-programme afin de faciliter
  492. * la maintenance !
  493. ************************************************************************
  494. *
  495. *
  496. 'DEBPROC' GDECENT ;
  497. 'ARGUMENT' imeth*'ENTIER' ;
  498. 'ARGUMENT' _mt*'MAILLAGE' ;
  499. 'ARGUMENT' gdisc*'MOT ' ;
  500. 'ARGUMENT' nomp*'MOT ' ;
  501. 'ARGUMENT' discp*'MOT ' ;
  502. 'ARGUMENT' nomd*'MOT ' ;
  503. 'ARGUMENT' discd*'MOT ' ;
  504. 'ARGUMENT' vtot*'CHPOINT ' ;
  505. 'ARGUMENT' vcomp*'LISTMOTS' ;
  506. 'ARGUMENT' discv*'MOT ' ;
  507. 'ARGUMENT' rho*'FLOTTANT' ;
  508. 'ARGUMENT' nu*'FLOTTANT' ;
  509. 'ARGUMENT' Pec*'FLOTTANT' ;
  510. 'ARGUMENT' methgau/'MOT ' ;
  511. 'SI' ('NON' ('EXISTE' methgau)) ;
  512. methgau = 'GAU7' ;
  513. 'FINSI' ;
  514. 'ARGUMENT' chpop/'CHPOINT' ;
  515. 'ARGUMENT' chpod/'CHPOINT' ;
  516. *
  517. vdim = 'VALEUR' 'DIME' ;
  518. vmod = 'VALEUR' 'MODE' ;
  519. idim = 0 ;
  520. 'SI' ('ET' ('EGA' vdim 2) ('EGA' vmod 'PLANDEFO')) ;
  521. idim = 2 ;
  522. iaxi = FAUX ;
  523. * Passé en argument désormais
  524. * vcomp = 'MOTS' 'UX' 'UY' ;
  525. 'FINSI' ;
  526. 'SI' ('ET' ('EGA' vdim 2) ('EGA' vmod 'AXIS')) ;
  527. idim = 2 ;
  528. iaxi = VRAI ;
  529. * vcomp = 'MOTS' 'UR' 'UZ' ;
  530. 'FINSI' ;
  531. 'SI' ('ET' ('EGA' vdim 3) ('EGA' vmod 'TRID')) ;
  532. idim = 3 ;
  533. iaxi = FAUX ;
  534. * vcomp = 'MOTS' 'UX' 'UY' 'UZ' ;
  535. 'FINSI' ;
  536. 'SI' ('EGA' vdim 1) ;
  537. idim = 1 ;
  538. iaxi = FAUX ;
  539. 'FINSI' ;
  540. 'SI' ('EGA' idim 0) ;
  541. 'ERREUR' ('CHAINE' 'vmod=' vmod ' et vdim=' vdim ' non prevu') ;
  542. 'FINSI' ;
  543. 'SI' iaxi ;
  544. dprmt = '*' ('COORDONNEE' 1 _mt) ('*' PI 2.D0) ;
  545. 'FINSI' ;
  546. *
  547. mdumm = 'MOTS' 'DUMM' ;
  548. numop = 1 ;
  549. numder = idim ;
  550. mmp = 'MOTS' nomp ;
  551. mmd = 'MOTS' nomd ;
  552. numvar = 1 ;
  553. numdat = '+' idim 3 ;
  554. numcof = idim ;
  555. lisdat = 'LECT' 1 PAS 1 ('+' idim 3) ;
  556. *
  557. A = ININLIN numop numvar numdat numcof numder ;
  558. A . 'VAR' . 1 . 'NOMDDL' = mmp ;
  559. A . 'VAR' . 1 . 'DISC' = discp ;
  560. 'SI' ('EXISTE' chpop) ;
  561. A . 'VAR' . 1 . 'VALEUR' = chpop ;
  562. 'FINSI' ;
  563. idat = 0 ;
  564. idat = '+' idat 1 ;
  565. A . 'DAT' . idat . 'NOMDDL' = mdumm ;
  566. A . 'DAT' . idat . 'DISC' = 'CSTE' ;
  567. A . 'DAT' . idat . 'VALEUR' = rho ;
  568. idat = '+' idat 1 ;
  569. A . 'DAT' . idat . 'NOMDDL' = mdumm ;
  570. A . 'DAT' . idat . 'DISC' = 'CSTE' ;
  571. A . 'DAT' . idat . 'VALEUR' = nu ;
  572. 'REPETER' iidim idim ;
  573. nomco = 'EXTRAIRE' vcomp &iidim ;
  574. idat = '+' idat 1 ;
  575. A . 'DAT' . idat . 'NOMDDL' = 'MOTS' nomco ;
  576. A . 'DAT' . idat . 'DISC' = discv ;
  577. * A . 'DAT' . idat . 'VALEUR' = 'EXCO' nomco 'NOID' vtot nomco ;
  578. A . 'DAT' . idat . 'VALEUR' = 'EXCO' nomco vtot nomco ;
  579. 'FIN' iidim ;
  580. idat = '+' idat 1 ;
  581. A . 'DAT' . idat . 'NOMDDL' = mdumm ;
  582. A . 'DAT' . idat . 'DISC' = 'CSTE' ;
  583. A . 'DAT' . idat . 'VALEUR' = Pec ;
  584. *
  585. icof = 0 ;
  586. 'REPETER' iidim idim ;
  587. icof = '+' icof 1 ;
  588. A . 'COF' . icof . 'COMPOR' = 'CHAINE' 'MUSTAB' imeth &iidim ;
  589. A . 'COF' . icof . 'LDAT' = lisdat ;
  590. 'FIN' iidim ;
  591. *
  592. 'REPETER' iidim idim ;
  593. A . 1 . 1 . &iidim = 'LECT' &iidim ;
  594. 'FIN' iidim ;
  595. *
  596. numvar = 1 ;
  597. 'SI' iaxi ;
  598. numdat = '+' idim 4 ;
  599. numcof = '+' idim 1 ;
  600. 'SINON' ;
  601. numdat = '+' idim 3 ;
  602. numcof = idim ;
  603. 'FINSI' ;
  604. *
  605. B = ININLIN numop numvar numdat numcof numder ;
  606. B . 'VAR' . 1 . 'NOMDDL' = mmd ;
  607. B . 'VAR' . 1 . 'DISC' = discd ;
  608. 'SI' ('EXISTE' chpod) ;
  609. B . 'VAR' . 1 . 'VALEUR' = chpod ;
  610. 'FINSI' ;
  611. idat = 0 ;
  612. idat = '+' idat 1 ;
  613. B . 'DAT' . idat . 'NOMDDL' = mdumm ;
  614. B . 'DAT' . idat . 'DISC' = 'CSTE' ;
  615. B . 'DAT' . idat . 'VALEUR' = rho ;
  616. idat = '+' idat 1 ;
  617. B . 'DAT' . idat . 'NOMDDL' = mdumm ;
  618. B . 'DAT' . idat . 'DISC' = 'CSTE' ;
  619. B . 'DAT' . idat . 'VALEUR' = nu ;
  620. 'REPETER' iidim idim ;
  621. nomco = 'EXTRAIRE' vcomp &iidim ;
  622. idat = '+' idat 1 ;
  623. B . 'DAT' . idat . 'NOMDDL' = 'MOTS' nomco ;
  624. B . 'DAT' . idat . 'DISC' = discv ;
  625. * A . 'DAT' . idat . 'VALEUR' = 'EXCO' nomco 'NOID' vtot nomco ;
  626. B . 'DAT' . idat . 'VALEUR' = 'EXCO' nomco vtot nomco ;
  627. 'FIN' iidim ;
  628. idat = '+' idat 1 ;
  629. B . 'DAT' . idat . 'NOMDDL' = mdumm ;
  630. B . 'DAT' . idat . 'DISC' = 'CSTE' ;
  631. B . 'DAT' . idat . 'VALEUR' = Pec ;
  632. *
  633. icof = 0 ;
  634. 'REPETER' iidim idim ;
  635. icof = '+' icof 1 ;
  636. B . 'COF' . icof . 'COMPOR' = 'CHAINE' 'MUSTAB' imeth &iidim ;
  637. B . 'COF' . icof . 'LDAT' = lisdat ;
  638. 'FIN' iidim ;
  639. *
  640. 'SI' iaxi ;
  641. idat = '+' idat 1 ;
  642. B . 'DAT' . idat . 'NOMDDL' = 'MOTS' 'SCAL' ;
  643. B . 'DAT' . idat . 'DISC' = gdisc ;
  644. B . 'DAT' . idat . 'VALEUR' = dprmt ;
  645. icof = '+' icof 1 ;
  646. B . 'COF' . icof . 'COMPOR' = 'IDEN' ;
  647. B . 'COF' . icof . 'LDAT' = 'LECT' idat ;
  648. 'FINSI' ;
  649. *
  650. 'SI' iaxi ;
  651. 'REPETER' iidim idim ;
  652. B . 1 . 1 . &iidim = 'LECT' &iidim icof ;
  653. 'FIN' iidim ;
  654. 'SINON' ;
  655. 'REPETER' iidim idim ;
  656. B . 1 . 1 . &iidim = 'LECT' &iidim ;
  657. 'FIN' iidim ;
  658. 'FINSI' ;
  659. *
  660. mgdecent = 'NLIN' gdisc _mt A B methgau ;
  661. *
  662. 'RESPRO' mgdecent ;
  663. 'FINPROC' ;
  664. *
  665. * End of procedure file GDECENT
  666. *
  667. *ENDPROCEDUR gdecent
  668. *BEGINPROCEDUR gmustab
  669. ************************************************************************
  670. * NOM : GMUSTAB
  671. * DESCRIPTION : Décentrement
  672. *
  673. *
  674. *
  675. * LANGAGE : GIBIANE-CAST3M
  676. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  677. * mél : gounand@semt2.smts.cea.fr
  678. **********************************************************************
  679. * VERSION : v1, 13/05/2004, version initiale
  680. * HISTORIQUE : v1, 13/05/2004, création
  681. * HISTORIQUE :
  682. * HISTORIQUE :
  683. ************************************************************************
  684. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  685. * en cas de modification de ce sous-programme afin de faciliter
  686. * la maintenance !
  687. ************************************************************************
  688. *
  689. *
  690. 'DEBPROC' GMUSTAB ;
  691. 'ARGUMENT' imeth*'ENTIER' ;
  692. 'ARGUMENT' _mt*'MAILLAGE' ;
  693. 'ARGUMENT' gdisc*'MOT ' ;
  694. 'ARGUMENT' vtot*'CHPOINT ' ;
  695. 'ARGUMENT' vcomp*'LISTMOTS' ;
  696. 'ARGUMENT' discv*'MOT ' ;
  697. 'ARGUMENT' rho*'FLOTTANT' ;
  698. 'ARGUMENT' nu*'FLOTTANT' ;
  699. 'ARGUMENT' Pec*'FLOTTANT' ;
  700. 'ARGUMENT' methgau/'MOT ' ;
  701. 'SI' ('NON' ('EXISTE' methgau)) ;
  702. methgau = 'GAU7' ;
  703. 'FINSI' ;
  704. *
  705. vdim = 'VALEUR' 'DIME' ;
  706. *
  707. mdumm = 'MOTS' 'DUMM' ;
  708. numop = 1 ;
  709. numder = vdim ;
  710. numvar = 1 ;
  711. numdat = '+' vdim 3 ;
  712. numcof = 1 ;
  713. lisdat = 'LECT' 1 PAS 1 ('+' vdim 3) ;
  714. *
  715. A = ININLIN numop numvar numdat numcof numder ;
  716. A . 'VAR' . 1 . 'NOMDDL' = mdumm ;
  717. A . 'VAR' . 1 . 'DISC' = 'CSTE' ;
  718. A . 'VAR' . 1 . 'VALEUR' = 1.D0 ;
  719. idat = 0 ;
  720. idat = '+' idat 1 ;
  721. A . 'DAT' . idat . 'NOMDDL' = mdumm ;
  722. A . 'DAT' . idat . 'DISC' = 'CSTE' ;
  723. A . 'DAT' . idat . 'VALEUR' = rho ;
  724. idat = '+' idat 1 ;
  725. A . 'DAT' . idat . 'NOMDDL' = mdumm ;
  726. A . 'DAT' . idat . 'DISC' = 'CSTE' ;
  727. A . 'DAT' . idat . 'VALEUR' = nu ;
  728. 'REPETER' ivdim vdim ;
  729. nomco = 'EXTRAIRE' vcomp &ivdim ;
  730. idat = '+' idat 1 ;
  731. A . 'DAT' . idat . 'NOMDDL' = 'MOTS' nomco ;
  732. A . 'DAT' . idat . 'DISC' = discv ;
  733. * A . 'DAT' . idat . 'VALEUR' = 'EXCO' nomco 'NOID' vtot nomco ;
  734. A . 'DAT' . idat . 'VALEUR' = 'EXCO' nomco vtot nomco ;
  735. 'FIN' ivdim ;
  736. idat = '+' idat 1 ;
  737. A . 'DAT' . idat . 'NOMDDL' = mdumm ;
  738. A . 'DAT' . idat . 'DISC' = 'CSTE' ;
  739. A . 'DAT' . idat . 'VALEUR' = Pec ;
  740. *
  741. A . 'COF' . 1 . 'COMPOR' = 'CHAINE' 'MUSTAB' imeth '0' ;
  742. A . 'COF' . 1 . 'LDAT' = lisdat ;
  743. *
  744. A . 1 . 1 . 0 = 'LECT' 1 ;
  745. *
  746. numvar = 1 ;
  747. numdat = 0 ;
  748. numcof = 0 ;
  749. *
  750. B = ININLIN numop numvar numdat numcof numder ;
  751. B . 'VAR' . 1 . 'NOMDDL' = mdumm ;
  752. B . 'VAR' . 1 . 'DISC' = 'CSTE' ;
  753. B . 'VAR' . 1 . 'VALEUR' = 1.D0 ;
  754. *
  755. B . 1 . 1 . 0 = 'LECT' ;
  756. *
  757. mgmustab = 'NLIN' gdisc _mt A B 'ERF1' methgau ;
  758. *
  759. 'RESPRO' mgmustab ;
  760. 'FINPROC' ;
  761. *
  762. * End of procedure file GMUSTAB
  763. *
  764. *ENDPROCEDUR gmustab
  765. *BEGINPROCEDUR formar
  766. ************************************************************************
  767. * NOM : FORMAR
  768. * DESCRIPTION : formate un réel de facon courte
  769. * pratique pour les noms de
  770. * sauvegarde
  771. * Exemples :
  772. * 'MESSAGE' ('CHAINE' (formar 2.9e5 1)) ;
  773. * 2.9E5
  774. * 'MESSAGE' ('CHAINE' (formar -2.9e5 1)) ;
  775. * -2.9E5
  776. * 'MESSAGE' ('CHAINE' (formar 2.9e-5 1)) ;
  777. * 2.9E-5
  778. * 'MESSAGE' ('CHAINE' (formar -2.9e-5 1)) ;
  779. * -2.9E-5
  780. * 'MESSAGE' ('CHAINE' (formar 2.9 1)) ;
  781. * 2.9
  782. * 'MESSAGE' ('CHAINE' (formar -2.9 1)) ;
  783. * -2.9
  784. * 'MESSAGE' ('CHAINE' (formar 0 1)) ;
  785. * 0
  786. * 'MESSAGE' ('CHAINE' (formar 0 1)) ;
  787. * 0
  788. * 'MESSAGE' ('CHAINE' (formar 2.9e5 0)) ;
  789. * 3E5
  790. * 'MESSAGE' ('CHAINE' (formar -2.9e5 0)) ;
  791. * -3E5
  792. * 'MESSAGE' ('CHAINE' (formar 2.9e-5 0)) ;
  793. * 3E-5
  794. * 'MESSAGE' ('CHAINE' (formar -2.9e-5 0)) ;
  795. * -3E-5
  796. * 'MESSAGE' ('CHAINE' (formar 2.9 0)) ;
  797. * 3
  798. * 'MESSAGE' ('CHAINE' (formar -2.9 0)) ;
  799. * -3
  800. * 'MESSAGE' ('CHAINE' (formar 0 0)) ;
  801. * 0
  802. * 'MESSAGE' ('CHAINE' (formar 0 0)) ;
  803. * 0
  804. *
  805. *
  806. *
  807. * LANGAGE : GIBIANE-CAST3M
  808. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  809. * mél : gounand@semt2.smts.cea.fr
  810. **********************************************************************
  811. * VERSION : v1, 18/02/2003, version initiale
  812. * HISTORIQUE : v1, 18/02/2003, création
  813. * HISTORIQUE :
  814. * HISTORIQUE :
  815. ************************************************************************
  816. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  817. * en cas de modification de ce sous-programme afin de faciliter
  818. * la maintenance !
  819. ************************************************************************
  820. *
  821. *
  822. 'DEBPROC' FORMAR ;
  823. 'ARGUMENT' fl*'FLOTTANT' ;
  824. 'ARGUMENT' vir/'ENTIER ' ;
  825. 'SI' ('NON' ('EXISTE' vir)) ;
  826. vir = 1 ;
  827. 'SINON' ;
  828. 'SI' ('<' vir 0) ;
  829. 'ERREUR' 'fournir un entier positif' ;
  830. 'FINSI' ;
  831. 'FINSI' ;
  832. 'SI' ('<' ('ABS' fl) 10.D-100) ;
  833. chfl = 'CHAINE' '0' ;
  834. 'SINON' ;
  835. *! sans le 1.D-10, ca ne fonctionne pas
  836. *! qd on entre pile poil une puissance de 10
  837. lfl = LOG10 ('ABS' fl) ;
  838. * lfl = '+' (LOG10 ('ABS' fl)) 1.D-10 ;
  839. slfl = 'SIGNE' ('ENTIER' lfl) ;
  840. 'SI' ('EGA' slfl 1) ;
  841. elfl = 'ENTIER' lfl ;
  842. 'SINON' ;
  843. elfl = '-' ('ENTIER' lfl) 1 ;
  844. 'FINSI' ;
  845. man = '/' fl ('**' 10.D0 elfl) ;
  846. *
  847. * Une verrue pour des histoires de précision...
  848. *
  849. 'SI' ('EGA' man 10.D0 ('**' 10.D0 ('*' vir -1.D0))) ;
  850. man = '/' man 10.D0 ;
  851. elfl = '+' elfl 1 ;
  852. 'FINSI' ;
  853. *
  854. sman = 'SIGNE' man ;
  855. 'SI' ('EGA' sman 1) ;
  856. fman = 'CHAINE' '(F' ('+' vir 2) '.0' vir ')' ;
  857. 'SINON' ;
  858. fman = 'CHAINE' '(F' ('+' vir 3) '.0' vir ')' ;
  859. 'FINSI' ;
  860. 'SI' ('NEG' vir 0) ;
  861. 'SI' ('NEG' elfl 0) ;
  862. chfl = 'CHAINE' 'FORMAT' fman man 'E' elfl ;
  863. 'SINON' ;
  864. chfl = 'CHAINE' 'FORMAT' fman man ;
  865. 'FINSI' ;
  866. 'SINON' ;
  867. man2 = 'ENTIER' ('+' man ('*' 0.5D0 sman)) ;
  868. 'SI' ('NEG' elfl 0) ;
  869. chfl = 'CHAINE' man2 'E' elfl ;
  870. 'SINON' ;
  871. chfl = 'CHAINE' man2 ;
  872. 'FINSI' ;
  873. 'FINSI' ;
  874. 'FINSI' ;
  875. 'RESPRO' chfl ;
  876. *
  877. * End of procedure file FORMAR
  878. *
  879. 'FINPROC' ;
  880. *ENDPROCEDUR formar
  881. *BEGINPROCEDUR log10
  882. ************************************************************************
  883. * NOM : LOG10
  884. * DESCRIPTION : Log_10
  885. *
  886. *
  887. *
  888. * LANGAGE : GIBIANE-CAST3M
  889. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  890. * mél : gounand@semt2.smts.cea.fr
  891. **********************************************************************
  892. * VERSION : v1, 18/02/2003, version initiale
  893. * HISTORIQUE : v1, 18/02/2003, création
  894. * HISTORIQUE :
  895. * HISTORIQUE :
  896. ************************************************************************
  897. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  898. * en cas de modification de ce sous-programme afin de faciliter
  899. * la maintenance !
  900. ************************************************************************
  901. *
  902. *
  903. 'DEBPROC' LOG10 ;
  904. 'REPETER' bouc ;
  905. ok = FAUX ;
  906. 'ARGUMENT' fl/'FLOTTANT' ;
  907. 'ARGUMENT' lr/'LISTREEL' ;
  908. 'ARGUMENT' cp/'CHPOINT ' ;
  909. 'ARGUMENT' cm/'MCHAML ' ;
  910. 'SI' ('EXISTE' fl) ;
  911. ok = VRAI ;
  912. 'RESPRO' ('/' ('LOG' fl) ('LOG' 10.D0)) ;
  913. 'FINSI' ;
  914. 'SI' ('EXISTE' lr) ;
  915. ok = VRAI ;
  916. 'RESPRO' ('/' ('LOG' lr) ('LOG' 10.D0)) ;
  917. 'FINSI' ;
  918. 'SI' ('EXISTE' cp) ;
  919. ok = VRAI ;
  920. 'RESPRO' ('/' ('LOG' cp) ('LOG' 10.D0)) ;
  921. 'FINSI' ;
  922. 'SI' ('EXISTE' cm) ;
  923. ok = VRAI ;
  924. 'RESPRO' ('/' ('LOG' cm) ('LOG' 10.D0)) ;
  925. 'FINSI' ;
  926. 'SI' ('NON' ok) ;
  927. 'QUITTER' bouc ;
  928. 'FINSI' ;
  929. 'FIN' bouc ;
  930. *
  931. * End of procedure file LOG10
  932. *
  933. 'FINPROC' ;
  934. *ENDPROCEDUR log10
  935. *BEGINPROCEDUR dessevol
  936. ************************************************************************
  937. * NOM : DESSEVOL
  938. * DESCRIPTION : Dessine des évolutions : choisit automatiquement
  939. * les options, marqueurs, couleurs...
  940. *
  941. *
  942. * LANGAGE : GIBIANE-CAST3M
  943. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  944. * mél : gounand@semt2.smts.cea.fr
  945. **********************************************************************
  946. * VERSION : v1, 16/11/2004, version initiale
  947. * HISTORIQUE : v1, 16/11/2004, création
  948. * HISTORIQUE :
  949. * HISTORIQUE :
  950. ************************************************************************
  951. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  952. * en cas de modification de ce sous-programme afin de faciliter
  953. * la maintenance !
  954. ************************************************************************
  955. *
  956. *
  957. 'DEBPROC' DESSEVOL ;
  958. 'ARGUMENT' evtot*'EVOLUTION' ;
  959. 'ARGUMENT' tabt*'TABLE' ;
  960. 'ARGUMENT' tit*'MOT' ;
  961. 'ARGUMENT' tix*'MOT' ;
  962. 'ARGUMENT' tiy*'MOT' ;
  963. 'ARGUMENT' lnclk/'LOGIQUE' ;
  964. 'ARGUMENT' nb/'ENTIER' ;
  965. *
  966. 'SI' ('NON' ('EXISTE' lnclk)) ;
  967. lnclk = FAUX ;
  968. 'FINSI' ;
  969. *
  970. 'SI' ('NON' ('EXISTE' nb)) ;
  971. nb = 3 ;
  972. 'FINSI' ;
  973. *
  974. nt = 'DIME' tabt ;
  975. nev = 'DIME' evtot ;
  976. *
  977. * Attention, dans evtot, il y a une évolution avec des noms de points ?
  978. *
  979. *'SI' ('NEG' nev nt) ;
  980. * cherr = 'CHAINE' 'Evolution and title table : not same dim.' ;
  981. * 'ERREUR' cherr ;
  982. *'FINSI' ;
  983. *
  984. tev = 'TABLE' ;
  985. tev . 'TITRE' = tabt ;
  986. *
  987. toto = 'TABLE' ;
  988. *
  989. lcoul = 'MOTS' 'TURQ' 'VERT' 'JAUN' 'ROSE' 'ROUG' 'BLEU' ;
  990. lmarq = 'MOTS' 'TRIB' 'TRIA' 'LOSA' 'CARR' 'ETOI' 'PLUS' 'CROI' ;
  991. ltirr = 'MOTS' 'TIRR' 'TIRC' 'TIRL' 'TIRM' ;
  992. *
  993. 'SI' ('EGA' nb 0) ;
  994. ev2 = evtot ;
  995. 'SINON' ;
  996. icou = 0 ;
  997. 'REPETER' iev nev ;
  998. ii = &iev ;
  999. evi = 'EXTRAIRE' evtot 'COUR' ii ;
  1000. 'SI' ('NEG' ('TYPE' ('EXTRAIRE' evi 'ORDO')) 'LISTMOTS') ;
  1001. icou = '+' icou 1 ;
  1002. 'FINSI' ;
  1003. * ii2 = '/' ('+' ii 1) 2 ;
  1004. * ci = EXMOMOD lcoul ii2 ;
  1005. * ci = EXMOMOD lcoul ii ;
  1006. ci = EXMOMOD lcoul icou ;
  1007. APPEND toto 'EVOLUTION' ('COULEUR' evi ci) ;
  1008. 'FIN' iev ;
  1009. ev2 = toto . 'EVOLUTION' ;
  1010. 'FINSI' ;
  1011. *
  1012. 'REPETER' iev nev ;
  1013. ii = &iev ;
  1014. mi = EXMOMOD lmarq ii ;
  1015. ti = EXMOMOD ltirr ii ;
  1016. 'SI' ('>' nb 2) ;
  1017. tev . ii = 'CHAINE' 'MARQ ' mi ' ' ti ;
  1018. 'FINSI' ;
  1019. 'SI' ('>' nb 1) ;
  1020. tev . ii = 'CHAINE' 'MARQ ' mi ;
  1021. 'FINSI' ;
  1022. 'FIN' iev ;
  1023. *
  1024. 'SI' lnclk ;
  1025. 'DESSIN' ev2 'TITR' tit 'TITX' tix 'TITY' tiy 'LEGE' 'MIMA' tev
  1026. 'NCLK' ;
  1027. 'SINON' ;
  1028. 'DESSIN' ev2 'TITR' tit 'TITX' tix 'TITY' tiy 'LEGE' 'MIMA' tev ;
  1029. 'FINSI' ;
  1030. *
  1031. * End of procedure file DESSEVOL
  1032. *
  1033. 'FINPROC' ;
  1034. *ENDPROCEDUR dessevol
  1035. *BEGINPROCEDUR append
  1036. ************************************************************************
  1037. * NOM : APPEND
  1038. * DESCRIPTION : Rajoute :
  1039. * - un entier à un listentier
  1040. * - un réel à un listreel
  1041. * - un objet (liste, evolution, matrice ou chpoint)
  1042. * à un indice de table ('MOT' ou 'ENTIER')
  1043. * * si l'indice n'existe pas
  1044. * * 'ET' si l'indice existe
  1045. *
  1046. *
  1047. *
  1048. * LANGAGE : GIBIANE-CAST3M
  1049. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  1050. * mél : gounand@semt2.smts.cea.fr
  1051. **********************************************************************
  1052. * VERSION : v1, 10/09/2004, version initiale
  1053. * HISTORIQUE : v1, 10/09/2004, création
  1054. * HISTORIQUE :
  1055. * HISTORIQUE :
  1056. ************************************************************************
  1057. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  1058. * en cas de modification de ce sous-programme afin de faciliter
  1059. * la maintenance !
  1060. ************************************************************************
  1061. *
  1062. *
  1063. 'DEBPROC' APPEND ;
  1064. 'ARGUMENT' tab/'TABLE' ;
  1065. 'SI' ('EXISTE' tab) ;
  1066. 'ARGUMENT' itab/'MOT' ;
  1067. 'SI' ('NON' ('EXISTE' itab)) ;
  1068. 'ARGUMENT' itab*'ENTIER' ;
  1069. 'FINSI' ;
  1070. lobj = FAUX ;
  1071. 'SI' ('NON' lobj) ;
  1072. 'ARGUMENT' lr/'LISTREEL' ;
  1073. 'SI' ('EXISTE' lr) ;
  1074. obj = lr ; lobj = VRAI ;
  1075. 'FINSI' ;
  1076. 'FINSI' ;
  1077. 'SI' ('NON' lobj) ;
  1078. 'ARGUMENT' le/'LISTENTI' ;
  1079. 'SI' ('EXISTE' le) ;
  1080. obj = le ; lobj = VRAI ;
  1081. 'FINSI' ;
  1082. 'FINSI' ;
  1083. 'SI' ('NON' lobj) ;
  1084. 'ARGUMENT' lev/'EVOLUTION' ;
  1085. 'SI' ('EXISTE' lev) ;
  1086. obj = lev ; lobj = VRAI ;
  1087. 'FINSI' ;
  1088. 'FINSI' ;
  1089. 'SI' ('NON' lobj) ;
  1090. 'ARGUMENT' lm/'MAILLAGE' ;
  1091. 'SI' ('EXISTE' lm) ;
  1092. obj = lm ; lobj = VRAI ;
  1093. 'FINSI' ;
  1094. 'FINSI' ;
  1095. 'SI' ('NON' lobj) ;
  1096. 'ARGUMENT' chpo/'CHPOINT' ;
  1097. 'SI' ('EXISTE' chpo) ;
  1098. obj = chpo ; lobj = VRAI ;
  1099. 'FINSI' ;
  1100. 'FINSI' ;
  1101. 'SI' ('NON' lobj) ;
  1102. 'ARGUMENT' rig/'RIGIDITE' ;
  1103. 'SI' ('EXISTE' rig) ;
  1104. obj = rig ; lobj = VRAI ;
  1105. 'FINSI' ;
  1106. 'FINSI' ;
  1107. 'SI' ('NON' lobj) ;
  1108. 'ARGUMENT' matk/'MATRIK' ;
  1109. 'SI' ('EXISTE' matk) ;
  1110. obj = matk ; lobj = VRAI ;
  1111. 'FINSI' ;
  1112. 'FINSI' ;
  1113. 'SI' ('NON' lobj) ;
  1114. cherr = 'CHAINE'
  1115. 'Il faut fournir un objet liste, evolution, matrice ou chpoint.'
  1116. ;
  1117. 'ERREUR' cherr ;
  1118. 'FINSI' ;
  1119. 'SI' ('EXISTE' tab itab) ;
  1120. 'SI' ('EGA' ('TYPE' obj) 'CHPOINT') ;
  1121. tab . itab = '+' (tab . itab) obj ;
  1122. 'SINON' ;
  1123. tab . itab = 'ET' (tab . itab) obj ;
  1124. 'FINSI' ;
  1125. 'SINON' ;
  1126. tab . itab = obj ;
  1127. 'FINSI' ;
  1128. 'RESPRO' tab ;
  1129. 'FINSI' ;
  1130. 'ARGUMENT' lenti/'LISTENTI' ;
  1131. 'ARGUMENT' lreel/'LISTREEL' ;
  1132. 'SI' ('EXISTE' lenti) ;
  1133. 'ARGUMENT' enti*'ENTIER' ;
  1134. lenti = 'ET' lenti ('LECT' enti) ;
  1135. 'RESPRO' lenti ;
  1136. 'FINSI' ;
  1137. 'SI' ('EXISTE' lreel) ;
  1138. 'ARGUMENT' reel*'FLOTTANT' ;
  1139. lreel = 'ET' lreel ('PROG' reel) ;
  1140. 'RESPRO' lreel ;
  1141. 'FINSI' ;
  1142. *
  1143. * End of procedure file APPEND
  1144. *
  1145. 'FINPROC' ;
  1146. *ENDPROCEDUR append
  1147. *BEGINPROCEDUR exmomod
  1148. ************************************************************************
  1149. * NOM : EXMOMOD
  1150. * DESCRIPTION : Extraction d'un mot d'un listmots
  1151. *
  1152. *
  1153. *
  1154. * LANGAGE : GIBIANE-CAST3M
  1155. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  1156. * mél : gounand@semt2.smts.cea.fr
  1157. **********************************************************************
  1158. * VERSION : v1, 23/06/2003, version initiale
  1159. * HISTORIQUE : v1, 23/06/2003, création
  1160. * HISTORIQUE :
  1161. * HISTORIQUE :
  1162. ************************************************************************
  1163. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  1164. * en cas de modification de ce sous-programme afin de faciliter
  1165. * la maintenance !
  1166. ************************************************************************
  1167. *
  1168. *
  1169. 'DEBPROC' EXMOMOD ;
  1170. 'ARGUMENT' lm*'LISTMOTS' i*'ENTIER' ;
  1171. j = 'DIME' lm ;
  1172. k = '+' (MODULO ('-' i 1) j) 1 ;
  1173. lemot = 'EXTRAIRE' lm k ;
  1174. * Usage de l'opérateur text pour éviter que lemot
  1175. * ne soit interprété comme un opérateur
  1176. 'RESPRO' 'TEXTE' lemot ;
  1177. *
  1178. * End of procedure file EXMOMOD
  1179. *
  1180. 'FINPROC' ;
  1181. *ENDPROCEDUR exmomod
  1182. *BEGINPROCEDUR modulo
  1183. ************************************************************************
  1184. * NOM : MODULO
  1185. * DESCRIPTION : Calcule un entier modulo un autre...
  1186. *
  1187. *
  1188. *
  1189. * LANGAGE : GIBIANE-CAST3M
  1190. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  1191. * mél : gounand@semt2.smts.cea.fr
  1192. **********************************************************************
  1193. * VERSION : v1, 15/10/2002, version initiale
  1194. * HISTORIQUE : v1, 15/10/2002, création
  1195. * HISTORIQUE :
  1196. * HISTORIQUE :
  1197. ************************************************************************
  1198. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  1199. * en cas de modification de ce sous-programme afin de faciliter
  1200. * la maintenance !
  1201. ************************************************************************
  1202. *
  1203. *
  1204. 'DEBPROC' MODULO ;
  1205. 'ARGUMENT' i*'ENTIER' j*'ENTIER' ;
  1206. 'SI' ('EGA' j 0) ;
  1207. 'MESSAGE' 'Impossible de faire modulo 0' ;
  1208. 'ERREUR' 5 ;
  1209. 'SINON' ;
  1210. k=i '/' j ;
  1211. mod=i '-' ( k '*'j ) ;
  1212. 'RESPRO' mod ;
  1213. 'FINSI' ;
  1214. *
  1215. * End of procedure file MODULO
  1216. *
  1217. 'FINPROC' ;
  1218. *ENDPROCEDUR modulo
  1219. *
  1220. 'DEBPROC' SOLEX ;
  1221. 'ARGUMENT' nu*'FLOTTANT' ;
  1222. 'ARGUMENT' mesh*'MAILLAGE' ;
  1223. *
  1224. ct = '/' 1.D0 nu ;
  1225. deno = '-' 1. ('EXP' ct) ;
  1226. nume = 'EXP' ('*' ('COORDONNEE' 1 mesh) ct) ;
  1227. nume = '*' nume -1. ;
  1228. nume = '+' nume 1. ;
  1229. vfon = '*' nume ('/' 1. deno) ;
  1230. *
  1231. 'RESPRO' vfon ;
  1232. 'FINPROC' ;
  1233. *
  1234. 'DEBPROC' SOLAPP ;
  1235. 'ARGUMENT' _mt*'MAILLAGE' ;
  1236. 'ARGUMENT' p0*'POINT' ;
  1237. 'ARGUMENT' p1*'POINT' ;
  1238. 'ARGUMENT' disc*'MOT ' ;
  1239. 'ARGUMENT' nu*'FLOTTANT' ;
  1240. 'ARGUMENT' pec*'FLOTTANT' ;
  1241. 'ARGUMENT' imeth*'ENTIER' ;
  1242. *
  1243. lux = 'MOTS' 'UX' ; lval = 'PROG' 1. ;
  1244. cvit = 'MANUEL' 'CHPO' _mt lux lval ;
  1245. rho = 1.D0 ;
  1246. m1 = GUGRAD _mt disc 'T' disc 'Q' disc cvit lux disc 1. 'GAU7' ;
  1247. m2 = GLAPN _mt disc 'T' disc 'Q' disc nu 'GAU7' ;
  1248. m2 = '*' m2 -1.D0 ;
  1249. 'SI' ('EGA' imeth 0) ;
  1250. musmax = 0. ;
  1251. 'SINON' ;
  1252. m3 = GDECENT imeth _mt disc 'T' disc 'Q' disc cvit lux disc
  1253. rho nu pec 'GAU7' ;
  1254. musmax = 'MAXIMUM' (GMUSTAB imeth
  1255. _mt disc cvit lux disc rho nu pec 'GAU7') ;
  1256. 'FINSI' ;
  1257. mblo = 'BLOQUE' 'T' (p0 'ET' p1) ;
  1258. fblo = 'DEPIMPOSE' mblo ('+' ('MANUEL' 'CHPO' p0 1 'T' 0.D0)
  1259. ('MANUEL' 'CHPO' p1 1 'T' 1.D0)) ;
  1260. 'SI' ('EGA' imeth 0) ;
  1261. mtot = m1 'ET' m2 'ET' mblo ;
  1262. 'SINON' ;
  1263. mtot = m1 'ET' m2 'ET' m3 'ET' mblo ;
  1264. 'FINSI' ;
  1265. ftot = fblo ;
  1266. sola = 'RESO' mtot ftot ;
  1267. 'RESPRO' sola musmax ;
  1268. 'FINPROC' ;
  1269. *
  1270. ************************************************************************
  1271. * NOM : NLIN_DECENT1D
  1272. * DESCRIPTION : Cas-test du décentrement :
  1273. * couche limite 1D, on regarde les ordres de convergences
  1274. *
  1275. *
  1276. * LANGAGE : GIBIANE-CAST3M
  1277. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  1278. * mél : gounand@semt2.smts.cea.fr
  1279. **********************************************************************
  1280. * VERSION : v1, 31/08/2006, version initiale
  1281. * HISTORIQUE : v1, 31/08/2006, création
  1282. * HISTORIQUE :
  1283. * HISTORIQUE :
  1284. ************************************************************************
  1285. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  1286. * en cas de modification de ce sous-programme afin de faciliter
  1287. * la maintenance !
  1288. ************************************************************************
  1289. *
  1290. *
  1291. interact= FAUX ;
  1292. graph = FAUX ;
  1293. verbose = FAUX ;
  1294. 'SI' ('NON' interact) ;
  1295. 'OPTION' 'TRAC' 'PS' ;
  1296. 'SINON' ;
  1297. 'OPTION' 'TRAC' 'X' ;
  1298. * 'OPTION' 'TRAC' 'OPEN' ;
  1299. 'FINSI' ;
  1300. *
  1301. 'OPTION' 'DIME' 1 ;
  1302. lnx = 'LECT' 4 10 20 40 ;
  1303. dlnx = 'DIME' lnx ;
  1304. nxfin = '*' ('EXTRAIRE' lnx ('DIME' lnx)) 2 ;
  1305. nu = 0.05 ;
  1306. Pec = 2.D0 ;
  1307. *
  1308. moscal1 = mots 'SCAL';
  1309. *
  1310. idx = 0 ;
  1311. *
  1312. * Table des ordres espérés pour chaque méthode
  1313. * 'LINE' : éléments linéaires
  1314. * 'QUAD' : éléments quadratiques
  1315. * imeth = 0 : Pas de décentrement
  1316. * imeth = 1 : Décentrement full upwind
  1317. * imeth = 2 : Décentrement type SUPG avec une fonction de coupure
  1318. * "critical approximation"
  1319. * imeth = 3 : Décentrement type SUPG avec une fonction de coupure
  1320. * "doubly asymptotic"
  1321.  
  1322. tabordv = 'TABLE' ;
  1323. tabordv . 'LINE' = 'TABLE' ;
  1324. tabordv . 'LINE' . 0 = 2. ;
  1325. tabordv . 'LINE' . 1 = 1. ;
  1326. tabordv . 'LINE' . 2 = 2. ;
  1327. tabordv . 'LINE' . 3 = 2. ;
  1328. tabordv . 'QUAD' = 'TABLE' ;
  1329. tabordv . 'QUAD' . 0 = 3. ;
  1330. tabordv . 'QUAD' . 1 = 1. ;
  1331. tabordv . 'QUAD' . 2 = 3. ;
  1332. tabordv . 'QUAD' . 3 = 2. ;
  1333. *
  1334. tabordc = 'TABLE' ;
  1335. tabordc . 'LINE' = 'TABLE' ;
  1336. tabordc . 'QUAD' = 'TABLE' ;
  1337. tabev = 'TABLE' ;
  1338. tabt = 'TABLE' ;
  1339. 'REPETER' iiquad 2 ;
  1340. iquad = &iiquad ;
  1341. 'SI' ('EGA' iquad 1) ;
  1342. disc = 'LINE' ;
  1343. 'SINON' ;
  1344. disc = 'QUAD' ;
  1345. 'FINSI' ;
  1346. 'REPETER' iimeth 4 ;
  1347. imeth = '-' &iimeth 1 ;
  1348. 'SI' verbose ;
  1349. tit = 'CHAINE' ' disc = ' disc ' imeth=' imeth ;
  1350. 'MESSAGE' tit ;
  1351. 'FINSI' ;
  1352. lh = 'PROG' ;
  1353. lerr = 'PROG' ;
  1354. 'REPETER' iinx ('DIME' lnx) ;
  1355. inx = &iinx ;
  1356. nx = 'EXTRAIRE' lnx inx ;
  1357. 'SI' ('EGA' iquad 1) ;
  1358. 'OPTION' 'ELEM' 'SEG2' ;
  1359. nx2 = nx ;
  1360. nxfin2 = nxfin ;
  1361. 'SINON' ;
  1362. 'OPTION' 'ELEM' 'SEG3' ;
  1363. nx2 = '/' nx 2 ;
  1364. nxfin2 = '/' nxfin 2 ;
  1365. 'FINSI' ;
  1366. vh = '/' 1. ('FLOTTANT' nx2) ;
  1367. lh = 'ET' lh ('PROG' vh) ;
  1368. p0 = 'POIN' 0. ; p1 = 'POIN' 1. ;
  1369. mt = 'DROIT' nx2 p0 p1 ;
  1370. _mt ='CHANGER' mt 'QUAF' ;
  1371. mtfin = 'DROIT' nxfin2 p0 p1 ;
  1372. _mtfin ='CHANGER' mtfin 'QUAF' ;
  1373. mas = GMASS _mtfin disc 'SCAL' disc 'SCAL' disc 1. ;
  1374. sol = SOLEX nu mtfin ;
  1375. sola musmax = SOLAPP _mt p0 p1 disc nu Pec imeth ;
  1376. sola = 'EXCO' 'T' sola ;
  1377. sola2 = proi mtfin ('CHANGER' 'CHAM' sola mt) 1.D-9 ;
  1378. ev1 = 'EVOL' 'VERT' 'CHPO' sol 'SCAL' mtfin ;
  1379. ev2 = 'EVOL' 'ROUG' 'CHPO' sola2 'SCAL' mtfin ;
  1380. ev3 = 'EVOL' 'JAUN' 'CHPO' sola 'SCAL' mt ;
  1381. err = '-' sol sola2 ;
  1382. * verr = '**' ('XTMX' err mas) 0.5D0 ;
  1383. verr = '**' (XTY err (mas * err) moscal1 moscal1) 0.5D0 ;
  1384. lerr = 'ET' lerr ('PROG' verr) ;
  1385. 'SI' verbose ;
  1386. ch = 'CHAINE' 'h=' (formar vh 2)
  1387. ' => err=' (formar verr 2) ;
  1388. 'MESSAGE' ch ;
  1389. 'FINSI' ;
  1390. 'SI' (graph 'ET' verbose) ;
  1391. 'DESSIN' (ev1 'ET' ev2 'ET' ev3) 'TITR'
  1392. ('CHAINE' tit' ' ch) ;
  1393. 'FINSI' ;
  1394. 'FIN' iinx ;
  1395. * Calcul des ordres
  1396. lh lerr = LOG10 lh lerr ;
  1397. everr = 'EVOL' 'VERT' 'MANU' lh lerr ;
  1398. di = 'DIME' lh ;
  1399. lh2 = 'EXTRAIRE' lh ('LECT' ('-' di 1) di) ;
  1400. lerr2 = 'EXTRAIRE' lerr ('LECT' ('-' di 1) di) ;
  1401. everr2 = 'EVOL' 'MANU' lh2 lerr2 ;
  1402. cpl dummy = @POMI everr2 1 'IDEM' ;
  1403. 'OPTION' 'DIME' 1 ;
  1404. ord = cpl . 1 ;
  1405. idx = '+' idx 1 ;
  1406. tabordc . disc . imeth = ord ;
  1407. tabev . idx = everr ;
  1408. 'SI' verbose ;
  1409. tito = 'CHAINE' disc imeth
  1410. ';ord=' (formar ord 1) ;
  1411. 'MESSAGE' tito ;
  1412. 'FINSI' ;
  1413. tabt . idx = tito ;
  1414. 'FIN' iimeth ;
  1415. 'FIN' iiquad ;
  1416. tit = 'CHAINE' 'Log Err. (Log h)' ;
  1417. tix = 'CHAINE' 'Log h' ;
  1418. tiy = 'CHAINE' 'Log Err' ;
  1419. evt = @STBL tabev ;
  1420. 'SI' graph ;
  1421. dessevol evt tabt tit tix tiy FAUX ;
  1422. 'FINSI' ;
  1423. 'SAUTER' 2 'LIGNE' ;
  1424. * Tests des ordres
  1425. ok = VRAI ;
  1426. 'REPETER' iiquad 2 ;
  1427. iquad = &iiquad ;
  1428. 'SI' ('EGA' iquad 1) ;
  1429. disc = 'LINE' ;
  1430. 'SINON' ;
  1431. disc = 'QUAD' ;
  1432. 'FINSI' ;
  1433. 'REPETER' iimeth 4 ;
  1434. imeth = '-' &iimeth 1 ;
  1435. 'SI' ('EGA' imeth 0) ;
  1436. met = 'CHAINE' 'rien ' ; 'FINSI' ;
  1437. 'SI' ('EGA' imeth 1) ;
  1438. met = 'CHAINE' 'full upwind ' ; 'FINSI' ;
  1439. 'SI' ('EGA' imeth 2) ;
  1440. met = 'CHAINE' 'supg crit approx' ; 'FINSI' ;
  1441. 'SI' ('EGA' imeth 3) ;
  1442. met = 'CHAINE' 'supg doub asymp ' ; 'FINSI' ;
  1443. valvoul = tabordv . disc . imeth ;
  1444. valobt = tabordc . disc . imeth ;
  1445. test = ('EGA' valobt valvoul ('*' valvoul 0.2D0)) ;
  1446. ok = ok 'ET' test ;
  1447. mess1 = 'CHAINE' 'Eléments ' disc ' Décentrement ' met
  1448. ' ordre = ' valobt ;
  1449. 'MESSAGE' mess1 ;
  1450. 'SI' ('NON' test) ;
  1451. 'MESSAGE' ('CHAINE' '!!!! On aurait voulu avoir :' valvoul) ;
  1452. 'FINSI' ;
  1453. 'FIN' iimeth ;
  1454. 'FIN' iiquad ;
  1455. *
  1456. 'SI' ('NON' ok) ;
  1457. 'MESSAGE' ('CHAINE' 'Il y a eu des erreurs') ;
  1458. 'ERREUR' 5 ;
  1459. 'SINON' ;
  1460. 'MESSAGE' ('CHAINE' 'Tout sest bien passe !') ;
  1461. 'FINSI' ;
  1462. *
  1463. 'SI' interact ;
  1464. 'OPTION' 'ECHO' 1 ;
  1465. 'OPTION' 'DONN' 5 ;
  1466. 'FINSI' ;
  1467. *
  1468. * End of dgibi file NLIN_DECENT1D
  1469. *
  1470. 'FIN' ;
  1471.  
  1472.  
  1473.  
  1474.  
  1475.  
  1476.  
  1477.  
  1478.  
  1479.  
  1480.  

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