Veleq3

$SMEI/for/tdlib/veleq3.f

 NAME:
	Veleq3
 PURPOSE:
	Determines the average value at the mid latitude of a 3D array. 
 CALLING SEQUENCE:
	subroutine Veleq3(nLng,nLat,nT,Z,VELEQU)
 INPUTS:
	nLng		integer		# longitudes
	nLat		integer		# latitudes
	nT		integer		# times
	Z(nLng,nLat,nT)	real		3D array of function values
 OUTPUTS:
	VELEQU		real		Average density at 1 AU at the solar equator
 CALLS: ***
	BadR4
 CALLED BY:
	ipsdt
 PROCEDURE:
 MODIFICATION HISTORY:
	FEB-2001, B. Jackson (UCSD)
	NOV-2007, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
	    Reversed order of do-loops