Esope source files

   1 : C AMPINT    SOURCE    PV        07/11/23    21:15:21     5978           
   2 : C  Changement interactif de l'amplification de'une deformee
   3 : C
   4 :       SUBROUTINE AMPINT(NDEF,VCHC,AMPIMP)
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCOPTIO
   7 : -INC SMTEXTE
   8 :        real vchc(70),x(5),y(5)
   9 :        real*8 ampllu
  10 :        character*8 text,LEGEND(7)
  11 :  400   CONTINUE
  12 :         LEGEND(1)='   Ok  '
  13 :         LEGEND(2)=' Saisie'
  14 :         do 10 i=1,5
  15 :         write(legend(2+i),fmt='(1pe8.2)') ampimp*(2.**(i-3))
  16 :   10    continue
  17 :         write (text,fmt='(1pe8.2)') ampimp
  17 :        CALL TRMESS('Nouvelle amplification : '//text)
  17 :        CALL MENU(LEGEND,7,8)
  17 :        CALL TRDIG(XP,YP,INCLE)
  18 :         icle=incle+1
  19 :         if (icle.gt.2) ampimp=ampimp*(2.**(icle-5))
  20 :        if (icle.eq.2) then
  21 :          do i=1,8
  22 :           legend(i)=' '
  23 :          enddo
  23 :          CALL MENU(LEGEND,7,8)
  24 :           text=' '
  24 :          call trget('Nouvelle amplification : ',text)
  25 :          segini mtexte
  26 :          mtext=text
  27 :          ncart=8
  27 :          call ecrobj('TEXTE',mtexte)
  27 :          call lirree(ampllu,0,iretou)
  28 :          segsup mtexte
  29 :          if (iretou.ne.0)  ampimp=ampllu
  29 :          call razpil
  30 :        endif
  31 :        if (icle.ne.1) goto 400
  32 :       RETURN
  33 :       END
  34 : 
  35 :  
  36 :  
  37 :  
  38 :  
  39 :  
  40 :  
  41 :  
  42 :