Skip to content

Commit a31662e

Browse files
kawashima-fjkawashima-fj
committed
fortran: Align indentation
This change makes comparison of `mpi-f08-interfaces.F90` and `pmpi-f08-interfaces.F90` easier. Signed-off-by: KAWASHIMA Takahiro <[email protected]> (cherry picked from commit 00e3c7a)
1 parent 14d2410 commit a31662e

File tree

2 files changed

+19
-19
lines changed

2 files changed

+19
-19
lines changed

‎ompi/mpi/fortran/use-mpi-f08/mpi-f08-interfaces.F90‎

Lines changed: 11 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,7 @@
99
! Copyright (c) 2012 Inria. All rights reserved.
1010
! Copyright (c) 2015 Research Organization for Information Science
1111
! and Technology (RIST). All rights reserved.
12+
! Copyright (c) 2017 FUJITSU LIMITED. All rights reserved.
1213
! $COPYRIGHT$
1314
!
1415
! This file provides the interface specifications for the MPI Fortran
@@ -2101,7 +2102,7 @@ subroutine MPI_Type_set_name_f08(datatype,type_name,ierror)
21012102
end subroutine MPI_Type_set_name_f08
21022103
end interface MPI_Type_set_name
21032104

2104-
interface MPI_Win_allocate
2105+
interface MPI_Win_allocate
21052106
subroutine MPI_Win_allocate_f08(size, disp_unit, info, comm, &
21062107
baseptr, win, ierror)
21072108
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@@ -2114,9 +2115,9 @@ subroutine MPI_Win_allocate_f08(size, disp_unit, info, comm, &
21142115
TYPE(MPI_Win), INTENT(OUT) :: win
21152116
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
21162117
end subroutine MPI_Win_allocate_f08
2117-
end interface MPI_Win_allocate
2118+
end interface MPI_Win_allocate
21182119

2119-
interface MPI_Win_allocate_shared
2120+
interface MPI_Win_allocate_shared
21202121
subroutine MPI_Win_allocate_shared_f08(size, disp_unit, info, comm, &
21212122
baseptr, win, ierror)
21222123
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@@ -2129,7 +2130,7 @@ subroutine MPI_Win_allocate_shared_f08(size, disp_unit, info, comm, &
21292130
TYPE(MPI_Win), INTENT(OUT) :: win
21302131
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
21312132
end subroutine MPI_Win_allocate_shared_f08
2132-
end interface MPI_Win_allocate_shared
2133+
end interface MPI_Win_allocate_shared
21332134

21342135
interface MPI_Win_create_keyval
21352136
subroutine MPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_keyval, &
@@ -2465,7 +2466,7 @@ function MPI_Wtick_f08( ) BIND(C,name="MPI_Wtick")
24652466
use, intrinsic :: ISO_C_BINDING
24662467
implicit none
24672468
DOUBLE PRECISION :: MPI_Wtick_f08
2468-
end function MPI_Wtick_f08
2469+
end function MPI_Wtick_f08
24692470
end interface MPI_Wtick
24702471

24712472
! MPI_Wtime is not a wrapper function
@@ -2475,7 +2476,7 @@ function MPI_Wtime_f08( ) BIND(C,name="MPI_Wtime")
24752476
use, intrinsic :: ISO_C_BINDING
24762477
implicit none
24772478
DOUBLE PRECISION :: MPI_Wtime_f08
2478-
end function MPI_Wtime_f08
2479+
end function MPI_Wtime_f08
24792480
end interface MPI_Wtime
24802481

24812482
interface MPI_Aint_add
@@ -2485,7 +2486,7 @@ function MPI_Aint_add_f08(base,diff)
24852486
INTEGER(MPI_ADDRESS_KIND) :: base
24862487
INTEGER(MPI_ADDRESS_KIND) :: diff
24872488
INTEGER(MPI_ADDRESS_KIND) :: MPI_Aint_add_f08
2488-
end function MPI_Aint_add_f08
2489+
end function MPI_Aint_add_f08
24892490
end interface MPI_Aint_add
24902491

24912492
interface MPI_Aint_diff
@@ -2495,7 +2496,7 @@ function MPI_Aint_diff_f08(addr1,addr2)
24952496
INTEGER(MPI_ADDRESS_KIND) :: addr1
24962497
INTEGER(MPI_ADDRESS_KIND) :: addr2
24972498
INTEGER(MPI_ADDRESS_KIND) :: MPI_Aint_diff_f08
2498-
end function MPI_Aint_diff_f08
2499+
end function MPI_Aint_diff_f08
24992500
end interface MPI_Aint_diff
25002501

25012502
interface MPI_Abort
@@ -3341,7 +3342,7 @@ subroutine MPI_Win_post_f08(group,assert,win,ierror)
33413342
end subroutine MPI_Win_post_f08
33423343
end interface MPI_Win_post
33433344

3344-
interface MPI_Win_shared_query
3345+
interface MPI_Win_shared_query
33453346
subroutine MPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,&
33463347
ierror)
33473348
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@@ -3353,7 +3354,7 @@ subroutine MPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,&
33533354
TYPE(C_PTR), INTENT(OUT) :: baseptr
33543355
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
33553356
end subroutine MPI_Win_shared_query_f08
3356-
end interface
3357+
end interface MPI_Win_shared_query
33573358

33583359
interface MPI_Win_start
33593360
subroutine MPI_Win_start_f08(group,assert,win,ierror)

‎ompi/mpi/fortran/use-mpi-f08/pmpi-f08-interfaces.F90‎

Lines changed: 8 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -2102,7 +2102,7 @@ subroutine PMPI_Type_set_name_f08(datatype,type_name,ierror)
21022102
end subroutine PMPI_Type_set_name_f08
21032103
end interface PMPI_Type_set_name
21042104

2105-
interface PMPI_Win_allocate
2105+
interface PMPI_Win_allocate
21062106
subroutine PMPI_Win_allocate_f08(size, disp_unit, info, comm, &
21072107
baseptr, win, ierror)
21082108
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@@ -2115,9 +2115,9 @@ subroutine PMPI_Win_allocate_f08(size, disp_unit, info, comm, &
21152115
TYPE(MPI_Win), INTENT(OUT) :: win
21162116
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
21172117
end subroutine PMPI_Win_allocate_f08
2118-
end interface PMPI_Win_allocate
2118+
end interface PMPI_Win_allocate
21192119

2120-
interface PMPI_Win_allocate_shared
2120+
interface PMPI_Win_allocate_shared
21212121
subroutine PMPI_Win_allocate_shared_f08(size, disp_unit, info, comm, &
21222122
baseptr, win, ierror)
21232123
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@@ -2130,7 +2130,7 @@ subroutine PMPI_Win_allocate_shared_f08(size, disp_unit, info, comm, &
21302130
TYPE(MPI_Win), INTENT(OUT) :: win
21312131
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
21322132
end subroutine PMPI_Win_allocate_shared_f08
2133-
end interface PMPI_Win_allocate_shared
2133+
end interface PMPI_Win_allocate_shared
21342134

21352135
interface PMPI_Win_create_keyval
21362136
subroutine PMPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_keyval, &
@@ -2486,7 +2486,7 @@ function PMPI_Aint_add_f08(base,diff)
24862486
INTEGER(MPI_ADDRESS_KIND) :: base
24872487
INTEGER(MPI_ADDRESS_KIND) :: diff
24882488
INTEGER(MPI_ADDRESS_KIND) :: PMPI_Aint_add_f08
2489-
end function PMPI_Aint_add_f08
2489+
end function PMPI_Aint_add_f08
24902490
end interface PMPI_Aint_add
24912491

24922492
interface PMPI_Aint_diff
@@ -2496,7 +2496,7 @@ function PMPI_Aint_diff_f08(addr1,addr2)
24962496
INTEGER(MPI_ADDRESS_KIND) :: addr1
24972497
INTEGER(MPI_ADDRESS_KIND) :: addr2
24982498
INTEGER(MPI_ADDRESS_KIND) :: PMPI_Aint_diff_f08
2499-
end function PMPI_Aint_diff_f08
2499+
end function PMPI_Aint_diff_f08
25002500
end interface PMPI_Aint_diff
25012501

25022502
interface PMPI_Abort
@@ -2681,7 +2681,6 @@ end subroutine PMPI_Finalized_f08
26812681
! ASYNCHRONOUS had to removed from the base argument because
26822682
! the dummy argument is not an assumed-shape array. This will
26832683
! be okay once the Interop TR is implemented.
2684-
!
26852684
interface PMPI_Free_mem
26862685
subroutine PMPI_Free_mem_f08(base,ierror)
26872686
implicit none
@@ -3343,7 +3342,7 @@ subroutine PMPI_Win_post_f08(group,assert,win,ierror)
33433342
end subroutine PMPI_Win_post_f08
33443343
end interface PMPI_Win_post
33453344

3346-
interface PMPI_Win_shared_query
3345+
interface PMPI_Win_shared_query
33473346
subroutine PMPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,&
33483347
ierror)
33493348
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
@@ -3355,7 +3354,7 @@ subroutine PMPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,&
33553354
TYPE(C_PTR), INTENT(OUT) :: baseptr
33563355
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
33573356
end subroutine PMPI_Win_shared_query_f08
3358-
end interface PMPI_Win_shared_query
3357+
end interface PMPI_Win_shared_query
33593358

33603359
interface PMPI_Win_start
33613360
subroutine PMPI_Win_start_f08(group,assert,win,ierror)

0 commit comments

Comments
 (0)