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

Functions
c c &arraydst c ***********************************************************************implicit none double precision one	parameter (one=1.d0) c integer &ifirst0
c c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision &	arrayold (oilo0:oihi0,&oilo1:oihi1,&oilo2:oihi2)
c c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision &&	arraynew (nilo0:nihi0,&nilo1:nihi1,&nilo2:nihi2)
c c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0,&dilo1:dihi1,&dilo2:dihi2) integer ic0
c c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision ic2 c c ***********************************************************************c ilast2 do ilast1 do ilast0	arraydst (ic0, ic1, ic2)
c 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 &	arrayold (oilo0:oihi0,&oilo1:oihi1+1,&oilo2:oihi2+1)
c 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 &&	arraynew (nilo0:nihi0,&nilo1:nihi1+1,&nilo2:nihi2+1)
c 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 &&&	arraydst (dilo0:dihi0,&dilo1:dihi1+1,&dilo2:dihi2+1) integer ie0
c 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	arraydst (ie0, ie1, ie2)
c 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 &	arrayold (oilo0:oihi0+1,&oilo1:oihi1,&oilo2:oihi2+1)
c 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 &&	arraynew (nilo0:nihi0+1,&nilo1:nihi1,&nilo2:nihi2+1)
c 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 &&&	arraydst (dilo0:dihi0+1,&dilo1:dihi1,&dilo2:dihi2+1) integer ie0
c 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 &	arrayold (oilo0:oihi0+1,&oilo1:oihi1+1,&oilo2:oihi2)
c 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 &&	arraynew (nilo0:nihi0+1,&nilo1:nihi1+1,&nilo2:nihi2)
c 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 &&&	arraydst (dilo0:dihi0+1,&dilo1:dihi1+1,&dilo2:dihi2) integer ie0
c 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 &	arrayold (oilo0:oihi0+1,&oilo1:oihi1,&oilo2:oihi2)
c 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 &&	arraynew (nilo0:nihi0+1,&nilo1:nihi1,&nilo2:nihi2)
c 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 &&&	arraydst (dilo0:dihi0+1,&dilo1:dihi1,&dilo2:dihi2) integer ie0
c 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	arraydst (ie0, ic1, ic2)
c 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 &	arrayold (oilo1:oihi1+1,&oilo2:oihi2,&oilo0:oihi0)
c 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 &&	arraynew (nilo1:nihi1+1,&nilo2:nihi2,&nilo0:nihi0)
c 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 &&&	arraydst (dilo1:dihi1+1,&dilo2:dihi2,&dilo0:dihi0) integer ie1
c 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	arraydst (ie1, ic2, ic0)
c 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 &	arrayold (oilo2:oihi2+1,&oilo0:oihi0,&oilo1:oihi1)
c 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 &&	arraynew (nilo2:nihi2+1,&nilo0:nihi0,&nilo1:nihi1)
c 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 &&&	arraydst (dilo2:dihi2+1,&dilo0:dihi0,&dilo1:dihi1) integer ie2
c 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	arraydst (ie2, ic0, ic1)
c 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 &	arrayold (oilo0:oihi0+1,&oilo1:oihi1+1,&oilo2:oihi2+1)
c 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 &&	arraynew (nilo0:nihi0+1,&nilo1:nihi1+1,&nilo2:nihi2+1)
c 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 &&&	arraydst (dilo0:dihi0+1,&dilo1:dihi1+1,&dilo2:dihi2+1) integer ie0
c 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 &	arrayold (oilo1:oihi1,&oilo2:oihi2)
c 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 &&	arraynew (nilo1:nihi1,&nilo2:nihi2)
c 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 &&&	arraydst (dilo1:dihi1,&dilo2:dihi2) integer ic1
c 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	arraydst (ic1, ic2)
c 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 &	arrayold (oilo2:oihi2,&oilo0:oihi0)
c 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 &&	arraynew (nilo2:nihi2,&nilo0:nihi0)
c 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 &&&	arraydst (dilo2:dihi2,&dilo0:dihi0) integer ic2
c 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	arraydst (ic2, ic0)
c 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 &	arrayold (oilo0:oihi0,&oilo1:oihi1)
c 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 &&	arraynew (nilo0:nihi0,&nilo1:nihi1)
c 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 &&&	arraydst (dilo0:dihi0,&dilo1:dihi1) integer ic0
c 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	arraydst (ic0, ic1)
c 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 &	arrayold (oilo0:oihi0,&oilo2:oihi2)
c 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 &&	arraynew (nilo0:nihi0,&nilo2:nihi2)
c 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 &&&	arraydst (dilo0:dihi0,&dilo2:dihi2) integer ic0
c 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	arraydst (ic0, ic2)
c 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 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision &	arrayold (oilo0:oihi0,&oilo1:oihi1+1,&oilo2:oihi2)
c 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 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision &&	arraynew (nilo0:nihi0,&nilo1:nihi1+1,&nilo2:nihi2)
c 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 dihi2 double precision oldfrac double precision ie2 c c ***********************************************************************c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0,&dilo1:dihi1+1,&dilo2:dihi2) integer ie0
c 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 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 &	arrayold (oilo0:oihi0,&oilo1:oihi1,&oilo2:oihi2+1)
c 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 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 &&	arraynew (nilo0:nihi0,&nilo1:nihi1,&nilo2:nihi2+1)
c 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 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 &&&	arraydst (dilo0:dihi0,&dilo1:dihi1,&dilo2:dihi2+1) integer ie0
Variables
c c	File
c c	ifirst1
c c	ifirst2
c c	ilast0
c c	ilast1
c c	ilast2
c c &	oilo0
c c	oilo1
c c	oilo2
c c	oihi0
c c	oihi1
c c	oihi2
c c &	nilo0
c c	nilo1
c c	nilo2
c c	nihi0
c c	nihi1
c c	nihi2
c c &	dilo0
c c	dilo1
c c	dilo2
c c	dihi0
c c	dihi1
c c	dihi2
c c &	tfrac
c c &	arrayold
c c	arraynew
c c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision &&&	ic1 = ifirst1
c c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision ic2 c c ***********************************************************************c	oldfrac
c c &arraydst c ***********************************************************************implicit none double precision one dihi2 double precision oldfrac double precision ic2 c c ***********************************************************************c ilast2 do ilast1 do	ic0 = ifirst0
c 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 &&&	ie1 = ifirst1
c 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	ie0 = ifirst0
c 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 &&&	ic2 = ifirst2
c 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	ie2 = ifirst2

