Esope source files

   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 : -INC CCOPTIO
  42 : CBEGININCLUDE SMMINC
  43 :       SEGMENT MINC
  44 :       INTEGER     NPOS(NPT+1)
  45 :       INTEGER     MPOS(NPT,NBI+1)
  46 :       ENDSEGMENT
  47 :       SEGMENT IMINC
  48 :       INTEGER LNUPO (NDDL)
  49 :       INTEGER LNUINC(NDDL)
  50 :       ENDSEGMENT
  51 : CENDINCLUDE SMMINC
  52 :       POINTEUR MMINC.MINC
  53 :       POINTEUR MIMINC.IMINC
  54 : *
  55 :       INTEGER IMPR,IRET
  56 : *     
  57 : * Executable statements
  58 : *
  59 :       IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans relr21.eso' 
  60 :       SEGACT MMINC
  61 :       NPT=MMINC.MPOS(/1)
  62 :       NBI=MMINC.MPOS(/2)-1
  63 :       NDDL=MMINC.NPOS(NPT+1)-1
  64 :       SEGINI MIMINC
  65 :       DO IBI=1,NBI
  66 :          DO IPT=1,NPT
  67 :             IPOS=MMINC.MPOS(IPT,IBI)
  68 :             IF (IPOS.NE.0) THEN
  69 :                IDDL=MMINC.NPOS(IPT)+IPOS-1
  70 :                MIMINC.LNUPO(IDDL)=IPT
  71 :                MIMINC.LNUINC(IDDL)=IBI
  72 :             ENDIF
  73 :          ENDDO
  74 :       ENDDO
  75 :       SEGDES MIMINC
  76 :       SEGDES MMINC
  77 : *
  78 : * Normal termination
  79 : *
  80 :       IRET=0
  81 :       RETURN
  82 : *
  83 : * Format handling
  84 : *
  85 : *
  86 : * Error handling
  87 : *
  88 :  9999 CONTINUE
  89 :       IRET=1
  90 :       WRITE(IOIMP,*) 'An error was detected in subroutine relr21'
  91 :       RETURN
  92 : *
  93 : * End of subroutine RELR21
  94 : *
  95 :       END
  96 : 
  97 :