Télécharger la plaquette Cast3M


fr en

Télécharger stydes.eso

Retour à la liste

Numérotation des lignes : 

stydes

  1. C STYDES    SOURCE    SP204843  24/09/27    21:15:20     12017          
  2.       SUBROUTINE STYDES(LSTY,MMAR,KTAI,MOOPT)
  3. *=============================================================
  4. *
  5. * DEFINI LE STYLE DE TRACE DES COURBES (EX : TIRR MARQ XL CROIX)
  6. *
  7. *=============================================================
  8. *
  9. * Creation :
  10. *   24 SEPT. 2024, S. PASCAL
  11. *
  12. *=============================================================
  13.  
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8(A-H,O-Z)
  16.  
  17. -INC PPARAM
  18.  
  19.       EXTERNAL  LONG
  20.       PARAMETER (NBSTY=7,NBMAR=13,NBTAI=5)
  21.  
  22.       CHARACTER*(LOCHAI) MOOPT
  23.       CHARACTER*4        MOSTYL(NBSTY),MOMARQ(NBMAR),MOTAIL(NBTAI)
  24.  
  25.       DATA MOSTYL/'LIGN','TIRR','TIRC','TIRL','TIRM','POIN','NOLI'/
  26.       DATA MOMARQ/'CROI','PLUS','MOIN','BARR','ETOI','CARR',
  27.      &            'LOSA','ROND','TRID','TRIU','TRIL','TRIR',
  28.      &            'NOMA'/
  29.       DATA MOTAIL/'XS','S','M','L','XL'/
  30.  
  31.       LSTYL1 = LSTY
  32.       MMARQ1 = MMAR
  33.       KTAIL1 = KTAI
  34. C     write(6,*) 'LSTY,MMAR,KTAI=',LSTY,MMAR,KTAI
  35.  
  36. C     SI style incoherent => LIGN NOMA M
  37.       IF (LSTYL1.LE.0.OR.LSTYL1.GT.NBSTY) LSTYL1 = 1
  38.       IF (MMARQ1.LE.0.OR.MMARQ1.GE.NBMAR) MMARQ1 = 0
  39.       IF (KTAIL1.LE.0.OR.KTAIL1.GT.NBTAI) KTAIL1 = 3
  40.  
  41.  
  42.       MOOPT = ' '
  43.  
  44.       IF (MMARQ1.GT.0) THEN
  45.         MOOPT(1:14) = 'MARQ '//MOTAIL(KTAIL1)//' '//MOMARQ(MMARQ1)
  46.       ENDIF 
  47.  
  48.       IFIN1 = LONG(MOOPT)
  49.       MOOPT(1:IFIN1+5)=MOSTYL(LSTYL1)//' '//MOOPT(1:IFIN1)
  50.  
  51. C     write(6,*) 'MOOPT=',MOOPT
  52.  
  53.       RETURN
  54.       END
  55.  
  56.  

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