---

Function Documentation

c c & arraydst c*********************************************************************** implicit none double precision one parameter (  one  = 1.d0  )

c c & arraydst c*********************************************************************** implicit none double precision one dihi2 double precision oldfrac double precision& arrayold (  oilo0:oihi0  , &oilo1:oihi1  , &oilo2:oihi2  )

c c & arraydst c*********************************************************************** implicit none double precision one dihi2 double precision oldfrac double precision& & arraynew (  nilo0:nihi0  , &nilo1:nihi1  , &nilo2:nihi2  )

c 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 &&& arraydst (  dilo0:dihi0  , &dilo1:dihi1  , &dilo2:dihi2  )

c 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 arraydst (  ic0  , ic1  , ic2  )

Initial value: & +arrayold(ic0,ic1,ic2)*oldfrac & +arraynew(ic0,ic1,ic2)*tfrac enddo enddo enddo c return end c c*********************************************************************** c Linear time interpolation for 3d cell-centered complex data c*********************************************************************** c subroutine lintimeintcellcmplx3d( & ifirst0,ifirst1,ifirst2,ilast0,ilast1,ilast2, & oilo0,oilo1,oilo2,oihi0,oihi1,oihi2, & nilo0,nilo1,nilo2,nihi0,nihi1,nihi2, & dilo0,dilo1,dilo2,dihi0,dihi1,dihi2, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

c 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& arrayold (  oilo0:oihi0  , &oilo1:oihi1+  1, &oilo2:oihi2+  1 )

c 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& & arraynew (  nilo0:nihi0  , &nilo1:nihi1+  1, &nilo2:nihi2+  1 )

c 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 &&& arraydst (  dilo0:dihi0  , &dilo1:dihi1+  1, &dilo2:dihi2+  1 )

c 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 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 arraydst (  ie0  , ie1  , ie2  )

Initial value: & +arrayold(ie0,ie1,ie2)*oldfrac & +arraynew(ie0,ie1,ie2)*tfrac enddo enddo enddo c return end c subroutine lintimeintedgedoub3d2( & ifirst0,ifirst1,ifirst2,ilast0,ilast1,ilast2, & oilo0,oilo1,oilo2,oihi0,oihi1,oihi2, & nilo0,nilo1,nilo2,nihi0,nihi1,nihi2, & dilo0,dilo1,dilo2,dihi0,dihi1,dihi2, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

c 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& arrayold (  oilo0:oihi0+  1, &oilo1:oihi1  , &oilo2:oihi2+  1 )

c 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& & arraynew (  nilo0:nihi0+  1, &nilo1:nihi1  , &nilo2:nihi2+  1 )

c 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 &&& arraydst (  dilo0:dihi0+  1, &dilo1:dihi1  , &dilo2:dihi2+  1 )

c 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& arrayold (  oilo0:oihi0+  1, &oilo1:oihi1+  1, &oilo2:oihi2  )

c 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& & arraynew (  nilo0:nihi0+  1, &nilo1:nihi1+  1, &nilo2:nihi2  )

c 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 &&& arraydst (  dilo0:dihi0+  1, &dilo1:dihi1+  1, &dilo2:dihi2  )

c 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& arrayold (  oilo0:oihi0+  1, &oilo1:oihi1  , &oilo2:oihi2  )

c 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& & arraynew (  nilo0:nihi0+  1, &nilo1:nihi1  , &nilo2:nihi2  )

c 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 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 &&& arraydst (  dilo0:dihi0+  1, &dilo1:dihi1  , &dilo2:dihi2  )

c 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 arraydst (  ie0  , ic1  , ic2  )

Initial value: & +arrayold(ie0,ic1,ic2)*oldfrac & +arraynew(ie0,ic1,ic2)*tfrac enddo enddo enddo c return end c subroutine lintimeintfacefloat3d1( & ifirst0,ifirst1,ifirst2,ilast0,ilast1,ilast2, & oilo0,oilo1,oilo2,oihi0,oihi1,oihi2, & nilo0,nilo1,nilo2,nihi0,nihi1,nihi2, & dilo0,dilo1,dilo2,dihi0,dihi1,dihi2, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

c 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& arrayold (  oilo1:oihi1+  1, &oilo2:oihi2  , &oilo0:oihi0  )

c 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& & arraynew (  nilo1:nihi1+  1, &nilo2:nihi2  , &nilo0:nihi0  )

c 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 &&& arraydst (  dilo1:dihi1+  1, &dilo2:dihi2  , &dilo0:dihi0  )

c 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 arraydst (  ie1  , ic2  , ic0  )

Initial value: & +arrayold(ie1,ic2,ic0)*oldfrac & +arraynew(ie1,ic2,ic0)*tfrac enddo enddo enddo c return end c subroutine lintimeintfacefloat3d2( & ifirst0,ifirst1,ifirst2,ilast0,ilast1,ilast2, & oilo0,oilo1,oilo2,oihi0,oihi1,oihi2, & nilo0,nilo1,nilo2,nihi0,nihi1,nihi2, & dilo0,dilo1,dilo2,dihi0,dihi1,dihi2, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

c 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& arrayold (  oilo2:oihi2+  1, &oilo0:oihi0  , &oilo1:oihi1  )

c 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& & arraynew (  nilo2:nihi2+  1, &nilo0:nihi0  , &nilo1:nihi1  )

c 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 &&& arraydst (  dilo2:dihi2+  1, &dilo0:dihi0  , &dilo1:dihi1  )

c 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 arraydst (  ie2  , ic0  , ic1  )

Initial value: & +arrayold(ie2,ic0,ic1)*oldfrac & +arraynew(ie2,ic0,ic1)*tfrac enddo enddo enddo c return end c c*********************************************************************** c Linear time interpolation for 3d face-centered complex data c*********************************************************************** c subroutine lintimeintfacecmplx3d0( & ifirst0,ifirst1,ifirst2,ilast0,ilast1,ilast2, & oilo0,oilo1,oilo2,oihi0,oihi1,oihi2, & nilo0,nilo1,nilo2,nihi0,nihi1,nihi2, & dilo0,dilo1,dilo2,dihi0,dihi1,dihi2, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

c 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& arrayold (  oilo0:oihi0+  1, &oilo1:oihi1+  1, &oilo2:oihi2+  1 )

c 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& & arraynew (  nilo0:nihi0+  1, &nilo1:nihi1+  1, &nilo2:nihi2+  1 )

c 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 &&& arraydst (  dilo0:dihi0+  1, &dilo1:dihi1+  1, &dilo2:dihi2+  1 )

c 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& arrayold (  oilo1:oihi1  , &oilo2:oihi2  )

c 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& & arraynew (  nilo1:nihi1  , &nilo2:nihi2  )

c 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 &&& arraydst (  dilo1:dihi1  , &dilo2:dihi2  )

c 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 arraydst (  ic1  , ic2  )

Initial value: arrayold(ic1,ic2)*oldfrac & +arraynew(ic1,ic2)*tfrac enddo enddo c return end c subroutine lintimeintoutfacefloat3d1( & ifirst0,ifirst1,ifirst2,ilast0,ilast1,ilast2, & oilo0,oilo1,oilo2,oihi0,oihi1,oihi2, & nilo0,nilo1,nilo2,nihi0,nihi1,nihi2, & dilo0,dilo1,dilo2,dihi0,dihi1,dihi2, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

c 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& arrayold (  oilo2:oihi2  , &oilo0:oihi0  )

c 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& & arraynew (  nilo2:nihi2  , &nilo0:nihi0  )

c 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 &&& arraydst (  dilo2:dihi2  , &dilo0:dihi0  )

c 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 arraydst (  ic2  , ic0  )

Initial value: arrayold(ic2,ic0)*oldfrac & +arraynew(ic2,ic0)*tfrac enddo enddo c return end c subroutine lintimeintoutfacefloat3d2( & ifirst0,ifirst1,ifirst2,ilast0,ilast1,ilast2, & oilo0,oilo1,oilo2,oihi0,oihi1,oihi2, & nilo0,nilo1,nilo2,nihi0,nihi1,nihi2, & dilo0,dilo1,dilo2,dihi0,dihi1,dihi2, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

c 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& arrayold (  oilo0:oihi0  , &oilo1:oihi1  )

c 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& & arraynew (  nilo0:nihi0  , &nilo1:nihi1  )

c 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& & & arraydst (  dilo0:dihi0  , &dilo1:dihi1  )

c 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 arraydst (  ic0  , ic1  )

c 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& arrayold (  oilo0:oihi0  , &oilo2:oihi2  )

c 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& & arraynew (  nilo0:nihi0  , &nilo2:nihi2  )

c 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 &&& arraydst (  dilo0:dihi0  , &dilo2:dihi2  )

c 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 arraydst (  ic0  , ic2  )

Initial value: arrayold(ic0,ic2)*oldfrac & +arraynew(ic0,ic2)*tfrac enddo enddo c return end c subroutine lintimeintoutsidefloat3d2( & ifirst0,ifirst1,ifirst2,ilast0,ilast1,ilast2, & oilo0,oilo1,oilo2,oihi0,oihi1,oihi2, & nilo0,nilo1,nilo2,nihi0,nihi1,nihi2, & dilo0,dilo1,dilo2,dihi0,dihi1,dihi2, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

c 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 dihi2 double precision oldfrac double precision ie2 c c*********************************************************************** c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision& arrayold (  oilo0:oihi0  , &oilo1:oihi1+  1, &oilo2:oihi2  )

c 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 dihi2 double precision oldfrac double precision ie2 c c*********************************************************************** c ilast2 do ilast1 do ilast0 dihi2 double precision oldfrac double precision& & arraynew (  nilo0:nihi0  , &nilo1:nihi1+  1, &nilo2:nihi2  )

c 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 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 &&& arraydst (  dilo0:dihi0  , &dilo1:dihi1+  1, &dilo2:dihi2  )

c 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 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& arrayold (  oilo0:oihi0  , &oilo1:oihi1  , &oilo2:oihi2+  1 )

c 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 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& & arraynew (  nilo0:nihi0  , &nilo1:nihi1  , &nilo2:nihi2+  1 )

c 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 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 &&& arraydst (  dilo0:dihi0  , &dilo1:dihi1  , &dilo2:dihi2+  1 )

---

Variable Documentation

c c File

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

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer ifirst2

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

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

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer ilast2

c 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 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 & oilo0

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

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

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

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

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

c 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 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 & nilo0

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

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

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

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

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

c 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 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 & dilo0

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

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

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

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

c c dihi2

c 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 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& tfrac

c c & arrayold

c c arraynew

c 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 ic1 = ifirst1

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

Initial value: one-tfrac do ic2=ifirst2

c 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 ic0 = ifirst0

c 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 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 ie1 = ifirst1

c 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 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 ie0 = ifirst0

c 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 ic2 = ifirst2

c 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 ie2 = ifirst2

---