Télécharger evchi.eso

Retour à la liste

Numérotation des lignes :

  1. C EVCHI SOURCE CB215821 21/01/28 21:15:04 10867
  2. SUBROUTINE EVCHi(ith)
  3.  
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6.  
  7.  
  8. -INC PPARAM
  9.  
  10. CHARACTER*(LOCOMP) CMOT1
  11.  
  12. C Subroutine qui réalise l’interface en parallèle
  13. COMMON/EVCHC/NBTHR,ICPR1,MCHPOI,CMOT1
  14.  
  15.  
  16. CALL EVCH1(NBTHR,ith,ICPR1,MCHPOI,CMOT1)
  17. END
  18.  
  19.  

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