Télécharger la plaquette Cast3M


fr en

Télécharger ooozz2.eso

Retour à la liste

Numérotation des lignes : 

ooozz2

  1. C OOOZZ2    SOURCE    PV090527  26/04/24    08:23:39     12524          
  2.       SUBROUTINE OOOZZ2 (NBPDU,NBMOT)
  3. C---------------------------------------------------   DEC 84   --------
  4. C                                                   GEMAT TRANSPORTABLE
  5. C
  6. C  DANS : OPEN ( ... ,ACCESS='DIRECT',FORM='UNFORMATTED',RECL=LREC ...
  7. C         LREC S'EXPRIME EN  PDU ('PROCESSOR DEPENDANT UNIT' ?)
  8. C
  9. C   ->NBPDU   NBMOT CONVERTI EN  'PROCESSOR DEPENDANT UNIT'
  10. C     NBMOT   EN MOTS , TAILLE D'UN ENREGISTREMENT ACCES DIRECT
  11. C
  12. C PROGRAMMEUR : MOUGIN
  13. C       MODIF : 19/03/87    NOSVE  =>  INTRODUCTION
  14. C       MODIF : 26/10/88    CONVEX =>  INTRODUCTION
  15. C       MODIF : 03/04/89    NOSVE  =>  CORRECTION
  16. C       MODIF :  6/11/89    CFT77  =>  INTRODUCTION
  17. C       MODIF : 22/03/2016  WIN64  =>  INTRODUCTION
  18. C-----------------------------------------------------------------------
  19. C
  20.       NBPDU=-1
  21.  
  22. %IF IBM,APOLLO,UNIX32,CONVEX,WIN32
  23.       NBPDU=NBMOT*4
  24. %ENDIF
  25. %IF CRAY,CFT77,UNIX64,WIN64
  26.       NBPDU=NBMOT*8
  27. %ENDIF
  28. %IF VAX,CDC,UNIVAC,NOSVE
  29.       NBPDU=NBMOT
  30. %ENDIF
  31.       END
  32.  
  33.  

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