Télécharger compint.eso

Retour à la liste

Numérotation des lignes :

  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
  13. CALL TRMESS('Composante choisie :')
  14.  
  15. CALL MENU(legend,ncomp,8)
  16. CALL TRDIG(XP,YP,INCLE)
  17. lcomp=incle+1
  18. if (lcomp.le.0) goto 10
  19. RETURN
  20. END
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  

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