Télécharger la plaquette Cast3M


fr en

Télécharger oooyag.eso

Retour à la liste

Numérotation des lignes : 

oooyag

  1. C OOOYAG    SOURCE    PV090527  26/04/24    08:23:35     12524          
  2.       SUBROUTINE OOOYAG (LRET,IRET,PSEG,IDI1,JDES,NTAB)
  3. C--------------------------------------------------------------------
  4. C
  5. C                       SEGXXX /ERR=100/ PSEG
  6. C
  7. C   ->LRET  1  PLUS DE PLACE MEMOIRE ET : IRET = 1
  8. C           2  OK
  9. C
  10. C     IRET     ACTION SI PLUS DE PLACE MEMOIRE
  11. C           0  STOP 16
  12. C           1  RETURN AVEC LRET = 1
  13. C
  14. C     PSEG     POINTEUR DESIGNANT LE SEGMENT
  15. C     LSEG     LONGUEUR DES DONNEES DU SEGMENT EN MOTS
  16. C
  17. C PROGRAMMEUR : MOUGIN
  18. C       MODIF : 25/01/89    MODIFIE POUR LA VERSION OOOW..
  19. C       MODIF : 02/05/89    SEPARE D'AVEC LES AUTRES ENTRY OOOY..
  20. C
  21. C--------------------------------------------------------------------
  22. C
  23. %INC IOOADR
  24. %INC IOOADZ
  25. %INC IOODES
  26. %INC IOOSGM
  27. %INC IOOWCOM
  28.  
  29.       INTEGER       JDES(NTAB)
  30.       POINTEUR      PSEG.PSEG
  31. C
  32.       KASINS = INSTRUCTION_SEGADJ
  33.       LDIA   = 0
  34.       CALL OOOVPN (PSEG)
  35.       CALL OOOADJ (LRET,PSEG,IDI1,JDES,NTAB)
  36.       IF   (LRET.EQ.1)                                  THEN
  37.         IF (IRET.EQ.0)                                  GO TO 901
  38.         PSEG = 0
  39.       ENDIF
  40.                                                         RETURN
  41. C-----------------------------------------------------------------------
  42. C                MESSAGES D'ERREUR
  43. C-----------------------------------------------------------------------
  44.  901  CALL OOOERR (0,0,'PAS ASSEZ DE PLACE EN MEMOIRE')
  45.                                                         STOP 16
  46.       END
  47.  
  48.  

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