Télécharger la plaquette Cast3M


fr en

Télécharger ooozz5.eso

Retour à la liste

Numérotation des lignes : 

ooozz5

  1. C OOOZZ5    SOURCE    PV090527  26/04/24    08:23:41     12524          
  2.       SUBROUTINE OOOZZ5
  3. C-----------------------------------------------------------------------
  4. C                                                    GEMAT TRANSPORTABLE
  5. C
  6. C                     IMPRESSION D'UNE TRACEBACK
  7. C
  8. C PROGRAMMEUR : MOUGIN
  9. C       MODIF : 16/10/87    AJOUTER LE  SUN
  10. C       MODIF : 26/10/88    AJOUTER LE  CONVEX
  11. C       MODIF : 06/11/89    AJOUTER CFT77
  12. C       MODIF : 22/03/2016  WIN64  =>  INTRODUCTION
  13. C-----------------------------------------------------------------------
  14. C
  15. %INC IOOUNIT
  16. %IF IBM
  17.       CALL ERRTRA
  18. %ENDIF
  19. %IF CRAY,CFT77
  20.       CALL TRBK (6)
  21. %ENDIF
  22. %IF CDC,NOSVE
  23.       CALL STRACE
  24. %ENDIF
  25. %IF VAX
  26. C
  27. C     LA TRACE BACK APPARAIT DANS LE FICHIER : SYS$ERROR
  28. C
  29.       CALL LIB$SIGNAL (%VAL(2))
  30. %ENDIF
  31. %IF FPS
  32.       CALL SYS$SIGNAL (327685)
  33. %ENDIF
  34. %IF CONVEX
  35.       CALL TRACEBACK
  36. %ENDIF
  37. %IF XXX,SEL,UNIVAC,PRIME,UNIX32,APOLLO,UNIX64,WIN32,WIN64
  38.       WRITE(JLST,*)  ' LE SOUS-PROGRAMME D''IMPRESSION DE TRACEBACK'
  39.      1        , ' N''EST PAS CONNU'
  40.       WRITE(JERR,*)  ' LE SOUS-PROGRAMME D''IMPRESSION DE TRACEBACK'
  41.      1        , ' N''EST PAS CONNU'
  42. %ENDIF
  43.                                                        RETURN
  44.       END
  45.  
  46.  

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