Télécharger la plaquette Cast3M


fr en

Télécharger procon.eso

Retour à la liste

Numérotation des lignes : 

procon

  1. C PROCON    SOURCE    PV090527  23/07/13    21:15:04     11708          
  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*xzprec)
  19.         isav=1
  20.        ENDIF
  21.  
  22.        IF (NSTRS .GT. 3) GOTO 1
  23.        DO I=1,NSTRS
  24.          XI    = min(sqxgr,max(XX(i),-sqxgr))
  25.          YI    = min(sqxgr,max(YY(i),-sqxgr))
  26.          PROCO = PROCO + XI*YI
  27.        ENDDO
  28.        PROCON = PROCO
  29.        RETURN
  30.  
  31.  1     DO I=4,NSTRS
  32.          XI    = min(sqxgr,max(XX(i),-sqxgr))
  33.          YI    = min(sqxgr,max(YY(i),-sqxgr))
  34.          PROCO = PROCO + XI*YI
  35.        ENDDO
  36.        PROCO = PROCO * 2.D0
  37.  
  38.        DO I=1,3
  39.          XI    = min(sqxgr,max(XX(i),-sqxgr))
  40.          YI    = min(sqxgr,max(YY(i),-sqxgr))
  41.          PROCO = PROCO + XI*YI
  42.        ENDDO
  43.        PROCON = PROCO
  44.        END
  45.  
  46.  
  47.  

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