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