Esope source files

   1 : C CAPRIN    SOURCE    CHAT      05/01/12    21:49:06     5004           
   2 : C CAPRIN     SOURCE    INSL       24/10/96    
   3 :       SUBROUTINE CAPRIN(S1,V1,NSTRS,ALPHA,RB,DTR1,DTR2,TETA)
   4 : C
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8(A-H,O-Z)
   7 :       DIMENSION S1(NSTRS),V1(4)
   8 : C
   8 :       CALL PRINC(S1,V1,NSTRS)
   9 :       FPT=ALPHA*RB
  10 :       IF(V1(1).GE.0.D0) THEN
  11 :          DTR1=V1(1)
  12 :          DTR2=FPT
  13 :          IF(DTR1.LT.0.D0)  DTR1=0.D0
  14 :          IF(DTR1.GE.FPT)   DTR1=FPT
  15 :          IF(DTR1.LT.1.D-8) DTR1=0.D0
  16 :          TETA=V1(4)
  17 :       ENDIF
  18 : *
  19 :       RETURN
  20 :       END
  21 : 
  22 :  
  23 :