Télécharger la plaquette Cast3M


fr en

Télécharger ooozz3.eso

Retour à la liste

Numérotation des lignes : 

ooozz3

  1. C OOOZZ3    SOURCE    PV090527  26/04/24    08:23:40     12524          
  2.       SUBROUTINE OOOZZ3
  3. C---------------------------------------------------   SEP 85   --------
  4. C                                            GEMAT TRANSPORTABLE + PRIME
  5. C
  6. C     LES NORMES DU FORTRAN 77 INTERDISENT , LA MISE EN EQUIVALENCE DE
  7. C     VARIABLES DE TYPE  CHARACTER  ET DE VARIABLES DE TYPE  NUMERIQUE
  8. C     OU LOGIQUE , OU LEUR PRESENCE SIMULTANEE DANS LE MEME  COMMON .
  9. C
  10. C     CETTE EXIGENCE , EXCESSIVE POUR LES  PROGRAMMEURS  , N'EST
  11. C     PAS REPRISE PAR TOUS LES COMPILATEURS   FORTRAN 77  . POUR
  12. C     CEUX QUI L'IMPOSENT COMME CELUI DU   CRAY  , LE TRADUCTEUR
  13. C     ESOPE  CORRESPONDANT DOIT PRODUIRE UN FORTRAN SENSIBLEMENT
  14. C     PLUS COMPLIQUE POUR LES VARIABLES CHARACTER DES SEGMENTS .
  15. C
  16. C     LE FORTRAN GENERE FAIT ALORS INTERVENIR UNE VARIABLE   OOG
  17. C     QUI , A L'EXECUTION DOIT AVOIR POUR VALEUR  LA  DIFFERENCE
  18. C     D'ADRESSE ENTRE LES DEUX VARIABLES   OOV  ET  OOH  , CETTE
  19. C     DIFFERENCE DOIT ETRE EXPRIMEE EN NOMBRE DE MOTS ET NON PAS
  20. C     EN NOMBRE DE CARACTERES . UN MOT CORRESPOND A UNE VARIABLE
  21. C     INTEGER REAL OU LOGICAL .
  22. C
  23. C     L'INITIALISATION DE LA VARIABLE  OOG  DOIT ETRE FAITE DANS
  24. C     CE SOUS-PROGRAMME . LA DECLARATION DU SEGMENT  S  FORCE LE
  25. C     TRADUCTEUR  ESOPE A GENERER LES DECLARATIONS DES VARIABLES
  26. C     OOG  OOH  ET  OOV  AINSI QUE CELLES DES   COMMON   QUI LES
  27. C     CONTIENNENT .
  28. C
  29. C PROGRAMMEUR : MOUGIN
  30. C       MODIF : 19/03/87    NOSVE  =>  INTRODUCTION
  31. C       MODIF : 26/10/88    CONVEX =>  INTRODUCTION
  32. C       MODIF : 6/11/89     MACHINE CFT77
  33. C       MODIF :12/12/89  SUPPRESSION PROCEDURE OOOZZ3 SOUCRAY
  34. C       INTEGREE DANS OOOZZ3 SOURCE
  35. C       MODIF : 22/03/2016  WIN64  =>  INTRODUCTION
  36. C-----------------------------------------------------------------------
  37. C
  38.       SEGMENT , S
  39.         INTEGER   IIII
  40.         CHARACTER HHHH
  41.       ENDSEGMENT
  42. C
  43. %IF CRAY
  44.       OOG=LOC(OOV)-LOC(OOH)
  45. %ENDIF
  46. C
  47. %IF CFT77
  48.       OOG=MOD(LOC(OOV),16 777 216) - MOD(LOC(OOH),16 777 216)
  49. %ENDIF
  50. C
  51. %IF CDC
  52.       OOG=MOD(LOCF(OOV),16 777 216)-MOD(LOCF(OOH),16 777 216)
  53. %ENDIF
  54. C
  55. %IF IBM,VAX,UNIVAC,PRIME,APOLLO,UNIX32,NOSVE,CONVEX,UNIX64,WIN32,WIN64
  56. %ENDIF
  57. C
  58. %IF FPS
  59.       OOG=LOC(OOV)-LOC(OOH)/8
  60. %ENDIF
  61. C
  62. %IF XXX,SEL
  63.       IL FAUT INTERVENIR DANS CE SOUS-PROGRAMME .
  64. %ENDIF
  65.           RETURN
  66.       END
  67.  
  68.  

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