Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
Announcements
FPGA community forums and blogs on community.intel.com are migrating to the new Altera Community and are read-only. For urgent support needs during this transition, please visit the FPGA Design Resources page or contact an Altera Authorized Distributor.

arrays

jim_dempsey
Beginner
295 Views
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
to
par(i)%sigma = par(i)%sigma +othird*par(i)%rho*par(i)%rod
Please report back as to improvement if any
Jim Dempsey


0 Kudos
0 Replies
Reply