Télécharger Test.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : Fonction_Parallele.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5.  
  6. OPTI DIME 2 ELEM SEG2;
  7.  
  8. P1 = 0. 0. ;
  9. P2 = 1. 0. ;
  10. COMPLET = FAUX; 'COMM' 'Cas trop gros pour passer avec le "ulimit -m"';
  11. BCHPO = VRAI; 'COMM' 'CHPOINT' ;
  12. BLREE = VRAI; 'COMM' 'LISTREEL' ;
  13. BMCH1 = VRAI; 'COMM' 'MCHAML de REAL*8' ;
  14. BMCH2 = VRAI; 'COMM' 'MCHAML de POINTEURS';
  15. BEVO1 = VRAI; 'COMM' 'EVOLUTIO' ;
  16.  
  17.  
  18. SI BCHPO ;
  19.  
  20. M1 = 'MANU' 'POI1' P1;
  21.  
  22. CHP4 = 'MANU' 'CHPO' M1 4
  23. 'TREC' 0.5 'TRIC' 1. 'TRAC' 9.5 'TROC' 2.1 'NATURE' 'DIFFUS';
  24. CHP6 = 'MANU' 'CHPO' M1 4
  25. 'TREC' 0.5 'TRIC' 1. 'TRAC' .21 'TROC' .67 'NATURE' 'DIFFUS';
  26. CHP7 = 'MANU' 'CHPO' M1 4
  27. 'TREC' 1.0 'TRIC' 1.21 'TRAC' 2.67 'TROC' 4.85 'NATURE' 'DIFFUS';
  28. CHP8 = 'MANU' 'CHPO' M1 4
  29. 'TREC' -.98 'TRIC' -.761 'TRAC' 0. 'TROC' .47 'NATURE' 'DIFFUS';
  30.  
  31. ****************
  32. * OPERATION '**'
  33. ****************
  34. CPTEST =CHP4 ** 0 ;
  35. CPTEST =CHP4 ** 1 ;
  36. CPTEST =CHP4 ** 2 ;
  37. CPTEST =CHP4 ** 2. ;
  38. CPTEST =CHP4 ** 0.5 ;
  39. CPTEST =CHP4 ** 100.5;
  40. CPTEST =(-1*CHP4) ** (1.D0/9.D0);
  41. CPTEST =CHP4 ** 2.1 ;
  42.  
  43.  
  44. CPTEST =2 ** CHP4;
  45. CPTEST =2. ** CHP4;
  46. CPTEST =2.1 ** CHP4;
  47. CPTEST =0. ** CHP4;
  48.  
  49. ***************
  50. * OPERATION '*'
  51. ***************
  52. CPTEST =CHP4 * 0 ;
  53. CPTEST =CHP4 * 2 ;
  54. CPTEST =CHP4 * 0. ;
  55. CPTEST =CHP4 * 2.1 ;
  56.  
  57. ***************
  58. * OPERATION '+'
  59. ***************
  60. CPTEST =CHP4 + 0 ;
  61. CPTEST =CHP4 + 1 ;
  62. CPTEST =CHP4 + 0. ;
  63. CPTEST =CHP4 + 1. ;
  64.  
  65. ***************
  66. * OPERATION '-'
  67. ***************
  68. CPTEST =CHP4 - 0 ;
  69. CPTEST =CHP4 - 1 ;
  70. CPTEST =CHP4 - 0. ;
  71. CPTEST =CHP4 - 1. ;
  72.  
  73. CPTEST =0 - CHP4 ;
  74. CPTEST =1 - CHP4 ;
  75. CPTEST =0.- CHP4 ;
  76. CPTEST =1.- CHP4 ;
  77.  
  78. ***************
  79. * OPERATION '/'
  80. ***************
  81. CPTEST =CHP4 / 2 ;
  82. CPTEST =CHP4 / 0.5 ;
  83.  
  84. CPTEST =0 / CHP4 ;
  85. CPTEST =0./ CHP4 ;
  86. CPTEST =1 / CHP4 ;
  87. CPTEST =1./ CHP4 ;
  88.  
  89. ***********
  90. * FONCTIONS
  91. ***********
  92. CPTEST = COS CHP4 ;
  93. CPTEST = SIN CHP4 ;
  94. CPTEST = TAN CHP4 ;
  95. CPTEST = ACOS CHP6 ;
  96. CPTEST = ASIN CHP6 ;
  97. CPTEST = ATG CHP4 ;
  98. CPTEST = EXP CHP4 ;
  99. CPTEST = LOG CHP4 ;
  100. CPTEST = ABS CHP4 ;
  101. CPTEST = COSH CHP4 ;
  102. CPTEST = SINH CHP4 ;
  103. CPTEST = TANH CHP4 ;
  104. CPTEST = ERF CHP4 ;
  105. CPTEST = ERFC CHP4 ;
  106. CPTEST = ACOH CHP7 ;
  107. CPTEST = ASIH CHP4 ;
  108. CPTEST = ATAH CHP8 ;
  109.  
  110. * Test parallelisme
  111. SI COMPLET;
  112. NBSEG=100000000;
  113. L2 = 'DROI' (NBSEG - 1) P1 P2 ;
  114. CHP2 = 'MANU' 'CHPO' L2 2 'TROK' .25 'TRUC' .125 'NATURE' 'DIFFUS' ;
  115. REPE SURI (10);
  116. TOTO = CHP2 * 2.1354 ;
  117. 'DETR' TOTO;
  118. FIN SURI;
  119. TEMP 'IMPR' 'MAXI' 'HORL';
  120. FINS;
  121. FIN;
  122. FINS;
  123.  
  124. SI BLREE ;
  125. LREE4 = 'PROG' 0.5 1. 9.5 2.1 ;
  126. LREE6 = 'PROG' 0.5 1. 0.21 0.67 ;
  127. LREE7 = 'PROG' 1. 1.21 2.67 4.85 ;
  128. LREE8 = 'PROG' -0.98 -0.761 0. 0.47 ;
  129.  
  130. ****************
  131. * OPERATION '**'
  132. ****************
  133. LRTEST =LREE4 ** 0 ;
  134. LRTEST =LREE4 ** 1 ;
  135. LRTEST =LREE4 ** 2 ;
  136. LRTEST =LREE4 ** 2. ;
  137. LRTEST =LREE4 ** 0.5 ;
  138. LRTEST =LREE4 ** 100.5;
  139. LRTEST =(-1*LREE4) ** (1.D0/9.D0);
  140. LRTEST =LREE4 ** 2.1 ;
  141.  
  142.  
  143. LRTEST =2 ** LREE4;
  144. LRTEST =2. ** LREE4;
  145. LRTEST =2.1 ** LREE4;
  146. LRTEST =0. ** LREE4;
  147.  
  148. ***************
  149. * OPERATION '*'
  150. ***************
  151. LRTEST =LREE4 * 0 ;
  152. LRTEST =LREE4 * 2 ;
  153. LRTEST =LREE4 * 0. ;
  154. LRTEST =LREE4 * 2.1 ;
  155.  
  156. ***************
  157. * OPERATION '+'
  158. ***************
  159. LRTEST =LREE4 + 0 ;
  160. LRTEST =LREE4 + 1 ;
  161. LRTEST =LREE4 + 0. ;
  162. LRTEST =LREE4 + 1. ;
  163.  
  164. ***************
  165. * OPERATION '-'
  166. ***************
  167. LRTEST =LREE4 - 0 ;
  168. LRTEST =LREE4 - 1 ;
  169. LRTEST =LREE4 - 0. ;
  170. LRTEST =LREE4 - 1. ;
  171.  
  172. LRTEST =0 - LREE4 ;
  173. LRTEST =1 - LREE4 ;
  174. LRTEST =0.- LREE4 ;
  175. LRTEST =1.- LREE4 ;
  176.  
  177. ***************
  178. * OPERATION '/'
  179. ***************
  180. LRTEST =LREE4 / 2 ;
  181. LRTEST =LREE4 / 0.5 ;
  182.  
  183. LRTEST =0 / LREE4 ;
  184. LRTEST =0./ LREE4 ;
  185. LRTEST =1 / LREE4 ;
  186. LRTEST =1./ LREE4 ;
  187.  
  188. ***********
  189. * FONCTIONS
  190. ***********
  191. LRTEST = COS LREE4 ;
  192. LRTEST = SIN LREE4 ;
  193. LRTEST = TAN LREE4 ;
  194. LRTEST = ACOS LREE6 ;
  195. LRTEST = ASIN LREE6 ;
  196. LRTEST = ATG LREE4 ;
  197. LRTEST = EXP LREE4 ;
  198. LRTEST = LOG LREE4 ;
  199. LRTEST = ABS LREE4 ;
  200. LRTEST = COSH LREE4 ;
  201. LRTEST = SINH LREE4 ;
  202. LRTEST = TANH LREE4 ;
  203. LRTEST = ERF LREE4 ;
  204. LRTEST = ERFC LREE4 ;
  205. LRTEST = ACOH LREE7 ;
  206. LRTEST = ASIH LREE4 ;
  207. LRTEST = ATAH LREE8 ;
  208.  
  209. * Test parallelisme
  210. SI COMPLET;
  211. NBVAL = 125000;
  212. LREE1 = 'PROG' 1. 'PAS' (1. / (NBVAL-1)) 2. ;
  213. REPE SURI (30*(32**2));
  214. TOTO = LREE1 * 2.1354 ;
  215. 'DETR' TOTO;
  216. FIN SURI;
  217. TEMP 'IMPR' 'MAXI' 'HORL';
  218. FINS;
  219. FINS;
  220.  
  221. SI BMCH1 ;
  222. NBSEG=2000000;
  223.  
  224. L1 = 'DROI' NBSEG P1 P2 ;
  225. L2 = 'DROI' (2*NBSEG) P1 P2 ;
  226. MOD1 = 'MODE' L1 'MECANIQUE' 'ELASTIQUE';
  227. MOD2 = 'MODE' L2 'MECANIQUE' 'ELASTIQUE';
  228.  
  229. COOR1 = 'COOR' 1 L1 ;
  230. COOR2 = 'COOR' 1 L2 ;
  231.  
  232. *----------------------------------------------------------------------*
  233. * FABRICATION DE MCHAML CONSTANT, VARIABLE ET CONSTANT PAR SOUS-ZONE
  234. *----------------------------------------------------------------------*
  235. * MCHAML CONSTANT PAR SOUS-ZONE
  236. CHAM1 = 'MANU' 'CHML' MOD1 'TREC' 1. 'STRESSES';
  237. CHAM2 = 'MANU' 'CHML' MOD2 'TROK' .25 'STRESSES';
  238.  
  239. * MCHAML VARIABLE
  240. CHAM3 = 'CHAN' 'COMP' ('CHAN' 'CHAM' COOR1 MOD1 'STRESSES') 'TREC';
  241. CHAM4 = 'CHAN' 'COMP' ('CHAN' 'CHAM' COOR2 MOD2 'STRESSES') 'TROK';
  242.  
  243. * MCHAML CONSTANT PAR ELEMENT
  244. CHAM5 = 'CHAN' 'COMP' ('CHAN' 'GRAVITE' CHAM3 MOD1) 'TREC';
  245. CHAM6 = 'CHAN' 'COMP' ('CHAN' 'GRAVITE' CHAM4 MOD2) 'TROK';
  246. CHAM5 = 'CHAN' 'STRESSES' CHAM5 MOD1;
  247. CHAM6 = 'CHAN' 'STRESSES' CHAM6 MOD2;
  248.  
  249. *----------------------------------------------------------------------*
  250. * OPERATION A 2 ARGUMENTS
  251. *----------------------------------------------------------------------*
  252. * 'LIST' 'RESU' (ATG CHAM1 (CHAM1 * 2.)) ; COMM 'CST CST' ;
  253. * 'LIST' 'RESU' (ATG CHAM1 CHAM5 ) ; COMM 'CST CST_EL';
  254. * 'LIST' 'RESU' (ATG CHAM5 CHAM1 ) ; COMM 'CST_EL CST' ;
  255. * 'LIST' 'RESU' (ATG CHAM1 CHAM3 ) ; COMM 'CST VARIAB';
  256. * 'LIST' 'RESU' (ATG CHAM3 CHAM1 ) ; COMM 'VARIAB CST' ;
  257. * 'LIST' 'RESU' (ATG CHAM5 CHAM3 ) ; COMM 'CST_EL VARIAB';
  258. * 'LIST' 'RESU' (ATG CHAM3 CHAM5 ) ; COMM 'VARIAB CST_EL';
  259.  
  260. REPE SURI 30;
  261. TOTO = CHAM4 ** 2.5 ;
  262. 'DETR' TOTO;
  263. FIN SURI;
  264. TEMP 'IMPR' 'MAXI' 'HORL';
  265.  
  266. * Cohabitation pthread / ASSISTANTS
  267. MAI1 = EXTR CHAM4 'MAIL';
  268. OPTI 'PARA' VRAI;
  269. MOD3 = PART 4 MOD2;
  270. CHAM7 = REDU CHAM4 MOD3;
  271.  
  272. * Test parallelisme
  273. SI COMPLET;
  274. REPE SURI 30;
  275. TOTO = CHAM7 ** 2.5 ;
  276. 'DETR' TOTO;
  277. FIN SURI;
  278. TEMP 'IMPR' 'MAXI' 'HORL';
  279. FINS;
  280. FINS;
  281.  
  282. SI BMCH2 ;
  283. NBSEG=1;
  284.  
  285. L1 = 'DROI' NBSEG P1 P2 ;
  286. L2 = 'DROI' (2*NBSEG) P1 P2 ;
  287. MOD1 = 'MODE' L1 'MECANIQUE' 'ELASTIQUE';
  288. MOD2 = 'MODE' L2 'MECANIQUE' 'ELASTIQUE';
  289.  
  290. COOR1 = 'COOR' 1 L1 ;
  291. COOR2 = 'COOR' 1 L2 ;
  292.  
  293. NBVAL = 10000000;
  294. LREE1 = 'PROG' 1. 'PAS' (1. / NBVAL) 2. ;
  295. EVOL1 = 'EVOL' 'MANU' LREE1 LREE1;
  296. CHAM1LR= 'MANU' 'CHML' MOD1 'TROK' LREE1 'STRESSES';
  297. CHAM1EV= 'MANU' 'CHML' MOD1 'TROK' EVOL1 'STRESSES';
  298.  
  299. LENT1 = 'LECT' 1 'PAS' 1 NBVAL ;
  300. EVOL2 = 'EVOL' 'MANU' LENT1 LENT1;
  301. CHAM1LE= 'MANU' 'CHML' MOD1 'TROK' LENT1 'STRESSES';
  302. CHAM2EV= 'MANU' 'CHML' MOD1 'TROK' EVOL2 'STRESSES';
  303. * LIST RESU CHAM1LR;
  304. * LIST RESU (CHAM1LR ** 2);
  305.  
  306. * Test parallelisme
  307. SI COMPLET;
  308. REPE SURI 50;
  309. TOTO = 'ASIH' CHAM1EV ;
  310. 'DETR' TOTO;
  311. FIN SURI;
  312. TEMP 'IMPR' 'MAXI' 'HORL';
  313. FINS;
  314. FINS;
  315.  
  316. SI BEVO1;
  317. LMOT1 = 'MOTS' 'TOTO' 'TITI' 'TATA' 'TRUC' ;
  318. LENT2 = 'LECT' 1 2 3 4 ;
  319. LREE3 = 'PROG' 0.5 1. 9.5 2.1 ;
  320. LREE4 = 'PROG' 0.5 1. 0.21 0.67 ;
  321. LREE5 = 'PROG' 1. 1.21 2.67 4.85 ;
  322. LREE6 = 'PROG' -0.98 -0.761 0. 0.47 ;
  323. EVO3 = 'EVOL' 'MANU' 'XX' LMOT1 'IY' LENT2;
  324. EVO4 = 'EVOL' 'MANU' 'XX' LMOT1 'IY' LREE3;
  325. EVO5 = 'EVOL' 'MANU' 'XX' LENT2 'IY' LMOT1;
  326. EVO6 = 'EVOL' 'MANU' 'XX' LMOT1 'IY' LREE4;
  327. EVO7 = 'EVOL' 'MANU' 'XX' LMOT1 'IY' LREE5;
  328. EVO8 = 'EVOL' 'MANU' 'XX' LMOT1 'IY' LREE6;
  329.  
  330. ****************
  331. * OPERATION '**'
  332. ****************
  333. EVTEST =EVO4 ** 0 ;
  334. EVTEST =EVO4 ** 1 ;
  335. EVTEST =EVO4 ** 2 ;
  336. EVTEST =EVO4 ** 2. ;
  337. EVTEST =EVO4 ** 0.5 ;
  338. EVTEST =EVO4 ** 100.5;
  339. EVTEST =(-1*EVO4) ** (1.D0/9.D0);
  340. EVTEST =EVO4 ** 2.1 ;
  341.  
  342. EVTEST =2 ** EVO4;
  343. EVTEST =2. ** EVO4;
  344. EVTEST =2.1 ** EVO4;
  345. EVTEST =0. ** EVO4;
  346.  
  347. ***************
  348. * OPERATION '*'
  349. ***************
  350. EVTEST =EVO4 * 0 ;
  351. EVTEST =EVO4 * 2 ;
  352. EVTEST =EVO4 * 0. ;
  353. EVTEST =EVO4 * 2.1 ;
  354.  
  355. ***************
  356. * OPERATION '+'
  357. ***************
  358. EVTEST =EVO4 + 0 ;
  359. EVTEST =EVO4 + 1 ;
  360. EVTEST =EVO4 + 0. ;
  361. EVTEST =EVO4 + 1. ;
  362.  
  363. ***************
  364. * OPERATION '-'
  365. ***************
  366. EVTEST =EVO4 - 0 ;
  367. EVTEST =EVO4 - 1 ;
  368. EVTEST =EVO4 - 0. ;
  369. EVTEST =EVO4 - 1. ;
  370.  
  371. EVTEST =0 - EVO4 ;
  372. EVTEST =1 - EVO4 ;
  373. EVTEST =0.- EVO4 ;
  374. EVTEST =1.- EVO4 ;
  375.  
  376. ***************
  377. * OPERATION '/'
  378. ***************
  379. EVTEST =EVO4 / 2 ;
  380. EVTEST =EVO4 / 0.5 ;
  381.  
  382. EVTEST =0 / EVO4 ;
  383. EVTEST =0./ EVO4 ;
  384. EVTEST =1 / EVO4 ;
  385. EVTEST =1./ EVO4 ;
  386.  
  387. ***********
  388. * FONCTIONS
  389. ***********
  390. EVTEST = COS EVO4 ;
  391. EVTEST = SIN EVO4 ;
  392. EVTEST = TAN EVO4 ;
  393. EVTEST = ACOS EVO6 ;
  394. EVTEST = ASIN EVO6 ;
  395. EVTEST = ATG EVO4 ;
  396. EVTEST = EXP EVO4 ;
  397. EVTEST = LOG EVO4 ;
  398. EVTEST = ABS EVO4 ;
  399. EVTEST = COSH EVO4 ;
  400. EVTEST = SINH EVO4 ;
  401. EVTEST = TANH EVO4 ;
  402. EVTEST = ERF EVO4 ;
  403. EVTEST = ERFC EVO4 ;
  404. EVTEST = ACOH EVO7 ;
  405. EVTEST = ASIH EVO4 ;
  406. EVTEST = ATAH EVO8 ;
  407.  
  408. * Test parallelisme
  409. SI COMPLET;
  410. NBVAL = 101280;
  411. LREE1 = 'PROG' 1. 'PAS' (1. / (NBVAL-1)) 2. ;
  412. LREE2 = LREE1 + 1 ;
  413. EVO1 = 'EVOL' 'MANU' 'XX' LREE1 'YY' LREE2;
  414.  
  415. LENT1 = 'ENTI' (100 * LREE1);
  416. EVO2 = 'EVOL' 'MANU' 'XX' LREE1 'IY' LENT1;
  417.  
  418. REPE SURI (10*(32**2)*10);
  419. TOTO = EVO1 * 2.156 ;
  420. 'DETR' TOTO;
  421. FIN SURI;
  422. TEMP 'IMPR' 'MAXI' 'HORL';
  423. FINS;
  424. FINS;
  425.  
  426.  
  427. FIN;
  428.  
  429.  
  430.  

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