1
C/MEMBR ADD NAME=SVCAR1,SSI=0
2
subroutine svcar1 (rsav, isav)
4
c this routine restores from rsav and isav the contents of common
5
c blocks ls0001, lsa001, and eh0001, which are used internally in the
6
c lsodar package. this presumes that rsav and isav were loaded by means
7
c of subroutine svcma or the equivalent.
10
integer ieh, ils, ilsa
11
integer i, lenrls, lenils, lenrla, lenila
13
double precision rls, rlsa,rlsr
14
dimension rsav(*), isav(*)
15
common /ls0001/ rls(219), ils(39)
16
common /lsa001/ rlsa(22), ilsa(9)
17
common /lsr001/ rlsr(5),ilsr(9)
18
common /eh0001/ ieh(2)
19
data lenrls/219/, lenils/39/, lenrla/22/, lenila/9/
20
data lenrlr/5/,lenilr/9/
23
call dcopy(lenrls,rls,1,rsav(l),1)
25
call dcopy(lenrla,rlsa,1,rsav(l),1)
27
call dcopy(lenrlr,rlsr,1,rsav(l),1)