source/patchdata/operators/time_interpolate/fortran/pdat_lintimint1d.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 dihi0 double precision oldfrac double precision &	arrayold (oilo0:oihi0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&	arraynew (nilo0:nihi0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0) integer ic0 c c ***********************************************************************c oldfrac
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0	arraydst (ic0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	arraydst (ie0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &	arrayold (oilo0:oihi0+1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&	arraynew (nilo0:nihi0+1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0+1) integer ie0 c c ***********************************************************************c oldfrac
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &	arrayold (1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&	arraynew (1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&	arraydst (1) c c ***********************************************************************c oldfrac
Variables
c c	File
c c	ilast0
c c &	oilo0
c c	oihi0
c c &	nilo0
c c	nihi0
c c &	dilo0
c c	dihi0
c c &	tfrac
c c &	arrayold
c c	arraynew

---

Function Documentation

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

c c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& arrayold (  oilo0:oihi0   )

c c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & arraynew (  nilo0:nihi0   )

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

Initial value: one-tfrac do ic0=ifirst0

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

Initial value: arrayold(ic0)*oldfrac & +arraynew(ic0)*tfrac enddo c return end c c*********************************************************************** c Linear time interpolation for 1d cell-centered complex data c*********************************************************************** c subroutine lintimeintcellcmplx1d( & ifirst0,ilast0, & oilo0,oihi0, & nilo0,nihi0, & dilo0,dihi0, & 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 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 arraydst (  ie0   )

Initial value: arrayold(ie0)*oldfrac & +arraynew(ie0)*tfrac enddo c return end c c*********************************************************************** c Linear time interpolation for 1d edge-centered complex data c*********************************************************************** c subroutine lintimeintedgecmplx1d( & ifirst0,ilast0, & oilo0,oihi0, & nilo0,nihi0, & dilo0,dihi0, & 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 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& arrayold (  oilo0:oihi0+  1  )

c c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & arraynew (  nilo0:nihi0+  1  )

c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&& arraydst (  dilo0:dihi0+  1  )

Initial value: one-tfrac do ie0=ifirst0

c c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& arrayold (  1   )

c c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & arraynew (  1   )

c c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &&& arraydst (  1   )

Initial value: one-tfrac arraydst(1)=arrayold(1)*oldfrac & +arraynew(1)*tfrac c return end c c*********************************************************************** c Linear time interpolation for 1d outerface complex data c*********************************************************************** c subroutine lintimeintoutfacecmplx1d( & ifirst0,ilast0, & oilo0,oihi0, & nilo0,nihi0, & dilo0,dihi0, & tfrac, & arrayold,arraynew, & arraydst) c*********************************************************************** implicit none double precision one parameter (one=1.d0) c integer & ifirst0

---

Variable Documentation

c c File

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer & 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 & 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 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 & 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 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 & 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 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 dihi2 double precision & tfrac

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

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

---