Lines Matching defs:foo
1 subroutine foo(f1,f2,f3,f4,f5,f6,f7,f8,f9,f0,g1,g2,g3) subroutine
3 integer f4,f3,f2,f1
4 integer g4,g5,g6,g7,g8,g9
5 integer i1,i2,i3,i4,i5
7 real*8 g1(f4,f3,f2,f1),g2(f4,f4,f3,f2,f1),g3(f4,f3,f2,f1)
8 real*8 f0(f4,f4,f3,f2,f1),f9(f4,f4,f3,f2,f1),f8(f4,f4,f3,f2,f1)
9 real*8 f7(f4,f4,f3,f2,f1),f6(f4,f4,f3,f2,f1),f5(f4,f4,f3,f2,f1)
24 1 g2(i1,i2,i5,i4,i3)*g1(i2,i5,i4,i3)+
25 2 f0(i1,i2,i5,i4,i3)*g1(i2,g5,i4,i3)+
26 3 f9(i1,i2,i5,i4,i3)*g1(i2,i5,g7,i3)+
27 4 f8(i1,i2,i5,i4,i3)*g1(i2,i5,i4,g9)+
28 5 f7(i1,i2,i5,i4,i3)*g1(i2,g4,i4,i3)+
29 6 f6(i1,i2,i5,i4,i3)*g1(i2,i5,g6,i3)+
30 7 f5(i1,i2,i5,i4,i3)*g1(i2,i5,i4,g8)