Merge from V6_main_20120808 08Aug12

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

diff --git a/doc/exemples/exemple1/prdscl.f b/doc/exemples/exemple1/prdscl.f
index a0d0f8d6fd875436c28b71d0000b5d58af0455a7..4f70ff6443aa8be832cdff74d567c5cb9c5e34f6 100755 (executable)
--- a/doc/exemples/exemple1/prdscl.f
+++ b/doc/exemples/exemple1/prdscl.f
@@ -1,12 +1,12 @@
-       double precision function prdscl(A,B,n)\r
-       integer i,n\r
-       double precision A(n), B(n), S\r
-C\r
-       S = 0.0D0\r
-       do i=1, n\r
-          S = S + A(i) * B(i)\r
-       enddo\r
-C\r
-       prdscl = S\r
-       return\r
-       end\r
+       double precision function prdscl(A,B,n)
+       integer i,n
+       double precision A(n), B(n), S
+C
+       S = 0.0D0
+       do i=1, n
+          S = S + A(i) * B(i)
+       enddo
+C
+       prdscl = S
+       return
+       end