Télécharger pola.eso

Retour à la liste

Numérotation des lignes :

  1. C POLA SOURCE CB215821 16/12/05 21:40:20 9237
  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 CCOPTIO
  19. CHARACTER*4 MOCLE(2)
  20. DATA MOCLE/'GEOM','DEPL'/
  21. *
  22. CALL LIROBJ('MMODEL',IPMODL,1,IRTM)
  23. IF(IERR.NE.0) RETURN
  24. *
  25. CALL LIROBJ('MCHAML',IPIN,1,IRT1)
  26. IF(IERR.NE.0) RETURN
  27. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  28. IF(IR .NE. 1) CALL ERREUR(KER)
  29. IF(IERR .NE. 0) RETURN
  30. *
  31. * LECTURE D'UN MOT SI NECESSAIRE
  32. *
  33. IMIL=0
  34. CALL LIRMOT(MOCLE,2,IMOT,0)
  35. IF(IMOT.EQ.2) IMIL=1
  36. *
  37. CALL POLA1(IPMODL,IPCHE1,IPCHE2,IPCHE3,IMIL)
  38. IF(IERR.NE.0) RETURN
  39. *
  40. CALL ECROBJ('MCHAML',IPCHE3)
  41. CALL ECROBJ('MCHAML',IPCHE2)
  42. RETURN
  43. END
  44.  
  45.  
  46.  

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