path: root/SRC.FOR

	SUBROUTINE SRC(IPA,N,IND)
	DIMENSION IPA(1),IP(10)
	DO 10 I=1,N
	A=IPA(I)
	CALL DEBI(A,B)
10	IP(I)=B
	CALL VZV(IP,N,IS)
	CALL NAST(IS,IND)
	RETURN
	END