Télécharger la plaquette Cast3M


fr en

Télécharger laplac.eso

Retour à la liste

Numérotation des lignes : 

laplac

  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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13.       CHARACTER*40 CHA1
  14.       CHARACTER*40 CHA2
  15. C
  16.       CALL LIRCHA(CHA1,1,IRETOU)
  17.       IF (IERR.NE.0) RETURN
  18. C
  19. C
  20.       IF     (CHA1(1:7).EQ.'INVERSE') THEN
  21.           CALL LAPLIN
  22.       ELSEIF (CHA1(1:7).EQ.'TRANSFORMEE' ) THEN
  23. C         CALL LAPLIN
  24. C
  25.       ENDIF
  26. C
  27.       RETURN
  28. C
  29.       END
  30.  
  31.  

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