Télécharger la plaquette Cast3M


fr en

Télécharger frenet.eso

Retour à la liste

Numérotation des lignes : 

frenet

  1. C FRENET    SOURCE    CB215821  23/11/02    21:15:04     11779          
  2.  
  3.       SUBROUTINE FRENET
  4. C ====================================================================
  5. C Opérateur FRENET : calcul du repère de Frenet d'une ligne
  6. C
  7. C Utilisation : voir notice de l'opérateur FRENET
  8. C ====================================================================
  9.  
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8(A-H,O-Z)
  12.  
  13. C
  14. C     Declarations
  15. C     ************
  16.  
  17. -INC PPARAM
  18. -INC CCOPTIO
  19. -INC CCREEL
  20.  
  21.        integer obligatoire, a_eu_lieu, activation, repere
  22.        integer arc
  23.  
  24. C
  25. C     Lecture d'un 'MAILLAGE'
  26. C     ***********************
  27.  
  28. C     Lecture du maillage
  29.       obligatoire = 1
  30.       call lirobj('MAILLAGE', arc, obligatoire, a_eu_lieu)
  31.       call actobj('MAILLAGE', arc, obligatoire)
  32.       if(ierr.ne.0) return
  33.  
  34. C
  35. C     Appel a frene0 pour faire le travail
  36. C     ************************************
  37.  
  38.       call frene0(arc, repere)
  39.       if(ierr.ne.0) return
  40.  
  41. C
  42. C     Ecriture du chpo
  43. C     ****************
  44.       activation = 1
  45.       call actobj('CHPOINT', repere, activation)
  46.       call ecrobj('CHPOINT', repere)
  47.  
  48.       END
  49.  
  50.  

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