https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80235
--- Comment #4 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Reduced submodule
submodule ( m ) sm
contains
module subroutine cgca_pfem_map( origin, rot, bcol, bcou )
implicit none
real( kind=rdef ), intent( in ) :: &
origin(3), & ! origin of the "box" cs, in FE cs
rot(3,3), & ! rotation tensor *from* FE cs *to* CA cs
bcol(3), & ! lower phys. coords of the coarray on image
bcou(3) ! upper phys. coords of the coarray on image
integer( kind=idef ) :: maxfe
maxfe = size( cgca_pfem_centroid_tmp%r, dim=2 )
call co_max( maxfe )
end subroutine cgca_pfem_map
end submodule sm
