Sources Esope | Cast3M

psi3di
C PSI3DI    SOURCE    BP208322  18/06/11    21:15:09     9829           
 
      SUBROUTINE PSI3Di(ith)
 
***********************************************************************
*     Cette subroutine fait l'interface entre PSIP3D et PSI3D0
*     pour la //isation
*     Elle recupere le contenu du COMMON psiabc
***********************************************************************
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
C     Declaration du COMMON pour le travail en parallele
      COMMON/psiabc/IPARAL
 
C     Recuperation du segment dans le COMMON (voir TMVALUE.INC)
      IPOINT=IPARAL
      CALL PSI3D0(ith,IPOINT)
 
      RETURN
      END