C LAPLAC    SOURCE    CHAT      05/01/13    01:12:55     5004
      SUBROUTINE LAPLAC
C
C =====================================================================
C
C =====================================================================
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
      CHARACTER*40 CHA1
      CHARACTER*40 CHA2
C
      CALL LIRCHA(CHA1,1,IRETOU)
      IF (IERR.NE.0) RETURN
C
C
      IF     (CHA1(1:7).EQ.'INVERSE') THEN
          CALL LAPLIN
      ELSEIF (CHA1(1:7).EQ.'TRANSFORMEE' ) THEN
C         CALL LAPLIN
C
      ENDIF
C
      RETURN
C
      END