Télécharger laplac.eso

Retour à la liste

Numérotation des lignes :

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

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