Télécharger cinipi.eso

Retour à la liste

Numérotation des lignes :

cinipi
  1. C CINIPI SOURCE PV 17/12/05 21:15:13 9646
  2. subroutine cinipi(jcolac)
  3. C Sous programme mini (MPI INItialisation des PIles)
  4. C Remet a zero les piles d'entiers, flottant, mot et logique
  5. integer iPile
  6. integer ks
  7. -INC TMCOLAC
  8. pointeur jcolac.ICOLAC
  9. pointeur pile.ITLACC
  10. C write(6,*) 'Entree dans CINIPI'
  11. ks=0
  12. do iPile=24,27
  13. segini pile
  14. jcolac.kcola(iPile)=pile
  15. enddo
  16. end
  17.  
  18.  
  19.  
  20.  

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