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