19 lines
474 B
Fortran
19 lines
474 B
Fortran
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
|