Télécharger dvdmax.eso

Retour à la liste

Numérotation des lignes :

  1. C DVDMAX SOURCE KICH 19/10/25 21:15:07 10351
  2. SUBROUTINE DVDMAX(s,centre,ray2,llis,nbrobl,nombre,indx)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. c ***********************************************************
  6. c plus loin du centre
  7. c ***********************************************************
  8. integer llis(nbrobl)
  9. real*8 centre(nbrobl-1),v(nbrobl-1)
  10. real*8 s(nbrobl-1,nombre)
  11. * write(6,*) 'dd',(llis(ju),ju=1,nbrobl)
  12. indx = 0
  13. dmax = ray2
  14. do ju = 1,nombre
  15. do jli= 1,nbrobl
  16. if(ju.eq.llis(jli)) goto 20
  17. enddo
  18. do ic = 1,nbrobl-1
  19. v(ic) = s(ic,ju) - centre(ic)
  20. enddo
  21. dd = v(1)*v(1) + v(2)*v(2) + 2.D0*v(3)*v(3)
  22. if(nbrobl.gt.4) then
  23. dd = dd + 2.D0*(v(4)*v(4) + v(5)*v(5))
  24. endif
  25. * write(6,*)'dmax',ju,(dd.gt.dmax),dd,dmax
  26. if(dd.gt.dmax) then
  27. dmax = dd
  28. indx = ju
  29. endif
  30. 20 continue
  31. enddo
  32.  
  33. RETURN
  34. END
  35.  
  36.  
  37.  

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