Merge from V6_main_20120808 08Aug12

[modules/yacs.git] / doc / exemples / exemple1 / addvec.f

diff --git a/doc/exemples/exemple1/addvec.f b/doc/exemples/exemple1/addvec.f
index 5eaa67bc04d9b2e306eb9c1189b6eedb709c6052..d42c73d8e283c8106c217990605bac689019c989 100755 (executable)
--- a/doc/exemples/exemple1/addvec.f
+++ b/doc/exemples/exemple1/addvec.f
@@ -1,10 +1,10 @@
-       subroutine addvec(C,A,B,n)\r
-       integer i,n\r
-       double precision A(n), B(n), C(n)\r
-C\r
-       do i=1, n\r
-          C(i) = A(i) + B(i)\r
-       enddo\r
-C\r
-       return\r
-       end\r
+       subroutine addvec(C,A,B,n)
+       integer i,n
+       double precision A(n), B(n), C(n)
+C
+       do i=1, n
+          C(i) = A(i) + B(i)
+       enddo
+C
+       return
+       end