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

Functions
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	parameter (one=1.d0) c integer &ifirst0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &	arrayold (oilo0:oihi0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&	arraynew (nilo0:nihi0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0) integer ic0 c c ***********************************************************************c oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0	arraydst (ic0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	arraydst (ie0)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &	arrayold (oilo0:oihi0+1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&	arraynew (nilo0:nihi0+1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&	arraydst (dilo0:dihi0+1) integer ie0 c c ***********************************************************************c oldfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &	arrayold (1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&	arraynew (1)
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&	arraydst (1) c c ***********************************************************************c oldfrac
Variables
c c	File
c c LLC c	Revision
c c LLC c Jan c	Description
c c LLC c Jan c LLC c	Revision
c c LLC c Jan c LLC c Jan c	Description
c c LLC c Jan c LLC c Jan c LLC c	Revision
c c LLC c Jan c LLC c Jan c LLC c Jan c	Description
c c LLC c Jan c LLC c Jan c LLC c Jan c	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c	dihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &	arrayold
c c LLC c Jan c LLC c Jan c LLC c Jan c	arraynew
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real &&&	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &&&	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real &&&	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &&&	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision &	tfrac
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	ilast0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	oilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	oihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	nilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0	nihi0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 &	dilo0
c c LLC c Jan c LLC c Jan c LLC c Jan c &arraydst c ***********************************************************************implicit none double precision one dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision oldfrac double complex &&&ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision &&&ilast0 dihi0 double precision oldfrac real &&&ilast0 dihi0 double precision &	tfrac

---

Function Documentation

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

(

one

= 1.d0

)

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

(

oilo0:oihi0

)

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

(

nilo0:nihi0

)

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

(

dilo0:dihi0

)

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

(

ic0

)

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

(

ie0

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& arrayold

(

oilo0:oihi0+

1

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & arraynew

(

nilo0:nihi0+

1

)

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

(

dilo0:dihi0+

1

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& arrayold

(

1

)

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & arraynew

(

1

)

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

(

1

)

---

Variable Documentation

c c File

c c LLC c Revision

c c LLC c Jan c Description

c c LLC c Jan c LLC c Revision

c c LLC c Jan c LLC c Jan c Description

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision& tfrac

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

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & oilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 oihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & nilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 nihi0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 & dilo0

c c LLC c Jan c LLC c Jan c LLC c Jan c & arraydst c*********************************************************************** implicit none double precision one dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision oldfrac double complex& & & ilast0 dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision dihi0 double precision oldfrac real dihi0 double precision oldfrac double complex dihi0 double precision oldfrac double precision& & & ilast0 dihi0 double precision oldfrac real& & & ilast0 dihi0 double precision& tfrac

---