1/>dot(/i 2! <f2c_ftype2=double precision,double precision> <f2c_ctype2=double,double> 3. 4/<ftype2>.*>dot,/s/ftype2/f2c_ftype2/ 5/callprotoargument <ctype2>/s/ctype2/f2c_ctype2/ 6/>nrm2(/i 7! <f2c_ftypereal=double precision,double precision,double precision,double precision> <f2c_ctypereal=double,double,double,double> 8. 9/<ftypereal>.*>nrm2,/s/ftypereal/f2c_ftypereal/ 10/callprotoargument <ctypereal>/s/ctypereal/f2c_ctypereal/ 11/>asum(/a 12. 13/<ftypereal>.*>asum,/s/ftypereal/f2c_ftypereal/ 14/callprotoargument <ctypereal>/s/ctypereal/f2c_ctypereal/ 15w 16