Télécharger la plaquette Cast3M


fr en

Télécharger oostas.eso

Retour à la liste

Numérotation des lignes : 

oostas

  1. C OOSTAS    SOURCE    PV090527  26/04/24    08:23:43     12524          
  2.       SUBROUTINE OOSTAS (SSSS,N)
  3. C----------------------------------------------------------------------
  4. C
  5. C                   FOURNITURE STATISTIQUES  GEMAT
  6. C
  7. C PROGRAMMEUR : MOUGIN
  8. C       MODIF : 15/10/87   SUBROUTINE OOSTAS ET ENTRY OOSVAL
  9. C       MODIF : 15/10/87   SSSS : PREMIER ARGUMENT COMMUN  ...
  10. C       MODIF : 09/05/89   VERSION 9.1
  11. C
  12. C-----------------------------------------------------------------------
  13. C
  14. %INC IOOADR
  15.       INTEGER        SSSS(*)
  16.       CHARACTER*(*)  STAC(*)
  17.  
  18.       CHARACTER*(16) TITR(10)
  19.       INTEGER        IVAL(2)
  20.       DATA TITR /
  21.      1            ' TOTAL   ACTUEL ' ,
  22.      2            ' TOTAL  MAXIMUM ' ,
  23.      3            ' ACTIFS  ACTUEL ' ,
  24.      4            ' ACTIFS MAXIMUM ' ,
  25.      5            '    DEPLACES    ' ,
  26.      6            'ECRIS SUR DISQUE' ,
  27.      7            ' LUS EN MEMOIRE ' ,
  28.      8            ' LUS ET ACTIVES ' ,
  29.      9            '  BLOCS ECRIS   ' ,
  30.      A            '   BLOCS LUS    ' /
  31.       DATA IVAL / 09 01 , 05 89 /
  32. C-----------------------------------------------------------------------
  33. C
  34. C      ->SSSS(I),I=1,N)   LES  N  PREMIERES VALEURS POUR LES SEGMENTS
  35. C
  36.       DO   I=1,N
  37.         SSSS(I)=MZJSS(I)
  38.       ENDDO
  39.                                                        RETURN
  40. C-----------------------------------------------------------------------
  41. C
  42. C      ->SSSS(I),I=1,N)   LES  N  PREMIERES VALEURS POUR LES MOTS
  43. C
  44.       ENTRY      OOSTAM(SSSS,N)
  45.       DO   I=1,N
  46.         SSSS(I)=MZJSM(I)
  47.       ENDDO
  48.                                                        RETURN
  49. C-----------------------------------------------------------------------
  50. C
  51. C      ->SSSS(I),I=1,N)   LES  N  PREMIERES VALEURS DU SYSTEME GEMAT
  52. C
  53.       ENTRY      OOSVAL(SSSS,N)
  54.       I1=MIN0(2,N)
  55.       DO   I=1,I1
  56.         SSSS(I)=IVAL(I)
  57.       ENDDO
  58.                                                        RETURN
  59. C-----------------------------------------------------------------------
  60. C
  61. C      ->STAC(I),I=1,N)   LES TITRES DES  N  PREMIERES VALEURS
  62. C
  63.       ENTRY      OOSTAC(STAC,N)
  64.       DO   I=1,N
  65.         STAC(I)=TITR(I)
  66.       ENDDO
  67.                                                        RETURN
  68.       END
  69.  
  70.  

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