C OOOZZ3    SOURCE    PV090527  26/04/24    08:23:40     12524          
      SUBROUTINE OOOZZ3
C---------------------------------------------------   SEP 85   --------
C                                            GEMAT TRANSPORTABLE + PRIME
C
C     LES NORMES DU FORTRAN 77 INTERDISENT , LA MISE EN EQUIVALENCE DE
C     VARIABLES DE TYPE  CHARACTER  ET DE VARIABLES DE TYPE  NUMERIQUE
C     OU LOGIQUE , OU LEUR PRESENCE SIMULTANEE DANS LE MEME  COMMON .
C
C     CETTE EXIGENCE , EXCESSIVE POUR LES  PROGRAMMEURS  , N'EST
C     PAS REPRISE PAR TOUS LES COMPILATEURS   FORTRAN 77  . POUR
C     CEUX QUI L'IMPOSENT COMME CELUI DU   CRAY  , LE TRADUCTEUR
C     ESOPE  CORRESPONDANT DOIT PRODUIRE UN FORTRAN SENSIBLEMENT
C     PLUS COMPLIQUE POUR LES VARIABLES CHARACTER DES SEGMENTS .
C
C     LE FORTRAN GENERE FAIT ALORS INTERVENIR UNE VARIABLE   OOG
C     QUI , A L'EXECUTION DOIT AVOIR POUR VALEUR  LA  DIFFERENCE
C     D'ADRESSE ENTRE LES DEUX VARIABLES   OOV  ET  OOH  , CETTE
C     DIFFERENCE DOIT ETRE EXPRIMEE EN NOMBRE DE MOTS ET NON PAS
C     EN NOMBRE DE CARACTERES . UN MOT CORRESPOND A UNE VARIABLE
C     INTEGER REAL OU LOGICAL .
C
C     L'INITIALISATION DE LA VARIABLE  OOG  DOIT ETRE FAITE DANS
C     CE SOUS-PROGRAMME . LA DECLARATION DU SEGMENT  S  FORCE LE
C     TRADUCTEUR  ESOPE A GENERER LES DECLARATIONS DES VARIABLES
C     OOG  OOH  ET  OOV  AINSI QUE CELLES DES   COMMON   QUI LES
C     CONTIENNENT .
C
C PROGRAMMEUR : MOUGIN
C       MODIF : 19/03/87    NOSVE  =>  INTRODUCTION
C       MODIF : 26/10/88    CONVEX =>  INTRODUCTION
C       MODIF : 6/11/89     MACHINE CFT77
C       MODIF :12/12/89  SUPPRESSION PROCEDURE OOOZZ3 SOUCRAY
C       INTEGREE DANS OOOZZ3 SOURCE
C       MODIF : 22/03/2016  WIN64  =>  INTRODUCTION
C-----------------------------------------------------------------------
C
      SEGMENT , S
        INTEGER   IIII
        CHARACTER HHHH
      ENDSEGMENT
C
%IF CRAY
      OOG=LOC(OOV)-LOC(OOH)
%ENDIF
C
%IF CFT77
      OOG=MOD(LOC(OOV),16 777 216) - MOD(LOC(OOH),16 777 216)
%ENDIF
C
%IF CDC
      OOG=MOD(LOCF(OOV),16 777 216)-MOD(LOCF(OOH),16 777 216)
%ENDIF
C
%IF IBM,VAX,UNIVAC,PRIME,APOLLO,UNIX32,NOSVE,CONVEX,UNIX64,WIN32,WIN64
%ENDIF
C
%IF FPS
      OOG=LOC(OOV)-LOC(OOH)/8
%ENDIF
C
%IF XXX,SEL
      IL FAUT INTERVENIR DANS CE SOUS-PROGRAMME .
%ENDIF
          RETURN
      END