5 * Revision 1.1.1.1 1996/02/15 17:49:56 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE VLINCO (B,ALPHA,C,BETA,A,N)
12 C CERN PROGLIB# F121 VLINCO .VERSION KERNFOR 4.12 850702
13 C ORIG. 01/07/71 VLINE; CHANGE NAME TO VLINCO 02/07/85
15 DIMENSION A(*),B(*),C(*)
19 9 A(I)= B(I)*ALPHA + C(I)*BETA