Access component points directly

Inst_eddies/Tests/test_set_max_speed.f90

@@ -92,8 +92,7 @@ program test_set_max_speed
            cont_list(i)%polyline = null_polyline()
         else
            cont_list(i)%polyline = p%part(1)
-           cont_list(i)%polyline%points &
-                = cont_list(i)%polyline%points * deg_to_rad
+           cont_list(i)%points = cont_list(i)%points * deg_to_rad
         end if
 
         call dbf_read_attribute_03(cont_list(i)%ssh, hshp, ifield = 0, &