Télécharger la plaquette Cast3M


fr en

Télécharger ooovpn.eso

Retour à la liste

Numérotation des lignes : 

ooovpn

  1. C OOOVPN    SOURCE    PV090527  26/04/24    08:23:27     12524          
  2.       SUBROUTINE OOOVPN (PSEG)
  3. C--------------------------------------------------------------------
  4. C
  5. C              CONTROLES DE VRAISSEMBLANCE DU POINTEUR
  6. C
  7. C     PSEG     POINTEUR DESIGNANT LE SEGMENT
  8. C
  9. C PROGRAMMEUR : MOUGIN
  10. C        CREE : 17/01/89    POUR LA FAMILLE  OOOW..
  11. C
  12. C--------------------------------------------------------------------
  13. C
  14. %INC IOOADR
  15. %INC IOOADZ
  16. %INC IOODES
  17. %INC IOOSGM
  18. %INC IOOWCOM
  19. C
  20.       POINTEUR PSEG.PSEG
  21.  
  22.       IF (KASINS.NE.INSTRUCTION_SEGINI)                 THEN
  23.         IF (PSEG.LT.MZIDEX)                             GO TO 901
  24.         IF (PSEG.GT.MZIDEY)                             GO TO 901
  25.         IF (MOD(PSEG-MZIDE1,MDLDE).NE.0)                GO TO 901
  26.         IF (MDIDS(PSEG).LT.0)                           GO TO 902
  27.  
  28. C       CONTROLES DE VRAISSEMBLANCE DU  TYPE SEGMENT
  29.  
  30.         ITYP =MDTYP(PSEG)
  31.         IF (ITYP.LT.MDMINTYP .OR. ITYP.GT.MDMAXTYP)     GO TO 903
  32.         IF (MDCAT(ITYP).EQ.MDMARK)                      GO TO 903
  33.         IF (MDCAT(ITYP).EQ.MDFIXE)                      GO TO 903
  34.       ENDIF
  35.       IF (OOW(1).NE.0)                                  GO TO 904
  36.                                                         RETURN
  37. C-----------------------------------------------------------------------
  38. C
  39. C                        MESSAGES D'ERREUR
  40. C
  41. C
  42.  901  CALL OOOERR (PSEG,-1,'POINTEUR ARGUMENT INVALIDE')
  43.                                                        GO TO 950
  44.  902  CALL OOOERR (PSEG,-1,'LE POINTEUR DESIGNE UN SEGMENT SUPPRIME')
  45.                                                        GO TO 950
  46.  903  CALL OOOERR (ITYP,-1,'TYPE SEGMENT INVALIDE')
  47.                                                        GO TO 950
  48.  904  CALL OOOERR (0,0,'ARGUMENT(S) ELEMENT(S) DE SEGMENT ...')
  49.                                                        GO TO 950
  50.  950         STOP 16
  51.       END
  52.  
  53.  

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