acou3df902.f90 | acou3df902.f90 | |||
---|---|---|---|---|
! $Id: acou3df902.f90,v 1.1 2002/03/06 13:03:33 patricg Exp $ | ||||
! | ||||
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! | ||||
! | ||||
! $Log: acou3df902.f90,v $ | ||||
! Revision 1.1 2002/03/06 13:03:33 patricg | ||||
! | ||||
! New file renamed from *.f | ||||
! | ||||
! Revision 1.1 2002/01/24 16:38:30 patricg | ||||
! *** empty log message *** | ||||
! | ||||
! Revision 1.1.1.1 2002/01/14 09:40:47 patricg | ||||
! Imported sources | ||||
! | ||||
! Revision 1.1.1.1 2000/06/19 12:26:03 tveldhui | ||||
! Imported sources | ||||
! | ||||
! | ||||
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! | ||||
! | ! | |||
! F90 Tuned version | ! F90 Tuned version | |||
! Optimizations: | ! Optimizations: | |||
! - One 4D array allocated, other arrays are slices of this array. This | ! - One 4D array allocated, other arrays are slices of this array. This | |||
! arrangement interlaces the arrays in memory, improving data locality | ! arrangement interlaces the arrays in memory, improving data locality | |||
! - Rather than copying arrays, the indices into the 4D array are copied | ! - Rather than copying arrays, the indices into the 4D array are copied | |||
! - Rely on compiler for tiling. | ! - Rely on compiler for tiling. | |||
SUBROUTINE acoustic3d_f90Tuned(N, niters, check) | SUBROUTINE acoustic3d_f90Tuned(N, niters, check) | |||
INTEGER, INTENT( IN ) :: N, niters | INTEGER, INTENT( IN ) :: N, niters | |||
End of changes. 1 change blocks. | ||||
20 lines changed or deleted | 0 lines changed or added | |||
This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/ |