summaryrefslogtreecommitdiffstats
path: root/NAST.FOR
blob: 6da0509cd52dee64541c3fa978b69d4c4073251f (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
	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