Run pre-commit's whitespace related hooks on projects/rocprofiler-systems (#2123)

In order for pre-commit to be useful, everything needs to meet a common
baseline.

Signed-off-by: Mario Limonciello (AMD) <superm1@kernel.org>
Αυτή η υποβολή περιλαμβάνεται σε:
Mario Limonciello
2025-12-04 22:39:42 -06:00
υποβλήθηκε από GitHub
γονέας 463126770a
υποβολή d1aaae2539
36 αρχεία άλλαξαν με 128 προσθήκες και 128 διαγραφές
@@ -8,13 +8,13 @@ program main
!
! INTERVALS uses MPI routines to multiprocess a computational task.
!
! We have a function F(X), an interval [XMIN,XMAX],
! We have a function F(X), an interval [XMIN,XMAX],
! and a value N.
!
! We define N equally spaced points in the interval,
!
! X(I) = ( ( N - I ) * XMIN
! + ( I - 1 ) * XMAX )
! X(I) = ( ( N - I ) * XMIN
! + ( I - 1 ) * XMAX )
! / ( N - 1 )
!
! We thus have N-1 subintervals.
@@ -34,7 +34,7 @@ program main
!
! COMMUNICATION:
!
! Processor 0 communicates to processor I the endpoints of
! Processor 0 communicates to processor I the endpoints of
! the interval it is assigned, and the number of sample points
! to use in that interval.
!
@@ -69,7 +69,7 @@ program main
! MIT Press, 1998.
!
use mpi
real ( kind = 8 ) f
real ( kind = 8 ) h
integer ( kind = 4 ) i
@@ -154,7 +154,7 @@ program main
xb(2) = ( real ( process_num - process - 1, kind = 8 ) * x_min &
+ real ( process, kind = 8 ) * x_max ) &
/ real ( process_num - 1, kind = 8 )
target = process
tag = 1
@@ -169,7 +169,7 @@ program main
call MPI_Recv ( xb, 2, MPI_DOUBLE_PRECISION, 0, tag, &
MPI_COMM_WORLD, status, ierr )
end if
!
! Wait here until everyone has gotten their assignment.
@@ -192,7 +192,7 @@ program main
call MPI_Bcast ( m, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr )
!
! Now, every process EXCEPT 0 computes its estimate of the
! Now, every process EXCEPT 0 computes its estimate of the
! integral over its subinterval, and sends the result back
! to process 0.
!