Sources Esope | Cast3M

stydes
C STYDES    SOURCE    SP204843  25/06/05    21:15:07     12270          
      SUBROUTINE STYDES(LSTY,MMAR,KTAI,MOOPT)
*=============================================================
*
* DEFINI LE STYLE DE TRACE DES COURBES (EX : TIRR MARQ XL CROIX)
*
*=============================================================
*
* Creation :
*   24 SEPT. 2024, S. PASCAL
*
*=============================================================
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC CCGEOME
-INC PPARAM
 
      EXTERNAL  LONG
      CHARACTER*(LOCHAI) MOOPT
 
      LSTYL1 = LSTY
      MMARQ1 = MMAR
      KTAIL1 = KTAI
C     write(6,*) 'LSTY,MMAR,KTAI=',LSTY,MMAR,KTAI
 
C     SI style incoherent => LIGN NOMA M
      IF (LSTYL1.LE.0.OR.LSTYL1.GT.NBSTY) LSTYL1 = 1
      IF (MMARQ1.LE.0.OR.MMARQ1.GE.NBMAR) MMARQ1 = 0
      IF (KTAIL1.LE.0.OR.KTAIL1.GT.NBTAI) KTAIL1 = 3
 
 
      MOOPT = ' '
 
      IF (MMARQ1.GT.0) THEN
        MOOPT(1:14) = 'MARQ '//MOTAIL(KTAIL1)//' '//MOMARQ(MMARQ1)
      ENDIF 
 
      IFIN1 = LONG(MOOPT)
      MOOPT(1:IFIN1+5)=MOSTYL(LSTYL1)//' '//MOOPT(1:IFIN1)
 
C     write(6,*) 'MOOPT=',MOOPT
 
      RETURN
      END