Esope source files

   1 : C LAPLAC    SOURCE    CHAT      05/01/13    01:12:55     5004           
   2 :       SUBROUTINE LAPLAC                                                         
   3 : C                                                                               
   4 : C =====================================================================         
   5 : C                                                                               
   6 : C =====================================================================         
   7 : C                                                                               
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  10 : -INC CCOPTIO                                                                    
  11 :       CHARACTER*40 CHA1                                                         
  12 :       CHARACTER*40 CHA2                                                         
  13 : C                                                                               
  13 :       CALL LIRCHA(CHA1,1,IRETOU)                                                
  14 :       IF (IERR.NE.0) RETURN                                                     
  15 : C                                                                               
  16 : C                                                                               
  17 :       IF     (CHA1(1:7).EQ.'INVERSE') THEN                                      
  17 :           CALL LAPLIN                                                           
  18 :       ELSEIF (CHA1(1:7).EQ.'TRANSFORMEE' ) THEN                                 
  18 : C         CALL LAPLIN                                                           
  19 : C                                                                               
  20 :       ENDIF                                                                     
  21 : C                                                                               
  22 :       RETURN                                                                    
  23 : C                                                                               
  24 :       END                                                                       
  25 :