Télécharger la plaquette Cast3M


fr en

Télécharger ooowex.eso

Retour à la liste

Numérotation des lignes : 

ooowex

  1. C OOOWEX    SOURCE    PV090527  26/04/24    08:23:30     12524          
  2. CMODE 89/09/29 15:24:48     ESOP
  3.       SUBROUTINE OOOWEX (LRET,IRET,HARG,PSEG,LSEG)
  4. C--------------------------------------------------------------------
  5. C
  6. C                       SEGXXX /ERR=100/ PSEG
  7. C
  8. C   ->LRET  1  PLUS DE PLACE MEMOIRE ET : IRET = 1
  9. C           2  OK
  10. C
  11. C     IRET     ACTION SI PLUS DE PLACE MEMOIRE
  12. C           0  STOP 16
  13. C           1  RETURN AVEC LRET = 1
  14. C
  15. C     HARG     'NOM_SUBROUTINE NUMERO_LIGNE NOM_SEGMENT '
  16. C
  17. C     PSEG     POINTEUR DESIGNANT LE SEGMENT
  18. C     LSEG     LONGUEUR DES DONNEES DU SEGMENT EN MOTS
  19. C
  20. C PROGRAMMEUR : MOUGIN
  21. C        CREE : 15/12/88    OOOY.. => OOOW.. (ARGUMENT HARG EN PLUS)
  22. C       MODIF : 02/05/89    SEPARE  D'AVEC L'ENTRY OOOWAD
  23. C
  24. C--------------------------------------------------------------------
  25. C
  26. %INC IOOADR
  27. %INC IOOADZ
  28. %INC IOODES
  29. %INC IOOSGM
  30. %INC IOOWCOM
  31. %INC IOOUNIT
  32.  
  33.       CHARACTER*(*) HARG
  34.       POINTEUR      PSEG.PSEG , PSG1.PSEG
  35. C
  36. C
  37. C
  38.       LRET=2
  39.       ISEG = MDISG(PSEG)
  40.       LSG1 = MSLS1(ISEG)
  41.       LSG2 = (((LSEG+MSLCZ)+(MSLSM-1))/MSLSM)*MSLSM
  42.       IF (LSG2.LE.LSG1)                                RETURN
  43.  
  44.       if (thread) call ooogll(1)
  45.       If (.NOT.THREAD.and.THREAD) write(JLST,*) ' bug compilateur aix'
  46.       If (.NOT.THREAD.and.THREAD) write(JERR,*) ' bug compilateur aix'
  47.       KASINS = INSTRUCTION_SEGMENT_EXTENSION
  48.       HDIA   = HARG
  49.       LDIA   = LEN(HARG)
  50.       CALL OOOVPN (PSEG)
  51. * extension bonifiee
  52.       LSEG1 = LSEG+LSEG/10+MSLSM
  53.       LSEG1= (((LSEG1+MSLCZ)+(MSLSM-1))/MSLSM)*MSLSM
  54.       CALL OOOEXT (LRET,PSEG,LSEG1)
  55.       IF   (LRET.EQ.1)                                  THEN
  56.         IF (IRET.EQ.0)                                  GO TO 901
  57.       ENDIF
  58.       if (thread) call ooogll(0)
  59.                                                         RETURN
  60. C-----------------------------------------------------------------------
  61. C                MESSAGES D'ERREUR
  62. C-----------------------------------------------------------------------
  63.  901  CALL OOOERR (0,0,'PAS ASSEZ DE PLACE EN MEMOIRE')
  64.                                                         STOP 16
  65.       END
  66.  
  67.  

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