Télécharger la plaquette Cast3M


fr en

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