Télécharger la plaquette Cast3M


fr en

Télécharger titmod.eso

Retour à la liste

Numérotation des lignes : 

titmod

  1. C TITMOD    SOURCE    CHAT      05/01/13    03:41:35     5004
  2.       SUBROUTINE TITMOD(MMODE,ITEX)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C   FABRICATION DU TITRE ITEX POUR LE MODE D'EN TETE MMODE
  7. C
  8. C    ECRIT PAR FARVACQUE
  9. C=======================================================================
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC SMSOLUT
  14.       CHARACTER *72 ITEX
  15. C
  16.       ITEX='  MODE  NUMERO          FREQUENCE                HZ'
  17. C
  18.            SEGACT MMODE
  19.       WRITE(ITEX(17:20),FMT='(I4)') IMMODD(1)
  20.            FREQ= FMMODD(1)
  21.            IF(FREQ.GT.1) THEN
  22.         WRITE(ITEX(37:44),FMT='(F8.3)') FREQ
  23.            ELSE
  24.         WRITE(ITEX(37:48),FMT='(1PE12.5)') FREQ
  25.            ENDIF
  26. C
  27.            IF(IMMODD(3).NE.0) THEN
  28.       ITEX(57:60)='  N='
  29.       WRITE(ITEX(61:64),FMT='(I4)') ABS(IMMODD(2))
  30.            ENDIF
  31.            IF(IMMODD(2).EQ.0) GOTO 999
  32.            I=IMMODD(3)
  33.       IF(I.EQ.1) ITEX(66:72)='SINUS'
  34.       IF(I.EQ.2) ITEX(66:72)='COSINUS'
  35. C
  36.  999  CONTINUE
  37.       SEGDES MMODE
  38.       RETURN
  39.       END
  40.  
  41.  

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