Télécharger la plaquette Cast3M


fr en

Télécharger relr21.eso

Retour à la liste

Numérotation des lignes : 

relr21

  1. C RELR21    SOURCE    GOUNAND   11/05/24    21:16:06     6976
  2.       SUBROUTINE RELR21(MMINC,
  3.      $     MIMINC,
  4.      $     IMPR,IRET)
  5.       IMPLICIT REAL*8 (A-H,O-Z)
  6.       IMPLICIT INTEGER (I-N)
  7. C***********************************************************************
  8. C NOM         : RELR21
  9. C DESCRIPTION :
  10. *
  11. * Création de l'inverse des segments MINC
  12. *
  13. C
  14. C
  15. C
  16. C LANGAGE     : ESOPE
  17. C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  18. C               mél : gounand@semt2.smts.cea.fr
  19. C***********************************************************************
  20. C APPELES          :
  21. C APPELES (E/S)    :
  22. C APPELES (BLAS)   :
  23. C APPELES (CALCUL) :
  24. C APPELE PAR       :
  25. C***********************************************************************
  26. C SYNTAXE GIBIANE    :
  27. C ENTREES            :
  28. C ENTREES/SORTIES    :
  29. C SORTIES            :
  30. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  31. C***********************************************************************
  32. C VERSION    : v1, 02/07/2003, version initiale
  33. C HISTORIQUE : v1, 02/07/2003, création
  34. C HISTORIQUE :
  35. C HISTORIQUE :
  36. C***********************************************************************
  37. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  38. C en cas de modification de ce sous-programme afin de faciliter
  39. C la maintenance !
  40. C***********************************************************************
  41.  
  42. -INC PPARAM
  43. -INC CCOPTIO
  44. CBEGININCLUDE SMMINC
  45.       SEGMENT MINC
  46.       INTEGER     NPOS(NPT+1)
  47.       INTEGER     MPOS(NPT,NBI+1)
  48.       ENDSEGMENT
  49.       SEGMENT IMINC
  50.       INTEGER LNUPO (NDDL)
  51.       INTEGER LNUINC(NDDL)
  52.       ENDSEGMENT
  53. CENDINCLUDE SMMINC
  54.       POINTEUR MMINC.MINC
  55.       POINTEUR MIMINC.IMINC
  56. *
  57.       INTEGER IMPR,IRET
  58. *
  59. * Executable statements
  60. *
  61.       IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans relr21.eso'
  62.       SEGACT MMINC
  63.       NPT=MMINC.MPOS(/1)
  64.       NBI=MMINC.MPOS(/2)-1
  65.       NDDL=MMINC.NPOS(NPT+1)-1
  66.       SEGINI MIMINC
  67.       DO IBI=1,NBI
  68.          DO IPT=1,NPT
  69.             IPOS=MMINC.MPOS(IPT,IBI)
  70.             IF (IPOS.NE.0) THEN
  71.                IDDL=MMINC.NPOS(IPT)+IPOS-1
  72.                MIMINC.LNUPO(IDDL)=IPT
  73.                MIMINC.LNUINC(IDDL)=IBI
  74.             ENDIF
  75.          ENDDO
  76.       ENDDO
  77.       SEGDES MIMINC
  78.       SEGDES MMINC
  79. *
  80. * Normal termination
  81. *
  82.       IRET=0
  83.       RETURN
  84. *
  85. * Format handling
  86. *
  87. *
  88. * Error handling
  89. *
  90.  9999 CONTINUE
  91.       IRET=1
  92.       WRITE(IOIMP,*) 'An error was detected in subroutine relr21'
  93.       RETURN
  94. *
  95. * End of subroutine RELR21
  96. *
  97.       END
  98.  
  99.  
  100.  

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