Lines Matching refs:i
84 do i = 1, nshl
85 rml(:,i,1) = rml(:,i,1) + fddt * (yl(:,i,1)+ub(:,1))
86 rml(:,i,2) = rml(:,i,2) + fddt * (yl(:,i,2)+ub(:,2))
87 rml(:,i,3) = rml(:,i,3) + fddt * (yl(:,i,3)+ub(:,3))
88 rml(:,i,4) = rml(:,i,4) + fddt * (yl(:,i,4)+ub(:,4))
89 rml(:,i,5) = rml(:,i,5) + fddt * (yl(:,i,5)+ub(:,5))
103 do i = 1, nshl
104 yl(:,i,1) = fact*(acl(:,i,1)+ub(:,1))
105 yl(:,i,2) = fact*(acl(:,i,2)+ub(:,2))
106 yl(:,i,3) = fact*(acl(:,i,3)+ub(:,3))
107 yl(:,i,4) = fact*(acl(:,i,4)+ub(:,4))
108 yl(:,i,5) = fact*(acl(:,i,5)+ub(:,5))
115 do i = 1, nshl
116 rl(:,i,1) = rl(:,i,1)
117 & + A0(:,1,1)*yl(:,i,1)
121 & + A0(:,1,5)*yl(:,i,5)
123 rl(:,i,2) = rl(:,i,2)
124 & + A0(:,2,1)*yl(:,i,1)
125 & + A0(:,2,2)*yl(:,i,2)
128 & + A0(:,2,5)*yl(:,i,5)
130 rl(:,i,3) = rl(:,i,3)
131 & + A0(:,3,1)*yl(:,i,1)
133 & + A0(:,3,3)*yl(:,i,3)
135 & + A0(:,3,5)*yl(:,i,5)
137 rl(:,i,4) = rl(:,i,4)
138 & + A0(:,4,1)*yl(:,i,1)
141 & + A0(:,4,4)*yl(:,i,4)
142 & + A0(:,4,5)*yl(:,i,5)
144 rl(:,i,5) = rl(:,i,5)
145 & + A0(:,5,1)*yl(:,i,1)
146 & + A0(:,5,2)*yl(:,i,2)
147 & + A0(:,5,3)*yl(:,i,3)
148 & + A0(:,5,4)*yl(:,i,4)
149 & + A0(:,5,5)*yl(:,i,5)