* fichier : proi-parallele.dgibi * Section : Mathematiques Elementaires * Section : Langage Objets 'OPTI' echo 0 ; ************************************************************************ * NOM : PROI-PARALLELE * DESCRIPTION : On teste le parallélisme avec les assistants pour faire * un PROI en parallèle * * * * LANGAGE : GIBIANE-CAST3M * AUTEUR : Stephane GOUNAND (CEA/DEN/DM2S/SEMT/LTA) * mel : stephane.gounand@cea.fr ********************************************************************** * VERSION : v1, 31/07/2019, version initiale * HISTORIQUE : v1, 31/07/2019, création * HISTORIQUE : * HISTORIQUE : ************************************************************************ * * interact= FAUX ; * 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ; * p1 = 0. 0. ; p2 = 1.5 0.1 ; p3 = 1.4 1.3 ; p4 = 0.1 1.3 ; * n1 = 3 ; n2 = 4 ; n3 = 5 ; n4 = 6 ; cnt = 'DROI' n1 p1 p2 'DROI' n2 p3 'DROI' n3 p4 'DROI' n4 p1 ; sur = 'SURF' cnt ; * x y = 'COOR' sur ; r = '**' ('+' ('**' x 2) ('**' y 2)) 0.5 ; chamr = 'CHAN' 'CHAM' r sur ; * lok = vrai ; * * PROI sur les points de sur * mail = 'CHAN' 'POI1' sur ; * * Sequentiel * chpors = 'PROI' chamr mail ; errs = 'MAXI' ('-' chpors r) 'ABS' ; * l'erreur vaut 5.d-9 sur ma machine au 31/07/2019 * l'erreur vaut 5.44493E-08 sur semt2 au 01/08/2019 crit1 = 1.D-7 ; 'MESS' 'errs=' errs ' crit1=' crit1 ; tst1 = errs '<' crit1 ; lok = lok 'ET' tst1 ; * * Parallele * nbpart = 'VALEUR' 'ASSI' ; mapart = 'PART' 'ARLE' mail nbpart ; tchpo = 'ASSI' 'TOUS' 'PROI' chamr mapart ; *sg 23/03/2016 recommande par Clement * chpo = 'ET' tchpo ; chporp = 'ETG' tchpo ; * la difference entre PROI parallele et sequentiel doit etre nulle errps = 'MAXI' ('-' chporp chpors) 'ABS' ; crit2 = ('VALE' 'PETI') '*' 10. ; 'MESS' 'errps=' errps ' crit2=' crit2 ; tst2 = errps '<' crit2 ; * lok = lok 'ET' tst2 ; * 'SAUT' 1 'LIGNE' ; 'SI' lok ; 'MESSAGE' 'Tout sest bien passe' ; 'SINON' ; 'MESSAGE' '!!! Il y a eu des erreurs' ; 'FINSI' ; 'SAUT' 1 'LIGNE' ; * 'SI' interact ; 'OPTION' 'DONN' 5 'ECHO' 1 ; 'FINSI' ; 'SI' ('NON' lok) ; 'ERREUR' 5 ; 'FINSI' ; * * End of dgibi file PROI-PARALLELE * 'FIN' ;