source/patchdata/operators/time_interpolate/fortran/pdat_lintimint2d.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 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0,&oilo1:oihi1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0,&nilo1:nihi1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0,&dilo1:dihi1) integer ic0
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	arraydst (ic0, ic1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0,&oilo1:oihi1+1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0,&nilo1:nihi1+1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0,&dilo1:dihi1+1) integer ie0
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0	arraydst (ie0, ie1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0+1,&oilo1:oihi1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0+1,&nilo1:nihi1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0+1,&dilo1:dihi1) integer ie0
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0	arraydst (ie0, ic1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &	arrayold (oilo1:oihi1+1,&oilo0:oihi0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&	arraynew (nilo1:nihi1+1,&nilo0:nihi0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&	arraydst (dilo1:dihi1+1,&dilo0:dihi0) integer ie1
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1	arraydst (ie1, ic0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0+1,&oilo1:oihi1+1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0+1,&nilo1:nihi1+1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0+1,&dilo1:dihi1+1) integer ie0
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &	arrayold (oilo1:oihi1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&	arraynew (nilo1:nihi1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&	arraydst (dilo1:dihi1) integer ic1 c c ***********************************************************************c oldfrac
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1	arraydst (ic1)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &	arrayold (oilo0:oihi0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&	arraynew (nilo0:nihi0)
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0) integer ic0 c c ***********************************************************************c oldfrac
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast1 dihi1 double precision oldfrac double precision &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac real &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double complex &&&ie1 c c ***********************************************************************c ilast1 do ilast0 dihi1 double precision oldfrac double precision &&&ilast1 dihi1 double precision oldfrac double precision &&&ilast0	arraydst (ic0)
Variables
c c	File
c c	ifirst1
c c	ilast0
c c	ilast1
c c &	oilo0
c c	oilo1
c c	oihi0
c c	oihi1
c c &	nilo0
c c	nilo1
c c	nihi0
c c	nihi1
c c &	dilo0
c c	dilo1
c c	dihi0
c c	dihi1
c c &	tfrac
c c &	arrayold
c c	arraynew
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c	oldfrac
c c &arraydst c ***********************************************************************implicit none double precision one dihi1 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 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	ie0 = 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	ie1 = ifirst1

---

Function Documentation

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

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

c c & arraydst c*********************************************************************** implicit none double precision one dihi1 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 &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac real &&&ic0 c c ***********************************************************************c ilast0 do ilast2 dihi2 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double complex &&&ic0 c c ***********************************************************************c ilast0 do ilast2 dihi2 double precision oldfrac double complex &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double precision &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double precision &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac double precision &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac real &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac real &&&ic1 c c ***********************************************************************c ilast1 do ilast0 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast1 dihi2 double precision oldfrac double complex &&&ic2 c c ***********************************************************************c ilast2 do ilast0 dihi2 double precision oldfrac double complex &&& arraydst (  dilo0:dihi0  , &dilo1:dihi1  )

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

Initial value: arrayold(ic0,ic1)*oldfrac & +arraynew(ic0,ic1)*tfrac enddo enddo c return end c c*********************************************************************** c Linear time interpolation for 2d cell-centered complex data c*********************************************************************** c subroutine lintimeintcellcmplx2d( & ifirst0,ifirst1,ilast0,ilast1, & oilo0,oilo1,oihi0,oihi1, & nilo0,nilo1,nihi0,nihi1, & dilo0,dilo1,dihi0,dihi1, & 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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& arrayold (  oilo0:oihi0  , &oilo1:oihi1+  1 )

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

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

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

Initial value: arrayold(ie0,ie1)*oldfrac & +arraynew(ie0,ie1)*tfrac enddo enddo c return end c c*********************************************************************** c Linear time interpolation for 2d edge-centered float data c*********************************************************************** c subroutine lintimeintedgefloat2d0( & ifirst0,ifirst1,ilast0,ilast1, & oilo0,oilo1,oihi0,oihi1, & nilo0,nilo1,nihi0,nihi1, & dilo0,dilo1,dihi0,dihi1, & 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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& arrayold (  oilo0:oihi0+  1, &oilo1:oihi1  )

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

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

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

Initial value: arrayold(ie0,ic1)*oldfrac & +arraynew(ie0,ic1)*tfrac enddo enddo c return end c subroutine lintimeintfacefloat2d1( & ifirst0,ifirst1,ilast0,ilast1, & oilo0,oilo1,oihi0,oihi1, & nilo0,nilo1,nihi0,nihi1, & dilo0,dilo1,dihi0,dihi1, & 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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& arrayold (  oilo1:oihi1+  1, &oilo0:oihi0  )

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

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

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

Initial value: arrayold(ie1,ic0)*oldfrac & +arraynew(ie1,ic0)*tfrac enddo enddo c return end c c*********************************************************************** c Linear time interpolation for 2d face-centered complex data c*********************************************************************** c subroutine lintimeintfacecmplx2d0( & ifirst0,ifirst1,ilast0,ilast1, & oilo0,oilo1,oihi0,oihi1, & nilo0,nilo1,nihi0,nihi1, & dilo0,dilo1,dihi0,dihi1, & 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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& arrayold (  oilo0:oihi0+  1, &oilo1:oihi1+  1 )

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

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

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

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

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

Initial value: one-tfrac do ic1=ifirst1

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

Initial value: arrayold(ic1)*oldfrac & +arraynew(ic1)*tfrac enddo c return end c subroutine lintimeintoutfacefloat2d1( & ifirst0,ifirst1,ilast0,ilast1, & oilo0,oilo1,oihi0,oihi1, & nilo0,nilo1,nihi0,nihi1, & dilo0,dilo1,dihi0,dihi1, & 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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& arrayold (  oilo0:oihi0   )

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

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

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

---

Variable Documentation

c c File

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

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 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 ilast0

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

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 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & oilo0

c c &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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 oihi0

c c &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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & nilo0

c c &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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 nihi0

c c &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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 & dilo0

c c &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 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi0

c c &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 & arraydst c*********************************************************************** implicit none double precision one dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac real& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double complex& & & ic1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ic0 c c*********************************************************************** c ilast0 do ilast1 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ilast1 dihi1 double precision oldfrac double precision& & & ilast0 dihi1 double precision oldfrac real& & & ilast1 dihi1 double precision oldfrac real& & & ilast0 dihi1 double precision oldfrac double complex& & & ilast1 dihi1 double precision oldfrac double complex& & & ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double precision& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac real& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision oldfrac double complex& & & ie1 c c*********************************************************************** c ilast1 do ilast0 dihi1 double precision& tfrac

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

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

---