| 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 |