Télécharger psi3di.eso

Retour à la liste

Numérotation des lignes :

  1. C PSI3DI SOURCE BP208322 18/06/11 21:15:09 9829
  2.  
  3. SUBROUTINE PSI3Di(ith)
  4.  
  5. ***********************************************************************
  6. * Cette subroutine fait l'interface entre PSIP3D et PSI3D0
  7. * pour la //isation
  8. * Elle recupere le contenu du COMMON psiabc
  9. ***********************************************************************
  10.  
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14. C Declaration du COMMON pour le travail en parallele
  15. COMMON/psiabc/IPARAL
  16.  
  17. C Recuperation du segment dans le COMMON (voir TMVALUE.INC)
  18. IPOINT=IPARAL
  19. CALL PSI3D0(ith,IPOINT)
  20.  
  21. RETURN
  22. END
  23.  
  24.  
  25.  

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