- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
F90/F95 has implicit do's for many operations on arrays
array = 0. ! zeros all elements in array
array3 = array1 + array2 ! sums each cell.
array3 = array1 + array2 * scale ! applies scale to all cells too
Try changing
do j=1,3
do k=1,3
par(i)%sigma(k,j) = par(i)%sigma(k,j) +othird*par(i)%rho*par(i)%rod(k,j)
enddo
enddo
do k=1,3
par(i)%sigma(k,j) = par(i)%sigma(k,j) +othird*par(i)%rho*par(i)%rod(k,j)
enddo
enddo
to
par(i)%sigma = par(i)%sigma +othird*par(i)%rho*par(i)%rod
Please report back as to improvement if any
Jim Dempsey
Link Copied
0 Replies

Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page