Télécharger la plaquette Cast3M


fr en

Télécharger oooxln.eso

Retour à la liste

Numérotation des lignes : 

oooxln

  1. C OOOXLN    SOURCE    PV090527  26/04/24    08:23:34     12524          
  2.       SUBROUTINE OOOXLN (PSEG,LP,I1,I2)
  3. C--------------------------------------------------------------------
  4. C
  5. C                   ACCES AUX DONNEES D'UN SEGMENT
  6. C                        (UTILISE PAR ARCHIVE)
  7. C
  8. C       PSEG     POINTEUR SUR LE SEGMENT
  9. C
  10. C     ->LP       DIMENSION DU SEGMENT EQUIVALENT
  11. C     ->I1,I2    TEL QUE : P(I),I=I1,I2  PARCOURT LES DONNEES
  12. C
  13. C     EXEMPLE D'UTILISATION :
  14. C     ----------------------
  15. C
  16. C     SEGMENT /S/ (A,B,C(N,M),....)
  17. C     SEGMENT , P(LP)*I
  18. C
  19. C        POUR ECRIRE LES DONNEES DU SEGMENT S SUR BANDE :
  20. C
  21. C          CALL OOOXLN (S,LP,I1,I2)
  22. C          WRITE  LP,I1,I2
  23. C          P=S
  24. C          WRITE   (P(I),I=I1,I2)
  25. C
  26. C        POUR RESTAURER LE SEGMENT S :
  27. C
  28. C          READ   LP,I1,I2
  29. C          SEGINI P
  30. C          READ   (P(I),I=I1,I2)
  31. C          S=P
  32. C
  33. C PROGRAMMEUR : MOUGIN
  34. C       MODIF : 03/11/88    CALL OOOYAC ... => SEGACT ...
  35. C
  36. C--------------------------------------------------------------------
  37. C
  38. %INC IOOADR
  39. %INC IOOADZ
  40. %INC IOODES
  41. %INC IOOSGM
  42. C
  43.        POINTEUR PSEG.PSEG
  44. C
  45.        SEGACT , PSEG
  46. C
  47. C****** L'ACCES AUX DONNEES DEPEND DE L'IMPLANTATION DES DONNEES DANS
  48. C         LE SEGMENT,QUI EST DECIDEE PAR LE TRADUCTEUR
  49. C
  50. C                   -------------------------
  51. C  SEGMENT , PSEG  |L | | | |A |B|!|C|.|.|L |
  52. C                   -------------------------
  53. C                              |  LP+1 MOTS |
  54. C
  55. C
  56. C                   -------------------------
  57. C  SEGMENT ,  P    |L | | | |LP|.|.|.|.|.|L |
  58. C                   ----------|--------------
  59. C                      P(0)-> | |         |
  60. C                               |LP MOTS  |
  61. C
  62.        LP = MSLS1(MDISG(PSEG))-(MSLCZ)-1
  63.        I1 = 0
  64.        I2 = LP
  65.  
  66.       END
  67.  
  68.  

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