| C PR middle-end/68146 | |
| C { dg-do compile } | |
| C { dg-options "-O2 -w" } | |
| SUBROUTINE CJYVB(V,Z,V0,CBJ,CDJ,CBY,CYY) | |
| IMPLICIT DOUBLE PRECISION (A,B,G,O-Y) | |
| IMPLICIT COMPLEX*16 (C,Z) | |
| DIMENSION CBJ(0:*),CDJ(0:*),CBY(0:*) | |
| N=INT(V) | |
| CALL GAMMA2(VG,GA) | |
| DO 65 K=1,N | |
| CBY(K)=CYY | |
| 65 CONTINUE | |
| CDJ(0)=V0/Z*CBJ(0)-CBJ(1) | |
| DO 70 K=1,N | |
| 70 CDJ(K)=-(K+V0)/Z*CBJ(K)+CBJ(K-1) | |
| END |