ts: Fix a type mismatch

There is a build fail when compiling comcot with a recent toolchain. Fix it by feeding a correct type to the function Signed-off-by: Andy Chiu <[email protected]>
AndybnACT · Nov 30, 2023 · a465d84 · a465d84
1 parent f25fdf5
commit a465d84
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/output.f90 b/output.f90
@@ -1137,7 +1137,7 @@ SUBROUTINE GET_TS (DAT,X0,Y0,LO,LA,ID)
 !	     Z4 = ETAUR*CX*CY
 !	     DAT = Z1+Z2+Z3+Z4
 !
-         CALL GCOMCOT_GET_Z(LA%ID, L1, L2, L3, L4, KI, KJ)
+         CALL GCOMCOT_GET_Z(LA(K)%ID, L1, L2, L3, L4, KI, KJ)
          Z1 = L1*(1.0-CX)*(1.0-CY)
 	     Z2 = L2*(CX)*(1-CY)
 	     Z3 = L3*(1.0-CX)*(CY)