Sources Esope | Cast3M

ooobph
C OOOBPH    SOURCE    PV090527  26/04/24    08:23:01     12524          
CMODE 92/04/03 13:28:36     ESOPV10
      SUBROUTINE OOOBPH (HNOMV,PSEG,PARCH,HNOMVA,IDIM,NDIM,
     * NBMAX)
C---------------------------------------------------------------------
C                 DESARCHIVAGE DE SEGMENTS
C      HNOMV       : NOM DU TABLEAU OU DE LA VARIABLE SIMPLE
C      PSEG        : SEGMENT ORIGINE
C      PARCH       : SEGMENT ARCHIVE
C      HNOMVA      : TABLEAU TRANSMIS
C      IDIM(NDIM)  : DIMENSIONS DU TABLEAU
C      NDIM        : NOMBRE DE DIMENSIONS D'UN TABLEAU
C      NBMAX       : NOMBRE MAX DE VALEURS A ARCHIVER
C
C      LONGUEURS:
C      =========
C      LOGIQUE: 5
C      INTEGER: 11  INTEGER*2 : 6   INTEGER*1 : 4
C      REAL*4 : 16  REAL*8    : 25  REAL*16   : 42
C      COMPLEX*8 : 35  COMPLEX*16: 53  COMPLEX*32 : 87
C
C  H_MULLEMAN LE  18/8/1991
C-----------------------------------------------------------------------
%INC IOOARC
%INC IOOCH
%INC IOOCH2
      LOGICAL VRAI
C
C-----------------------------------------------------------------------
C
      KAS=CHARACTER
                                                       GO TO 20
      ENTRY OOOBPL (HNOMV,PSEG,PARCH,LNOMVA,IDIM,NDIM,NBMAX)
      KAS=LOGICAL
                                                       GO TO 20
      ENTRY OOOBPM (HNOMV,PSEG,PARCH,MNOMVA,IDIM,NDIM,NBMAX)
      KAS=LOGICAL_2
                                                       GO TO 20
      ENTRY OOOBPN (HNOMV,PSEG,PARCH,NNOMVA,IDIM,NDIM,NBMAX)
      KAS=LOGICAL_1
                                                       GO TO 20
      ENTRY OOOBPI (HNOMV,PSEG,PARCH,INOMVA,IDIM,NDIM,NBMAX)
      KAS=INTEGER
                                                       GO TO 20
      ENTRY OOOBPJ (HNOMV,PSEG,PARCH,JNOMVA,IDIM,NDIM,NBMAX)
      KAS=INTEGER_2
                                                       GO TO 20
      ENTRY OOOBPK (HNOMV,PSEG,PARCH,KNOMVA,IDIM,NDIM,NBMAX)
      KAS=INTEGER_1
                                                       GO TO 20
      ENTRY OOOBPR (HNOMV,PSEG,PARCH,RNOMVA,IDIM,NDIM,NBMAX)
      KAS=REAL_4
                                                       GO TO 20
      ENTRY OOOBPD (HNOMV,PSEG,PARCH,DNOMVA,IDIM,NDIM,NBMAX)
      KAS=REAL_8
                                                       GO TO 20
      ENTRY OOOBPQ (HNOMV,PSEG,PARCH,QNOMVA,IDIM,NDIM,NBMAX)
      KAS=REAL_16
                                                       GO TO 20
      ENTRY OOOBPC (HNOMV,PSEG,PARCH,CNOMVA,IDIM,NDIM,NBMAX)
      KAS=COMPLEX
                                                       GO TO 20
      ENTRY OOOBPY (HNOMV,PSEG,PARCH,YNOMVA,IDIM,NDIM,NNMAX)
      KAS=COMPLEX_16
                                                       GO TO 20
      ENTRY OOOBPZ (HNOMV,PSEG,PARCH,ZNOMVA,IDIM,NDIM,NBMAX)
      KAS=COMPLEX_32
                                                       GO TO 20
      ENTRY OOOBPP (HNOMV,PSEG,PARCH,INOMVA,IDIM,NDIM,NBMAX)
      KAS=POINTEUR
C
  20  CONTINUE
C
C
      NMAX=1
      IF(NDIM.EQ.0) THEN
      ELSE
C
        CASE , KAS
        WHEN , CHARACTER
        IF (NDIM.EQ.1) THEN
        ELSE
          DO I=2,NDIM
            NMAX=NMAX*IDIM(I)
          ENDDO
        ENDIF
C
        WHENOTHERS
        DO I=1,NDIM
         NMAX=NMAX*IDIM(I)
        ENDDO
      ENDCASE
      ENDIF
