C+
C NAME:
C	cotri
C PURPOSE:
C	include file used by HELIM program
C-
	parameter	(NP  = 200)
	parameter	(NPT = 2*NP)
	parameter	(NPL = 2*NP)

	integer		IPT(3,NPT)	! COTNG, COLOC, COCAL (triangle vertices)
	integer		IPL(3,NPL)	! COTNG, COLOC, COCAL (line segments)
	integer		IWL(18*NP)	! COTNG, COLOC
	integer		IWP(   NP)	! COTNG
	real		WP (   NP)	! COTNG

	integer		IPC(13*NP)	! CODET, COINT (nearest neighbours)

	real		WK (4,2*NP)	! COLOC
	real		PD (5,  NP)	! COINT, COCAL (partial derivatives)

	real		XD(NP),YD(NP),ZD(NP)

	common	/COTRI/	XD,YD,ZD,IPT,IPL,IWL,IWP,IPC,WP,WK,PD
	common  /COINIT/NDP,NIT,ITIPV,ITPV,NCP,NT,NL,ITR