1! { dg-do compile }
2
3      SUBROUTINE PROPAGATE(ICI1,ICI2,I,J,J1,ELEM,NHSO,HSO
4     *                    ,MULST,IROOTS)
5      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
6      COMPLEX*16 HSO,ELEM
7      DIMENSION HSO(NHSO,NHSO),MULST(*),IROOTS(*)
8      ISHIFT=MULST(ICI1)*(I-1)+1
9      JSHIFT=MULST(ICI2)*(J-1)+1
10      DO 200 ICI=1,ICI1-1
11         ISHIFT=ISHIFT+MULST(ICI)*IROOTS(ICI)
12  200 CONTINUE
13      DO 220 ICI=1,ICI2-1
14         JSHIFT=JSHIFT+MULST(ICI)*IROOTS(ICI)
15  220 CONTINUE
16         DO 150 MSS=MS,-MS,-2
17           IND1=ISHIFT+K
18           IND2=JSHIFT+K
19           HSO(IND1,IND2)=ELEM
20           HSO(IND2,IND1)=DCONJG(ELEM)
21  150    CONTINUE
22      END
23
24
25