Télécharger la plaquette Cast3M


fr en

Télécharger pola.eso

Retour à la liste

Numérotation des lignes : 

pola

  1. C POLA      SOURCE    CB215821  19/07/31    21:16:11     10277          
  2.       SUBROUTINE POLA
  3. *---------------------------------------------------------------------
  4. *
  5. *            DECOMPOSITION POLAIRE D'UN CHAMP DE GRADIENT
  6. *                          F = R U
  7. *
  8. *     CHR CHU  = POLA  MOD CHEL (CAR) ( MOT );
  9. *
  10. *           MOD   MODELE DE CALCUL, TYPE MMODEL
  11. *           CHEL  OBJET DE TYPE MCHAML DE SOUS TYPE GRADIENT
  12. *           CHR   OBJET DE TYPE MCHAML DE SOUS TYPE
  13. *           CHU   OBJET DE TYPE MCHAML DE SOUS TYPE
  14. *
  15. *--------------------------------------------------------------------
  16. *
  17.       IMPLICIT INTEGER(I-N)
  18. -INC PPARAM
  19. -INC CCOPTIO
  20.       CHARACTER*4 MOCLE(2)
  21.       DATA MOCLE/'GEOM','DEPL'/
  22. *
  23.       CALL LIROBJ('MMODEL  ',IPMODL,1,IRTM)
  24.       CALL ACTOBJ('MMODEL  ',IPMODL,1)
  25.       IF(IERR.NE.0) RETURN
  26. *
  27.       CALL LIROBJ('MCHAML  ',IPIN,1,IRT1)
  28.       CALL ACTOBJ('MCHAML  ',IPIN,1)
  29.       IF(IERR.NE.0) RETURN
  30.  
  31.       CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  32.       IF(IR   .NE. 1) CALL ERREUR(KER)
  33.       IF(IERR .NE. 0) RETURN
  34. *
  35. *     LECTURE D'UN MOT SI NECESSAIRE
  36. *
  37.       IMIL=0
  38.       CALL LIRMOT(MOCLE,2,IMOT,0)
  39.       IF(IMOT.EQ.2) IMIL=1
  40. *
  41.       CALL POLA1(IPMODL,IPCHE1,IPCHE2,IPCHE3,IMIL)
  42.       IF(IERR.NE.0) RETURN
  43. *
  44.       CALL ACTOBJ('MCHAML  ',IPCHE3,1)
  45.       CALL ACTOBJ('MCHAML  ',IPCHE2,1)
  46.  
  47.       CALL ECROBJ('MCHAML  ',IPCHE3)
  48.       CALL ECROBJ('MCHAML  ',IPCHE2)
  49.  
  50.       END
  51.  
  52.  
  53.  

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