Télécharger la plaquette Cast3M


fr en

Télécharger ooossg.eso

Retour à la liste

Numérotation des lignes : 

ooossg

  1. C OOOSSG    SOURCE    PV090527  26/04/25    21:15:04     12524          
  2.       SUBROUTINE OOOSSG
  3. C---------------------------------------------------------------------
  4. C
  5. C            A-    INITIALISER LA GESTION SEGMENT
  6. C            B-    EDITER LES PARAMETRES D'EXECUTION DE GEMAT
  7. C
  8. C---------------------------------------------------------------------
  9. C
  10. %INC IOOUNIT
  11. %INC IOOVAL
  12. *  %INC IBLB
  13. C
  14.       INTEGER     LK(2),NK(3)
  15.       CHARACTER*3 LMOIS(12)
  16.       LOGICAL     BOTEST
  17. C
  18.       DATA LMOIS  / 'JAN' , 'FEV' , 'MAR' , 'AVR' , 'MAI' , 'JUN'
  19.      *            , 'JUI' , 'AOU' , 'SEP' , 'OCT' , 'NOV' , 'DEC' /
  20. C
  21. C****** INITIALISATION DE LA GESTION SEGMENT
  22. C
  23.       CALL OOOSEG(0)
  24. C
  25. C*
  26. C******  EDITION DES PARAMETRES D'EXECUTION  DE GEMAT
  27. C*
  28.       IVERS =OOOVAL(GO,NUMVERSION)
  29.       LK(1) =IVERS/10
  30.       LK(2) =IVERS-10*LK(1)
  31.       IDATE =OOOVAL(GO,DATEVERSION)
  32.       IMOIS =IDATE/100
  33.       NK(1) =IDATE-IMOIS*100
  34.       NK(2) =OOOVAL(GO,ESOPE)
  35.       NK(3) =OOOVAL(GO,BUFFER)
  36.       NK4   =OOOVAL(GO,QBLOCSDISQUE)
  37.       NK5   =OOOVAL(GO,DIMBLOC)
  38. C
  39.       BOTEST= .FALSE.
  40.       LBASE = 1
  41. %IF UNIX32,WIN32
  42.       BOTEST=.TRUE.
  43.       LBASE = 4
  44. %ENDIF
  45. %IF UNIX64,WIN64
  46.       BOTEST=.TRUE.
  47.       LBASE = 8
  48. %ENDIF
  49.       IF (BOTEST) THEN
  50.         LCOEF = 1024  / LBASE
  51.         NK(2) = NK(2) / LCOEF / 1024
  52.         NK(3) = NK(3) / LCOEF / 1024
  53.         NK5   = NK5   / LCOEF
  54. C       Affichage en Octets (Mega ou Kilo pour LTRK)
  55.         WRITE (JLST,1001) LK,LMOIS(IMOIS),NK
  56.         IF (NK4.NE.0) WRITE (JLST,1011) NK4,NK5
  57.       ELSE
  58. C       Affichage en MOTS
  59.         WRITE (JLST,1000) LK,LMOIS(IMOIS),NK
  60.         IF (NK4.NE.0) WRITE (JLST,1010) NK4,NK5
  61.       ENDIF
  62.                                                        RETURN
  63.  
  64.  1000 FORMAT (' *** GEMAT CS ',I2,'.',I1,'  ',A,I3,' ***  '
  65.      &       ,'ESOPE=',I10,' (MOTS)','  LIBRE=',I10,' (MOTS)')
  66.  1010 FORMAT (32X,'NTRK =',I10,9X,'LTRK =',I10,' (MOTS)',/)
  67.  
  68.  1001 FORMAT (' *** GEMAT CS ',I2,'.',I1,'  ',A,I3,' ***  '
  69.      &       ,'ESOPE=',I6,' (Mo)','  LIBRE=',I6,' (Mo)')
  70.  1011 FORMAT (32X,'NTRK =',I6,7X,'LTRK =',I6,' (Ko)',/)
  71.       END
  72.  
  73.  
  74.  

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