Télécharger la plaquette Cast3M


fr en

Télécharger lmocha.eso

Retour à la liste

Numérotation des lignes : 

lmocha

  1. C LMOCHA    SOURCE    GOUNAND   25/03/24    21:15:07     12215          
  2.       SUBROUTINE LMOCHA(MLMOT1,NOMDD,LNOMDD,NOMDU,LNOMDU,IOBL,MLMOT2)
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : LMOCHA
  7. C DESCRIPTION : Crée la liste de mots MLMOT2 à partir de la liste de
  8. C               mots MLMOT1.
  9. C     Chaque mot de MLMOT1 présent dans NOMDD(LNOMDD) à l'indice INOMDD
  10. C     est remplacé par le mot NOMDU(INOMDD)
  11. C
  12. C     IOBL=1 nécessite que tous les mots de MLMOT1 soient présents dans
  13. C     NOMDD sinon erreur.
  14. C
  15. C
  16. C LANGAGE     : ESOPE
  17. C AUTEUR      : Stephane GOUNAND (CEA/DES/ISAS/DM2S/SEMT/LTA)
  18. C               mel : gounand@semt2.smts.cea.fr
  19. C***********************************************************************
  20. C APPELES          : PLACE
  21. C APPELES (E/S)    :
  22. C APPELES (BLAS)   :
  23. C APPELES (CALCUL) :
  24. C APPELE PAR       : EXTRAI
  25. C***********************************************************************
  26. C SYNTAXE GIBIANE    :
  27. C ENTREES            :
  28. C ENTREES/SORTIES    :
  29. C SORTIES            : MLMOT2
  30. C***********************************************************************
  31. C VERSION    : v1, 21/03/2025, version initiale
  32. C HISTORIQUE : v1, 21/03/2025, creation
  33. C HISTORIQUE :
  34. C HISTORIQUE :
  35. C***********************************************************************
  36. -INC PPARAM
  37. -INC CCOPTIO
  38. -INC SMLMOTS
  39.       CHARACTER*(*) NOMDD(LNOMDD)
  40.       CHARACTER*(*) NOMDU(LNOMDU)
  41. *
  42. * Executable statements
  43. *
  44.       SEGINI,MLMOT2=MLMOT1
  45.       nmots=MLMOT2.MOTS(/2)
  46.       do imots=1,nmots
  47.          call place(nomdd,lnomdd,inomdd,mlmot2.mots(imots))
  48.          if (inomdd.EQ.0) then
  49.             if (iobl.EQ.1) then
  50.                moterr(1:512)=mlmot2.mots(imots)
  51.                WRITE(IOIMP,110) (nomdd(I),I=1,lnomdd)
  52.  110           FORMAT(8(1H ,A))
  53.                GOTO 9999
  54.             endif
  55.          else
  56.             if (inomdd.le.lnomdu) then
  57.                mlmot2.mots(imots)=nomdu(inomdd)
  58.             else
  59.                call erreur(5)
  60.                goto 9999
  61.             endif
  62.          endif
  63.       enddo
  64. *
  65. * Normal termination
  66. *
  67.       RETURN
  68. *
  69. * Format handling
  70. *
  71. *
  72. * Error handling
  73. *
  74.  9999 CONTINUE
  75.       WRITE(IOIMP,*) 'An error was detected in subroutine lmocha'
  76.       RETURN
  77. *
  78. * End of subroutine LMOCHA
  79. *
  80.       END
  81.  
  82.  

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