Sources Esope | Cast3M

compint
C COMPINT   SOURCE    PV        05/09/22    21:15:16     5181
C  Changement interactif de l'amplification de'une deformee
C
      SUBROUTINE COMPINT(NCOMP,LCOMP,COMPCH)
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
       character*(*) compch(*)
       character*8  text,LEGEND(10)
       do i=1,ncomp
        legend(i)=compch(i)
       enddo
  10   continue
       CALL TRMESS('Composante choisie :')
 
       CALL MENU(legend,ncomp,8)
       CALL TRDIG(XP,YP,INCLE)
        lcomp=incle+1
        if (lcomp.le.0) goto 10
      RETURN
      END