Mercurial > octave-nkf

annotate libcruft/odessa/odessa_rscom.f @ 5103:e2ed74b9bfa0 after-gnuplot-split

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-12-28 02:43:01 by jwe]
author jwe
date Tue, 28 Dec 2004 02:43:01 +0000
parents 2cc12970de72
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3983
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
1 SUBROUTINE ODESSA_RSCOM (RSAV, ISAV)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
2 C-----------------------------------------------------------------------
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
3 C THIS ROUTINE RESTORES FROM RSAV AND ISAV THE CONTENTS OF COMMON BLOCKS
4041
3995501ce1d9 [project @ 2002-08-15 01:56:41 by jwe]
jwe
parents: 3983
diff changeset
4 C ODE001 AND ODE002, WHICH ARE USED INTERNALLY IN THE ODESSSA
3983
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
5 C PACKAGE. THIS PRESUMES THAT RSAV AND ISAV WERE LOADED BY MEANS
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
6 C OF SUBROUTINE ODESSA_SVCOM OR THE EQUIVALENT.
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
7 C-----------------------------------------------------------------------
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
8 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
9 DIMENSION RSAV(*), ISAV(*)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
10 COMMON /ODE001/ RODE1(219), IODE1(39)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
11 COMMON /ODE002/ RODE2(3), IODE2(11)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
12 DATA LRODE1/219/, LIODE1/39/, LRODE2/3/, LIODE2/11/
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
13 C
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
14 DO 10 I = 1,LRODE1
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
15 10 RODE1(I) = RSAV(I)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
16 DO 20 I = 1,LRODE2
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
17 J = LRODE1 + I
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
18 20 RODE2(I) = RSAV(J)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
19 DO 30 I = 1,LIODE1
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
20 30 IODE1(I) = ISAV(I)
4278
2cc12970de72 [project @ 2003-01-04 00:41:39 by jwe]
jwe
parents: 4041
diff changeset
21 DO 40 I = 1,LIODE2
3983
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
22 J = LIODE1 + I
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
23 40 IODE2(I) = ISAV(J)
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
24 RETURN
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
25 C----------------------- END OF SUBROUTINE ODESSA_RSCOM -----------------------
7a37caf6ed43 [project @ 2002-07-11 02:36:25 by jwe]
jwe
parents:
diff changeset
26 END