Télécharger la plaquette Cast3M


fr en

Télécharger ooosug.eso

Retour à la liste

Numérotation des lignes : 

ooosug

  1. C OOOSUG    SOURCE    PV090527  26/04/24    08:23:21     12524          
  2.       SUBROUTINE OOOSUG (PSEG)
  3. C--------------------------------------------------------------------
  4. C
  5. C             SUPRESSION D'UN SEGMENT EN MEMOIRE CENTRALE
  6. C
  7. C   =>PSEG      DONNEE   : DESCRIPTEUR DU SEGMENT A SUPPRIMER
  8. C   ->PSEG      RESULTAT : 0
  9. C
  10. C PROGRAMMEUR : MOUGIN
  11. C       MODIF : 03/01/89    SUPPRIMER L'ARGUMENT  LRET
  12. C
  13. C--------------------------------------------------------------------
  14. C
  15. %INC IOOADR
  16. %INC IOOADZ
  17. %INC IOODES
  18. %INC IOOSGM
  19.       POINTEUR PSEG.PSEG
  20. C
  21.       ISEG = MDISG(PSEG)
  22.       LSEG = MSLS1(ISEG)
  23. C
  24. C****** SEGMENT ISOLE :
  25. C
  26. C         -EN MEMOIRE   CONTROLE DE VRAISEMBLANCE DES ZONES GEMAUX
  27. C                       RETIRE LE SEGMENT DE SA CHAINE
  28. C                       LIBERE LA PLACE MEMOIRE
  29. C         INSERER LE DESCRIPTEUR DANS LA CHAINE DES DESCRIPTEURS LIBRES
  30.       IDG=0
  31.       IF (MSIDE(ISEG).NE.PSEG) IDG=IDG+1
  32.       IF (MSLS2(ISEG).NE.LSEG) IDG=IDG+2
  33.       IF (IDG.NE.0)                                    GO TO 901
  34.       MDCH0 , PSEG
  35.       CALL OOOMSU (IZA,ISEG,LSEG)
  36.       MDZERO(PSEG)  = 0
  37.       MDIDS (PSEG)  = MDIDS(MZIDE1)
  38.       MDIDP(-(MDIDS(MZIDE1)))= -PSEG
  39.       MDIDS(MZIDE1) = -PSEG
  40.       MDIDP(PSEG) = -MZIDE1
  41.  
  42. C
  43. C****** CONVENTION DE RETOUR:DESCRIPTEUR A ZERO
  44. C
  45.       PSEG = 0
  46.                                                         RETURN
  47. C-----------------------------------------------------------------------
  48. C
  49. C                        MESSAGES D'ERREUR
  50. C
  51.  901  IF      (IDG.EQ.1) THEN
  52.         CALL OOOERR (PSEG,-1,' DESTRUCTION MEMOIRE :DEBUT SEGMENT')
  53.       ELSE IF (IDG.EQ.2) THEN
  54.         CALL OOOERR (PSEG,-1,' DESTRUCTION MEMOIRE :  FIN SEGMENT')
  55.       ELSE
  56.         CALL OOOERR (PSEG,-1,' DESTRUCTION MEMOIRE :DEBUT+FIN  SEGMENT')
  57.       ENDIF
  58.                                                         STOP 16
  59.       END
  60.  
  61.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales