Télécharger la plaquette Cast3M


fr en

Télécharger IOOCH2.INC

Retour à la liste

Numérotation des lignes : 

  1. C           ---------------------------------                                   
  2. C              POUR SUBROUTINES D'ARCHIVAGE                                     
  3. C           ---------------------------------                                   
  4.       CHARACTER *(*) HNOMV                                                      
  5.       POINTEUR PSEG.PSEG , PARCH.KARCHIV                                        
  6.       INTEGER    IDIM(*)                                                        
  7. C ...................................                                           
  8.       CHARACTER *(*) HNOMVA(1)                                                  
  9. C               DECLARATIONS DE  *NOMVA                                         
  10. C                                                                               
  11.       LOGICAL    LNOMVA(1)                                                      
  12. %IF VAX,PRIME,NORSK
  13.       LOGICAL*2  MNOMVA(1)                                                      
  14. %ELSE                                                                           
  15.       LOGICAL    MNOMVA(1)                                                      
  16. %ENDIF                                                                          
  17. C                                                                               
  18. %IF IBM,VAX,SEL,PRIME                                                           
  19.       LOGICAL*1  NNOMVA(1)                                                      
  20. %ELSE                                                                           
  21. %IF NORSK
  22.       LOGICAL*2  NNOMVA(1)                                                      
  23. %ELSE                                                                           
  24.       LOGICAL    NNOMVA(1)                                                      
  25. %ENDIF                                                                          
  26. %ENDIF                                                                          
  27. C                                                                               
  28.       INTEGER    INOMVA(1)                                                      
  29. C                                                                               
  30. %IF SEL,UNIVAC,CRAY,CFT77,CDC,FPS,NOSVE                                         
  31.       INTEGER    JNOMVA(1)                                                      
  32. %ELSE                                                                           
  33.       INTEGER*2  JNOMVA(1)                                                      
  34. %ENDIF                                                                          
  35. C                                                                               
  36. %IF SEL,UNIVAC,CRAY,CFT77,CDC,FPS,NOSVE                                         
  37.       INTEGER    KNOMVA(1)                                                      
  38. %ELSE                                                                           
  39.       INTEGER*2  KNOMVA(1)                                                      
  40. %ENDIF                                                                          
  41. C                                                                               
  42.       REAL       RNOMVA(1)                                                      
  43. C     POUR COMPLEX:                                                             
  44.       REAL       CNOMVA(2,1)                                                    
  45. C                                                                               
  46. %IF CRAY,CFT77,CDC,FPS,NOSVE                                                    
  47. C     REAL SUR 8 BYTES                                                          
  48.       REAL       DNOMVA(1)                                                      
  49. C     POUR COMPLEX:                                                             
  50.       REAL       YNOMVA(2,1)                                                    
  51. %ELSE                                                                           
  52.       REAL*8     DNOMVA(1)                                                      
  53. C     POUR COMPLEX:                                                             
  54.       REAL*8     YNOMVA(2,1)                                                    
  55. %ENDIF                                                                          
  56. C                                                                               
  57. %IF IBM,VAX,SEL,PRIME                                                           
  58.       REAL*16    QNOMVA(1)                                                      
  59. C     POUR COMPLEX:                                                             
  60.       REAL*16    ZNOMVA(2,1)                                                    
  61. %ELSE                                                                           
  62.       REAL*8     QNOMVA(1)                                                      
  63. C     POUR COMPLEX:                                                             
  64.       REAL*8     ZNOMVA(2,1)                                                    
  65. %ENDIF                                                                          
  66. C..........................                                                     
  67.       CHARACTER *5 CH5                                                          
  68.       CHARACTER *11 CH11                                                        
  69.       CHARACTER *6 CH6                                                          
  70.       CHARACTER *4 CH4                                                          
  71.       CHARACTER *16 CH16                                                        
  72.       CHARACTER *25 CH25                                                        
  73.       CHARACTER *42 CH42                                                        
  74.  
  75. C  H_MULLEMAN 1/8/91                                                            
  76. C------------------------------------------------------                         
  77.  

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