SUBROUTINE POFUN2(DIM,GRDENT,FPART,FPARTL) | |
DOUBLE PRECISION GRDENT(*) | |
DOUBLE COMPLEX FPART(*) | |
DOUBLE COMPLEX FPARTL(*) | |
INTEGER REFLCT,XRIREF | |
IF (DIM.GT.1) THEN | |
ABCS3=XRCELL(1) | |
IF (ABCS2.EQ.ABCS3) THEN | |
END IF | |
ELSE | |
DO REFLCT=1,XRIREF,1 | |
FPARTL(REFLCT)=FPART(REFLCT) | |
END DO | |
END IF | |
IF (ABCS2.EQ.ABCS3) THEN | |
GRDENT(1)=GRDENT(3) | |
END IF | |
END |