Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H P M O V E . F T \ e -+-+-+-+-+\r |
2 | SUBROUTINE MOVE (CNT,VALUE,ARRAY)\r | |
3 | INTEGER CNT,VALUE(1),ARRAY(1)\r | |
4 | C\r | |
5 | C MOVES CONSTANTS OR ARRAYS:\r | |
6 | C IF CNT .GT. 0 THEN\r | |
7 | C ARRAY(I)=VALUE(I)\r | |
8 | C\r | |
9 | C IF CNT .LT. 0 THEN\r | |
10 | C ARRAY(I)=VALUE(1)\r | |
11 | C\r | |
12 | INTEGER CNTI,I\r | |
13 | C\r | |
14 | IF (CNT.EQ.0) RETURN\r | |
15 | IF (CNT.GT.0) GOTO 20\r | |
16 | CNTI=-CNT\r | |
17 | DO 10 I=1,CNTI\r | |
18 | 10 ARRAY(I)=VALUE(1)\r | |
19 | RETURN\r | |
20 | 20 DO 30 I=1,CNT\r | |
21 | 30 ARRAY(I)=VALUE(I)\r | |
22 | RETURN\r | |
23 | END\r | |
24 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |