Télécharger la plaquette Cast3M


fr en

Télécharger ooowa1.eso

Retour à la liste

Numérotation des lignes : 

ooowa1

  1. C OOOWA1    SOURCE    PV090527  26/04/24    08:23:28     12524          
  2. CMODE 89/09/29 15:24:48     ESOP
  3.       SUBROUTINE OOOWA1 (LRET,IRET,HARG,PSEG,PSG1)
  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 RECEPTEUR (ACTIF) ?
  18. C     PSG1     POINTEUR DESIGNANT LE SEGMENT EMETEUR   (ETAT INCHANGE)
  19. C              LES DEUX SEGMENTS DOIVENT AVOIR LA MEME LONGUEUR
  20. C
  21. C PROGRAMMEUR : MOUGIN
  22. C        CREE : 15/12/88    OOOY.. => OOOW.. (ARGUMENT HARG EN PLUS)
  23. C       MODIF : 02/05/89    SEPARE  D'AVEC L'ENTRY OOOWAD
  24. C
  25. C--------------------------------------------------------------------
  26. C
  27. %INC IOOADR
  28. %INC IOOADZ
  29. %INC IOODES
  30. %INC IOOSGM
  31. %INC IOOWCOM
  32. %INC IOOUNIT
  33. %INC IOOSAF
  34.  
  35.       CHARACTER*(*) HARG
  36.       POINTEUR      PSEG.PSEG , PSG1.PSEG
  37.  
  38. C     Pour le message affiche
  39.       HDIA = HARG
  40.       LDIA = LEN(HARG)
  41.  
  42.  
  43. C     On saute l'ENTRY OOOYA1
  44.       GOTO 100
  45.  
  46.       ENTRY OOOYA1 (LRET,IRET,PSEG,PSG1)
  47.       HDIA   = ' '
  48.       LDIA   = 0
  49.  
  50.  100  CONTINUE
  51.       KASINS = INSTRUCTION_SEGACT_EGAL
  52.  
  53.       if(pseg.eq.abs(MZSURV)) CALL OOOMES(pseg,'GEMAT SURVEILLE   ')
  54.  
  55.       if (thread) call ooogll(1)
  56.       CALL OOOVPN (PSEG)
  57.       CALL OOOVPN (PSG1)
  58.       CALL OOOAC1 (LRET,PSEG,PSG1)
  59.       IF   (LRET.EQ.1)                                  THEN
  60.         IF (IRET.EQ.0)                                  GO TO 901
  61.       ENDIF
  62.       if (thread) call ooogll(0)
  63.                                                         RETURN
  64. C-----------------------------------------------------------------------
  65. C                MESSAGES D'ERREUR
  66. C-----------------------------------------------------------------------
  67.  901  CALL OOOERR (0,0,'PAS ASSEZ DE PLACE EN MEMOIRE')
  68.                                                         STOP 16
  69.       END
  70.  
  71.  

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