*DECK DRSCO SUBROUTINE DRSCO (RSAV, ISAV) C***BEGIN PROLOGUE DRSCO C***SUBSIDIARY C***PURPOSE Subsidiary to DDEBDF C***LIBRARY SLATEC C***TYPE DOUBLE PRECISION (RSCO-S, DRSCO-D) C***AUTHOR Watts, H. A., (SNLA) C***DESCRIPTION C C DRSCO transfers data from arrays to a common block within the C integrator package DDEBDF. C C***SEE ALSO DDEBDF C***ROUTINES CALLED (NONE) C***COMMON BLOCKS DDEBD1 C***REVISION HISTORY (YYMMDD) C 820301 DATE WRITTEN C 891214 Prologue converted to Version 4.0 format. (BAB) C 900328 Added TYPE section. (WRB) C 910722 Updated AUTHOR section. (ALS) C***END PROLOGUE DRSCO