Télécharger procon.eso

Retour à la liste

Numérotation des lignes :

  1. C PROCON SOURCE PV 15/04/13 21:15:16 8474
  2. FUNCTION PROCON(XX,YY,NSTRS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION XX(*),YY(*)
  6. -INC CCREEL
  7. PROCON =0.0d0
  8. sqxgr=sqrt(xgrand)
  9. DO 75 I=1,NSTRS
  10. A = 1.0d0
  11. IF (I.GT.3) A = 2.0d0
  12. XXT=min(sqxgr,max(xx(i),-sqxgr))
  13. YYT=min(sqxgr,max(YY(i),-sqxgr))
  14. PROCON = PROCON + A*XXT*YYT
  15. 75 CONTINUE
  16. RETURN
  17. END
  18.  
  19.  
  20.  
  21.  

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