C--COMMON BLOCK INCLUDE FILE FOR HYPOINV CRUSTAL MODELS

C--DATA PRESENT FOR EACH OF 3 MODELS
	PARAMETER (NLYR=12)
	CHARACTER MODNAM*20
	COMMON /MC/ MODNAM(3)	
C!MODEL NAME OR LABEL
	COMMON /M/ LAY(3)	
C!NUMBER OF LAYERS OR V-D POINTS
	COMMON /M/ D(NLYR,3)	
C!DEPTH TO LAYER TOP OR VELOCITY POINT
	COMMON /M/ VEL(NLYR,3)	
C!LAYER OR POINT VELOCITY
	COMMON /M/ THK(NLYR,3)	
C!THICKNESS OF HOMOGENEOUS LAYER
	COMMON /M/ VSQ(NLYR,3)	
C!SQUARED VELOCITY OF HOMOGENEOUS LAYER
	COMMON /M/ MODTYP(3)	
C!MDL TYPE (-1=UNDEF, 0=GRAD, 1=HOMO LAYER)

C--DATA USED ONLY FOR LINEAR GRADIENT TRAVEL TIME TABLES
	PARAMETER (LN=1)	
C!THE NUMBER OF LINEAR-GRAD MODELS ALLOWED
C--USE LN=3 FOR THE VAX VERSION, LN=1 IN THE PC350 VERSION
c	INTEGER*2 KT   was like this jh oct 93
      integer kt
	LOGICAL GD1,GD2,GZ1,GZ2
	COMMON /M/ REDV(LN)	
C!ONE OVER THE REDUCING VELOCITY
	COMMON /M/ NZ(LN)	
C!NUMBER OF DEPTH GRID POINTS
	COMMON /M/ NZ1(LN),DZ1(LN),NZ2(LN),DZ2(LN)	
C!DEPTH GRID PARAMS
	COMMON /M/ ND(LN)	
C!NUMBER OF DISTANCE GRID POINTS
	COMMON /M/ ND1(LN),DD1(LN),ND2(LN),DD2(LN)	
C!DIST GRID PARAMS
	COMMON /M/ GD1(LN),GD2(LN),GZ1(LN),GZ2(LN)	
C!GRID FLAGS