Sources Esope | Cast3M

ooolen
C OOOLEN    SOURCE    PV090527  26/04/24    08:23:11     12524          
      INTEGER FUNCTION OOOLEN (PSEG)
C-------------------------------------------------------------------
C
C       FOURNITURE TAILLE D'UN SEGMENT EN MOTS
C       POUR EVITER de RENDRE VISIBLE LES MACROS d'ESOPE
C
C-----------------------------------------------------------------------
C
%INC IOODES
%INC IOOADR
%INC IOOSGM
      INTEGER PSEG
C
      ITYP=MDTYP(PSEG)
*  ne fonctionne que pour un segment en memoire
*  on rend donc 0 si il est sur disque
      IF(MDDISK(ITYP).EQ.MDMEM) THEN
       ISEG=MDISG(PSEG)
       OOOLEN=MSLS1(ISEG)
      ELSE
       OOOLEN=0
      ENDIF
      RETURN
      END