C DIVISE    SOURCE    CHAT      05/01/12    22:52:05     5004           
CVERROU SOURCE 91/07/16 16:22:43                                                
CVERROU SOURCE 88/10/05 16:58:48                                                
      SUBROUTINE DIVISE(N,R,B,D)                                                
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
      REAL*8 R(N),B(N),D(N)                                                     
C                                                                               
      DO 1 I=1,N                                                                
      R(I)=(B(I)/D(I))                                                          
 1    CONTINUE                                                                  
      RETURN                                                                    
      END