path: root/NAST.FOR

	SUBROUTINE NAST(IS,IND)
	ISS=IS
	IND=0
	DO 10 I=1,1000
	IND=MOD(MOD(ISS,10),2)
	IF(IND.EQ.1) RETURN
	ISS=INT(ISS/10)
	IF(ISS.EQ.0) RETURN
10	CONTINUE
	RETURN
	END