SUBROUTINE SPSHUTIN

#include "com2d.h"
	COMMON/SPSH/ROCKALT(9),ROCK25(9),ROCK35(9),SSEM(9),T4EM(9),
     *  RKHCL25(Z$),RKHCL35(Z$)
	READ(22,1000)
 1000	FORMAT(1X)
	READ(22,1000)
	READ(22,1000)
	READ(22,1001)ISSK,IT4K,IT4V
 1001	FORMAT(I5,5X,I5,5X,I5)
	READ(22,1000)
	READ(22,1000)
	READ(22,1002)CON25K,CON35K,CON35V
 1002	FORMAT(1PE10.2,2X,1PE10.2,2X,1PE10.2)
	READ(22,1000)
	READ(22,1000)
	SSK=ISSK
	T4K=IT4K
	T4V=IT4V
	DO 100 I=1,9
	READ(22,1003)ROCKALT(I),SSEM(I),T4EM(I)
 1003	FORMAT(3F10.1)
	ROCK25(I)=CON25K*(SSK*SSEM(I) + T4K*T4EM(I))
	ROCK35(I)=CON35K*(SSK*SSEM(I) + T4K*T4EM(I))
     *  + CON35V*(T4V*T4EM(I))
	PRINT *,' ALT=',ROCKALT(I),' ROCK25=',ROCK25(I),
     *  ' ROCK35=',ROCK35(I)
 100	CONTINUE
	SAVE
	RETURN
	END