Sources Esope | Cast3M

prcha1
C PRCHA1    SOURCE    OF166741  24/08/06    21:15:04     11982          
 
      SUBROUTINE PRCHA1
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
      CALL ERREUR(5)
 
c      return
      END