@@ -506,7 +506,7 @@ module subroutine prif_num_images_with_team(team, num_images)
506
506
507
507
module subroutine prif_num_images_with_team_number (team_number , num_images )
508
508
implicit none
509
- integer (c_intmax_t ), intent (in ) :: team_number
509
+ integer (c_int64_t ), intent (in ) :: team_number
510
510
integer (c_int), intent (out ) :: num_images
511
511
end subroutine
512
512
@@ -520,15 +520,15 @@ module subroutine prif_this_image_with_coarray(coarray_handle, team, cosubscript
520
520
implicit none
521
521
type (prif_coarray_handle), intent (in ) :: coarray_handle
522
522
type (prif_team_type), intent (in ), optional :: team
523
- integer (c_intmax_t ), intent (out ) :: cosubscripts(:)
523
+ integer (c_int64_t ), intent (out ) :: cosubscripts(:)
524
524
end subroutine
525
525
526
526
module subroutine prif_this_image_with_dim (coarray_handle , dim , team , cosubscript )
527
527
implicit none
528
528
type (prif_coarray_handle), intent (in ) :: coarray_handle
529
529
integer (c_int), intent (in ) :: dim
530
530
type (prif_team_type), intent (in ), optional :: team
531
- integer (c_intmax_t ), intent (out ) :: cosubscript
531
+ integer (c_int64_t ), intent (out ) :: cosubscript
532
532
end subroutine
533
533
534
534
module subroutine prif_failed_images (team , failed_images )
@@ -621,7 +621,7 @@ module subroutine prif_co_broadcast(a, source_image, stat, errmsg, errmsg_alloc)
621
621
622
622
module subroutine prif_form_team (team_number , team , new_index , stat , errmsg , errmsg_alloc )
623
623
implicit none
624
- integer (c_intmax_t ), intent (in ) :: team_number
624
+ integer (c_int64_t ), intent (in ) :: team_number
625
625
type (prif_team_type), intent (out ) :: team
626
626
integer (c_int), intent (in ), optional :: new_index
627
627
integer (c_int), intent (out ), optional :: stat
@@ -653,7 +653,7 @@ module subroutine prif_get_team(level, team)
653
653
module subroutine prif_team_number (team , team_number )
654
654
implicit none
655
655
type (prif_team_type), intent (in ), optional :: team
656
- integer (c_intmax_t ), intent (out ) :: team_number
656
+ integer (c_int64_t ), intent (out ) :: team_number
657
657
end subroutine
658
658
659
659
module subroutine prif_sync_all (stat , errmsg , errmsg_alloc )
0 commit comments