Télécharger ipmuli.eso

Retour à la liste

Numérotation des lignes :

ipmuli
  1. C IPMULI SOURCE CB215821 18/07/20 21:15:04 9884
  2. C-----------------------------------------------------------------------
  3. C NOM : IPMULI
  4. C DESCRIPTION : Interface avec IPMUL0 qui peut etre appelee en parallele
  5. C pour un ensemble de valeurs a interpoler
  6. C LANGAGE : ESOPE
  7. C AUTEUR : Francois DI PAOLA / Clement BERTHINIER
  8. C-----------------------------------------------------------------------
  9. C APPELE PAR : IPGRIL VARINU
  10. C APPELE : IPMUL0
  11. C-----------------------------------------------------------------------
  12. C ENTREES
  13. C ITHR : Numero du thread
  14. C SORTIES
  15. C
  16. C-----------------------------------------------------------------------
  17. C VERSION : v1, 05/10/2015, version initiale
  18. C HISTORIQUE : v1, 05/10/2015, creation
  19. C HISTORIQUE : v2, 17/07/2018, Remise en forme pour le parallelisme
  20. C HISTORIQUE :
  21. C-----------------------------------------------------------------------
  22. C Priere de PRENDRE LE TEMPS de completer les commentaires
  23. C en cas de modification de ce sous-programme afin de faciliter
  24. C la maintenance !
  25. C-----------------------------------------------------------------------
  26. C REMARQUES :
  27. C-----------------------------------------------------------------------
  28. C
  29. SUBROUTINE IPMULI(ITHR)
  30. C
  31. IMPLICIT INTEGER(I-N)
  32. IMPLICIT REAL*8 (A-H,O-Z)
  33.  
  34. COMMON/IPLMUC/IPARAL
  35.  
  36. C Recuperation du SEGMENT de travail dans le COMMON
  37. IPOINT = IPARAL
  38. CALL IPMUL0(ITHR,IPOINT)
  39.  
  40. RETURN
  41. END
  42.  
  43.  

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