File: pluto-type.patch

package info (click to toggle)
atlas-ecmwf 0.43.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 17,108 kB
  • sloc: cpp: 140,552; f90: 17,572; sh: 1,194; python: 379; makefile: 65
file content (10 lines) | stat: -rw-r--r-- 377 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
--- a/pluto/src/pluto_f/pluto_module.F90
+++ b/pluto/src/pluto_f/pluto_module.F90
@@ -659,6 +659,7 @@
     real(c_double), pointer, intent(inout) :: array(:,:,:,:)
     integer(c_int), intent(in) :: shape(:)
     integer(c_size_t) :: bytes
+    type(c_ptr) :: mem
     bytes = product(shape) * 8
     if (bytes > 0) then
         call this%memory_resource%allocate(mem, bytes)