Télécharger la plaquette Cast3M


fr en

Télécharger kres7b.eso

Retour à la liste

Numérotation des lignes : 

kres7b

  1. C KRES7B    SOURCE    GOUNAND   25/04/30    21:15:16     12258          
  2.       SUBROUTINE KRES7B(MRIGIC,IDEMEM,IDEME0,IDEME1,NPASS)
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : KRES7B
  7. C DESCRIPTION : Effectue la décondensation des relations
  8. C               Repris de resou.eso
  9. C
  10. C
  11. C LANGAGE     : ESOPE
  12. C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  13. C               mél : gounand@semt2.smts.cea.fr
  14. C***********************************************************************
  15. C VERSION    : v1, 09/04/2025, version initiale
  16. C HISTORIQUE : v1, 09/04/2025, création
  17. C HISTORIQUE :
  18. C HISTORIQUE :
  19. C***********************************************************************
  20.  
  21. -INC PPARAM
  22. -INC CCOPTIO
  23. -INC SMRIGID
  24. -INC SMCHPOI
  25. -INC SMELEME
  26.       PARAMETER (NELMAX=30)
  27.       SEGMENT IDEMEM(0)
  28.       segment ideme0(idemem(/1),NELMAX)
  29.       segment ideme1(idemem(/1),NELMAX)
  30. *
  31. *
  32. *
  33.       mrigid=mrigic
  34.       if=npass
  35.       isouci=0
  36.       iverif=0
  37. C
  38. C Recopie
  39. C
  40. C     -----------------------------------------------------------------
  41. C     Reintroduire les inconnues eliminees
  42.       do 2010 ifois=1,nelmax
  43.          segact mrigid
  44.          mrigid=jrsup
  45.          if (mrigid.eq.0) goto 2011
  46.          call resour(idemem,ideme0,ideme1,mrigid,if,ipt8,isouci,iverif)
  47.          if(ierr.ne.0) RETURN
  48.          if=if-1
  49.  2010 continue
  50.  2011 continue
  51. C
  52. C Fin recopie
  53. C
  54.       RETURN
  55. *
  56. * End of subroutine KRES7B
  57. *
  58.       END
  59.  
  60.  

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