source/patchdata/operators/time_interpolate/fortran/pdat_lintimint2d.f File Reference

Functions
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	parameter (one=1.d0) c integer &ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0,&oilo1:oihi1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0,&nilo1:nihi1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0,&dilo1:dihi1) integer ic0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	arraydst (ic0, ic1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0,&oilo1:oihi1+1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0,&nilo1:nihi1+1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0,&dilo1:dihi1+1) integer ie0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	arraydst (ie0, ie1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0+1,&oilo1:oihi1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0+1,&nilo1:nihi1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0+1,&dilo1:dihi1) integer ie0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	arraydst (ie0, ic1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &	arrayold (oilo1:oihi1+1,&oilo0:oihi0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&	arraynew (nilo1:nihi1+1,&nilo0:nihi0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&	arraydst (dilo1:dihi1+1,&dilo0:dihi0) integer ie1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	arraydst (ie1, ic0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0+1,&oilo1:oihi1+1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0+1,&nilo1:nihi1+1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0+1,&dilo1:dihi1+1) integer ie0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &	arrayold (oilo1:oihi1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&	arraynew (nilo1:nihi1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&	arraydst (dilo1:dihi1) integer ic1 c c ***********************************************************************c oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	arraydst (ic1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0) integer ic0 c c ***********************************************************************c oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	arraydst (ic0)
Variables
c c	File
c c LLC c	Revision
c c LLC c Jan c	Description
c c LLC c Jan c LLC c	Revision
c c LLC c Jan c LLC c Jan c	Description
c c LLC c Jan c LLC c Jan c LLC c	Revision
c c LLC c Jan c LLC c Jan c LLC c Jan c	Description
c c LLC c Jan c LLC c Jan c LLC c Jan c	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c	dihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &	arrayold
c c LLC c Jan c LLC c Jan c LLC c Jan c	arraynew
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do	ic0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do	ic0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do	ic0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do	ie1 = ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do	ie1 = ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do	ie1 = ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ifirst1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	ilast1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	oihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	nihi1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dilo1
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c	oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do	ie0 = ifirst0

---

Function Documentation

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one parameter

(

one

= 1.d0

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& arrayold	(	oilo0:oihi0	,
		&oilo1:oihi1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & arraynew	(	nilo0:nihi0	,
		&nilo1:nihi1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ic0 c c ***********************************************************************c ilast0 do ilast2 do ilast1 dihi2 double precision oldfrac double precision ic1 c c ***********************************************************************c ilast1 do ilast0 do ilast2 dihi2 double precision oldfrac real ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ic0 c c ***********************************************************************c ilast0 do ilast2 do ilast1 dihi2 double precision oldfrac real ic1 c c ***********************************************************************c ilast1 do ilast0 do ilast2 dihi2 double precision oldfrac double complex ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ic0 c c ***********************************************************************c ilast0 do ilast2 do ilast1 dihi2 double precision oldfrac double complex ic1 c c ***********************************************************************c ilast1 do ilast0 do ilast2 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast2 dihi2 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast2 dihi2 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast2 dihi2 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double precision &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double precision &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac double complex &&& arraydst	(	dilo0:dihi0	,
		&dilo1:dihi1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision ic0 c c ***********************************************************************c ilast0 do ilast2 do ilast1 dihi2 double precision oldfrac double precision ic1 c c ***********************************************************************c ilast1 do ilast0 do ilast2 dihi2 double precision oldfrac real ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ic0 c c ***********************************************************************c ilast0 do ilast2 do ilast1 dihi2 double precision oldfrac real ic1 c c ***********************************************************************c ilast1 do ilast0 do ilast2 dihi2 double precision oldfrac double complex ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ic0 c c ***********************************************************************c ilast0 do ilast2 do ilast1 dihi2 double precision oldfrac double complex ic1 c c ***********************************************************************c ilast1 do ilast0 do ilast2 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac real ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double complex ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast2 dihi2 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast2 dihi2 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast2 dihi2 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double precision &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double precision &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 arraydst	(	ic0	,
		ic1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& arrayold	(	oilo0:oihi0	,
		&oilo1:oihi1+	1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & arraynew	(	nilo0:nihi0	,
		&nilo1:nihi1+	1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&& arraydst	(	dilo0:dihi0	,
		&dilo1:dihi1+	1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 arraydst	(	ie0	,
		ie1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& arrayold	(	oilo0:oihi0+	1,
		&oilo1:oihi1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & arraynew	(	nilo0:nihi0+	1,
		&nilo1:nihi1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&& arraydst	(	dilo0:dihi0+	1,
		&dilo1:dihi1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 arraydst	(	ie0	,
		ic1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& arrayold	(	oilo1:oihi1+	1,
		&oilo0:oihi0
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & arraynew	(	nilo1:nihi1+	1,
		&nilo0:nihi0
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&& arraydst	(	dilo1:dihi1+	1,
		&dilo0:dihi0
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 arraydst	(	ie1	,
		ic0
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& arrayold	(	oilo0:oihi0+	1,
		&oilo1:oihi1+	1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & arraynew	(	nilo0:nihi0+	1,
		&nilo1:nihi1+	1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&& arraydst	(	dilo0:dihi0+	1,
		&dilo1:dihi1+	1
	)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& arrayold

(

oilo1:oihi1

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & arraynew

(

nilo1:nihi1

)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&& arraydst

(

dilo1:dihi1

)

c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 dihi1 double precision oldfrac double complex &&&ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0 dihi1 double precision oldfrac real &&&ilast1 dihi1 double precision oldfrac real &&&ilast0 dihi1 double precision oldfrac double complex &&&ilast1 arraydst

(

ic1

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& arrayold

(

oilo0:oihi0

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & arraynew

(

nilo0:nihi0

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & arraydst

(

dilo0:dihi0

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 arraydst

(

ic0

)

---

Variable Documentation

c c File

c c LLC c Revision

c c LLC c Jan c Description

c c LLC c Jan c LLC c Revision

c c LLC c Jan c LLC c Jan c Description

c c LLC c Jan c LLC c Jan c LLC c Revision

c c LLC c Jan c LLC c Jan c LLC c Jan c Description

c c LLC c Jan c LLC c Jan c LLC c Jan c ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c dihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arrayold

c c LLC c Jan c LLC c Jan c LLC c Jan c arraynew

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ic0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ic0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ic0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic0=ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ie1 = ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic0=ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ie1 = ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ic0=ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ie1 = ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dilo1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c oldfrac

Initial value:

one-tfrac

      do ie1=ifirst1

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ie0 = ifirst0

---