Workaround nvhpc compilerbug

Author: wdeconinck

pluto/src/pluto_f/generated/pluto_module.F90

@@ -554,7 +554,6 @@ subroutine pluto_allocate_label_int32_r1_bounds_name(label, array, lbounds, ubou
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_int32_r1_type(array, resource)
     integer(c_int32_t), pointer, intent(inout) :: array(:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -644,7 +643,6 @@ subroutine pluto_allocate_label_int64_r1_bounds_name(label, array, lbounds, ubou
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_int64_r1_type(array, resource)
     integer(c_int64_t), pointer, intent(inout) :: array(:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -734,7 +732,6 @@ subroutine pluto_allocate_label_real32_r1_bounds_name(label, array, lbounds, ubo
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_real32_r1_type(array, resource)
     real(c_float), pointer, intent(inout) :: array(:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -824,7 +821,6 @@ subroutine pluto_allocate_label_real64_r1_bounds_name(label, array, lbounds, ubo
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_real64_r1_type(array, resource)
     real(c_double), pointer, intent(inout) :: array(:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -914,7 +910,6 @@ subroutine pluto_allocate_label_int32_r2_bounds_name(label, array, lbounds, ubou
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_int32_r2_type(array, resource)
     integer(c_int32_t), pointer, intent(inout) :: array(:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1004,7 +999,6 @@ subroutine pluto_allocate_label_int64_r2_bounds_name(label, array, lbounds, ubou
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_int64_r2_type(array, resource)
     integer(c_int64_t), pointer, intent(inout) :: array(:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1094,7 +1088,6 @@ subroutine pluto_allocate_label_real32_r2_bounds_name(label, array, lbounds, ubo
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_real32_r2_type(array, resource)
     real(c_float), pointer, intent(inout) :: array(:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1184,7 +1177,6 @@ subroutine pluto_allocate_label_real64_r2_bounds_name(label, array, lbounds, ubo
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_real64_r2_type(array, resource)
     real(c_double), pointer, intent(inout) :: array(:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1274,7 +1266,6 @@ subroutine pluto_allocate_label_int32_r3_bounds_name(label, array, lbounds, ubou
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_int32_r3_type(array, resource)
     integer(c_int32_t), pointer, intent(inout) :: array(:,:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1364,7 +1355,6 @@ subroutine pluto_allocate_label_int64_r3_bounds_name(label, array, lbounds, ubou
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_int64_r3_type(array, resource)
     integer(c_int64_t), pointer, intent(inout) :: array(:,:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1454,7 +1444,6 @@ subroutine pluto_allocate_label_real32_r3_bounds_name(label, array, lbounds, ubo
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_real32_r3_type(array, resource)
     real(c_float), pointer, intent(inout) :: array(:,:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1544,7 +1533,6 @@ subroutine pluto_allocate_label_real64_r3_bounds_name(label, array, lbounds, ubo
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_real64_r3_type(array, resource)
     real(c_double), pointer, intent(inout) :: array(:,:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1634,7 +1622,6 @@ subroutine pluto_allocate_label_int32_r4_bounds_name(label, array, lbounds, ubou
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_int32_r4_type(array, resource)
     integer(c_int32_t), pointer, intent(inout) :: array(:,:,:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1724,7 +1711,6 @@ subroutine pluto_allocate_label_int64_r4_bounds_name(label, array, lbounds, ubou
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_int64_r4_type(array, resource)
     integer(c_int64_t), pointer, intent(inout) :: array(:,:,:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1814,7 +1800,6 @@ subroutine pluto_allocate_label_real32_r4_bounds_name(label, array, lbounds, ubo
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_real32_r4_type(array, resource)
     real(c_float), pointer, intent(inout) :: array(:,:,:,:)
     type(pluto_memory_resource), intent(in) :: resource
@@ -1904,7 +1889,6 @@ subroutine pluto_allocate_label_real64_r4_bounds_name(label, array, lbounds, ubo
     call pluto_allocate(label, array, lbounds, ubounds, pluto_get_registered_resource(resource))
 end subroutine
 
-
 subroutine pluto_deallocate_real64_r4_type(array, resource)
     real(c_double), pointer, intent(inout) :: array(:,:,:,:)
     type(pluto_memory_resource), intent(in) :: resource