Télécharger la plaquette Cast3M


fr en

Télécharger nlin_japg.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  nlin_japg.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. ************************************************************************
  5. * NOM         : NLIN_JAPG
  6. * DESCRIPTION : Teste jacobien et points de Gauss 
  7. *               de NLIN
  8. *
  9. *
  10. * LANGAGE     : GIBIANE-CAST3M
  11. * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  12. *               mél : gounand@semt2.smts.cea.fr
  13. **********************************************************************
  14. * VERSION    : v1, 06/10/2003, version initiale
  15. * HISTORIQUE : v1, 06/10/2003, création
  16. * HISTORIQUE :
  17. * HISTORIQUE :
  18. ************************************************************************
  19. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  20. * en cas de modification de ce sous-programme afin de faciliter
  21. * la maintenance !
  22. ************************************************************************
  23. *
  24. *
  25. interact= FAUX ;
  26. 'OPTION' 'DIME' 3 'ELEM' CUB8 'ECHO' 0 ;
  27.  
  28. t1 = 'NLIN' 'TJAC' ;
  29. t2 = 'NLIN' 'TPG' ;
  30.  
  31. 'SI' (t1 'ET' t2) ;
  32.    'MESSAGE' 'Test jacobien et points de Gauss OK' ;
  33. 'SINON' ;
  34.    'MESSAGE' 'Test jacobien et points de Gauss failed' ;
  35.    'SI' ('NON' interact) ;
  36.       'ERREUR' 5 ;
  37.    'FINSI' ;
  38. 'FINSI' ;
  39. 'SI' interact ;
  40.    'OPTION' 'ECHO' 1 ;   
  41.    'OPTION' 'DONN' 5 ;
  42. 'FINSI' ;
  43. *
  44. * End of dgibi file NLIN_JAPG
  45. *
  46. 'FIN' ;
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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