Télécharger procon.eso

Retour à la liste

Numérotation des lignes :

  1. C PROCON SOURCE CB215821 19/03/18 21:15:52 10160
  2. FUNCTION PROCON(XX,YY,NSTRS)
  3.  
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6.  
  7. DIMENSION XX(*),YY(*)
  8. data ISAV /0/
  9. save ISAV
  10.  
  11. data sqxgr /0/
  12. save sqxgr
  13. -INC CCREEL
  14.  
  15. PROCO = 0.D0
  16.  
  17. IF(ISAV .EQ. 0)THEN
  18. sqxgr=sqrt(xgrand)
  19. ENDIF
  20.  
  21. IF (NSTRS .GT. 3) GOTO 1
  22. DO I=1,NSTRS
  23. XI = min(sqxgr,max(XX(i),-sqxgr))
  24. YI = min(sqxgr,max(YY(i),-sqxgr))
  25. PROCO = PROCO + XI*YI
  26. ENDDO
  27. PROCON = PROCO
  28. RETURN
  29.  
  30. 1 DO I=4,NSTRS
  31. XI = min(sqxgr,max(XX(i),-sqxgr))
  32. YI = min(sqxgr,max(YY(i),-sqxgr))
  33. PROCO = PROCO + XI*YI
  34. ENDDO
  35. PROCO = PROCO * 2.D0
  36.  
  37. DO I=1,3
  38. XI = min(sqxgr,max(XX(i),-sqxgr))
  39. YI = min(sqxgr,max(YY(i),-sqxgr))
  40. PROCO = PROCO + XI*YI
  41. ENDDO
  42. PROCON = PROCO
  43. END
  44.  
  45.  

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