Fix variables the wrong way round

Author: samhatfield

src/trans/gpu/internal/leinv_mod.F90

@@ -45,16 +45,16 @@ SUBROUTINE LEINV_STRIDES(KF_LEG,IOUT_STRIDES0,IOUT_SIZE,IIN_STRIDES0,IIN_SIZE,&
     ASSOCIATE(D_OFFSETS_GEMM1=>D%OFFSETS_GEMM1, D_OFFSETS_GEMM2=>D%OFFSETS_GEMM2)
 
 
-    IF (PRESENT(IOUT_STRIDES0)) &
-      IOUT_STRIDES0 = ALIGN(KF_LEG,A)
+    IF (PRESENT(IOUT0_STRIDES0)) &
+      IOUT0_STRIDES0 = ALIGN(KF_LEG,A)
     IF (PRESENT(IOUT0_SIZE)) &
       IOUT0_SIZE = IOUT0_STRIDES0 * ALIGN(R%NDGNH,A)
     IF (PRESENT(IIN_STRIDES0)) &
       IIN_STRIDES0 = ALIGN(2*KF_LEG,A)
     IF (PRESENT(IIN_SIZE)) &
       IIN_SIZE = IIN_STRIDES0*D_OFFSETS_GEMM2(D%NUMP+1)
-    IF (PRESENT(IOUT0_STRIDES0)) &
-      IOUT0_STRIDES0 = ALIGN(2*KF_LEG,A)
+    IF (PRESENT(IOUT_STRIDES0)) &
+      IOUT_STRIDES0 = ALIGN(2*KF_LEG,A)
     IF (PRESENT(IOUT_SIZE)) &
       IOUT_SIZE = IOUT_STRIDES0*D_OFFSETS_GEMM1(D%NUMP+1)
     IF (PRESENT(IIN0_STRIDES0)) &