Esope source files

   1 : C COMPINT   SOURCE    PV        05/09/22    21:15:16     5181           
   2 : C  Changement interactif de l'amplification de'une deformee
   3 : C
   4 :       SUBROUTINE COMPINT(NCOMP,LCOMP,COMPCH)
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCOPTIO
   7 :        character*(*) compch(*)
   8 :        character*8  text,LEGEND(10)
   9 :        do i=1,ncomp
  10 :         legend(i)=compch(i)
  11 :        enddo
  12 :   10   continue
  12 :        CALL TRMESS('Composante choisie :')
  13 :       
  13 :        CALL MENU(legend,ncomp,8)
  13 :        CALL TRDIG(XP,YP,INCLE)
  14 :         lcomp=incle+1
  15 :         if (lcomp.le.0) goto 10
  16 :       RETURN
  17 :       END
  18 : 
  19 :  
  20 :  
  21 :  
  22 :  
  23 :  
  24 :