Télécharger la plaquette Cast3M


fr en

Télécharger prkpre.eso

Retour à la liste

Numérotation des lignes : 

prkpre

  1. C PRKPRE    SOURCE    GOUNAND   25/03/12    21:15:07     12194          
  2.       SUBROUTINE PRKPRE()
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C NOM         : PRKPRE
  7. C DESCRIPTION : Operateur de calcul d'une matrice de preconditionnement
  8. C
  9. C               Pour l'instant la seule option disponible est le calcul
  10. C               d'un complément de Schur par élément.
  11. C
  12. C LANGAGE     : ESOPE
  13. C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  14. C               mel : stephane.gounand@cea.fr
  15. C***********************************************************************
  16. C APPELES          : CMCT4
  17. C APPELE PAR       : PILOT
  18. C***********************************************************************
  19. C SYNTAXE GIBIANE    : MAT = 'KPRE' MATC MATD MATB (MATE) (MAIL1)
  20. C***********************************************************************
  21. C VERSION    : v1, 11/03/2025, version initiale
  22. C HISTORIQUE : v1, 11/03/2025, création
  23. C HISTORIQUE :
  24. C HISTORIQUE :
  25. C***********************************************************************
  26. *
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. *
  30. *
  31. * Executable statements
  32. *
  33. *
  34. * Lecture des arguments
  35. *
  36.       CALL LIROBJ('RIGIDITE',IRIGC,1,IRET)
  37.       IF (IERR.NE.0) RETURN
  38.       CALL LIROBJ('RIGIDITE',IRIGD,1,IRET)
  39.       IF (IERR.NE.0) RETURN
  40.       CALL LIROBJ('RIGIDITE',IRIGB,1,IRET)
  41.       IF (IERR.NE.0) RETURN
  42.       CALL LIROBJ('RIGIDITE',IRIGE,0,IRET)
  43.       IF (IERR.NE.0) RETURN
  44.       CALL LIROBJ('MAILLAGE',MELEME,0,IRET)
  45.       IF (IERR.NE.0) RETURN
  46.       CALL CMCT4(IRIGC,IRIGD,IRIGB,IRIGE,MELEME,IRIG2)
  47.       IF (IERR.NE.0) RETURN
  48. *
  49.       CALL ECROBJ('RIGIDITE',IRIG2)
  50. *
  51. * Normal termination
  52. *
  53.       RETURN
  54. *
  55. * End of subroutine PRKPRE
  56. *
  57.       END
  58.  
  59.  

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