Télécharger la plaquette Cast3M


fr en

Télécharger ooodeq.eso

Retour à la liste

Numérotation des lignes : 

ooodeq

  1. C OOODEQ    SOURCE    PV090527  26/04/24    08:23:03     12524          
  2.       SUBROUTINE OOODEQ (NTH)
  3. C--------------------------------------------------------------------
  4. C
  5. C      EFFECTUER LA DESACTIVATION DES SEGMENTS EN QUEUE DE DESACTIVATION
  6. C
  7. C--------------------------------------------------------------------
  8. C
  9. %INC IOOADR
  10. %INC IOOADZ
  11. %INC IOODES
  12. %INC IOOSGM
  13. %INC IOOWCOM
  14. %INC IOOUNIT
  15.  
  16.       CHARACTER*(8) HARG
  17.       POINTEUR      PSEG.PSEG , PSG1.PSEG
  18. C
  19. C
  20.       IF (IDESQ(nth).eq.0) return
  21.  
  22.       KOD=1
  23.       do 100 i=1,iDESq(nth)
  24.          pseg=DESQ(nth,i)
  25.          if (pseg.eq.0) goto 100
  26.          if (pseg.lt.0) goto 902
  27.  
  28.          CALL OOOVPN (PSEG)
  29.          CALL OOODES (LRET,PSEG,KOD)
  30.          IF(LRET.EQ.1)                                  GO TO 901
  31.  100  continue
  32.       idesq(nth)=0
  33.                                                         RETURN
  34. C-----------------------------------------------------------------------
  35. C                MESSAGES D'ERREUR
  36. C-----------------------------------------------------------------------
  37.  901  CALL OOOERR (0,0,'PAS ASSEZ DE PLACE EN MEMOIRE')
  38.                                                         STOP 16
  39.  902  CALL OOOERR (PSEG,-1,'POINTEUR ARGUMENT INVALIDE')
  40.                                                         STOP 16
  41.       END
  42.  
  43.  

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