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