doc/exemples/exemple1/addvec.f

   1        subroutine addvec(C,A,B,n)\r
   2        integer i,n\r
   3        double precision A(n), B(n), C(n)\r
   4 C\r
   5        do i=1, n\r
   6           C(i) = A(i) + B(i)\r
   7        enddo\r
   8 C\r
   9        return\r
  10        end\r