Download rsetd.eso

Back to the list

   1 : C RSETD     SOURCE    CHAT      05/01/13    03:07:27     5004           
   2 :       SUBROUTINE RSETD(A,B,LONG)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C************************************************************************
   6 : C
   7 : C     SOUS PROGRAMME DOUBLE PRECISION
   8 : C
   9 : C************************************************************************
  10 : 
  11 :       DIMENSION A(LONG),B(LONG)
  12 :       Z=0.
  13 :       DO 1 I=1,LONG
  14 :       A(I)=B(I)
  15 :  1    CONTINUE
  16 :       RETURN
  17 :       END
  18 :  
  19 :  

© Cast3M 2003 - All rights reserved.
Disclaimer