C
      IF (NMAX.GE.NBMAX) NMAX=NBMAX
      DO I=1,NMAX
        CASE           ,KAS
        WHEN , LOGICAL , LOGICAL_2 , LOGICAL_1
            CH5=PARCH.CHARIV(INDICE:INDICE)
            INDICE=INDICE+1
            IF (CH5(1:1).EQ.'T') THEN
              VRAI=.TRUE.
            ELSE
              VRAI=.FALSE.
            ENDIF
             CASE , KAS
              WHEN , LOGICAL
               IF(VRAI) THEN
                 LNOMVA(I)=.TRUE.
               ELSE
                 LNOMVA(I)=.FALSE.
               ENDIF
              WHEN , LOGICAL_2
               IF(VRAI) THEN
                 MNOMVA(I)=.TRUE.
               ELSE
                 MNOMVA(I)=.FALSE.
               ENDIF
              WHEN , LOGICAL_1
               IF(VRAI) THEN
                 NNOMVA(I)=.TRUE.
               ELSE
                 NNOMVA(I)=.FALSE.
               ENDIF
              ENDCASE
C
          WHEN , INTEGER , POINTEUR
            CH11=PARCH.CHARIV(INDICE:INDICE+11)
C           INOMVA(I)=IVAL(CH11,11)
            READ(CH11,FMT='(I11)') INOMVA(I)
            INDICE=INDICE+11
C
          WHEN , INTEGER_2
            CH6=PARCH.CHARIV(INDICE:INDICE+6)
C           JNOMVA(I)=IVAL(CH6,6)
            READ(CH6,FMT='(I6)') JNOMVA(I)
            INDICE=INDICE+6
C
          WHEN , INTEGER_1
            CH6=PARCH.CHARIV(INDICE:INDICE+6)
C           KNOMVA(I)=IVAL(CH6,6)
            READ(CH6,FMT='(I6)') KNOMVA(I)
            INDICE=INDICE+6
C
          WHEN , REAL_4
            CH16=PARCH.CHARIV(INDICE:INDICE+16)
C           RNOMVA(I)=VAL(CH16,16)
            READ(CH16,FMT='(E16.9)') RNOMVA(I)
            INDICE=INDICE+16
C
          WHEN , REAL_8
            CH25=PARCH.CHARIV(INDICE:INDICE+25)
C           DNOMVA(I)=VAL(CH25,25)
            READ(CH25,FMT='(E25.18)') DNOMVA(I)
            INDICE=INDICE+25
C
          WHEN , REAL_16
            CH42=PARCH.CHARIV(INDICE:INDICE+42)
C           QNOMVA(I)=VAL(CH42,42)
            READ(CH42,FMT='(E42.35)') QNOMVA(I)
            INDICE=INDICE+42
C
          WHEN , COMPLEX
            CH16=PARCH.CHARIV(INDICE:INDICE+16)
C           CNOMVA(1,I)=VAL(CH16,16)
            READ(CH16,FMT='(E16.9)') CNOMVA(1,I)
            INDICE=INDICE+16
            CH16=PARCH.CHARIV(INDICE:INDICE+16)
C           CNOMVA(2,I)=VAL(CH16,16)
            READ(CH16,FMT='(E16.9)') CNOMVA(2,I)
            INDICE=INDICE+16
          WHEN , COMPLEX_16
            CH25=PARCH.CHARIV(INDICE:INDICE+25)
C           YNOMVA(1,I)=VAL(CH25,25)
            READ(CH25,FMT='(E25.18)') YNOMVA(1,I)
            INDICE=INDICE+25
            CH25=PARCH.CHARIV(INDICE:INDICE+25)
C           YNOMVA(2,I)=VAL(CH25,25)
            READ(CH25,FMT='(E25.18)') YNOMVA(2,I)
            INDICE=INDICE+25
          WHEN , COMPLEX_32
            CH42=PARCH.CHARIV(INDICE:INDICE+42)
C           ZNOMVA(1,I)=VAL(CH42,42)
            READ(CH42,FMT='(E42.35)') ZNOMVA(1,I)
            INDICE=INDICE+42
            CH42=PARCH.CHARIV(INDICE:INDICE+42)
C           ZNOMVA(2,I)=VAL(CH42,42)
            READ(CH42,FMT='(E42.35)') ZNOMVA(2,I)
            INDICE=INDICE+42
          WHEN , CHARACTER
          LONG=LEN(HNOMVA(I))
          HNOMVA(I)(1:LONG)= PARCH.CHARIV(INDICE:INDICE+LONG-1)
            INDICE=INDICE+LONG
          ENDCASE
      ENDDO
      RETURN
      END