Sources Esope | Cast3M

ooozz4
C OOOZZ4    SOURCE    PV090527  26/04/24    08:23:40     12524          
      SUBROUTINE OOOZZ4 (II)
C---------------------------------------------------   DEC 84   --------
C                                                   GEMAT TRANSPORTABLE
C
C               UN INDICE  II  POUR FAIRE UNE ERREUR ?
C
C   ->II    LA VALEUR MAGIQUE DESIREE
C
C     CETTE VALEUR EST UTILISEE PAR  GEMAT   POUR TENTER DE
C     PRODUIRE UN PLANTAGE LORS D'ERREURS DE  PROGRAMMATION
C     DU GENRE : UTILISATION D'UNE VARIABLE D'UN SEGMENT ET
C     LE  SEGMENT  N'EST PAS ENCORE INITIALISE . ON SUPPOSE
C     QUE DANS CE CAS LA VALEUR DU  POINTEUR  CORRESPONDANT
C     EST NULLE ( CE N'EST PAS NECESSAIREMENT LE CAS )
C
C-----------------------------------------------------------------------
C
C
%IF WIN32,UNIX32
      II=-2**30-2**30
%ELSE
      II=-2**62
%ENDIF
                                                       RETURN
      END