diff options
| author | Roland Haas <roland.haas@physics.gatech.edu> | 2012-05-29 10:19:53 -0700 |
|---|---|---|
| committer | Barry Wardell <barry.wardell@gmail.com> | 2012-09-11 18:23:31 +0100 |
| commit | 64f8068bb77c589566836b5ebb7cd719fa883c29 (patch) | |
| tree | f27e3dfdd56af554c4624e2987e6091b330123b5 /Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | |
| parent | 3af3dfa78c78075b962b639fcd93cb2714a0f825 (diff) | |
CarpetLib: add self-copy logic to classes with pointer members
right now disabled by an assert
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90')
| -rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 index d803ec2e6..fbff861c4 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 @@ -25,7 +25,7 @@ function eno1d(q) implicit none CCTK_REAL8 :: eno1d - CCTK_REAL8 :: q(4) + CCTK_REAL8, INTENT(IN) :: q(4) CCTK_REAL8 :: zero, one, two, three, six, half, eighth parameter (zero = 0) parameter (two = 2) |