Parent Directory | Revision Log | Patch
revision 68 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC | |
---|---|---|
# | Line 7 c Zero the real array x dimensioned m. | Line 7 c Zero the real array x dimensioned m. |
7 | c | c |
8 | implicit none | implicit none |
9 | c | c |
10 | integer m,i | integer, intent(in):: m |
11 | integer i | |
12 | real x(m) | real x(m) |
13 | do 1 i=1,m | do 1 i=1,m |
14 | x(i)= 0.0 | x(i)= 0.0 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |