Esope source files

   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 : -INC CCOPTIO                                                                    
  11 : -INC SMSOLUT                                                                    
  12 :       CHARACTER *72 ITEX                                                        
  13 : C                                                                               
  14 :       ITEX='  MODE  NUMERO          FREQUENCE                HZ'                
  15 : C                                                                               
  16 :            SEGACT MMODE                                                         
  17 :       WRITE(ITEX(17:20),FMT='(I4)') IMMODD(1)                                   
  18 :            FREQ= FMMODD(1)                                                      
  19 :            IF(FREQ.GT.1) THEN                                                   
  20 :         WRITE(ITEX(37:44),FMT='(F8.3)') FREQ                                    
  21 :            ELSE                                                                 
  22 :         WRITE(ITEX(37:48),FMT='(1PE12.5)') FREQ                                 
  23 :            ENDIF                                                                
  24 : C                                                                               
  25 :            IF(IMMODD(3).NE.0) THEN                                              
  26 :       ITEX(57:60)='  N='                                                        
  27 :       WRITE(ITEX(61:64),FMT='(I4)') ABS(IMMODD(2))                              
  28 :            ENDIF                                                                
  29 :            IF(IMMODD(2).EQ.0) GOTO 999                                          
  30 :            I=IMMODD(3)                                                          
  31 :       IF(I.EQ.1) ITEX(66:72)='SINUS'                                            
  32 :       IF(I.EQ.2) ITEX(66:72)='COSINUS'                                          
  33 : C                                                                               
  34 :  999  CONTINUE                                                                  
  35 :       SEGDES MMODE                                                              
  36 :       RETURN                                                                    
  37 :       END                                                                       
  38 :