Sources Esope | Cast3M

oooabw
C OOOABW    SOURCE    PV090527  26/04/24    08:22:57     12524          
CMODE 92/04/06 15:40:16     ESOPV10
C-----------------------------------------------------------------------
      SUBROUTINE OOOABW (PSEG,HTYPE,HPOINT,PARCH)
C-------------------------------------------------------------------
C     H_MULLEMAN  1/8/91
%INC IOOARC
%INC IOOCH
%INC IOOADR
%INC IOOADZ
%INC IOODES
%INC IOOSGM
%INC IOOVAL
C
      CHARACTER *(*)  HPOINT , HTYPE
      POINTEUR   PSEG.PSEG ,PARCH.KARCHIV
%IF CRAY,CRAY1,CRAY2
      CHARACTER *16 CHSTOR
%ELSE
      CHARACTER *8  CHSTOR
%ENDIF
      CHARACTER *16 VALEUR
      DATA  VALEUR/'0123456789ABCDEF'/
C
      ISG =MDISG(PSEG)
      LSG =MSLS1(ISG)
%IF CRAY,CRAY1,CRAY2
      IBOUC=16
      INCRE=16
%ELSE
      IBOUC=8
      INCRE=8
%ENDIF
      NZER=0
      LSMM=MSLSM
      DO 500 J=1,LSG,1
        K=J-(MSLZ1)
        KVAL=JSG(ISG+J)
        IF (KVAL.LT.0) THEN
%IF CRAY,CRAY1,CRAY2
         KVAL=SHIFTL(KVAL,1)
         KVAL=SHIFTR(KVAL,1)
%ELSE
         KVAL=ISHFT(KVAL,1)
         KVAL=ISHFT(KVAL,-1)
%ENDIF
          DO II=IBOUC,2,-1
            IMOD=MOD(KVAL,16)
            CHSTOR(II:II)=VALEUR(IMOD+1:IMOD+1)
            KVAL=INT(KVAL/16)
          ENDDO
            IMOD=MOD(KVAL,16)
            CHSTOR(1:1)=VALEUR(IMOD+1+8:IMOD+1+8)
        ELSE
          DO II=IBOUC,1,-1
            IMOD=MOD(KVAL,16)
            CHSTOR(II:II)=VALEUR(IMOD+1:IMOD+1)
            KVAL=INT(KVAL/16)
          ENDDO
        ENDIF
         IF ( INDICE+INCRE.GE.LOOK) THEN
           LOOK=LOOK+1000
           SEGADJ,PARCH
         ENDIF
         PARCH.CHARIV(INDICE:INDICE+INCRE-1)=CHSTOR
         INDICE=INDICE+INCRE
 500  CONTINUE
        RETURN
      END