Télécharger la plaquette Cast3M


fr en

Télécharger ooozza.eso

Retour à la liste

Numérotation des lignes : 

ooozza

  1. C OOOZZA    SOURCE    PV090527  26/04/24    08:23:42     12524          
  2.       SUBROUTINE OOOZZA (LMOT)
  3. C---------------------------------------------------   JAN 87   --------
  4. C                                                   GEMAT TRANSPORTABLE
  5. C
  6. C                 PLACE MEMOIRE MAXIMUM DISPONNIBLE
  7. C
  8. C   ->LMOT    NOMBRE DE MOTS DISPONNIBLES
  9. C
  10. C PROGRAMMEUR : MOUGIN
  11. C       MODIF : 15/01/87  SUN => FORCER /OOOCOM/ APRES L'EQUIVALENCE
  12. C       MODIF : 30/09/87  EQUIVALENCE (MEM(1),OOV(7)) AU LIEU DE OOV(1)
  13. C       MODIF : 30/09/87  OOOZZA ZZB ZZC ENSEMBLES
  14. C       MODIF : 22/03/2016  WIN64  =>  INTRODUCTION
  15. C
  16. C-----------------------------------------------------------------------
  17. C
  18. C%IF WIN32
  19. C      Include fait pour l'interfaçage FORTRAN - C avec Microsoft Visual C
  20. C      INCLUDE 'esope.fi'
  21. C%ENDIF
  22. C
  23.       SEGMENT , QQQQ(0)
  24. C
  25. %IF UNIX32,UNIX64,WIN32,WIN64
  26.       IDUM=0
  27.       JDUM=0
  28.       CALL OOOZGM(LREU,OOV(1),I,LMOT,IDUM,JDUM)
  29. %ELSE
  30.       PARAMETER   (NBMOTS=200000)
  31.       INTEGER      MEM(NBMOTS)
  32.       EQUIVALENCE (MEM(1),OOV(7))
  33.       LMOT = NBMOTS
  34. %ENDIF
  35.                                                       RETURN
  36. C-----------------------------------------------------------------------
  37. C
  38. C                   PLACE MEMOIRE POUR  G E M A T
  39. C
  40. C   ->LRET  1  ALLOCATION IMPOSSIBLE
  41. C           2  OK
  42. C
  43. C   ->IESO     TELS QUE :  OOV(IESO+I),I=1,LLLL
  44. C     LLLL     PARCOURT LA ZONE MEMOIRE ALLOUEE .
  45. C     MZLB     NOMBRE DE MOTS A LAISSER LIBRES (Pour le systeme).
  46. C
  47.       ENTRY      OOOZZB (LRET,IESO,NBMOTS,LLLL,MZLB)
  48. %IF UNIX32,UNIX64,WIN32,WIN64
  49.       CALL OOOZGM(LRET,OOV(1),IESO,NBMOTS,LLLL,MZLB)
  50. %ELSE
  51.       IESO = 6
  52.       LRET = 2
  53. %ENDIF
  54.                                                       RETURN
  55. C-----------------------------------------------------------------------
  56. C
  57. C            LIBERATION DE LA MEMOIRE DEMANDEE PAR OOOZZB
  58. C
  59. C   ->LRET     1  LIBERATION IMPOSSIBLE
  60. C              2  OK
  61. C
  62. C     IESO,LLLL   LES VALEURS DES ARGUMENTS CORRESPONDANT DE OOOZZB
  63. C
  64.       ENTRY      OOOZZC (LRET,IESO,LLLL)
  65.  
  66. %IF UNIX32,UNIX64,WIN32,WIN64
  67.       CALL OOOZFM(LRET,OOV(1),IESO,LLLL)
  68. %ELSE
  69.       LRET=2
  70. %ENDIF
  71.                                                       RETURN
  72.       END
  73.  
  74.  

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